Advertisement
hendra814

TCG exchanger

Aug 23rd, 2011
117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C++ 1.10 KB | None | 0 0
  1. prontera,147,165,3  script  TCG Exchanger   89,{
  2.  
  3. set .@amount, countitem(7227);
  4. if (.@amount == 0) {
  5. mes "[ TCG Exchanger ]";
  6. mes "Tidak ada TCG cards di inventori kamu.";
  7. mes "Cash points kamu sekarang "+#CASHPOINTS+".";
  8. dispbottom "Cash points kamu sekarang "+#CASHPOINTS+".";
  9. close;
  10. }
  11. mes "[ TCG Exchanger ]";
  12. mes "Tukar ^0000FF" + .@amount + "^000000 TCG Card untuk ^0000FF" +.@amount*20 + "^000000 CashPoints?";
  13. next;
  14. switch(select("Ya, semuanya:Ya, tapi sebagian:Tidak")) {
  15. case 1:
  16. delitem 7227,.@amount;
  17. set #CASHPOINTS, #CASHPOINTS + (.@amount * 20);
  18. mes "[ TCG Exchanger ]";
  19. mes "Cash points kamu sekarang "+#CASHPOINTS+".";
  20. dispbottom "Cash points kamu sekarang "+#CASHPOINTS+".";
  21. close;
  22.  
  23. case 2:
  24. mes "[ TCG Exchanger ]";
  25. mes "Berapa banyak TCG card yang mau kamu tukarkan dengan cash points?";
  26. next;
  27. input .@a,1,.@amount;
  28. delitem 7227,.@a;
  29. set #CASHPOINTS, #CASHPOINTS + (.@a * 20);
  30. mes "[ TCG Exchanger ]";
  31. mes "Cash points kamu sekarang "+#CASHPOINTS+".";
  32. dispbottom "Cash points kamu sekarang "+#CASHPOINTS+".";
  33. close;
  34.  
  35. case 3:
  36. mes "[ TCG Exchanger ]";
  37. mes "Bye Bye.";
  38. close;
  39. }
  40. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement