API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 8th, 2012
198
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 7.96 KB | None | 0 0
raw download clone embed print report
  1. #include <a_samp>
  2. #include <dini>
  3.  
  4. #define RAYHASSI 65541
  5. #define BANKPULTX -2147.0583
  6. #define BANKPULTY -2408.2285
  7. #define BANKPULTZ 30.4697
  8. #define DIALOG_BANKMAIN 65542
  9. #define DIALOG_BANKSZAMLANYIT RAYHASSI+2
  10. #define DIALOG_BANKBELEP1 RAYHASSI +3
  11. #define DIALOG_BANKBELEP2 RAYHASSI +4
  12. #define DIALOG_BANKTOROL1 RAYHASSI +5
  13. #define DIALOG_BANKTOROL2 RAYHASSI +6
  14. #define DIALOG_BANKSZAMLABAN RAYHASSI +7
  15. #define DIALOG_BANKPENZBE RAYHASSI+8
  16. #define DIALOG_BANKPENZKI RAYHASSI+9
  17.  
  18. new bankpultpu;
  19. new file[48];
  20.  
  21. main()
  22. {
  23.     print("\n-\n");
  24. }
  25.  
  26. public OnGameModeInit()
  27. {
  28.     bankpultpu = CreatePickup(1239, 1, BANKPULTX, BANKPULTY, BANKPULTZ, -1);
  29.     return 1;
  30. }
  31. public OnGameModeExit()
  32. {
  33.     DestroyPickup(bankpultpu);
  34.     return 1;
  35. }
  36. public OnPlayerSpawn(playerid)
  37. {
  38.     SetPVarInt(playerid, "szamlaban", 0);
  39.     SetPlayerPos(playerid,BANKPULTX,BANKPULTY,BANKPULTZ);
  40.     return 1;
  41. }
  42. public OnPlayerPickUpPickup(playerid, pickupid)
  43. {
  44.     if(pickupid == bankpultpu)
  45.     {
  46.         SendClientMessage(playerid, -1, "Nyomd meg a(z) ~k~~PED_SPRINT~ gombot~");
  47.  
  48.     }
  49.     return 1;
  50. }
  51. public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
  52. {
  53.     if(newkeys & KEY_SPRINT)
  54.     {
  55.         if(IsPlayerInRangeOfPoint(playerid, 1.4, BANKPULTX,BANKPULTY,BANKPULTZ))
  56.         {
  57.             ShowPlayerDialog(playerid, DIALOG_BANKMAIN, DIALOG_STYLE_LIST, "Bank", "Számlanyitás \nBelépés", "Választ", "Kilép");
  58.         }
  59.     }
  60.     return 1;
  61. }
  62. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  63. {
  64.     print("sajt2");
  65.     if(dialogid == DIALOG_BANKMAIN)
  66.     {
  67.         print("sajtx");
  68.         if(response)
  69.         {
  70.             print("sajt1");
  71.             switch(listitem)
  72.             {
  73.                 case 0:
  74.                 {
  75.                     print("sajt");
  76.                     ShowPlayerDialog(playerid, DIALOG_BANKSZAMLANYIT, DIALOG_STYLE_MSGBOX, "Számlanyitás", "Biztos benne, hogy szeretne számlát nyitni?", "Igen", "Kilép");
  77.                 }
  78.                 case 1: ShowPlayerDialog(playerid, DIALOG_BANKBELEP1, DIALOG_STYLE_INPUT, "Belépés", "Adja meg a számlaszámot", "Tovább", "Kilép");
  79.             }
  80.         }
  81.     }
  82.     else if(dialogid == DIALOG_BANKSZAMLANYIT)
  83.     {
  84.         switch(response)
  85.         {
  86.             case 1: SzamlaLetrehoz(playerid);
  87.             case 0: ShowPlayerDialog(playerid, DIALOG_BANKMAIN, DIALOG_STYLE_LIST, "Bank", "Számlanyitás \nBelépés", "Választ", "Kilép");
  88.         }
  89.     }
  90.     else if(dialogid == DIALOG_BANKBELEP1 &&response)
  91.     {
  92.         format(file, sizeof(file), "szamla_%i.ini", strval(inputtext));
  93.         if(!dini_Exists(file))
  94.         {
  95.             SendClientMessage(playerid, -1, "Érvénytelen számlaszám~");
  96.             ShowPlayerDialog(playerid, DIALOG_BANKBELEP1, DIALOG_STYLE_INPUT, "Belépés", "Adja meg a számlaszámot", "Tovább", "Kilép");
  97.             return 1;
  98.         }
  99.         if(response == 0) ShowPlayerDialog(playerid, DIALOG_BANKMAIN, DIALOG_STYLE_LIST, "Bank", "Számlanyitás \nBelépés", "Választ", "Kilép");
  100.         SetPVarInt(playerid, "szamlaban", strval(inputtext));
  101.         ShowPlayerDialog(playerid, DIALOG_BANKBELEP2, DIALOG_STYLE_PASSWORD, "Belépés", "Adja meg a PIN-kódot.", "Tovább", "Kilép");
  102.     }
  103.     else if(dialogid == DIALOG_BANKBELEP2 &&response)
  104.     {
  105.         format(file, sizeof(file), "szamla_%i.ini", GetPVarInt(playerid, "szamlaban"));
  106.         new pinkod = dini_Int(file, "Pin");
  107.         if(pinkod != strval(inputtext))
  108.         {
  109.             SendClientMessage(playerid, -1, "Érvénytelen PIN~");
  110.             SetPVarInt(playerid, "szamlaban", 0);
  111.             ShowPlayerDialog(playerid, DIALOG_BANKBELEP1, DIALOG_STYLE_INPUT, "Belépés", "Adja meg a számlaszámot", "Tovább", "Kilép");
  112.             return 1;
  113.         }
  114.         if(response == 0) { SetPVarInt(playerid, "szamlaban", 0); ShowPlayerDialog(playerid, DIALOG_BANKMAIN, DIALOG_STYLE_LIST, "Bank", "Számlanyitás \nBelépés", "Választ", "Kilép"); }
  115.         new szamlacim[64];
  116.         format(szamlacim, 64, "Számla: %d", GetPVarInt(playerid, "szamlaban"));
  117.         ShowPlayerDialog(playerid, DIALOG_BANKSZAMLABAN, DIALOG_STYLE_LIST, szamlacim, "Egyenleg lekérdezés \nPénz behelyezés \nPénz kivétel \nSzámla megszüntetése", "Választ", "Kilép");
  118.     }
  119.     else if(dialogid == DIALOG_BANKSZAMLABAN &&response)
  120.     {
  121.         if(response == 0) { SetPVarInt(playerid, "szamlaban", 0); ShowPlayerDialog(playerid, DIALOG_BANKMAIN, DIALOG_STYLE_LIST, "Bank", "Számlanyitás \nBelépés", "Választ", "Kilép"); }
  122.         new szamlacim[64];
  123.         format(szamlacim, 64, "Számla: %d", GetPVarInt(playerid, "szamlaban"));
  124.         switch(listitem)
  125.         {
  126.             case 0:
  127.             {
  128.                 format(file, sizeof(file), "szamla_%i.ini", GetPVarInt(playerid, "szamlaban"));
  129.                 new text[128];
  130.                 format(text, 128, "Egyenleg: $%d~", dini_Get(file, "Egyenleg"));
  131.                 ShowPlayerDialog(playerid, DIALOG_BANKSZAMLABAN, DIALOG_STYLE_LIST, szamlacim, "Egyenleg lekérdezés \nPénz behelyezés \nPénz kivétel \nSzámla megszüntetése", "Választ", "Kilép");
  132.             }
  133.             case 1:ShowPlayerDialog(playerid,DIALOG_BANKPENZBE, DIALOG_STYLE_INPUT,szamlacim, "Pénz behelyezés", "Behelyez", "Kilép");
  134.             case 2:ShowPlayerDialog(playerid,DIALOG_BANKPENZKI, DIALOG_STYLE_INPUT,szamlacim, "Pénz kivétel", "Kivesz", "Kilép");
  135.             case 3:SzamlaTorol(playerid, GetPVarInt(playerid, "szamlaban"));
  136.         }
  137.     }
  138.     else if(dialogid == DIALOG_BANKPENZBE &&response)
  139.     {
  140.         new szamlacim[64];
  141.         format(szamlacim, 64, "Számla: %d", GetPVarInt(playerid, "szamlaban"));
  142.         if(response == 0) { SetPVarInt(playerid, "szamlaban", 0); ShowPlayerDialog(playerid, DIALOG_BANKMAIN, DIALOG_STYLE_LIST, "Bank", "Számlanyitás \nBelépés", "Választ", "Kilép"); }
  143.         SzamlaEgyenleg(playerid, GetPVarInt(playerid, "szamlaban"), strval(inputtext));
  144.         ShowPlayerDialog(playerid, DIALOG_BANKSZAMLABAN, DIALOG_STYLE_LIST, szamlacim, "Egyenleg lekérdezés \nPénz behelyezés \nPénz kivétel \nSzámla megszüntetése", "Választ", "Kilép");
  145.     }
  146.     else if(dialogid == DIALOG_BANKPENZKI &&response)
  147.     {
  148.         new szamlacim[64];
  149.         format(szamlacim, 64, "Számla: %d", GetPVarInt(playerid, "szamlaban"));
  150.         if(response == 0) { SetPVarInt(playerid, "szamlaban", 0); ShowPlayerDialog(playerid, DIALOG_BANKMAIN, DIALOG_STYLE_LIST, "Bank", "Számlanyitás \nBelépés", "Választ", "Kilép"); }
  151.         SzamlaEgyenleg(playerid, GetPVarInt(playerid, "szamlaban"), -strval(inputtext));
  152.         ShowPlayerDialog(playerid, DIALOG_BANKSZAMLABAN, DIALOG_STYLE_LIST, szamlacim, "Egyenleg lekérdezés \nPénz behelyezés \nPénz kivétel \nSzámla megszüntetése", "Választ", "Kilép");
  153.     }
  154.     return 1;
  155. }
  156.  
  157. stock SzamlaLetrehoz(playerid)
  158. {
  159.     new id = random(999999);
  160.     while(id<100000) id = random(999999);
  161.     format(file, 48, "szamla_%i.ini", id);
  162.     if(dini_Exists(file))
  163.     {
  164.         id = random(999999);
  165.         while(id<100000) id = random(999999);
  166.     }
  167.     format(file, 48, "szamla_%i.ini", id);
  168.     if(dini_Exists(file)) SzamlaLetrehoz(playerid);
  169.     else
  170.     {
  171.         dini_Create(file);
  172.         dini_Set(file, "Tulaj", GetPlayerNameEx(playerid));
  173.         dini_IntSet(file, "Egyenleg", 0);
  174.         new pin = random(9999);
  175.         while(pin < 1000) pin = random(9999);
  176.         dini_IntSet(file, "Pin", pin);
  177.         new text[128];
  178.         format(text, 128, "Számlanyitás sikeres. Számlaszám: %d. PIN-kód: %d", id, pin);
  179.         SendClientMessage(playerid, -1, text);
  180.     }
  181.     return 1;
  182. }
  183. stock SzamlaTorol(playerid, szamlaid)
  184. {
  185.     format(file, sizeof(file), "szamla_%i.ini", szamlaid);
  186.     if(!dini_Exists(file)) return 0;
  187.     GivePlayerMoney(playerid, dini_Int(file, "Egyenleg"));
  188.     dini_Remove(file);
  189.     SetPVarInt(playerid, "szamlaban", 0);
  190.     return 1;
  191. }
  192. stock SzamlaEgyenleg(playerid, szamlaid, mennyit)
  193. {
  194.     format(file, sizeof(file), "szamla_%i.ini", szamlaid);
  195.     if(!dini_Exists(file)) return 0;
  196.     if(mennyit == 0) return 0;
  197.     else if(mennyit < 0)
  198.     {
  199.         if(dini_Int(file, "Egyenleg") < mennyit) return 0;
  200.         dini_IntSet(file, "Egyenleg", dini_Int(file, "Egyenleg")-mennyit);
  201.         GivePlayerMoney(playerid, mennyit);
  202.         return 1;
  203.     }
  204.     else if(mennyit > 0)
  205.     {
  206.         if(GetPlayerMoney(playerid) < mennyit) return 0;
  207.         dini_IntSet(file, "Egyenleg", dini_Int(file, "Egyenleg")+mennyit);
  208.         GivePlayerMoney(playerid, -mennyit);
  209.         return 1;
  210.     }
  211.     return 1;
  212. }
  213.  
  214. stock GetPlayerNameEx(playerid)
  215. {
  216.     new name[24];
  217.     GetPlayerName(playerid, name, 24);
  218.     return name;
  219. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!