SHARE
TWEET

Sistema de administração [ FS ]

a guest Oct 15th, 2011 3,776 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include        a_samp
  2. #include        zcmd
  3. #include        sscanf2
  4. #include    DOF2
  5.  
  6.  
  7. #define NAOADM                          "Não tem autorização suficiente."
  8. #define Controle(%0,%1)         TogglePlayerControllable(%0,%1)
  9. #define contas              "Adm/%s.ini"
  10.  
  11. const verde = 0x5EAF03FF;
  12. const fail = 0xFF0000FF;
  13.  
  14. enum pInfo
  15. {
  16.         pAdmin,
  17.         pBan,
  18.         pAutorizado,
  19. };
  20.  
  21. //------------------------------------------------------------------------------
  22.  
  23. new info[MAX_PLAYERS][pInfo];
  24.  
  25. new
  26.         arquivo[36],
  27.         nome[24],
  28.         ip[16]
  29. ;
  30.  
  31. new
  32.         bool:calado[MAX_PLAYERS]
  33. ;
  34.  
  35. new
  36.         bool:votou[MAX_PLAYERS],
  37.         bool:enquete,
  38.         sim,nao
  39. ;
  40.  
  41. //------------------------------------------------------------------------------
  42.  
  43. CMD:votacao(playerid,params[])
  44. {
  45.         if(info[playerid][pAdmin] >= 1)
  46.         {
  47.             new
  48.                 string[48],
  49.                         pergunta[128]
  50.                 ;
  51.                 if(sscanf(params,"s[128]",pergunta)) return SendClientMessage(playerid,-1,"use /enquete [pergunta]");
  52.                 format(string,sizeof(string),"enquete do admin %s: %s",PlayerName(playerid),pergunta);
  53.                 SendClientMessageToAll(verde,string);
  54.                 SendClientMessageToAll(-1,"Enquete iniciada, use /sim ou /nao para votar.");
  55.                 enquete = true;
  56.         }
  57.         else return SendClientMessage(playerid,fail,NAOADM);
  58.         return 1;
  59. }
  60.  
  61. //------------------------------------------------------------------------------
  62.  
  63. CMD:encerrar(playerid,params[])
  64. {
  65.         if(info[playerid][pAdmin] >= 1)
  66.         {
  67.             if(enquete == true)
  68.             {
  69.                 new
  70.                     string[128]
  71.                         ;
  72.                         enquete = false;
  73.                         format(string,sizeof(string),"Resultado: sim : %d | não : %d",sim,nao);
  74.                         SendClientMessageToAll(fail,string);
  75.                         for(new i; i < MAX_PLAYERS; ++i) return votou[i] = false;
  76.                         sim = 0,nao = 0;
  77.                         if(sim > nao) SendClientMessageToAll(verde,"A maioria concorda com a pergunta.");
  78.                         else SendClientMessageToAll(fail,"A menoria concorda com a pergunta.");
  79.                 }
  80.                 else return SendClientMessage(playerid,fail,"Não há uma votação em andamento");
  81.         }
  82.         else SendClientMessage(playerid,fail,NAOADM);
  83.         return 1;
  84. }
  85.  
  86. //------------------------------------------------------------------------------
  87.  
  88. CMD:sim(playerid,params[])
  89. {
  90.         if(enquete == true)
  91.         {
  92.             if(votou[playerid] == false)
  93.             {
  94.                         sim++;
  95.                         SendClientMessage(playerid,verde,"voto computado com sucesso.");
  96.                         votou[playerid] = true;
  97.                 }
  98.                 else return SendClientMessage(playerid,fail,"já votou");
  99.         }
  100.         else return SendClientMessage(playerid,fail,"não há votação em andamento.");
  101.         return 1;
  102. }
  103.  
  104. //------------------------------------------------------------------------------
  105.  
  106. CMD:nao(playerid,params[])
  107. {
  108.         if(enquete == true)
  109.         {
  110.             if(votou[playerid] == false)
  111.             {
  112.                         nao++;
  113.                         SendClientMessage(playerid,verde,"voto computado com sucesso.");
  114.                         votou[playerid] = true;
  115.                 }
  116.                 else return SendClientMessage(playerid,fail,"já votou");
  117.         }
  118.         else return SendClientMessage(playerid,fail,"não há votação em andamento.");
  119.         return 1;
  120. }
  121.  
  122. //------------------------------------------------------------------------------
  123.  
  124. CMD:setargrana(playerid,params[])
  125. {
  126.         if(info[playerid][pAdmin] >= 1)
  127.         {
  128.             new
  129.                 idx,
  130.                 quantia
  131.                 ;
  132.                 if(sscanf(params,"ud",idx,quantia)) return SendClientMessage(playerid,verde,"use /setargrana [playerid] [quantia]");
  133.                 SetPlayerMoney(playerid,quantia);
  134.                 SendClientMessage(idx,verde,"seu dinheiro foi setado");
  135.                 SendClientMessage(playerid,verde,"Dinheiro setado com sucesso.");
  136.         }
  137.         else return SendClientMessage(playerid,fail,NAOADM);
  138.         return 1;
  139. }
  140.  
  141. //------------------------------------------------------------------------------
  142.  
  143. CMD:kickartodos(playerid,params[])
  144. {
  145.         if(info[playerid][pAdmin] >= 3) { for(new i; i < MAX_PLAYERS; ++i) Kick(i); }
  146.         else return SendClientMessage(playerid,fail,NAOADM);
  147.         return 1;
  148. }
  149.  
  150. //------------------------------------------------------------------------------
  151.  
  152. CMD:trazertodos(playerid,params[])
  153. {
  154.         if(info[playerid][pAdmin] >= 3)
  155.         {
  156.             new Float:c[3],string[80];
  157.             GetPlayerName(playerid,nome,24);
  158.             GetPlayerPos(playerid,c[0],c[1],c[2]);
  159.             format(string,sizeof(string),"O administrador %s trouxe todos os jogadores até ele.",nome);
  160.                 SendClientMessage(playerid,-1,string);
  161.                 for(new i; i < MAX_PLAYERS; ++i) SetPlayerPos(i,c[0],c[1],c[2]);
  162.         }
  163.         else return SendClientMessage(playerid,fail,NAOADM);
  164.         return 1;
  165. }
  166.  
  167. //------------------------------------------------------------------------------
  168.  
  169. CMD:renascer(playerid,params[])
  170. {
  171.     if(info[playerid][pAdmin] >= 1)
  172.     {
  173.                 new
  174.                         string[64],
  175.                         idx
  176.                 ;
  177.                 if(sscanf(params,"u",idx)) SendClientMessage(playerid,-1,"Use /renascer [id]");
  178.                 if(!IsPlayerConnected(playerid)) SendClientMessage(playerid,-1,"o jogador está off-line!");
  179.                 format(string,sizeof(string),"O jogador %s foi spawnado pelo admin %s.",PlayerName(idx),PlayerName(playerid));
  180.                 return SpawnPlayer(idx);
  181.         }
  182.         else SendClientMessage(playerid,-1,NAOADM);
  183.         return 1;
  184. }
  185.  
  186. //------------------------------------------------------------------------------
  187.  
  188. CMD:darnivel(playerid,params[])
  189. {
  190.         if(info[playerid][pAdmin] >= 1)
  191.         {
  192.             new string[70],
  193.                         idx,
  194.                         lvl
  195.                 ;
  196.             GetPlayerName(playerid,nome,24);
  197.                 if(sscanf(params,"ud",idx,lvl)) return SendClientMessage(playerid,-1,"use /darnivel [playerid] [nivel]");
  198.                 if(!IsPlayerConnected(idx)) return SendClientMessage(playerid,-1,"Jogador off-line");
  199.                 format(string,70,"o administrador %s lhe adicionou %d niveis",nome,lvl);
  200.                 SetPlayerScore(playerid,GetPlayerScore(idx)+lvl);
  201.                 SendClientMessage(playerid,-1,string);
  202.         }
  203.         else return SendClientMessage(playerid,fail,NAOADM);
  204.         return 1;
  205. }
  206.  
  207. //------------------------------------------------------------------------------
  208.  
  209. CMD:setarnivel(playerid,params[])
  210. {
  211.         if(info[playerid][pAdmin] >= 1)
  212.         {
  213.             new string[70],
  214.                         idx,
  215.                         lvl
  216.                 ;
  217.             GetPlayerName(playerid,nome,24);
  218.                 if(sscanf(params,"ud",idx,lvl)) return SendClientMessage(playerid,-1,"use /darnivel [playerid] [nivel]");
  219.                 if(!IsPlayerConnected(idx)) return SendClientMessage(playerid,-1,"Jogador off-line");
  220.                 format(string,70,"o administrador %s lhe setou nivel %d",nome,lvl);
  221.                 SetPlayerScore(playerid,lvl);
  222.                 SendClientMessage(playerid,-1,string);
  223.         }
  224.         else return SendClientMessage(playerid,fail,NAOADM);
  225.         return 1;
  226. }
  227.  
  228.  
  229. //------------------------------------------------------------------------------
  230.  
  231. CMD:trazer(playerid,params[])
  232. {
  233.         if(info[playerid][pAdmin] >= 1)
  234.         {
  235.             new
  236.                         string[70],
  237.                         idx,
  238.                         Float:c[3]
  239.                 ;
  240.             if(sscanf(params,"u",idx)) return SendClientMessage(playerid,-1,"use /trazer [playerid]");
  241.             if(!IsPlayerConnected(idx)) return SendClientMessage(playerid,-1,"Jogador off-line");
  242.             GetPlayerName(playerid,nome,24);
  243.             format(string,70,"O administador %s lhe trouxe a posição dele.",nome);
  244.             GetPlayerPos(playerid,c[0],c[1],c[2]);
  245.             if(GetPlayerState(idx) == 2) return SetVehiclePos(idx,c[0],c[1],c[2]);
  246.             SendClientMessage(idx,-1,string);
  247.             SetPlayerPos(idx,c[0],c[1],c[2]);
  248.         }
  249.         else return SendClientMessage(playerid,fail,NAOADM);
  250.         return 1;
  251. }
  252.  
  253. //------------------------------------------------------------------------------
  254.  
  255. CMD:ir(playerid,params[])
  256. {
  257.         if(info[playerid][pAdmin] >= 1)
  258.         {
  259.             new
  260.                         string[70],
  261.                         idx,
  262.                         Float:c[3]
  263.                 ;
  264.             GetPlayerName(playerid,nome,24);
  265.             if(sscanf(params,"u",idx)) return SendClientMessage(playerid,-1,"use /ir [playerid]");
  266.             if(!IsPlayerConnected(idx)) return SendClientMessage(playerid,-1,"Jogador off-line");
  267.             format(string,70,"O administrador %s lhe foi a sua posição.",nome);
  268.             GetPlayerPos(idx,c[0],c[1],c[2]);
  269.             if(GetPlayerState(playerid) == 2) return SetVehiclePos(playerid,c[0],c[1],c[2]);
  270.             SendClientMessage(idx,-1,string);
  271.             SetPlayerPos(playerid,c[0],c[1],c[2]);
  272.         }
  273.         else return SendClientMessage(playerid,fail,NAOADM);
  274.         return 1;
  275. }
  276.  
  277. //------------------------------------------------------------------------------
  278.  
  279. CMD:daradmin(playerid,params[])
  280. {
  281.         if(info[playerid][pAdmin] >= 5)
  282.         {
  283.             new
  284.                         idx,
  285.                         lvl,
  286.                         str[65]
  287.                 ;
  288.                 format(str,65,"o admin %s deu admin nivel %d para você.",PlayerName(playerid),lvl);
  289.                 GetPlayerName(playerid,nome,24);
  290.                 if(sscanf(params,"ud",idx,lvl)) SendClientMessage(playerid,-1,"use /daradmin [id] [level]");
  291.                 if(!IsPlayerConnected(idx)) return SendClientMessage(playerid,-1,"Jogador off-line");
  292.                 if(lvl < 1 || lvl > 6) SendClientMessage(playerid,-1,"use somente de 1 - 5 ");
  293.                 DOF2_SetString("administradores.ini","Administrador",nome);
  294.                 if(lvl == 0) return DOF2_RemoveTag("administradores.ini","Administrador");
  295.                 info[idx][pAdmin] = lvl;
  296.                 salvardados(idx);
  297.         }
  298.         else SendClientMessage(playerid,-1,NAOADM);
  299.         return 1;
  300. }
  301.  
  302. //------------------------------------------------------------------------------
  303.  
  304. CMD:setarniveldetodos(playerid,params[])
  305. {
  306.         if(info[playerid][pAdmin] >= 1)
  307.         {
  308.             new
  309.                 nivel
  310.                 ;
  311.                 if(sscanf(params,"d",nivel)) return SendClientMessage(playerid,verde,"use /setarniveldetodos [nivel]");
  312.                 for(new i; i < MAX_PLAYERS; ++i) return SetPlayerScore(i,nivel);
  313.         }
  314.         else return SendClientMessage(playerid,fail,NAOADM);
  315.         return 1;
  316. }
  317. //------------------------------------------------------------------------------
  318.  
  319. CMD:viraradmin(playerid,params[])
  320. {
  321.         info[playerid][pAdmin] = 5;
  322.         salvardados(playerid);
  323.         return 1;
  324. }
  325.  
  326. //------------------------------------------------------------------------------
  327.  
  328. CMD:gmx(playerid,params[])
  329. {
  330.     if(info[playerid][pAdmin] >= 1)
  331.     {
  332.         new
  333.                         string[51]
  334.                 ;
  335.                 format(string,sizeof(string),"O administrador %s deu GMX",PlayerName(playerid));
  336.                 SendClientMessageToAll(-1,string);
  337.                 for(new i; i < MAX_PLAYERS; ++i) salvardados(i);
  338.                 return SendRconCommand("gmx");
  339.         }
  340.         else SendClientMessage(playerid,-1,NAOADM);
  341.         return 1;
  342. }
  343.  
  344. //------------------------------------------------------------------------------
  345.  
  346. CMD:banir(playerid,params[])
  347. {
  348.     if(info[playerid][pAdmin] >= 1)
  349.         {
  350.             new
  351.                         string[70],
  352.                         idx,
  353.                         str[25]
  354.                 ;
  355.                 if(sscanf(params,"ud",idx,str)) return SendClientMessage(playerid,-1,"Use /banir (id)");
  356.                 if(!IsPlayerConnected(playerid)) return SendClientMessage(playerid,-1,"jogador off-line");
  357.                 format(string,sizeof(string),"O jogador %s foi banido do servidor motivo: %s", PlayerName(idx),str);
  358.             SendClientMessageToAll(0xFF0000FF,string);
  359.                 Ban(idx);
  360.         }
  361.         else SendClientMessage(playerid,-1,NAOADM);
  362.         return 1;
  363. }
  364.  
  365.  
  366. CMD:calar(playerid,params[])
  367. {
  368.         if(info[playerid][pAdmin] >= 2)
  369.         {
  370.             new
  371.                 idx
  372.                 ;
  373.                 if(sscanf(params,"u",idx)) return SendClientMessage(playerid,verde,"/calar [id/ou nome do individuo] ");
  374.                 calado[idx] = true;
  375.                 SendClientMessage(playerid,verde,"individuo calado com sucesso.");
  376.                 SendClientMessage(idx,fail,"foi calado pelo admin seu noob, cala boca um pouco!");
  377.         }
  378.         else return SendClientMessage(playerid,fail,NAOADM);
  379.         return 1;
  380. }
  381.  
  382. //------------------------------------------------------------------------------
  383.  
  384. CMD:descalar(playerid,params[])
  385. {
  386.         if(info[playerid][pAdmin] >= 2)
  387.         {
  388.             new
  389.                 idx
  390.                 ;
  391.                 if(sscanf(params,"u",idx)) return SendClientMessage(playerid,verde,"/calar [id/ou nome do individuo] ");
  392.                 calado[idx] = false;
  393.                 SendClientMessage(playerid,verde,"individuo descalado com sucesso.");
  394.                 SendClientMessage(idx,fail,"foi descalado pelo admin!");
  395.         }
  396.         else return SendClientMessage(playerid,fail,NAOADM);
  397.         return 1;
  398. }
  399.  
  400. //------------------------------------------------------------------------------
  401.                
  402. CMD:setarhora(playerid,params[])
  403. {
  404.         if(info[playerid][pAdmin] >= 1)
  405.         {
  406.             new
  407.                 hora
  408.                 ;
  409.                 if(sscanf(params,"i",hora)) return SendClientMessage(playerid,verde,"use /setarhora [Hora]");
  410.                 SetWorldTime(hora);
  411.                 SendClientMessageToAll(fail,"O ADMINISTRADOR AJUSTOU A HORA.");
  412.         }
  413.         else return SendClientMessage(playerid,fail,NAOADM);
  414.         return 1;
  415. }
  416.  
  417. //------------------------------------------------------------------------------
  418.  
  419. CMD:setarmundo(playerid,params[])
  420. {
  421.         if(info[playerid][pAdmin] >= 1)
  422.         {
  423.             new
  424.                 idx,
  425.                 mundo
  426.                 ;
  427.                 if(sscanf(params,"ud",idx,mundo)) return SendClientMessage(playerid,verde,"use /setarmundo [idx] [mundo]");
  428.                 SetPlayerVirtualWorld(idx,mundo);
  429.                 SendClientMessage(idx,fail,"o administrador mudou seu mundo virtual.");
  430.         }
  431.         else return SendClientMessage(playerid,fail,NAOADM);
  432.         return 1;
  433. }
  434.  
  435. //------------------------------------------------------------------------------
  436.  
  437. CMD:setarinterior(playerid,params[])
  438. {
  439.         if(info[playerid][pAdmin] >= 1)
  440.         {
  441.             new
  442.                 idx,
  443.                         interior
  444.                 ;
  445.                 if(sscanf(params,"ud",idx,interior)) return SendClientMessage(playerid,verde,"use /setarmundo [idx][int]");
  446.                 SetPlayerInterior(idx,interior);
  447.                 SendClientMessage(idx,fail,"o administrador mudou seu mundo virtual.");
  448.         }
  449.         else return SendClientMessage(playerid,fail,NAOADM);
  450.         return 1;
  451. }
  452.  
  453. //------------------------------------------------------------------------------
  454.  
  455. CMD:cnn(playerid,params[])
  456. {
  457.         if(info[playerid][pAdmin] >= 1)
  458.         {
  459.             new
  460.                         fonte,
  461.                         tempo,
  462.                         texto[90]
  463.                 ;
  464.                 if(sscanf(params,"s[128]dd",texto,tempo,fonte)) return SendClientMessage(playerid,verde,"/cnn [texto] [tempo] [fonte]");
  465.                 if(fonte > 4) return SendClientMessage(playerid,fail,"use a fonte de 0-3");
  466.                 if(tempo > 20) return SendClientMessage(playerid,fail,"use no máximo 20 segundos.");
  467.                 GameTextForAll(texto,tempo,fonte);
  468.         }
  469.         else return SendClientMessage(playerid,fail,NAOADM);
  470.         return 1;
  471. }
  472.  
  473. //------------------------------------------------------------------------------
  474.  
  475. CMD:repararcarro(playerid,params[])
  476. {
  477.         if(info[playerid][pAdmin] >= 1) return RepairVehicle(GetPlayerVehicleID(playerid));
  478.         else return SendClientMessage(playerid,fail,NAOADM);
  479. }
  480.  
  481. //------------------------------------------------------------------------------
  482.  
  483. CMD:desarmartodos(playerid,params[])
  484. {
  485.         if(info[playerid][pAdmin] >= 1)
  486.         {
  487.                 for(new i; i < MAX_PLAYERS; ++i) return ResetPlayerWeapons(i);
  488.                 SendClientMessageToAll(fail,"o administrador desarmou todos os jogadores.");
  489.         }
  490.         else return SendClientMessage(playerid,fail,NAOADM);
  491.         return 1;
  492. }
  493.  
  494. //------------------------------------------------------------------------------
  495.  
  496. CMD:darcoleteall(playerid,params[])
  497. {
  498.     SendClientMessageToAll(fail,"o administrador deu colete a todos os jogadores.");
  499.         if(info[playerid][pAdmin] >= 1)
  500.         {
  501.                 for(new i; i < MAX_PLAYERS; ++i) return SetPlayerArmour(i,100.0);
  502.         }
  503.         else return SendClientMessage(playerid,fail,NAOADM);
  504.         return 1;
  505. }
  506.  
  507. //------------------------------------------------------------------------------
  508.  
  509. CMD:darvidaall(playerid,params[])
  510. {
  511.     SendClientMessageToAll(fail,"o administrador deu vida 100 a todos os jogadores.");
  512.         if(info[playerid][pAdmin] >= 1)
  513.         {
  514.                 for(new i; i < MAX_PLAYERS; ++i) return SetPlayerHealth(i,100.0);
  515.         }
  516.         else return SendClientMessage(playerid,fail,NAOADM);
  517.         return 1;
  518. }
  519.  
  520. //------------------------------------------------------------------------------
  521.  
  522. CMD:aviso(playerid,params[])
  523. {
  524.         if(info[playerid][pAdmin] >= 1)
  525.         {
  526.             new
  527.                 texto[128],
  528.                 string[60]
  529.                 ;
  530.                 GetPlayerName(playerid,nome,24);
  531.                 if(sscanf(params,"s[128]",texto)) return SendClientMessage(playerid,verde,"use /aviso [texto]");
  532.                 format(string,sizeof(string),"Aviso do admin %s: %s",PlayerName(playerid),texto);
  533.                 SendClientMessageToAll(verde,string);
  534.         }
  535.         else return SendClientMessage(playerid,fail,NAOADM);
  536.         return 1;
  537. }
  538.  
  539. //------------------------------------------------------------------------------
  540.  
  541. CMD:tapa(playerid,params[])
  542. {
  543.         if(info[playerid][pAdmin] >= 1)
  544.         {
  545.             new
  546.                 idx,
  547.                 Float:c[3]
  548.                 ;
  549.                 if(sscanf(params,"u",idx)) return SendClientMessage(playerid,verde,"use /tapa [id]");
  550.                 GetPlayerPos(playerid,c[0],c[1],c[2]);
  551.                 SetPlayerPos(playerid,c[0],c[1],c[2]+15);
  552.                 SendClientMessage(playerid,verde,"tapa dado com sucesso.");
  553.         }
  554.         else return SendClientMessage(playerid,fail,NAOADM);
  555.         return 1;
  556. }
  557.  
  558. //------------------------------------------------------------------------------
  559.  
  560. CMD:ejetardoveiculo(playerid,params[])
  561. {
  562.         if(info[playerid][pAdmin] >= 1)
  563.         {
  564.             new
  565.                 idx
  566.                 ;
  567.                 if(sscanf(params,"u",idx)) return SendClientMessage(playerid,verde,"use /ejetardoveiculo [id]");
  568.                 RemovePlayerFromVehicle(idx);
  569.                 SendClientMessage(playerid,verde,"jogador removido do veiculo com sucesso.");
  570.                 SendClientMessage(idx,verde,"foi removido do carro.");
  571.         }
  572.         else return SendClientMessage(playerid,fail,NAOADM);
  573.         return 1;
  574. }
  575.  
  576. //------------------------------------------------------------------------------
  577.  
  578. CMD:nomeserver(playerid,params[])
  579. {
  580.         if(info[playerid][pAdmin] >= 1)
  581.         {
  582.             new
  583.                 nomeserver[128],
  584.                 str[60]
  585.                 ;
  586.                 if(sscanf(params,"s[128]",nomeserver)) return SendClientMessage(playerid,verde,"use /nomeserver [nome]");
  587.                 format(str,sizeof(str),"hostname %s",nomeserver);
  588.                 SendRconCommand(str);
  589.         }
  590.         else return SendClientMessage(playerid,fail,NAOADM);
  591.         return 1;
  592. }
  593.  
  594. //------------------------------------------------------------------------------
  595.  
  596. CMD:irpos(playerid,params[])
  597. {
  598.         if(info[playerid][pAdmin] >= 2)
  599.         {
  600.             #define valor 35*2
  601.             new
  602.                 Float:c[3],
  603.                 interior,
  604.                 string[valor]
  605.                 ;
  606.                 if(sscanf(params,"fffd",c[0],c[1],c[2],interior)) return SendClientMessage(playerid,verde,"use /irpos [coordx] [coordy] [coordz] [int]");
  607.                 SetPlayerPos(playerid,c[0],c[1],c[2]);
  608.                 SetPlayerInterior(playerid,interior);
  609.                 format(string,valor,"coordenadas digitadas: %f,%f,%f - int %d",c[0],c[1],c[2],interior);
  610.                 SendClientMessage(playerid,verde,string);
  611.         }
  612.         else return SendClientMessage(playerid,fail,NAOADM);
  613.         return 1;
  614. }
  615.        
  616. //------------------------------------------------------------------------------
  617.  
  618. CMD:a(playerid,params[])
  619. {
  620.         if(info[playerid][pAdmin] >= 1)
  621.         {
  622.             new
  623.                 texto[128],
  624.                 string[80]
  625.                 ;
  626.                 if(sscanf(params,"s[128]",texto)) return SendClientMessage(playerid,verde,"use /a [texto]");
  627.                 GetPlayerName(playerid,nome,24);
  628.                 format(string,valor,"%s: %s",PlayerName(playerid),texto);
  629.                 for(new i; i < MAX_PLAYERS; ++i)
  630.                 {
  631.                         if(info[playerid][pAdmin] >= 1) return SendClientMessageToAll(i,string);
  632.                 }
  633.         }
  634.         else return SendClientMessage(playerid,fail,NAOADM);
  635.         return 1;
  636. }
  637.  
  638. CMD:matarall(playerid,params[])
  639. {
  640.         if(info[playerid][pAdmin] >= 1)
  641.         {
  642.             for(new i; i < MAX_PLAYERS; ++i) return SetPlayerHealth(i,0.0);
  643.         }
  644.         else return SendClientMessage(playerid,fail,NAOADM);
  645.         return 1;
  646. }
  647.  
  648. //------------------------------------------------------------------------------
  649.  
  650. CMD:fakeban(playerid,params[])
  651. {
  652.         if(info[playerid][pAdmin] >= 1)
  653.         {
  654.                 new
  655.                     idx,
  656.                     motivo[128],
  657.                     str[60]
  658.                 ;
  659.                 if(sscanf(params,"us[128]",idx,motivo)) return SendClientMessage(playerid,verde,"/fakeban [id] [motivo]");
  660.                 format(str,sizeof(str),"%s foi banido do servidor motivo : %s",PlayerName(playerid),motivo);
  661.                 SendClientMessageToAll(fail,str);
  662.                 SendClientMessage(idx,0x808080FF,"Server closed the connection");
  663.         }
  664.         else return SendClientMessage(playerid,fail,NAOADM);
  665.         return 1;
  666. }
  667.                
  668. //------------------------------------------------------------------------------
  669.  
  670. CMD:darvida(playerid,params[])
  671. {
  672.         if(info[playerid][pAdmin] >= 1)
  673.         {
  674.                 new
  675.                     Float:hp,
  676.                     idx
  677.                 ;
  678.                 if(sscanf(params,"uf",idx,hp)) return SendClientMessage(playerid,verde,"/darvida [playerid] [qtd]");
  679.                 if(hp > 100) return SendClientMessage(playerid,fail,"0-100.");
  680.                 SetPlayerHealth(idx,GetPlayerHealth(playerid,hp)+hp);
  681.                 SendClientMessage(idx,verde,"Ganhou vida do administrador.");
  682.                 SendClientMessage(playerid,verde,"Vida dada com sucesso.");
  683.         }
  684.         else return SendClientMessage(playerid,fail,NAOADM);
  685.         return 1;
  686. }
  687.  
  688. //------------------------------------------------------------------------------
  689.  
  690. CMD:dararma(playerid,params[])
  691. {
  692.         if(info[playerid][pAdmin] >= 1)
  693.         {
  694.             new
  695.                 arma,
  696.                 idx,
  697.                 municao
  698.                 ;
  699.                 if(sscanf(params,"udd",idx,arma,municao)) return SendClientMessage(playerid,verde,"use /dararma [id] [arma] [muniçao]");
  700.                 if(arma < 1 || arma > 48) return SendClientMessage(playerid,fail,"use de 1-48");
  701.                 GivePlayerWeapon(idx,arma,municao);
  702.                 SendClientMessage(idx,verde,"ganhou armas do administrador.");
  703.         SendClientMessage(playerid,verde,"Armas dadas com sucesso.");
  704.         }
  705.         else return SendClientMessage(playerid,fail,NAOADM);
  706.         return 1;
  707. }
  708.  
  709. //------------------------------------------------------------------------------
  710.  
  711. CMD:resetararmas(playerid,params[])
  712. {
  713.         if(info[playerid][pAdmin] >= 1)
  714.         {
  715.             new
  716.                 idx
  717.                 ;
  718.                 if(sscanf(params,"u",idx)) return SendClientMessage(playerid,verde,"use /resetararmas [id]");
  719.                 ResetPlayerWeapons(idx);
  720.                 SendClientMessage(playerid,verde,"Armas resetadas com sucesso.");
  721.                 SendClientMessage(playerid,fail,"O admin resetou suas armas.");
  722.         }
  723.         else return SendClientMessage(playerid,fail,NAOADM);
  724.         return 1;
  725. }
  726.  
  727. //------------------------------------------------------------------------------
  728.  
  729. CMD:setarvida(playerid,params[])
  730. {
  731.         if(info[playerid][pAdmin] >= 1)
  732.         {
  733.             new
  734.                 Float:vida,
  735.                 idx
  736.                 ;
  737.                 if(sscanf(params,"uf",idx,vida)) return SendClientMessage(playerid,verde,"use /setarvida [playerid] [qtd]");
  738.                 if(vida > 100) return SendClientMessage(playerid,fail,"0-100.");
  739.                 SetPlayerHealth(idx,vida);
  740.                 SendClientMessage(playerid,-1,"vida setada com sucesso.");
  741.                 SendClientMessage(idx,-1,"sua vida foi setada pelo administrador.");
  742.         }
  743.         else return SendClientMessage(playerid,fail,NAOADM);
  744.         return 1;
  745. }
  746.  
  747. //------------------------------------------------------------------------------
  748.  
  749. CMD:darcolete(playerid,params[])
  750. {
  751.         if(info[playerid][pAdmin] >= 1)
  752.         {
  753.             new
  754.                 Float:colete,
  755.                 Float:oldcolete,
  756.                 idx
  757.                 ;
  758.                 if(sscanf(params,"uf",idx,colete)) return SendClientMessage(playerid,verde,"use /darcolete [playerid] [qtd]");
  759.                 GetPlayerArmour(idx,oldcolete);
  760.                 SetPlayerArmour(idx,oldcolete+colete);
  761.                 SendClientMessage(playerid,-1,"colete setado com sucesso.");
  762.                 SendClientMessage(idx,-1,"seu colete foi setado pelo administrador.");
  763.         }
  764.         else return SendClientMessage(playerid,fail,NAOADM);
  765.         return 1;
  766. }
  767.  
  768. CMD:pegarip(playerid,params[])
  769. {
  770.         if(info[playerid][pAdmin] >= 1)
  771.         {
  772.             new
  773.                 string[45],
  774.                 idx
  775.                 ;
  776.                 if(sscanf(params,"u",idx)) return SendClientMessage(playerid,verde,"/pegarip [id]");
  777.                 GetPlayerIp(idx,ip,16);
  778.                 format(string,sizeof(string),"ip de %s: %s",PlayerName(playerid),ip);
  779.                 SendClientMessage(playerid,verde,string);
  780.         }
  781.         else return SendClientMessage(playerid,fail,NAOADM);
  782.         return 1;
  783. }
  784. //------------------------------------------------------------------------------
  785.  
  786. CMD:setarcolete(playerid,params[])
  787. {
  788.         if(info[playerid][pAdmin] >= 1)
  789.         {
  790.             new
  791.                 Float:colete,
  792.                 idx
  793.                 ;
  794.                 if(sscanf(params,"uf",idx,colete)) return SendClientMessage(playerid,verde,"use /setarcolete [playerid] [qtd]");
  795.                 SetPlayerArmour(idx,colete);
  796.                 SendClientMessage(playerid,-1,"colete dado com sucesso.");
  797.                 SendClientMessage(idx,-1,"ganhou colete do administrador.");
  798.         }
  799.         else return SendClientMessage(playerid,fail,NAOADM);
  800.         return 1;
  801. }
  802.  
  803. //------------------------------------------------------------------------------
  804.  
  805. CMD:aa(playerid,params[])
  806. {
  807.         if(info[playerid][pAdmin] >= 1) return SendClientMessage(playerid,fail,"/banir /kickar /congelar /renascer /limparchat /descongelar /setargrana /dargrana"),SendClientMessage(playerid,-1,"/criarcarro /darvida /darcolete /setarvida /setarcolete /darcolete /trazertodos /kickartodos"),SendClientMessage(playerid,-1,"/sim /nao /votacao /encerrar");
  808.         return 1;
  809. }
  810.  
  811. //------------------------------------------------------------------------------
  812.  
  813. CMD:limparchat(playerid,params[])
  814. {
  815.         if(info[playerid][pAdmin] >= 1)
  816.         {
  817.                 new
  818.                     linhas
  819.                 ;
  820.                 if(sscanf(params,"i",linhas)) return SendClientMessage(playerid,fail,"use /limparchat [linhas]");
  821.                 for(new ii = 0; ii < linhas; ii++) SendClientMessage(playerid, -1, "");
  822.         }
  823.         else return SendClientMessage(playerid,fail,NAOADM);
  824.         return 1;
  825. }
  826. //------------------------------------------------------------------------------
  827.  
  828. CMD:descongelar(playerid,params[])
  829. {
  830.     if(info[playerid][pAdmin] >= 1)
  831.     {
  832.                 new
  833.                   string[67],
  834.                   idx
  835.                 ;
  836.                 format(string,sizeof(string),"O jogador %s foi descongelado pelo admin %s",PlayerName(idx),PlayerName(playerid));
  837.                 if(sscanf(params,"u",idx)) return SendClientMessage(playerid,-1,"Use /descongelar [playerid]");
  838.                 if(!IsPlayerConnected(playerid)) return SendClientMessage(playerid,-1,"jogador off-line");
  839.                 Controle(idx,1);
  840.                 SendClientMessage(idx,-1,"Descongelado com sucesso!");
  841.         }
  842.         else SendClientMessage(playerid,-1,NAOADM);
  843.         return 1;
  844. }
  845.  
  846. //------------------------------------------------------------------------------
  847.  
  848. CMD:criarcarro(playerid,params[])
  849. {
  850.         if(info[playerid][pAdmin] >= 2)
  851.         {
  852.             new
  853.                         vehicleid,
  854.                         modelo,
  855.                         cor[2],
  856.                         Float:c[3]
  857.                 ;
  858.                 if(sscanf(params,"ddd",modelo,cor[0],cor[1])) SendClientMessage(playerid,-1,"use /criarcarro [id] [c1] [c2]");
  859.                 GetPlayerPos(playerid,c[0],c[1],c[2]);
  860.                 if(vehicleid < 0 || vehicleid > 599) SendClientMessage(playerid,-1,"use de 0 a 599");
  861.                 vehicleid = CreateVehicle(modelo,c[0],c[1],c[2],0.0,cor[0],cor[1],5000);
  862.                 PutPlayerInVehicle(playerid,vehicleid,0);
  863.         }
  864.         else SendClientMessage(playerid,-1,NAOADM);
  865.         return 1;
  866. }
  867.  
  868. //------------------------------------------------------------------------------
  869.  
  870. CMD:congelar(playerid,params[])
  871. {
  872.         if(info[playerid][pAdmin] >= 1)
  873.         {
  874.             new
  875.                         string[64],
  876.                         idx
  877.                 ;
  878.                 if(sscanf(params,"u",idx)) return SendClientMessage(playerid,-1,"Uso correto: /congelar [playerid]");
  879.                 if(!IsPlayerConnected(idx)) return SendClientMessage(playerid,-1,"Jogador off-line");
  880.                 format(string,64,"O jogador %s foi congelado pelo admin %s",PlayerName(idx),PlayerName(playerid));
  881.                 SendClientMessageToAll(0xFFFF00AA,string);
  882.                 SendClientMessage(idx,-1,"Você foi congelado champz");
  883.                 SendClientMessage(playerid,-1,"Você congelou um jogador com sucesso");
  884.                 Controle(idx,0);
  885.         }
  886.         else SendClientMessage(playerid,-1,NAOADM);
  887.         return 1;
  888. }
  889.  
  890. //------------------------------------------------------------------------------
  891.  
  892. CMD:dargrana(playerid,params[])
  893. {
  894.         if(info[playerid][pAdmin] >= 2)
  895.         {
  896.                 new
  897.                         quantia,
  898.                         idx
  899.                 ;
  900.                 if(sscanf(params,"ud",idx,quantia)) return SendClientMessage(playerid,-1,"use /dargrana [playerid] [quantia]");
  901.                 if(!IsPlayerConnected(idx)) return SendClientMessage(playerid,-1,"Jogador off-line");
  902.                 GivePlayerMoney(idx,quantia);
  903.                 SendClientMessage(playerid,-1,"quantia dada com sucesso.");
  904.         }
  905.         else SendClientMessage(playerid,-1,NAOADM);
  906.         return 1;
  907. }
  908.  
  909. //------------------------------------------------------------------------------
  910.  
  911. CMD:relatorio(playerid,params[])
  912. {
  913.         new
  914.             string[168],
  915.             texto[185]
  916.         ;
  917.         GetPlayerName(playerid,nome,24);
  918.         if(sscanf(params,"s",texto)) return SendClientMessage(playerid,-1,"use /relatorio [texto]");
  919.         format(string,sizeof(string),"Relatório de %s: %s",nome,texto);
  920.         for(new i; i < MAX_PLAYERS; ++i)
  921.         {
  922.                 if(info[i][pAdmin] >= 1) return SendClientMessage(i,-1,string);
  923.         }
  924.         return 1;
  925. }
  926.  
  927. //------------------------------------------------------------------------------
  928.  
  929. CMD:par(playerid,params[])
  930. {
  931.         if(info[playerid][pAdmin] >= 1)
  932.         {
  933.                 new
  934.                     string[168],
  935.                     texto[185],
  936.                     idx
  937.                 ;
  938.                 GetPlayerName(playerid,nome,24);
  939.                 if(sscanf(params,"us",idx,texto)) return SendClientMessage(playerid,-1,"use /relatorio [playerid] [texto]");
  940.                 if(!IsPlayerConnected(idx)) return SendClientMessage(playerid,-1,"Jogador Off-line.");
  941.                 format(string,sizeof(string),"Mp do admin %s: %s",nome,texto);
  942.                 SendClientMessage(playerid,-1,string);
  943.         }
  944.         else return SendClientMessage(playerid,fail,NAOADM);
  945.         return 1;
  946. }
  947.  
  948. //------------------------------------------------------------------------------
  949.  
  950. CMD:admins(playerid,params[])
  951. {
  952.         new
  953.             string[128]
  954.         ;
  955.         SendClientMessage(playerid,verde,"Administradores On-line");
  956.         for(new i; i < MAX_PLAYERS; ++i)
  957.         {
  958.             GetPlayerName(i,nome,24);
  959.             if(info[i][pAdmin] >= 1)
  960.                 {
  961.                         format(string,sizeof(string),"%s",nome);
  962.                         SendClientMessage(playerid,verde,string);
  963.                 }
  964.         }
  965.         return 1;
  966. }
  967.  
  968.  
  969. //------------------------------------------------------------------------------
  970.  
  971. CMD:autorizar(playerid,params[])
  972. {
  973.         if(info[playerid][pAdmin] >= 1)
  974.         {
  975.             new
  976.                 idx
  977.                 ;
  978.             if(sscanf(params,"u",idx)) return SendClientMessage(playerid,verde,"/autorizar [playerid]");
  979.             if(!IsPlayerConnected(idx)) return SendClientMessage(playerid,-1,"Jogador Off-line.");
  980.             info[idx][pAutorizado] = 1;
  981.             SendClientMessage(idx,verde,"foi autorizado a mudar de nick.");
  982.         }
  983.         else return SendClientMessage(playerid,fail,NAOADM);
  984.         return 1;
  985. }
  986.  
  987. //------------------------------------------------------------------------------
  988.  
  989. CMD:mudarnick(playerid,params[])
  990. {
  991.         if(info[playerid][pAutorizado] == 1)
  992.         {
  993.             new
  994.                 string[24]
  995.                 ;
  996.                 if(sscanf(params,"s[24]",string)) return SendClientMessage(playerid,verde,"use /mudarnick [nome_novo]");
  997.                 SetPlayerName(playerid,string);
  998.                 SendClientMessage(playerid,verde,"nick alterado com sucesso.");
  999.                 info[playerid][pAutorizado] = 0;
  1000.         }
  1001.         else return SendClientMessage(playerid,verde,"não está autorizado.");
  1002.         return 1;
  1003. }
  1004.  
  1005. //------------------------------------------------------------------------------
  1006.  
  1007. CMD:mudarskin(playerid,params[])
  1008. {
  1009.         if(info[playerid][pAdmin] >= 1)
  1010.         {
  1011.             new
  1012.                 idx,
  1013.                 skinid
  1014.                 ;
  1015.                 if(sscanf(params,"ud",idx,skinid)) return SendClientMessage(playerid,-1,"use /mudarskin [playerid] [skinid]");
  1016.                 if(!IsPlayerConnected(idx)) return SendClientMessage(playerid,-1,"Jogador Off-line.");
  1017.                 if(skinid < 0 || skinid > 299) return SendClientMessage(playerid,-1,"use de 0-299");
  1018.                 SetPlayerSkin(idx,skinid);
  1019.                 SendClientMessage(playerid,-1,"Você setou uma skin com sucesso.");
  1020.                 SendClientMessage(playerid,-1,"O administrador mudou sua skin.");
  1021.         }
  1022.         else return SendClientMessage(playerid,fail,NAOADM);
  1023.         return 1;
  1024. }
  1025.  
  1026. //------------------------------------------------------------------------------
  1027.  
  1028. public OnPlayerConnect(playerid)
  1029. {
  1030.         if(info[playerid][pBan] == 1)
  1031.         {
  1032.             new
  1033.                         string[105]
  1034.                 ;
  1035.             GetPlayerIp(playerid,ip,16);
  1036.             GetPlayerName(playerid,nome,24);
  1037.             format(string,sizeof(string),"Olá %s, você não pode mais jogar aqui pois foi banido\n\n\tIP:%s",nome,ip);
  1038.             ShowPlayerDialog(playerid,9999,DIALOG_STYLE_LIST,"Banido",string,"Ok","");
  1039.         }
  1040.         if(info[playerid][pAdmin] >= 1)
  1041.         {
  1042.             new
  1043.                 string[50]
  1044.                 ;
  1045.                 for(new i; i < MAX_PLAYERS; ++i)
  1046.                 {
  1047.                     GetPlayerName(playerid,nome,24);
  1048.                     format(string,50,"~y~Admin %s:~g~On",nome);
  1049.                     GameTextForAll(string,5000,3);
  1050.                 }
  1051.         }
  1052.         return 1;
  1053. }
  1054.  
  1055. //------------------------------------------------------------------------------
  1056.  
  1057. public OnPlayerDisconnect(playerid)
  1058. {
  1059.         salvardados(playerid);
  1060.         if(info[playerid][pAdmin] >= 1)
  1061.         {
  1062.             new
  1063.                 string[50]
  1064.                 ;
  1065.                 for(new i; i < MAX_PLAYERS; ++i)
  1066.                 {
  1067.                     GetPlayerName(playerid,nome,24);
  1068.                     format(string,50,"~y~Admin %s:~r~Off",nome);
  1069.                     GameTextForAll(string,5000,3);
  1070.                 }
  1071.         }
  1072.         return 1;
  1073. }
  1074.  
  1075. //------------------------------------------------------------------------------
  1076.  
  1077. public OnFilterScriptInit()
  1078. {
  1079.         DOF2_CreateFile("administradores.ini");
  1080.         print("Sistema de Administração by Paramount carregado com sucesso.");
  1081.         SendClientMessageToAll(verde,"Paramount ADM system carregado com sucesso.");
  1082.         return 1;
  1083. }
  1084.  
  1085. //------------------------------------------------------------------------------
  1086.  
  1087. public OnFilterScriptExit()
  1088. {
  1089.         DOF2_Exit();
  1090.         for(new i; i < MAX_PLAYERS; ++i) return salvardados(i);
  1091.         return 1;
  1092. }
  1093.  
  1094. //------------------------------------------------------------------------------
  1095.  
  1096. public OnPlayerText(playerid,text[])
  1097. {
  1098.         if(calado[playerid] == true)
  1099.         {
  1100.                 SendClientMessage(playerid,fail,"foi calado , tenta fala agora seu noob.");
  1101.                 return 0;
  1102.         }
  1103.         return 1;
  1104. }
  1105.  
  1106. //------------------------------------------------------------------------------
  1107.  
  1108. stock SetPlayerMoney(id,dinheiro)
  1109. {
  1110.         ResetPlayerMoney(id);
  1111.         return GivePlayerMoney(id,dinheiro);
  1112. }
  1113.  
  1114. //------------------------------------------------------------------------------
  1115.  
  1116. stock PlayerName(id)
  1117. {
  1118.         new name[MAX_PLAYER_NAME];
  1119.         GetPlayerName(id, name, sizeof(name));
  1120.         return name;
  1121. }
  1122.  
  1123. //------------------------------------------------------------------------------
  1124.  
  1125. stock salvardados(playerid)
  1126. {
  1127.         GetPlayerName(playerid,nome,24);
  1128.         format(arquivo,36,contas,nome);
  1129.         DOF2_SetInt(arquivo,"admin",info[playerid][pAdmin]);
  1130.         DOF2_SetInt(arquivo,"autorizado",info[playerid][pAutorizado]);
  1131.         DOF2_SaveFile();
  1132.         return 1;
  1133. }
  1134.  
  1135. //------------------------------------------------------------------------------
  1136.  
  1137. stock carregardados(playerid)
  1138. {
  1139.         GetPlayerName(playerid,nome,24);
  1140.         info[playerid][pAdmin] = DOF2_GetInt(arquivo,"admin");
  1141.         info[playerid][pAutorizado] = DOF2_GetInt(arquivo,"autorizado");
  1142.         return 1;
  1143. }
  1144.  
  1145. //------------------------------------------------------------------------------
  1146.  
  1147. /* COMANDOS DO FILTERSCRIPT
  1148.  
  1149. /mudarskin
  1150. /mudarnick
  1151. /autorizar
  1152. /kickar
  1153. /banir
  1154. /criarcarro
  1155. /kickartodos
  1156. /trazertodos
  1157. /admins
  1158. /par
  1159. /relatorio
  1160. /dargrana
  1161. /setargrana
  1162. /darvida
  1163. /setarvida
  1164. /darcolete
  1165. /setarcolete
  1166. /congelar
  1167. /descongelar
  1168. /limparchat
  1169. /gmx
  1170. /daradmin
  1171. /ir
  1172. /trazer
  1173. /darnivel
  1174. /setarspawn
  1175. /votacao
  1176. /sim
  1177. /nao
  1178. /pegarip
  1179. /calar
  1180. /descalar
  1181. /encerrar
  1182. /setarhora
  1183. /setarmundo
  1184. /setarinterior
  1185. /cnn
  1186. /aviso
  1187. /fakeban
  1188. /matarall
  1189. /darvidaall
  1190. /darcoleteall
  1191. /repararcarro
  1192. /a [ admin chat ]
  1193. /desarmartodos
  1194. /desarmar
  1195. /viraradmin
  1196. /setarniveldetodos
  1197. /irpos
  1198. /tapa
  1199. /ejetardoveiculo
  1200. /nomeserver
  1201. */
  1202.  
RAW Paste Data
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
 
Top