Guest User

Untitled

a guest
Nov 11th, 2011
751
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 6.14 KB | None | 0 0
  1. #include <a_samp>
  2. #include <zcmd>
  3. #include <rBits>
  4.  
  5. #define DialogPesca 102
  6.  
  7. new Bit1:Vara[MAX_PLAYERS];
  8. new Bit1:Iscas[MAX_PLAYERS];
  9. new Bit1:Anzol[MAX_PLAYERS];
  10. new Bit1:Capturou[MAX_PLAYERS];
  11.  
  12. public OnFilterScriptInit()
  13. {
  14.     Create3DTextLabel("Compre utensilios para sua pesca! /upesca\n também venda seus peixes aqui /venderpeixe", -1, 359.3872,-2032.2191,7.8359, 50, 0, 50);
  15. }
  16.  
  17. public OnPlayerConnect(playerid) return SetPlayerMapIcon(playerid, 5, 359.3872,-2032.2191,7.8359,17,0);
  18.  
  19. CMD:irpier(playerid)
  20. {
  21.     if(!IsPlayerAdmin(playerid))
  22.         return 0;
  23.     SetPlayerPos(playerid,359.3872,-2032.2191,7.8359);
  24.     return true;
  25. }
  26.  
  27. CMD:upesca(playerid)
  28. {
  29.     if(!IsPlayerInRangeOfPoint(playerid,5,359.3872,-2032.2191,7.8359))
  30.         return SendClientMessage(playerid, 0xD900D366, "Você não está perto da loja!");
  31.     ShowPlayerDialog(playerid, DialogPesca, DIALOG_STYLE_LIST, "O que deseja comprar?","Vara de pesca R$ 100\nIsca de pesca R$ 20\nAnzol de pesca R$ 80\n","Comprar","Sair");
  32.     return true;
  33. }
  34.  
  35. CMD:pescar(playerid)
  36. {
  37.     if(!IsApier(playerid))
  38.         return SendClientMessage(playerid, 0xD900D366, "Você não está próximo a área de pesca do pier");
  39.     if(!Vara[playerid])
  40.         return SendClientMessage(playerid, 0xD900D366, "Você não tem uma vara de pescar! digite /upesca para adquirir os itencilios");
  41.     if(!Iscas[playerid])
  42.         return SendClientMessage(playerid, 0xD900D366, "Você não tem uma isca! digite /upesca para adquirir os itencilios");
  43.     if(!Anzol[playerid])
  44.         return SendClientMessage(playerid, 0xD900D366, "Você não tem um anzol! digite /upesca para adquirir os itencilios");
  45.     SendClientMessage(playerid,0x00B9FF66,"Você lancou a vara de pescar! espere 1 minuto para a pesca terminar!");
  46.     SendClientMessage(playerid,0x00B9FF66,"Pescando.....");
  47.     TogglePlayerControllable(playerid, false);
  48.     SetTimerEx("Termino", 1 * 60000, false, "i",playerid);
  49.     return true;
  50. }
  51.  
  52. CMD:venderpeixe(playerid)
  53. {
  54.     if(!IsPlayerInRangeOfPoint(playerid,5,359.3872,-2032.2191,7.8359))
  55.         return SendClientMessage(playerid,0xD900D366,"Você não está perto da loja!");
  56.     if(!Capturou[playerid])
  57.         return SendClientMessage(playerid,0xD900D366,"Você não capturou nen um peixe ainda!");
  58.     new s[33];
  59.     new valor = randomEx(150,300);
  60.     format(s,33,"Você vendeu seu peixe por R$ %d",valor);
  61.     SendClientMessage(playerid,0xC2A2DA,s);
  62.     return true;
  63. }
  64.  
  65.  
  66. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  67. {
  68.     if(dialogid == DialogPesca)
  69.     {
  70.         if(response)
  71.         {
  72.             if(listitem == 0)
  73.             {
  74.                 if(Vara[playerid])
  75.                     return SendClientMessage(playerid, 0xD900D366 , "Você ja tem uma vara de pescar!");
  76.                 if(GetPlayerMoney(playerid) < 100)
  77.                     return SendClientMessage(playerid, 0xD900D366, "Você não tem dinheiro suficiente para adquirir esse item");
  78.                 SendClientMessage(playerid, 0x00B9FF66,"Você comprou uma vara de pescar!");
  79.                 GivePlayerMoney(playerid, - 100);
  80.                 Bit1_Set(Vara, playerid, true);
  81.             }
  82.             if(listitem == 1)
  83.             {
  84.                 if(Iscas[playerid])
  85.                     return SendClientMessage(playerid, 0xD900D366 , "Você ja tem algumas iscas para pescar!");
  86.                 if(GetPlayerMoney(playerid) < 20)
  87.                     return SendClientMessage(playerid, 0xD900D366 , "Você não tem dinheiro suficiente para adquirir esse item");
  88.                 SendClientMessage(playerid, 0x00B9FF66,"Você comprou algumas iscas para pescar!");
  89.                 GivePlayerMoney(playerid, - 20);
  90.                 Bit1_Set(Iscas, playerid, true);
  91.             }
  92.             if(listitem == 2)
  93.             {
  94.                 if(Anzol[playerid])
  95.                     return SendClientMessage(playerid, 0xD900D366 , "Você ja tem um anzol para pescar!");
  96.                 if(GetPlayerMoney(playerid) < 50)
  97.                     return SendClientMessage(playerid, 0xD900D366 , "Você não tem dinheiro suficiente para adquirir esse item");
  98.                 SendClientMessage(playerid, 0x00B9FF66,"Você comprou um anzol para pescar!");
  99.                 GivePlayerMoney(playerid, - 50);
  100.                 Bit1_Set(Anzol, playerid, true);
  101.             }
  102.         }
  103.     }
  104.     return true;
  105. }
  106.  
  107. stock IsApier(playerid)
  108. {
  109.     if(IsPlayerInRangeOfPoint(playerid,1.0,398.7553,-2088.7490,7.8359)||
  110.     IsPlayerInRangeOfPoint(playerid,1.0, 403.8266,-2088.7598,7.8359))
  111.         return true;
  112.     else if(IsPlayerInRangeOfPoint(playerid,1.0,396.2197,-2088.6692,7.8359)||
  113.     IsPlayerInRangeOfPoint(playerid,1.0,391.1094,-2088.7976,7.8359))
  114.         return true;
  115.     else if(IsPlayerInRangeOfPoint(playerid,1.0,383.4157,-2088.7849,7.8359)||
  116.     IsPlayerInRangeOfPoint(playerid,1.0,374.9598,-2088.7979,7.8359))
  117.         return true;
  118.     else if(IsPlayerInRangeOfPoint(playerid,1.0,369.8107,-2088.7927,7.8359)||
  119.     IsPlayerInRangeOfPoint(playerid,1.0,367.3637,-2088.7925,7.8359))
  120.         return true;
  121.     else if(IsPlayerInRangeOfPoint(playerid,1.0,362.2244,-2088.7981,7.8359)||
  122.     IsPlayerInRangeOfPoint(playerid,1.0,354.5382,-2088.7979,7.8359))
  123.         return true;
  124.     return false;
  125. }
  126.  
  127. forward Termino(playerid);
  128. public Termino(playerid)
  129. {
  130.     new peixe = random(10);
  131.     new kg = randomEx(30,150);
  132.     new s[60];
  133.     new PeixeName[10];
  134.     if(peixe == 1) { PeixeName = "Dourado"; }
  135.     if(peixe == 2) { PeixeName = "Traira"; }
  136.     if(peixe == 3) { PeixeName = "Bagre"; }
  137.     if(peixe == 4) { PeixeName = "Barbado"; }
  138.     if(peixe == 5) { PeixeName = "Pacu"; }
  139.     if(peixe == 6) { PeixeName = "Pintado"; }
  140.     if(peixe == 7) { PeixeName = "Piranha"; }
  141.     if(peixe == 8) { PeixeName = "Sardinha";}
  142.     if(peixe == 9) { PeixeName = "Atum"; }
  143.     if(peixe == 10) { PeixeName = "Tainha"; }
  144.     format(s,60,"Você pescou um(uma) %s com peso de %d kg! parabéns.",PeixeName,kg);
  145.     SendClientMessage(playerid,0xC2A2DA,s);
  146.     SendClientMessage(playerid,-1,"Você terminou a pescaria!");
  147.     SendClientMessage(playerid,-1,"Suas iscas acabaram , se quiser pescar novamente compre mais");
  148.     TogglePlayerControllable(playerid, true);
  149.     Bit1_Set(Capturou, playerid, true);
  150.     Bit1_Set(Iscas, playerid, false);
  151.     return true;
  152. }
  153.  
  154. stock randomEx(minnum = cellmin, maxnum = cellmax)
  155.     return random(maxnum - minnum + 1) + minnum;// by Y_Less
  156.  
  157.  
Advertisement
Add Comment
Please, Sign In to add comment