API tools faq
paste
Advertisement
Guest User

Admin sys v2

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