Skull Exchanger

[SlashGeeGee]

Hello rA

I would like to request a skull exchanger script that goes like this .

• npc info : prontera 173 184 , ID : 795 , name : Skull Exchanger

• Skull : #7420

• iRO Cash Token : #20001

• when the player talk to the npc the npc will say " Hello "Char Name " , tired from collecting skulls ? well don't worry because your hardwork all paid off this time because you can exchange skulls to iRO Cash Tokens . next

• npc says remember that 250 Skulls Exchanges --> 5 iRO Cash Tokens . Let's see you have " Count Skulls in Inventory " .

•. next the npc will say how many skulls would you like to give up ? if input 250 down npc says you dont have enough skulls comeback another day. if input 250 up ok then exchanges 5 iRO Cash token . if more than 250 then let's say 500 then the player gets 10 iRO Cash Token .

Thanks ,

SlashGeeGee

BUMP !

Done !

Edited May 18, 2012 by SlashGeeGee

[Rikimaru]

Here use it :

royal_room3,102,120,3<tab>script<tab>Skull Exchanger<tab>795,{
set .@n$,"[ ^336699Skull Exchanger^000000 ]";
mes .@n$;
mes "Hi  ^ff8000"+strcharinfo(0)+"^000000,";
mes "tired from collecting skulls eh ? well don't worry because your hardwork all paid off this time because you can exchange Skulls to iRO Cash Tokens.";
next;
mes .@n$;
mes "You have "+countitem(7420)+" Skulls!";
mes "Just Remeber that 250 Skulls is equivalent to 5 iRO Cash Token.";
mes "500 Skulls is equivalent to 10 iRO Cash Tokens!";
mes "750 Skulls is equivalent to 15 iRO Cash Tokens!";
mes "1000 Skulls is equivalent to 20 iRO Cash Tokens!";
next;
OnStartexchange:
mes .@n$;
mes "Do you want to exchange your Skulls for iRO Cash Tokens ?";
next;
switch(select("Yes,I'd be glad to:What can I buy with iRO Cash Tokens?:No,not right now")) {
case 1:
mes .@n$;
mes "The Exchange Rate is 250 Skulls = ^0000FF5 iRO Cash Tokens^000000.";
mes "Now you can choose if you want to exchange 250,500,750 or 1000 Skulls for tokens!";
next;
switch(select("Exchange 250 Skulls:Exchange 500 Skulls:Exchange 750 Skulls:Exchange 1000 Skulls")) {
case 1:
if(countitem(7420) < 250) {
mes .@n$;
mes "Sorry but you don't have enough Skulls!";
close;
}
mes .@n$;
mes "Okay let me exchange your skulls.";
next;
mes .@n$;
mes "...";
delitem 7420,250;
getitem 20001,5;
next;
mes .@n$;
mes "The Exchange was sucessfull. You can now purchase items at the Cash Shop.";
close;
case 2:
if(countitem(7420) < 500) {
mes .@n$;
mes "Sorry but you don't have enough Skulls!";
close;
}
mes .@n$;
mes "Okay let me exchange your skulls.";
next;
mes .@n$;
mes "...";
delitem 7420,500;
getitem 20001,10;
next;
mes .@n$;
mes "The Exchange was sucessfull. You can now purchase items at the Cash Shop.";
close;
case 3:
if(countitem(7420) < 750) {
mes .@n$;
mes "Sorry but you don't have enough Skulls!";
close;
}
mes .@n$;
mes "Okay let me exchange your skulls.";
next;
mes .@n$;
mes "...";
delitem 7420,750;
getitem 20001,15;
next;
mes .@n$;
mes "The Exchange was sucessfull. You can now purchase items at the Cash Shop.";
close;
case 4:
if(countitem(7420) < 1000) {
mes .@n$;
mes "Sorry but you don't have enough Skulls!";
close;
}
mes .@n$;
mes "Okay let me exchange your skulls.";
next;
mes .@n$;
mes "...";
delitem 7420,1000;
getitem 20001,20;
next;
mes .@n$;
mes "The Exchange was sucessfull. You can now purchase items at the Cash Shop.";
close;
}
case 2:
mes .@n$;
mes "iRO Cash Tokens is to be clicked then you get 10 Cash Points.";
mes "If you want to check what items are available, talk to the Cash Shop.";
next;
goto OnStartexchange;
case 3:
mes .@n$;
mes "Okay goodbye!";
close;
}
}

Have fun with the Script!