Item Changer.

[pojiejapan]

Can I request a simple Item changer?

For example : White Potion, Red Potion, Green Potion and Blue Potion all can be change to TCG.

Player talks to NPC:

NPC : Hye what do you want to convert your Potion to TCG?

-menu : Yes : No

-Yes : What type of potion you want to change to TCG?

- menu :

-Red Potion

-Blue Potion

Player Select and he get TCG

[Rikimaru]

It would be like this in the Script :

//====================== rAthena Script ===================================
//=== Made by Rikimaru
//=== Topic Link : http://rathena.org/board/topic/57794-item-changer/
//==================== Information ========================================
//==== a easy Item Changer from Potions to TCG's
//================= Version : =============================================
//=== V 1.1   Fixed a typo in the Script [ Rikimaru ]
//=== V 1.0   Finished Scripting the Item Changer [ Rikimaru ]
//============== Credits : ================================================
//=== Credits to Rikimaru for the Item Changer Script
//=== rAthena Profile Link : http://rathena.org/board/user/434-rikimaru/
//=========================================================================
//*************************************************************************
mapname,XXX,YYY,DIRECTION script Item Changer 911,{
//=========================== Settings ====================================
set .@changername$,"[ Item Changer ]";// YOU MAY CHANGE THE NAME OF THE NPC
set .tcgid,7227;
set @tcgamount,1;
//======================= Settings End ====================================
//*************************************************************************
mes .@changername$;
mes "Hello "+strcharinfo(0)+" , what";
mes "can I do for you today?";
mes "Do you want to exchange";
mes "your Potions into TCG Cards?";
next;
switch(select("Yes exchange!:Cancel")) {
case 1:
mes .@changername$;
mes "Okay which Potion do";
mes "you want to exchange";
mes "to a TCG Card?";
next;
switch(select("-Red Potion:-Blue Potion:Cancel")) {
  case 1:
  mes .@changername$;
  mes "Okay let me check if";
  mes "you have the Potions";
  next;
  mes .@changername$;
  mes "Rustle... Rustle...";
  if(countitem(501) < 1) goto l_noitem;
  delitem 501,1
  next;
  mes .@changername$;
  getitem .tcgid,@tcgamount;
  mes "Here take your TCG Cards!";
  close;
  case 2:
  mes .@changername$;
  mes "Okay let me check if";
  mes "you have the Potions";
  next;
  mes .@changername$;
  mes "Rustle... Rustle...";
  if(countitem(505) < 1) goto l_noitem;
  delitem 505,1
  next;
  mes .@changername$;
  getitem .tcgid,@tcgamount;
  mes "Here take your TCG Cards!";
  close;
  case 3:
  mes .@changername$;
  mes "Okay goodbye!";
  close;
  }
case 2:
mes .@changername$;
mes "Okay goodbye!";
close;
}
l_noitem:
mes .@changername$;
mes "Sorry you have to get the items first!";
close;
}
[/codeBOX]

I hope that this helped you.

DOWNLOAD :

Item_Changer.txt

Greetings,

Rikimaru

Edited January 22, 2012 by Rikimaru

[pojiejapan]

thanks a lot sir Problem Solved!

[Rikimaru]

No Problem