Warper with payment(item) and Menu

[karazu 33]

Hello I found several scripts already with payment but it will only warp in 1 map

If its ok I would like to request to put menu in it.

like when u click it and u have the item it will warp you to the map.


the menu is like


prontera
payon
geffen and so on.

[Patskie 88]

Here you go!

prontera,150,150,0	script	Sample	100,{	if ( countitem(.item_id) < .amount ) close;	mes .n$;	mes "Hey where would you like to go?";	next;	.@s = select(implode(.Maps$, ":")) - 1;	mes .n$;	mes "So you want to go to " +strtolower(.Maps$[.@s])+ "?";	next;	if ( select("Yes:No") - 1 ) close;	mes .n$;	mes "Bye!";	delitem .item_id, .amount;	warp strtolower(.Maps$[.@s]),0,0;	close;	OnInit:		setarray .Maps$[0],"Payon","Prontera","Geffen";		.item_id = 7227;		.amount = 5;		.n$ = "[" +strnpcinfo(1)+ "]";		end;}

Edited November 30, 2013 by Patskie

[karazu 33]

Hello, You again Patskie thank you for that. 

is it possible to put a coordinates please?

and is it possible that you will change the name for example


I will use Alias
example 

The City of Pride = prontera 150 150

The City of Genius = geffen 150 150
The City of Patskie = payon 150 150





 

Edited November 30, 2013 by karazu

[Patskie 88]

Ya it's possible however i need to re-write my script

[karazu 33]

Ya it's possible however i need to re-write my script

I will wait.

 

Thank you in Advance

[Patskie 88]

prontera,150,150,0	script	Sample	100,{	if ( countitem(.item_id) < .amount ) close;	mes .n$;	mes "Hey where would you like to go?";	next;	for ( .@i = 0; .@i < .size; .@i++ ) {		.@menu$ += .Desc$[.@i];		.@menu$ += ":";	}	.@s = select(.@menu$) - 1;	mes .n$;	mes "So you want to go to " +strtolower(.Maps$[.@s])+ "?";	next;	if ( select("Yes:No") - 1 ) close;	mes .n$;	mes "Bye!";	delitem .item_id, .amount;	warp strtolower(.Maps$[.@s]),0,0;	close;	OnInit:		setarray .Desc$[0],"The City of Pride","The City of Genius","The City of Patskie";		setarray .Maps$[0],"payon","prontera","geffen";		.size = getarraysize(.Desc$);		.item_id = 7227;		.amount = 5;		.n$ = "[" +strnpcinfo(1)+ "]";		end;}

[Yommy 265]

http://rathena.org/board/topic/71212-kingkronos-dynamic-questfullwoe-warper-11/?hl=questwarp

[karazu 33]

prontera,150,150,0	script	Sample	100,{	if ( countitem(.item_id) < .amount ) close;	mes .n$;	mes "Hey where would you like to go?";	next;	for ( .@i = 0; .@i < .size; .@i++ ) {		.@menu$ += .Desc$[.@i];		.@menu$ += ":";	}	.@s = select(.@menu$) - 1;	mes .n$;	mes "So you want to go to " +strtolower(.Maps$[.@s])+ "?";	next;	if ( select("Yes:No") - 1 ) close;	mes .n$;	mes "Bye!";	delitem .item_id, .amount;	warp strtolower(.Maps$[.@s]),0,0;	close;	OnInit:		setarray .Desc$[0],"The City of Pride","The City of Genius","The City of Patskie";		setarray .Maps$[0],"payon","prontera","geffen";		.size = getarraysize(.Desc$);		.item_id = 7227;		.amount = 5;		.n$ = "[" +strnpcinfo(1)+ "]";		end;} 

This is good already but i want with coordinates. because if u only put prontera you will be warped randomly in prontera right?

 

if possbile with coordinates.

 

I saw a PVP warper before he did it like this.

 

 

 

prontera,147,175,5	script	Special Warper	10005,{set .@room1$,"PVP1";set .@room2$,"PVP2";set .@name$,"[Special Warper]"; //NPC Dialogue namemes .@name$;mes "Hello, I can warp you to some special area.";mes "Please choose an area do you want me to warp you.";switch(select("PVPAREA1:PVPAREA2")){case 1:	warp .@room1$,50,50;	end;case 2:	if(Class >= 0 && Class <= 4215){ //Allows Rune Knight to Mechanic, no matter if they rebirthed before or not	warp .@room2$,84,50;	end;	}} 

The problem with it is doesn't have payment, and also it has some limit according to JOB

 

 

[Patskie 88]

Hmm. Make sure that this three arrays have same value size. If the first array have 3 values, the second and third array must have also 3 values otherwise you will receive errors :

 

setarray .Desc$[0],"The City of Pride","The City of Genius","The City of Patskie";setarray .Maps$[0],"payon","prontera","geffen";setarray .Coordinates$[0],"150:150","150:150","150:150";

 

@Edit : add a checkcell command because you may input an invalid coordinates and stuck those players who will use this npc

prontera,150,150,0	script	Sample	100,{    if ( countitem(.item_id) < .amount ) close;    mes .n$;    mes "Hey where would you like to go?";    next;    for ( .@i = 0; .@i < .size; .@i++ ) {        .@menu$ += .Desc$[.@i];        .@menu$ += ":";    }    .@s = select(.@menu$) - 1;    mes .n$;    mes "So you want to go to " +strtolower(.Maps$[.@s])+ "?";    next;    if ( select("Yes:No") - 1 ) close;    delitem .item_id, .amount;	explode(.@coord$, .Coordinates$[.@s], ":");	mes .n$;	if ( checkcell(strtolower(.Maps$[.@s]), .@coord$[0], .@coord$[1], cell_chkpass) ) {		mes "Bye!";		warp strtolower(.Maps$[.@s]),atoi(.@coord$[0]),atoi(.@coord$[1]);	} else mes "Invalid coordinates";    close;	    OnInit:        setarray .Desc$[0],"The City of Pride","The City of Genius","The City of Patskie";        setarray .Maps$[0],"payon","prontera","geffen";		setarray .Coordinates$[0],"150:150","150:150","343:143";        .size = getarraysize(.Desc$);        .item_id = 7227;        .amount = 5;        .n$ = "[" +strnpcinfo(1)+ "]";        end;}

Edited November 30, 2013 by Patskie

[karazu 33]

Thank you your the best.

Testing it now



EDIT:

 

Hmm. Make sure that this three arrays have same value size. If the first array have 3 values, the second and third array must have also 3 values otherwise you will receive errors :

 

Last Patskie
Can you make it 2 items please?

Like it requires 2 different items  to let this NPC warp you...

Edited November 30, 2013 by karazu

[Patskie 88]

use setarray

[karazu 33]

weee, trust me it will just make your script broken

[karazu 33]

use setarray

Patskie My love, please do it for me!