Advertisement
johnlol

Cash To Coin V3

May 4th, 2019
211
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //////////////////////////////////////////////
  2. //           LIL TROLL                     //
  3. // FEEL FREE TO MODIFY                    //
  4. ///////////////////////////////////////////
  5. prontera,181,162,5  script  Cash To Coin    419,{
  6. dispbottom "You currently have "+countitem(7517)+" "+getitemname(7517)+".";
  7. dispbottom "You currently have " +#CASHPOINTS+ " Cash Points";
  8.     set @name$,"^FF0000Trader^000000";
  9.     mes @name$;
  10.     mes "What do you want to do?";
  11.     next;
  12.     switch(select("^006400Information^000000","^FF0000Convert^000000")) {
  13.         case 1:
  14.             mes @name$;
  15.             mes "I can ^FF0000convert^000000 your ^C0C0C0Cash^000000 into ^FFD700Gold^000000 Coins and vice versa.";
  16.             mes "1 ^FFD700Gold^000000 Coin = 1 ^C0C0C0Cash^000000"; //EDIT TO YOUR LIKING
  17.             close;
  18.         case 2:
  19.             switch(select("^FFD700Gold^000000 Coin to ^C0C0C0Cash^000000","^C0C0C0Cash^000000 to ^FFD700Gold^000000 Coin")) {
  20.              case 1:
  21.               mes @name$;
  22.               mes "How many ^C0C0C0Cash^000000 you want to have?";
  23.               input .@item_count ;
  24.               if( .@item_count == 0 ) close;
  25.                     if (countitem(7517) < (.@item_count*1)) goto noMITH;
  26.                     delitem 7517,(.@item_count*1);
  27.                     set #CASHPOINTS,#CASHPOINTS +.@item_count;
  28.                     dispbottom "Current Balance = "+#CASHPOINTS+" Cashpoints";
  29.                     next;
  30.                     mes @name$;
  31.                     mes "There you go! You got your " + .@item_count + " ^C0C0C0Cash^000000.  Hope to see you again!";
  32.                     close;
  33.              case 2:
  34.               mes @name$;
  35.               mes "How many ^FFD700Gold^000000 Coin you want to have?";
  36.               input .@item_count;
  37.               if( .@item_count == 0 ) close;
  38.                     if (checkweight(7517,100) == 100 ) goto overWeight;
  39.                     if (#CASHPOINTS == 0) goto noCASH;
  40.                     set #CASHPOINTS,#CASHPOINTS-(.@item_count/1);
  41.                     dispbottom "Current Balance = "+#CASHPOINTS+" Cashpoints";
  42.                     getitem 7517,.@item_count;
  43.                     next;
  44.                     mes @name$;
  45.                     mes "There you go! You got your " + .@item_count + " ^FFD700Gold^000000 ^C0C0C0Coins^000000. Hope to see you again!";
  46.                     close;
  47.     }
  48.             }
  49. OnInit:
  50.         waitingroom "Cash To Gold Coin",0;  //Gold Coin WAITING ROOM
  51. end;
  52.  
  53. noCASH:
  54.     next;
  55.     mes @name$;
  56.     mes "I'm Sorry but you don't have enough ^C0C0C0Cash^000000.";
  57.     close;
  58.  
  59. noMITH:
  60.     next;
  61.     mes @name$;
  62.     mes "I'm Sorry you don't have enough ^FFD700Gold^000000 ^C0C0C0Coins^000000";
  63.     close;
  64.    
  65. overWeight:
  66.     next;
  67.     mes @name$;
  68.     mes "Sorry you're ^FF0000overweight^000000.";
  69.     close;
  70. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement