//===== Hercules Script ====================================
//= Vendor Control
//===== By: ================================================
//= Original by Emistry
//= Rewrite by AnnieRuru
//===== Current Version: ===================================
//= 2.1
//===== Compatible With: ===================================
//= Hercules 2018-06-02
//===== Description: =======================================
//= Vendors only vend on certain coordinate, looks tidy :P
//===== Topic ==============================================
//= http://herc.ws/board/topic/4509-vendor-control-rewrite/
//===== Additional Comments: ===============================
//= Revert back to use unitwalk
//==========================================================
mall,99,95,4	script	Vending Helper	4_F_JPN2,{
	mes "["+ strnpcinfo(NPC_NAME_VISIBLE) +"]";
	if ( !getskilllv( "MC_VENDING" ) ) {
		mes "You dont have ^0055FFVending Skill^000000.";
		close;
	}
	mes "Select a slot and start vending.";
	while ( true ) {
		.@menu$ = .@currentpage ? "Previous Page:" : ":";
		.@pageindex = .@currentpage * .slotperpage;
		for ( .@i = 0; .@i < .slotperpage && .@pageindex + .@i < .count; ++.@i ) {
			if ( !getmapxy( .@map$, .@x, .@y, UNITTYPE_NPC, "#vend_slot"+( .@pageindex + .@i ) ) && getareausers( .map$, .@x, .@y, .@x, .@y ) )
				.@menu$ += "Slot No."+( .@pageindex + .@i +1 )+" - ^FF0000[Unavailable]^000000:";
			else
				.@menu$ += "Slot No."+( .@pageindex + .@i +1 )+" - ^00CC00[Available]^000000:";
		}
		if ( .@currentpage != .maxpage )
			.@menu$ = .@menu$ + "Next Page";
		.@pick = select( .@menu$ ) -1;
		if ( !.@pick )
			{ --.@currentpage; }
		else if ( .@pick == .slotperpage +1 )
			{ ++.@currentpage; }
		else
			break;
	}
	.@s =  .@currentpage * .slotperpage + .@pick -1 ;
	if ( !getmapxy( .@map$, .@x, .@y, UNITTYPE_NPC, "#vend_slot"+ .@s ) && getareausers( .map$, .@x, .@y, .@x, .@y ) ) {
		mes " ";
		mes "This slot is ^FF0000[UnAvailable]^000000.";
		close;
	}
	warp .@map$, .@x, .@y;
	hideonnpc "#vend_slot"+ .@s;
	donpcevent "#vend_slot"+ .@s +"::OnCheckAvailable";
	end;
OnInit:
//	======================= Configuration HERE =============================
	.map$ = "mall"; // map
	setarray .@x, 65,68,71,74,77,80,83,86,89,110,113,116,119,122,125,128,131,134; // x coordinates
	setarray .@y, 106,104,102,100,98,96,94; // y coordinates
	.slotperpage = 20; // display how many slots per page (prevent making the menu too long)

	freeloop true;
	setcell .map$, 0,0, 500,500, cell_novending, true;
	.@x_size = getarraysize( .@x );
	.@y_size = getarraysize( .@y );
	for ( .@i = 0; .@i < .@y_size; ++.@i ) {
		for ( .@j = 0; .@j < .@x_size; ++.@j ) {
			if ( checkcell( .map$, .@x[.@j], .@y[.@i], cell_chkpass ) ) {
				movenpc "#vend_slot"+ .count, .@x[.@j], .@y[.@i];
				setcell .map$, .@x[.@j], .@y[.@i], .@x[.@j], .@y[.@i], cell_novending, false;
				if ( getareausers( .map$, .@x[.@j], .@y[.@i], .@x[.@j], .@y[.@i] ) ) {
					hideonnpc "#vend_slot"+ .count;
					donpcevent "#vend_slot"+ .count +"::OnCheckAvailable";
				}
				++.count;
			}
		}
	}
	.maxpage = .count / .slotperpage + ( .count % .slotperpage > 0 ) -1;
	end;
}

-	script	vend_slot	FAKE_NPC,{
	mes "[Vending Slot]";
	if ( !getskilllv( "MC_VENDING" ) ) {
		mes "You dont have ^0055FFVending Skill^000000.";
		close;
	}
	getmapxy .@map$, .@x, .@y, UNITTYPE_NPC;
	if ( getareausers( .@map$, .@x, .@y, .@x, .@y ) ) {
		mes "Someone already using this slot";
		close;
	}
	unitwalk getcharid(3), .@x, .@y;
	mes "Spot : ^777777Available^000000";
	mes "^0055FF[ Vending Area Rules ]^000000";
	mes "^FF0000 ~ Use proper Shop Name.^000000";
	mes "^777777Player who failed to follow these rules will be punished.^000000";
	hideonnpc strnpcinfo(NPC_NAME);
	donpcevent strnpcinfo(NPC_NAME)+"::OnCheckAvailable";
	close;
OnCheckAvailable:
	sleep 10000;
	getmapxy .@map$, .@x, .@y, UNITTYPE_NPC;
	while ( getareausers( .@map$, .@x, .@y, .@x, .@y ) )
		sleep 10000;
	hideoffnpc strnpcinfo(NPC_NAME);
	end;
}

// Add more if needed.
mall,1,1,4	duplicate(vend_slot)	#vend_slot1	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot2	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot3	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot4	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot5	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot6	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot7	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot8	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot9	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot10	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot11	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot12	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot13	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot14	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot15	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot16	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot17	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot18	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot19	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot20	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot21	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot22	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot23	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot24	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot25	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot26	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot27	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot28	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot29	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot30	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot31	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot32	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot33	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot34	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot35	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot36	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot37	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot38	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot39	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot40	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot41	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot42	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot43	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot44	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot45	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot46	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot47	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot48	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot49	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot50	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot51	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot52	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot53	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot54	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot55	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot56	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot57	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot58	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot59	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot60	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot61	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot62	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot63	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot64	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot65	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot66	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot67	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot68	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot69	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot70	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot71	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot72	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot73	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot74	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot75	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot76	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot77	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot78	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot79	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot80	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot81	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot82	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot83	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot84	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot85	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot86	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot87	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot88	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot89	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot90	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot91	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot92	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot93	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot94	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot95	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot96	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot97	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot98	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot99	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot100	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot101	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot102	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot103	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot104	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot105	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot106	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot107	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot108	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot109	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot110	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot111	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot112	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot113	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot114	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot115	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot116	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot117	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot118	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot119	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot120	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot121	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot122	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot123	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot124	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot125	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot126	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot127	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot128	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot129	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot130	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot131	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot132	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot133	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot134	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot135	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot136	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot137	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot139	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot140	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot141	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot142	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot143	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot144	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot145	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot146	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot147	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot148	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot149	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot150	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot151	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot152	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot153	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot154	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot155	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot156	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot157	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot158	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot159	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot160	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot161	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot162	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot163	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot164	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot165	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot166	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot167	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot168	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot169	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot170	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot171	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot172	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot173	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot174	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot175	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot176	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot177	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot178	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot179	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot180	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot181	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot182	4_BOARD3
mall,1,1,4	duplicate(vend_slot)	#vend_slot183	4_BOARD3