Advertisement
Bicas

BATTLE Bičas vs SanCio, 2014-06-11

Jun 11th, 2014
596
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 3.43 KB | None | 0 0
  1. #include <a_samp>
  2.  
  3. new
  4.     AKsandelyje,
  5.     DGLsandelyje,
  6.     USPsandelyje,
  7.     UZIsandelyje,
  8.     MP5sandelyje
  9. ;
  10.  
  11. new
  12.     GunShopPICKUP
  13. ;
  14.  
  15. #define AK_KAINA        1000
  16. #define DGL_KAINA       300
  17. #define USP_KAINA       150
  18. #define UZI_KAINA       700
  19. #define MP5_KAINA       850
  20.  
  21. #define CALLBACK::%0(%1)                forward %0(%1); public %0(%1)
  22. #define GUN::%0(%1)                     %0(%1)
  23. #define BUTTON_YES                      if(response)
  24. #define BUTTON_NO                       if(!response)
  25.  
  26. enum{
  27.     DIALOG_GUNSHOP
  28. }
  29.  
  30. CALLBACK::OnGameModeInit()
  31. {
  32.     AKsandelyje = 100;
  33.     DGLsandelyje = 30;
  34.     USPsandelyje = 15;
  35.     UZIsandelyje = 70;
  36.     MP5sandelyje = 85;
  37.     GunShopPICKUP = CreatePickup(1242, 2, 1503.3359, 1432.3585, 10.1191, -1);
  38. }
  39.  
  40. CALLBACK::OnPlayerPickUpPickup(playerid, pickupid)
  41. {
  42.     if(pickupid == GunShopPICKUP)
  43.     {
  44.         new
  45.             sandelyje[50],
  46.             isviso,
  47.             masyvas[128]
  48.         ;
  49.         isviso = AKsandelyje + DGLsandelyje + USPsandelyje + UZIsandelyje + MP5sandelyje;
  50.         format(sandelyje, sizeof(sandelyje), "Sandelyje viso ginklų yra %d", isviso);
  51.         format(masyvas, sizeof(masyvas), "\
  52.         AK-47 - %dLT (liko %d vnt.)\n\
  53.         Desert Eagle - %dLT (liko %d vnt.)\n\
  54.         USP - %dLT (liko %d vnt.)\n\
  55.         UZI - %dLT (liko %d vnt.)\n\
  56.         MP5 - %dLT (liko %d vnt.)\n",
  57.         AK_KAINA, AKsandelyje, DGL_KAINA, DGLsandelyje, USP_KAINA, USPsandelyje, UZI_KAINA, UZIsandelyje, MP5_KAINA, MP5sandelyje);
  58.         ShowPlayerDialog(playerid, DIALOG_GUNSHOP, DIALOG_STYLE_LIST, sandelyje, masyvas, "Pirkti", "Išeiti");
  59.     }
  60.     return true;
  61. }
  62.  
  63. CALLBACK::OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  64. {
  65.     switch(dialogid)
  66.     {
  67.         case DIALOG_GUNSHOP:
  68.         {
  69.             BUTTON_YES
  70.             {
  71.                 switch(listitem)
  72.                 {
  73.                     case 0:
  74.                     {
  75.                         if(GetPlayerMoney(playerid) < AK_KAINA) return SendClientMessage(playerid, -1, "Jūms neužtenka pinigų.");
  76.                         GivePlayerWeapon(playerid, 30, 1000);
  77.                         GivePlayerMoney(playerid, -AK_KAINA);
  78.                         SendClientMessage(playerid, -1, "Sėkmingai nusipirkote AK-47");
  79.                         AKsandelyje -= 1;
  80.                     }
  81.                     case 1:
  82.                     {
  83.                         if(GetPlayerMoney(playerid) < DGL_KAINA) return SendClientMessage(playerid, -1, "Jūms neužtenka pinigų.");
  84.                         GivePlayerWeapon(playerid, 24, 500);
  85.                         GivePlayerMoney(playerid, -DGL_KAINA);
  86.                         SendClientMessage(playerid, -1, "Sėkmingai nusipirkote Desert Eagle");
  87.                         DGLsandelyje -= 1;
  88.                     }
  89.                     case 2:
  90.                     {
  91.                         if(GetPlayerMoney(playerid) < USP_KAINA) return SendClientMessage(playerid, -1, "Jūms neužtenka pinigų.");
  92.                         GivePlayerWeapon(playerid, 22, 500);
  93.                         GivePlayerMoney(playerid, -USP_KAINA);
  94.                         SendClientMessage(playerid, -1, "Sėkmingai nusipirkote USP");
  95.                         USPsandelyje -= 1;
  96.                     }
  97.                     case 3:
  98.                     {
  99.                         if(GetPlayerMoney(playerid) < UZI_KAINA) return SendClientMessage(playerid, -1, "Jūms neužtenka pinigų.");
  100.                         GivePlayerWeapon(playerid, 28, 1000);
  101.                         GivePlayerMoney(playerid, -UZI_KAINA);
  102.                         SendClientMessage(playerid, -1, "Sėkmingai nusipirkote UZI");
  103.                         UZIsandelyje -= 1;
  104.                     }
  105.                     case 4:
  106.                     {
  107.                         if(GetPlayerMoney(playerid) < MP5_KAINA) return SendClientMessage(playerid, -1, "Jūms neužtenka pinigų.");
  108.                         GivePlayerWeapon(playerid, 29, 1000);
  109.                         GivePlayerMoney(playerid, -MP5_KAINA);
  110.                         SendClientMessage(playerid, -1, "Sėkmingai nusipirkote MP5");
  111.                         MP5sandelyje -= 1;
  112.                     }
  113.                 }
  114.             }
  115.             BUTTON_NO
  116.             {
  117.                 SendClientMessage(playerid, -1, "Ačiū kad apsilankėte, kitą kartą kąnors nusipirkite.");
  118.             }
  119.             return true;
  120.         }
  121.     }
  122.     return true;
  123. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement