item to item exchanger ######

[trizzy]

it's simple script but i cannot find anywhere!

can someone make exchanger example:

 

100 TCG = 1 credit

1 credit = 100 TCG

 

i think you know what i mean! you can change 100 tcg to 1 credit and second choice you can either change it again 1 credit to 100 TCG

 

THANKS in ADVANCE.

[Radian]

prontera,150,150,0 script PODS&&TCG 719,{

set @name$,"^FF0000Trader^000000";

mes @name$;

mes "What do you want to do?";

next;

switch(select("Information","Convert")) {

case 1:

mes @name$;

mes "I can convert your TCG CARDS into POD and vice versa.";

mes "10 TCG CARD = 1 PODS";

close;

case 2:

switch(select("TCG CARDS to POD","POD to TCG CARDS")) {

case 1:

mes @name$;

mes "How many POD you want to have?";

input .@item_count ;

if( .@item_count == 0 ) close;

if (countitem(7227) < (.@item_count*10)) goto noTCG;

if (checkweight(7179,100) == 0 ) goto overWeight;

delitem 7227,(.@item_count*10);

getitem 7179,.@item_count;

next;

mes @name$;

mes "There you go! You got your " + .@item_count + " PODS. Hope to see you again!";

close;

case 2:

mes @name$;

mes "How many TCG CARDS you want to have?";

input .@item_count;

if( .@item_count == 0 ) close;

if (checkweight(7227,35) == 0 ) goto overWeight;

if (countitem(7179) < (.@item_count/10)) goto noPods;

delitem 7179,(.@item_count/10);

getitem 7227,.@item_count;

next;

mes @name$;

mes "There you go! You got your " + .@item_count + " TCG. Hope to see you again!";

close;

}

}

OnInit:

waitingroom "PODS TRADER",0; // WITH WAITING ROOM

end;

noPODS:

next;

mes @name$;

mes "I'm Sorry but you don't have enough PODS.";

close;

noTCG:

next;

mes @name$;

mes "I'm Sorry you don't have enough TCG";

close;

overWeight:

next;

mes @name$;

mes "Sorry you're overweight.";

close;

}

}

[trizzy]

@Radian thanks for you effort! but i already fix by my self thank you again salamat.

[EL Dragon]

make pls SOLVED.....