Advertisement
Guest User

Untitled

a guest
May 23rd, 2015
250
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.05 KB | None | 0 0
  1. CMD:judeu(playerid, params[])
  2. {
  3. if(Player[playerid][pAdmin] < 1)
  4. return SendClientMessage(playerid, COLOR_RED, ERRO_PERM);
  5.  
  6. new ID;
  7. if(sscanf(params, "u", ID))
  8. return SendClientMessage(playerid, COR_USOCORRETO, "Uso Correto: /judeu [id]");
  9.  
  10. if(JudeuUso)
  11. return SendClientMessage(playerid, COR_ERRO, "ERRO: Teste em uso. Aguarde 1 segundo.");
  12.  
  13. if(GetPlayerPing(ID) > 250)
  14. return SendClientMessage(playerid, COR_ERRO, "ERRO: Jogador com ping alto, refaça o teste.");
  15.  
  16. JudeuUso = true;
  17. new VBString[90];
  18.  
  19. GetPlayerPos(ID, Judeu[0], Judeu[1], Judeu[2]);
  20. GetPlayerHealth(ID, Judeu[3]);
  21. GetPlayerArmour(ID, Judeu[4]);
  22. SetPlayerArmour(playerid, 0);
  23. SetPlayerInterior(ID, 1);
  24. VBSetPlayerPos(ID, 937.1000,2139.5361,1011.0234);
  25. JudeuInt = GetPlayerInterior(ID);
  26. SetTimerEx("Result_Judeu", 1600, false, "i", ID);
  27. format(VBString,sizeof(VBString),"-OpenServer- %s %s fez o teste do judeu em %s.", AccountName(playerid), GetPlayerNameEx(playerid), GetPlayerNameEx(ID));
  28. SendMessageToAdminsEx(VBString);
  29. return true;
  30. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement