Advertisement
Guest User

Untitled

a guest
Dec 6th, 2010
642
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 4.68 KB | None | 0 0
  1. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  2. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  3. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  4. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  5. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  6. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  7. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  8. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  9. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  10. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  11. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  12. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  13.  
  14.  
  15. #include <a_samp>
  16.  
  17. static BarreiraExistente[6];
  18. static Barreira[6];
  19. new nickname[MAX_PLAYER_NAME];
  20.  
  21.  
  22. public OnPlayerSpawn(playerid)
  23. {
  24.     SendClientMessage(playerid, 0x33FF00FF, "[ServerInfo]: Este Servidor usa o código Barreiras. [Créditos: Ken_xD ou rjjj].");
  25.     return 1;
  26. }
  27.  
  28. public OnPlayerCommandText(playerid, cmdtext[])
  29. {
  30.     if(strcmp("/barcreditos", cmdtext, true, 8) == 0)
  31.     {
  32.         SendClientMessage(playerid, 0x33FF00FF, "Este Servidor usa o código de Barreiras.");
  33.         SendClientMessage(playerid, 0x33FF00FF, "GM Thug Life City(Fear, Astro, Andre_Felipe e Poderoso_Chefao) pelo ID das Barreiras.");
  34.         SendClientMessage(playerid, 0x33FF00FF, "SampWiki por conter muitas informações.");
  35.     }
  36.     if(strcmp("/criarbarreira", cmdtext, true, 13) == 0)
  37.     {
  38.         new cstring[256];
  39.         new CBar[256];
  40.         CBar = KcmD(1, cmdtext);
  41.         if(!strlen(CBar)){SendClientMessage(playerid, 0xFFFFFFFF, "Digite /criarbarreira [ ID da Barreira(De 1 á 5) ]");return 1;}
  42.         new CBarID = strval(CBar);
  43.         if(CBarID > 5 || CBarID < 1) { SendClientMessage(playerid, 0xFFFFFFFF, "Os IDs das Barreiras vão de 1 á 5."); return 1; }
  44.         new Float:BarX, Float:BarY, Float:BarZ, Float:BarA;
  45.         GetPlayerPos(playerid, BarX, BarY, BarZ);
  46.         GetPlayerFacingAngle(playerid, BarA);
  47.         if(BarreiraExistente[CBarID] == 1)
  48.         {
  49.             SendClientMessage(playerid, 0xFFFFFFFF, "[Server Info]: Já existe uma barreira com esse ID.");
  50.             return 1;
  51.         }
  52.         Barreira[CBarID] = CreateObject(981, BarX, BarY, BarZ, 0.0, 0.0, BarA+180,0.0);
  53.         BarreiraExistente[CBarID] = 1;
  54.         SetPlayerPos(playerid, BarX, BarY, BarZ+4);
  55.         GameTextForPlayer(playerid, "~r~] Barreira Criada ]", 5000, 3);
  56.         GetPlayerName(playerid, nickname, sizeof(nickname));
  57.         format(cstring, sizeof(cstring), "[Server Info]: Um barreira foi plantada por %s, e está marcada por um checkpoint no Mapa.", nickname);
  58.         SendClientMessageToAll(0xFF0000FF,cstring);
  59.         format(cstring, sizeof(cstring), "[Server Info]: Você plantou a barreira de ID %d", CBarID);
  60.         SendClientMessage(playerid, 0xFFFFFFFF, cstring);
  61.         return 1;
  62.     }
  63.     if(strcmp("/retirarbarreira", cmdtext, true, 15) == 0)
  64.     {
  65.         new RBar[256];
  66.         new rstring[256];
  67.         RBar = KcmD(1, cmdtext);
  68.         if(!strlen(RBar)){SendClientMessage(playerid, 0xFFFFFFFF, "Digite /retirarbarreira [ ID da Barreira(De 1 á 5) ]");return 1;}
  69.         new RBarID = strval(RBar);
  70.         if(BarreiraExistente[RBarID] == 1)
  71.         {
  72.             GetPlayerName(playerid, nickname, sizeof(nickname));
  73.             format(rstring, sizeof(rstring), "[Server Info]: Um barreira foi removida por %s.", nickname);
  74.             SendClientMessageToAll(0xFF0000FF,rstring);
  75.             format(rstring, sizeof(rstring), "[Server Info]: Você retirou a barreira de ID %d", RBarID);
  76.             SendClientMessage(playerid, 0xFFFFFFFF, rstring);
  77.             DestroyObject(Barreira[RBarID]);//Apenas se a barreira existir
  78.             BarreiraExistente[RBarID] = 0;
  79.         }
  80.         else
  81.         {
  82.             SendClientMessage(playerid, 0xFFFFFFFF, "[Server Info]: Não pode remover uma barreira que não existe.");
  83.         }
  84.         return 1;
  85.     }
  86.     return 0;
  87. }
  88.  
  89.  
  90. stock KcmD(param, cmdtext[])
  91. {
  92.     new string[128], pos, var;
  93.     format(string, sizeof(string), "%s ", cmdtext);
  94.  
  95.     while((pos = strfind(string, " ", true)) != -1)
  96.     {
  97.         if(var == param) return string;
  98.         var++;
  99.  
  100.         strdel(string, 0, pos + 1);
  101.         if(strcmp(string, " ", true, pos) == 0) goto end;
  102.     }
  103.  
  104. end:
  105.     string[0] = '\0';
  106.     return string;
  107. }
  108.  
  109.  
  110. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  111. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  112. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  113. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  114. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  115. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  116. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  117. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
  118. //        COD de Barreiras  -   Créditos: Ken_xD/rjjj     //
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement