Guest User

Bank System

a guest
Oct 14th, 2013
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 6.81 KB | None | 0 0
  1.     //Credits goto Blademaster680
  2.    
  3.     #define DIALOG_BANK 34
  4.     #define DIALOG_DEPOSIT 35
  5.     #define DIALOG_WITHDRAW 36
  6.     #define DIALOG_TRANSFER1 37
  7.     #define DIALOG_TRANSFER2 38
  8.     #define DIALOG_BALANCE 39
  9.    
  10.    
  11. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  12. {
  13.     switch( dialogid )
  14.     {
  15.         case DIALOG_BANK:
  16.         {
  17.             if(!response) return 0;
  18.             if(response)
  19.             {
  20.                 if(listitem == 0)
  21.                 {
  22.                     new str[128];
  23.                     format(str,sizeof(str),"Your Curret Balance Is : $%d\nEnter The Amount You Want To Deposit Below :",PlayerInfo[playerid][pBank]);
  24.                     ShowPlayerDialog(playerid, DIALOG_DEPOSIT, DIALOG_STYLE_INPUT, "Deposit",str, "Deposit", "Back");
  25.                 }
  26.                 if(listitem == 1)
  27.                 {
  28.                     new str[128];
  29.                     format(str,sizeof(str),"Your Curret Balance Is : $%d\nEnter The Amount You Want To Withdraw Below :",PlayerInfo[playerid][pBank]);
  30.                     ShowPlayerDialog(playerid, DIALOG_WITHDRAW, DIALOG_STYLE_INPUT, "Withdraw",str, "Withdraw", "Back");               
  31.                 }
  32.                 if(listitem == 2)
  33.                 {
  34.                     new str[128];
  35.                     format(str,sizeof(str),"Your Current Balance Is : $%d\nEnter The Player ID You Want To Transfer To Below :",PlayerInfo[playerid][pBank]);
  36.                     ShowPlayerDialog(playerid,DIALOG_TRANSFER1,DIALOG_STYLE_INPUT,"Transfer",str,"Next","Back");
  37.                 }  
  38.                 if(listitem == 3)
  39.                 {
  40.                     new str[128];
  41.                     format(str, sizeof(str), "Your current bank balance is: $%d", PlayerInfo[playerid][pBank]);
  42.                     ShowPlayerDialog(playerid, DIALOG_BALANCE, DIALOG_STYLE_MSGBOX, "Bank account", str, "Back", "");
  43.                 }  
  44.             }  
  45.         }  
  46.         case DIALOG_DEPOSIT:
  47.         {
  48.             if(!response) return ShowPlayerDialog(playerid, DIALOG_BANK, DIALOG_STYLE_LIST, "{007A00}Bank account", " Deposit \n Withdraw \n Balance", "Select", "Cancel");
  49.             else if(strval(inputtext) > GetPlayerMoney(playerid)) return SendClientMessage(playerid,COLOR_RED,"You Don't Have That Amount!");
  50.             else if(!IsNumeric(inputtext))
  51.             {
  52.                 new str[128];
  53.                 format(str,sizeof(str),"Your Curret Balance Is : $%d\nEnter The Amount You Want To Deposit Below :",PlayerInfo[playerid][pBank]);
  54.                 ShowPlayerDialog(playerid, DIALOG_DEPOSIT, DIALOG_STYLE_INPUT, "Deposit",str, "Deposit", "Back");
  55.                 SendClientMessage(playerid,COLOR_RED,"Please Use Numbers");
  56.             }
  57.             else
  58.             {
  59.                 new str[128];
  60.                 new inputext = strval(inputtext);
  61.                 PlayerInfo[playerid][pBank] += inputext;
  62.                 PlayerInfo[playerid][pCash] -= inputext;
  63.                 format(str, sizeof(str), "You have deposited $%d into your account. New balance: $%d", inputext, PlayerInfo[playerid][pBank]);
  64.                 SendClientMessage(playerid, 0x008000FF, str);
  65.             }      
  66.         }
  67.         case DIALOG_WITHDRAW:
  68.         {
  69.             if(!response) return ShowPlayerDialog(playerid, DIALOG_BANK, DIALOG_STYLE_LIST, "{007A00}Bank account", " Deposit \n Withdraw \n Balance", "Select", "Cancel");
  70.             else if(strval(inputtext) > PlayerInfo[playerid][pBank]) return SendClientMessage(playerid,COLOR_RED,"You Don't Have That Amount in your bank");
  71.             else if(!IsNumeric(inputtext))
  72.             {
  73.                 new str[128];
  74.                 format(str,sizeof(str),"Your Curret Balance Is : $%d\nEnter The Amount You Want To Withdraw Below :",PlayerInfo[playerid][pBank]);
  75.                 ShowPlayerDialog(playerid, DIALOG_WITHDRAW, DIALOG_STYLE_INPUT, "Withdraw",str, "Withdraw", "Back");
  76.                 SendClientMessage(playerid,COLOR_RED,"Please Use Numbers");
  77.             }
  78.             else
  79.             {
  80.                 new str[128];
  81.                 new inputext = strval(inputtext);
  82.                 PlayerInfo[playerid][pBank] -= inputext;
  83.                 PlayerInfo[playerid][pCash] += inputext;
  84.                 format(str, sizeof(str), "You have withdrawn $%d out of your account. New balance: $%d", inputext, PlayerInfo[playerid][pBank]);
  85.                 SendClientMessage(playerid, 0x008000FF, str);
  86.             }  
  87.         }
  88.         case DIALOG_TRANSFER1:
  89.         {
  90.             if(!response) return ShowPlayerDialog(playerid, DIALOG_BANK, DIALOG_STYLE_LIST, "{007A00}Bank account", " Deposit \n Withdraw \n Balance", "Select", "Cancel");
  91.             else if(strval(inputtext) == INVALID_PLAYER_ID) return SendClientMessage(playerid,COLOR_RED,"Player Not Online");
  92.             else if(!IsNumeric(inputtext))
  93.             {
  94.                 new str[128];
  95.                 format(str,sizeof(str),"Your Current Balance Is : $%d\nEnter The Player ID You Want To Transfer To Below :", PlayerInfo[playerid][pBank]);
  96.                 ShowPlayerDialog(playerid,1130,DIALOG_STYLE_INPUT,"Transfer",str,"Next","Back");
  97.                 SendClientMessage(playerid,COLOR_RED,"Please Use ID Not Name");
  98.             }
  99.             else
  100.             {
  101.                 chosenpid = strval(inputtext);
  102.                 new str[128];
  103.                 format(str,sizeof(str),"Balance : %d\nChosen Player ID : %d\nNow Enter The Amount You Want To Transfer",PlayerInfo[playerid][pBank],chosenpid);
  104.                 ShowPlayerDialog(playerid,DIALOG_TRANSFER2,DIALOG_STYLE_INPUT,"Transfer",str,"Transfer","Back");
  105.             }  
  106.         }
  107.         case DIALOG_TRANSFER2:
  108.         {
  109.             if(!response) return ShowPlayerDialog(playerid, DIALOG_BANK, DIALOG_STYLE_LIST, "{007A00}Bank account", " Deposit \n Withdraw \n Balance", "Select", "Cancel");
  110.             else if(strval(inputtext) > PlayerInfo[playerid][pBank]) return SendClientMessage(playerid,COLOR_RED,"You Don't Have That Amount In Bank To Transfer");
  111.             else if(!IsNumeric(inputtext))
  112.             {
  113.                 new str[128];
  114.                 format(str,sizeof(str),"Chosen Player ID : %d\nNow Enter The Amount You Want To Transfer",chosenpid);
  115.                 ShowPlayerDialog(playerid,1131,DIALOG_STYLE_INPUT,"Transfer",str,"Transfer","Back");
  116.                 SendClientMessage(playerid,COLOR_RED,"Please Use Numbers");
  117.             }
  118.             else
  119.             {
  120.                 PlayerInfo[playerid][pBank] -= strval(inputtext);
  121.                 PlayerInfo[chosenpid][pBank] += strval(inputtext);
  122.                 new str[128];
  123.                 format(str,sizeof(str),"You Transfered $%d To ID %d's Bank Account",strval(inputtext),chosenpid);
  124.                 SendClientMessage(playerid, 0x008000FF, str);
  125.                 new str2[128];
  126.                 format(str2,128,"Your New Balance Is : $%d",PlayerInfo[playerid][pBank]);
  127.                 SendClientMessage(playerid,0x008000FF,str2);
  128.                 new str3[128];
  129.                 format(str3,128,"ID : %d Transfered $%d To Your Bank Account",playerid,strval(inputtext));
  130.                 SendClientMessage(chosenpid,0x008000FF,str3);
  131.                 new str4[128];
  132.                 format(str4, 128, "Your New Balance : $%d", PlayerInfo[chosenpid][pBank]);
  133.                 SendClientMessage(chosenpid, 0x008000FF, str4);
  134.                 ShowPlayerDialog(playerid,1125,DIALOG_STYLE_LIST,"Bank","Deposit\nWithdraw\nBalance\nTransfer","Select","Cancel");
  135.             }  
  136.         }  
  137.         case DIALOG_BALANCE:
  138.         {
  139.             if(response)
  140.             {
  141.                 ShowPlayerDialog(playerid, DIALOG_BANK, DIALOG_STYLE_LIST, "{007A00}Bank account", " Deposit \n Withdraw \n Balance", "Select", "Cancel");
  142.  
  143.             }  
  144.         }
  145.    
  146.     }
  147.  
  148. }  
  149. CMD:bank(playerid, params[])
  150. {
  151.     if(!IsPlayerInRangeOfPoint(playerid, 60, 2315.952880,-1.618174,26.742187))
  152.     {
  153.         SendClientMessage(playerid,COLOR_RED,"You Have To Be In The Bank");
  154.     }  
  155.     else
  156.     {
  157.         ShowPlayerDialog(playerid, DIALOG_BANK, DIALOG_STYLE_LIST, "{007A00}Bank account", " Deposit \n Withdraw \n Transfer \n Balance", "Select", "Cancel");
  158.     }  
  159.     return 1;
  160. }
Add Comment
Please, Sign In to add comment