Advertisement
Guest User

Untitled

a guest
Apr 8th, 2012
161
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 2.02 KB | None | 0 0
  1. #include a_samp
  2. #include dini
  3.  
  4. #define BANKPULTX -2147.0583
  5. #define BANKPULTY -2408.2285
  6. #define BANKPULTZ 30.4697
  7.  
  8. new bankpult;
  9. new file[24];
  10.  
  11. public OnGameModeInit()
  12. {
  13.     bankpult = CreatePickup(1239, 1, BANKPULTX, BANKPULTY, BANKPULTZ, -1);
  14.     return 1;
  15. }
  16.  
  17. public OnGameModeExit()
  18. {
  19.     DestroyPickup(bankpult);
  20.     return 1;
  21. }
  22.  
  23. SzamlaLetrehoz( playerid )
  24. {
  25.     WhCiklus:
  26.     {
  27.         new id = random(999999);
  28.         while(id<100000) id = random(999999);
  29.         format(file, 48, "szamla_%i.ini", id);
  30.         if(dini_Exists(file))
  31.         {
  32.             id = random(999999);
  33.             while(id<100000) id = random(999999);
  34.         }
  35.         format(file, 48, "szamla_%i.ini", id);
  36.     }
  37.     if(dini_Exist(file)) { goto WhCiklus; }
  38.    
  39.     else
  40.     {
  41.         dini_Create(file);
  42.         dini_Set(file, "Tulaj", GetPlayerNameEx( playerid ));
  43.         dini_IntSet(file, "Egyenleg", 0);
  44.         new pin = random(9999);
  45.         while(pin < 1000) pin = random(9999);
  46.         dini_IntSet(file, "Pin", pin);
  47.     }
  48.    
  49.     return 1;
  50. {
  51.  
  52. SzamlaTorol(szamlaid);
  53. {
  54.     format(file, sizeof(file), "szamla_%i.ini", szamlaid);
  55.     if(!dini_Exists(file)) return 0;
  56.     GivePlayerMoney(playerid, dini_Get(file, "Egyenleg"));
  57.     dini_Remove(file);
  58.     return 1;
  59. }
  60.  
  61. SzamlaEgyenleg( playerid, szamlaid, mennyit);
  62. {
  63.     format(file, sizeof(file), "szamla_%i.ini", szamlaid);
  64.     if(!dini_Exists(file)) return 0;
  65.     if(mennyit == 0) return 0;
  66.     if(mennyit < 0)
  67.     {
  68.         if(dini_Get(file, "Egyenleg") < mennyit) return 0;
  69.         dini_IntSet(file, "Egyenleg"), -mennyit);
  70.         GivePlayerMoney(playerid, +mennyit);
  71.         return 1;
  72.     }
  73.     else if(mennyit > 0)
  74.     {
  75.         if(GetPlayerMoney(playerid) < mennyit) return 0;
  76.         dini_IntSet(file, "Egyenleg", +mennyit);
  77.         GivePlayerMoney(playerid, -mennyit);
  78.         return 1;
  79.     }
  80.    
  81.     return 1;
  82. }
  83.  
  84. SzamlatIrat(playerid, szamlaid);
  85. {
  86.     format(file, sizeof(file), "szamla_%i.ini", szamlaid);
  87.     if(!dini_Exists(file)) return 0;
  88.     dini_Set(file, "Tulaj", GetPlayerNameEx(playerid);
  89.     return 1;
  90. }
  91.  
  92. GetPlayerNameEx( playerid );
  93. {
  94.     new name[24];
  95.     GetPlayerName(playerid, name, 24);
  96.     if(IsPlayerConnected(playerid)) return name;
  97. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement