script of market plates do not work

[skuray]

Hello rathena.
This is a scrip of plates ( vending)
someone help me find the script error, pls?
this scrip was find in chronus emulator, if someone will have a scrip more modern, and will can disponibilze, i will be great.
( bad english)

 

prontera,156,188,4	script	Vending_Helper	757,{
for( set .@i,1; .@i <= .count; set .@i,.@i + 1 ){
getmapxy( .@map$,.@x,.@y,1,"#vend_slot"+.@i );
if( !getareausers( .map$,.@x,.@y,.@x,.@y ) && .@x > 1 && .@y > 1 ){
set .@available,.@available + 1;
set .@menu$,.@menu$ + "Slot - "+.@i+":";
}else{
set .@menu$,.@menu$ + ":";
}
}
if( !.@available ){
mes "Dont have any available slot.";
}else if( !getskilllv("MC_VENDING") ){
mes "You dont have ^0055FFVending Skill^000000.";
}else{
mes "Available Slot : "+.@available;
mes "Please select a slot to vending.";
set .@i,select( .@menu$ );
getmapxy( .@map$,.@x,.@y,1,"#vend_slot"+.@i );
if( .@x == 1 || .@y == 1 ){
mes "This NPC at invalid location...";
}else{
warp .@map$,.@x,.@y;
hideonnpc "#vend_slot"+.@i;
}
}
close;
OnInit:
sleep 1000;
// Map for vending
set .map$,"prontera";
setcell .map$,0,0,284,365,cell_novending,1;
// x and y horizone ..
setarray .x_line,149,154,159,163;
setarray .y_line,173,169,165,161,157,153,149;
set .x_line_size,getarraysize( .x_line );
set .y_line_size,getarraysize( .y_line );
set .count,1;
for( set .@x,0; .@x < .x_line_size; set .@x,.@x + 1 )
for( set .@y,0; .@y < .y_line_size; set .@y,.@y + 1 )
if( checkcell( .map$,.x_line[.@x],.y_line[.@y],cell_chkpass ) ){
movenpc "#vend_slot"+.count,.x_line[.@x],.y_line[.@y];
setcell .map$,.x_line[.@x],.y_line[.@y],.x_lin[.@x],.y_line[.@y],cell_novending,0;
set .count,.count + 1;
}
npctalk "Vending Spot : "+.count;
donpcevent "::OnSetup";
end;
}
- script vend_slot -1,{
getmapxy( .@map$,.@x,.@y,1 );
if( !getskilllv("MC_VENDING") ){
mes "You dont have ^0055FFVending Skill^000000.";
}else if( getareausers( .@map$,.@x,.@y,.@x,.@y ) ){
mes "Someone already selected this spot.";
}else{
mes "Spot : ^777777Available^000000";
mes "^0055FF[ Vending Area Rules ]^000000";
mes "^FF0000 ~ Use proper Shop Name.^000000";
mes "^FF0000 ~ Never sell Junk/Gifts.^000000";
mes " ";
mes "^777777Player will failed to follow these will be punished.^000000";
if( select( "Select this Spot","Cancel" ) == 1 ){
warp .@map$,.@x,.@y;
hideonnpc strnpcinfo(0);
}
}
close;
OnSetup:
getmapxy( .@map$,.@x,.@y,1 );
set .@npcname$,strnpcinfo(0);
while( 1 ){
if( getareausers( .@map$,.@x,.@y,.@x,.@y ) ){
hideonnpc .@npcname$;
}else{
hideoffnpc .@npcname$;
// specialeffect 313;
}
sleep 5000;
}
end;
}
// Add more if needed.
prontera,1,1,4 duplicate(vend_slot) #vend_slot1 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot2 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot3 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot4 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot5 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot6 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot7 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot8 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot9 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot10 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot11 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot12 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot13 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot14 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot15 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot16 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot17 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot18 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot19 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot20 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot21 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot22 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot23 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot24 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot25 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot26 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot27 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot28 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot29 858
prontera,1,1,4 duplicate(vend_slot) #vend_slot30 858

 

[n0tttt]

Here's the latest one, if I recall correctly:

herc.ws/board/topic/4509-vendor-control-rewrite/

[skuray]

Hi n0tttt.
can you help me to understand?
how add

 

//===== Hercules Plugin ====================================
//= Vendor Control
//===== By: ================================================
//= Original by Emistry
//= Rewrite by AnnieRuru
//===== Current Version: ===================================
//= 2.1a
//===== 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: ===============================
//= maybe because of npc->isnear ... Emistry deleted his topic ?
//==========================================================

#include "common/hercules.h"
#include "map/pc.h"
#include "map/npc.h"
#include "plugins/HPMHooking.h"
#include "common/HPMDataCheck.h"

// Note down the area where your players allow to vend
// this is meant to bypass the 'min_npc_vendchat_distance' check
char mapname[MAP_NAME_LENGTH] = "prontera";
int x1 = 150; // first element of setarray .@x
int x2 = 162; // last element of setarray .@x
int y1 = 133; // first element of setarray .@y
int y2 = 175; // last element of setarray .@y

HPExport struct hplugin_info pinfo = {
	"VendorControl",
	SERVER_TYPE_MAP,
	"2.1",
	HPM_VERSION,
};

int stack_limit = 1;

bool npc_isnear_pre( struct block_list **bl ) {
	struct map_session_data *sd = BL_CAST(BL_PC, *bl);
	if ( !strcmp( mapindex_id2name(sd->mapindex), mapname ) && sd->bl.x >= x1 && sd->bl.x <= x2 && sd->bl.y >= y1 && sd->bl.y <= y2 )
		hookStop();
	return false;
}

int unit_walktoxy_timer_pre( int *tid, int64 *tick, int *id, intptr_t *data ) {
	struct block_list *bl = map->id2bl(*id);
	struct map_session_data *sd = BL_CAST(BL_PC, bl);
	if ( !bl || !sd )
		return 0;
	if ( !strcmp( mapindex_id2name(sd->mapindex), mapname ) && sd->bl.x >= x1 && sd->bl.x <= x2 && sd->bl.y >= y1 && sd->bl.y <= y2 )
		battle->bc->official_cell_stack_limit = 0;
	return 0;
}

int unit_walktoxy_timer_post( int retVal, int tid, int64 tick, int id, intptr_t data ) {
	if ( battle->bc->official_cell_stack_limit == 0 )
		battle->bc->official_cell_stack_limit = stack_limit;
	return 0;
}

HPExport void plugin_init (void) {
	stack_limit = battle->bc->official_cell_stack_limit;

	addHookPre( npc, isnear, npc_isnear_pre );
	addHookPre( unit, walktoxy_timer, unit_walktoxy_timer_pre );
	addHookPost( unit, walktoxy_timer, unit_walktoxy_timer_post );
}

 

[n0tttt]

It's not 100% necessary and I don't have a test server to test right now.

[skuray]

is not working

[n0tttt]

Adapted to rAthena: https://pastebin.com/raw/NS2dU8WX

[skuray]

OMG!!!!!! I love U!!!!!!!! Perfect!!!!!!