API tools faq
paste
Advertisement
TioBoBf1

Untitled

TioBoBf1
Feb 28th, 2017
3,031
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
REBOL 13.72 KB | None | 0 0
raw download clone embed print report
  1. //Includes//
  2.  
  3. #include <a_samp>
  4. #include <DOF2>
  5. #include <sscanf2>
  6. #include <zcmd>
  7.  
  8. //defines//
  9.  
  10. #define Verde 0x02BA3CFF
  11. #define Azul 0x008EB5FF
  12. #define Rosa 0xB30260FF
  13. #define Vermelho 0xFF122EFF
  14. #define Preto 0x000000FF
  15. #define Amarelo 0xFFFF03FF
  16. #define Branco 0xFFFFFFFF
  17. #define Dialog_Registro 1
  18. #define Dialog_Login 2
  19. #define Contas "Contas/%s.ini"
  20. #define Kick(%0) SetTimerEx("Kicka", 100, false, "i", %0)
  21. #define Ban(%0) SetTimerEx("Bana", 100, false, "i", %0)
  22.  
  23.  
  24. //Variaveis//
  25.  
  26. enum InfoPlayer {
  27.  
  28.     Senha,
  29.     Skin,
  30.     Score,
  31.     Matou,
  32.     Morreu,
  33.     Dinheiro,
  34.     Admin
  35.  
  36.  
  37. };
  38.  
  39. new Erro[MAX_PLAYERS];
  40. new Player[MAX_PLAYERS][InfoPlayer];
  41.  
  42. new MensagensServer[2][] =
  43. {
  44. "[!] Em caso de duvidas, procure os adms!.",
  45. "[!] Trabalha para conseguir dinheiro, ou roube"
  46. };
  47.  
  48. new Float:RandomSpawn[][] =
  49. {
  50.  
  51. {198.5705,-107.5537,1.5505},
  52. {898.2281,-1103.6245,23.6953},
  53. {1177.2325,-1321.8060,14.0605}
  54.  
  55. };
  56.  
  57. main()
  58.  
  59. {
  60.     print("\n----------------------------------");
  61.     print(" É nois cachorro ");
  62.     print("----------------------------------\n");
  63. }
  64.  
  65. //Skin selection//
  66.  
  67. public OnGameModeInit()
  68. {
  69.     // Don't use these lines if it's a filterscript
  70.     SetGameModeText("Brasil RPG");
  71.    
  72.     for(new i=0; i < 311; i++){
  73.    
  74.         AddPlayerClass(i,1958.3783,1343.1572,15.3746,270.1425,0,0,24,300,-1,-1);
  75.  
  76.     }
  77.    
  78.     //Timer
  79.  
  80.     SetTimer("SendMensagem", 120000, true );
  81.    
  82.     return 1;
  83. }
  84.  
  85. //Quando o game mod for finalizado//
  86.  
  87. public OnGameModeExit()
  88. {
  89.     DOF2_Exit();
  90.     return 1;
  91. }
  92.  
  93. public OnPlayerRequestClass(playerid, classid)
  94. {
  95.     SetPlayerInterior(playerid, 14);
  96.     SetPlayerPos(playerid,258.4893,-41.4008,1002.0234);
  97.     SetPlayerFacingAngle(playerid, 270.0);
  98.     SetPlayerCameraPos(playerid,256.0815,-43.0475,1004.0234);
  99.     SetPlayerCameraLookAt(playerid,258.4893,-41.4008,1002.0234);
  100.     return 1;
  101. }
  102.  
  103. public OnPlayerConnect(playerid)
  104. {
  105.     //Mensagem ao play conectar
  106.     /*
  107.     Outro tipo de comentario
  108.     */
  109.  
  110.     new string[64], Jogador[MAX_PLAYER_NAME];
  111.  
  112.     GetPlayerName(playerid, Jogador, sizeof(Jogador));
  113.    
  114.     format(string, sizeof(string), "O Jogador %s Entrou No Servidor!",Jogador);
  115.     SendClientMessageToAll(Azul, string);
  116.    
  117. // Verificar Se O Player Tem Conta No Servidor Ou Não //
  118.  
  119.     if(DOF2_FileExists( GetPlayerArquivo( playerid ) ) )
  120.     {
  121.         ShowPlayerDialog( playerid, Dialog_Login, DIALOG_STYLE_PASSWORD, "Brasil Real-life Login", "Digite Sua Senha Para Entrar!","Logar","Sair");
  122.     }
  123.     else
  124.     {
  125.         ShowPlayerDialog( playerid, Dialog_Registro, DIALOG_STYLE_PASSWORD, "Brasil Real-life Registro", "Digite Sua Senha Para Se Registrar!", "Registrar","Sair");
  126.     }
  127.    
  128.    
  129.     return 1;
  130. }
  131.  
  132. public OnPlayerDisconnect(playerid, reason)
  133. {
  134.     new string[64], Jogador[MAX_PLAYER_NAME];
  135.    
  136.     GetPlayerName(playerid, Jogador, sizeof(Jogador));
  137.    
  138.     new Razao[3][] = {
  139.     "(Conexão/Cash)",
  140.     "(Saiu)",
  141.     "(Kickado/Banido)"
  142.    
  143.     };
  144.    
  145.     format(string, sizeof(string), "O Jogador %s Saiu Do Servidor!%s",Jogador,Razao[reason]);
  146.    
  147.     SendClientMessageToAll(Verde, string);
  148.    
  149.     // Salvar A Conta Do Player Ao Sair Do Servidor!
  150.  
  151.     SavePlayer(playerid);
  152.    
  153.     return 1;
  154. }
  155.  
  156. public OnPlayerSpawn(playerid)
  157. {
  158.     SetPlayerInterior(playerid, 0);
  159.    
  160.     new RandomPosition = random(sizeof(RandomSpawn));
  161.    
  162.     SetPlayerPos(playerid, RandomSpawn[RandomPosition][0], RandomSpawn[RandomPosition][1], RandomSpawn[RandomPosition][2] );
  163.    
  164.     return 1;
  165. }
  166.  
  167. public OnPlayerDeath(playerid, killerid, reason)
  168. {
  169.      SetPlayerScore(playerid, GetPlayerScore(playerid) - 1);
  170.      SetPlayerScore(killerid, GetPlayerScore(killerid) + 1);
  171.      
  172.      return 1;
  173. }
  174.  
  175. public OnVehicleSpawn(vehicleid)
  176. {
  177.     return 1;
  178. }
  179.  
  180. public OnVehicleDeath(vehicleid, killerid)
  181. {
  182.     return 1;
  183. }
  184.  
  185. public OnPlayerText(playerid, text[])
  186. {
  187.     return 1;
  188. }
  189.  
  190.                    /**///comandos///**/
  191.  
  192. //COmando Ban//
  193.  
  194. CMD:banir (playerid, params[])
  195. {
  196.  
  197.     if(Player[playerid][Admin] < 1 return SendClientMessage(playerid, Vermelho, "[REAL-LIFE]: {Preto}Você Não Tem Permissão!. ");
  198.  
  199.     new PlayerIDBanido, Motivo[50], Mensagem[256];
  200.    
  201.     if ( sscanf( params, "us[30]", PlayerIDBanido, Motivo )) return SendClientMessage( playerid, Vermelho, "[REAL-LIFE]: {Preto}Use: /Banir ID Motivo !." );
  202.    
  203.     if ( PlayerIDBanido == INVALID_PLAYER_ID ) return SendClientMessage( playerid, Vermelho, "[REAL-LIFE]: {Amarelo}Player Inválido!." );
  204.    
  205.     if( strlen(Motivo) > 50 ) return SendClientMessage(playerid, Vermelho, "[REAL-LIFE]: {Preto}Motivo Muito Grande!.");
  206.    
  207.     format(Mensagem, sizeof(Mensagem), "[Real-life] O Admin $s Banio O Player %s! Motivo: %s!. ",GetPlayerNameEx(playerid), GetPlayerNameEx(PlayerIDBanido), Motivo);
  208.    
  209.     SendClientMessageToAll(Vermelho, Mensagem);
  210.    
  211.     Ban(PlayerIDBanido);
  212.    
  213.  
  214.     return 1;
  215. }
  216.  
  217.                            //Comando kick//
  218.  
  219. CMD:kick (playerid, params[])
  220. {
  221.  
  222.     CMD:kick(playerid, params[])
  223. {
  224.  
  225.     if(Player[playerid][Admin] < 1 return SendClientMessage(playerid, Vermelho, "[REAL-LIFE]: {Preto}Você Não Tem Permissão!. ");
  226.    
  227.     new PlayerIDKickado, Motivo[50], Mensagem[256];
  228.  
  229.     if ( sscanf( params, "us[30]", PlayerIDKickado, Motivo )) return SendClientMessage( playerid, Vermelho, "[REAL-LIFE]: {Preto}Use: /Kick ID Motivo !." );
  230.  
  231.     if ( PlayerIDKickado == INVALID_PLAYER_ID ) return SendClientMessage( playerid, Vermelho, "[REAL-LIFE]: {Amarelo}Player Inválido!." );
  232.  
  233.     if( strlen(Motivo) > 50 ) return SendClientMessage(playerid, Vermelho, "[REAL-LIFE]: {Preto}Motivo Muito Grande!.")
  234.    
  235.     format(Mensagem, sizeof(Mensagem), "[Real-life] O Admin $s Kickou O Player %s! Motivo: %s!. ",GetPlayerNameEx(playerid), GetPlayerNameEx(PlayerIDKickado), Motivo);
  236.  
  237.     SendClientMessageToAll(Vermelho, Mensagem);
  238.    
  239.     Kick(PlayerIDCikado);
  240.  
  241.     return 1;
  242. }
  243.  
  244. CMD:setadmin (playerid, params[])
  245. {
  246.  
  247.     if(!IsPlayerAdmin(playerid) ££ Player[playerid][Admin] < 5  ) return SendClientMessage(playerid, Vermelho, "[REAL-LIFE]: {Preto}Você Não Tem Permissão!. ");
  248.    
  249.     new PlayerIDSetado, Level, Mensagem[256];
  250.    
  251.     if ( sscanf( params, "ud", PlayerIDSetado, Level )) return SendClientMessage( playerid, Vermelho, "[REAL-LIFE]: {Preto}Use: /Kick ID Motivo !." );
  252.    
  253.     if ( PlayerIDSetado == INVALID_PLAYER_ID ) return SendClientMessage( playerid, Vermelho, "[REAL-LIFE]: {Amarelo}Player Inválido!." );
  254.    
  255.     if( Level > 5 ££ Level < 1 ) return SendClientMessage(playerid, Vermelho, "[REAL-LIFE]: {Preto}Use Somente Levels De 1 Á 5!.")
  256.    
  257.     format(Mensagem, sizeof(Mensagem), "[Real-life] O Admin $s Setou ADM Para %s! Level: %d!. ",GetPlayerNameEx(playerid), GetPlayerNameEx(PlayerIDSetado), Level);
  258.  
  259.     SendClientMessageToAll(Vermelho, Mensagem);
  260.    
  261.     Player[PlayerIDSetado][Admin] = Level;
  262.    
  263.     return 1;
  264.  
  265. }
  266.  
  267.  
  268.  
  269. public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
  270. {
  271.     return 1;
  272. }
  273.  
  274. public OnPlayerExitVehicle(playerid, vehicleid)
  275. {
  276.     return 1;
  277. }
  278.  
  279. public OnPlayerStateChange(playerid, newstate, oldstate)
  280. {
  281.     return 1;
  282. }
  283.  
  284. public OnPlayerEnterCheckpoint(playerid)
  285. {
  286.     return 1;
  287. }
  288.  
  289. public OnPlayerLeaveCheckpoint(playerid)
  290. {
  291.     return 1;
  292. }
  293.  
  294. public OnPlayerEnterRaceCheckpoint(playerid)
  295. {
  296.     return 1;
  297. }
  298.  
  299. public OnPlayerLeaveRaceCheckpoint(playerid)
  300. {
  301.     return 1;
  302. }
  303.  
  304. public OnRconCommand(cmd[])
  305. {
  306.     return 1;
  307. }
  308.  
  309. public OnPlayerRequestSpawn(playerid)
  310. {
  311.     return 1;
  312. }
  313.  
  314. public OnObjectMoved(objectid)
  315. {
  316.     return 1;
  317. }
  318.  
  319. public OnPlayerObjectMoved(playerid, objectid)
  320. {
  321.     return 1;
  322. }
  323.  
  324. public OnPlayerPickUpPickup(playerid, pickupid)
  325. {
  326.     return 1;
  327. }
  328.  
  329. public OnVehicleMod(playerid, vehicleid, componentid)
  330. {
  331.     return 1;
  332. }
  333.  
  334. public OnVehiclePaintjob(playerid, vehicleid, paintjobid)
  335. {
  336.     return 1;
  337. }
  338.  
  339. public OnVehicleRespray(playerid, vehicleid, color1, color2)
  340. {
  341.     return 1;
  342. }
  343.  
  344. public OnPlayerSelectedMenuRow(playerid, row)
  345. {
  346.     return 1;
  347. }
  348.  
  349. public OnPlayerExitedMenu(playerid)
  350. {
  351.     return 1;
  352. }
  353.  
  354. public OnPlayerInteriorChange(playerid, newinteriorid, oldinteriorid)
  355. {
  356.     return 1;
  357. }
  358.  
  359. public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
  360. {
  361.     return 1;
  362. }
  363.  
  364. public OnRconLoginAttempt(ip[], password[], success)
  365. {
  366.     return 1;
  367. }
  368.  
  369. public OnPlayerUpdate(playerid)
  370. {
  371.     return 1;
  372. }
  373.  
  374. public OnPlayerStreamIn(playerid, forplayerid)
  375. {
  376.     return 1;
  377. }
  378.  
  379. public OnPlayerStreamOut(playerid, forplayerid)
  380. {
  381.     return 1;
  382. }
  383.  
  384. public OnVehicleStreamIn(vehicleid, forplayerid)
  385. {
  386.     return 1;
  387. }
  388.  
  389. public OnVehicleStreamOut(vehicleid, forplayerid)
  390. {
  391.     return 1;
  392. }
  393.  
  394. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  395. {
  396.     switch(dialogid){
  397.  
  398.     case Dialog_Registro:
  399.     {
  400.         if( response )
  401.         {
  402.             if( strlen( inputtext ) < 5 || strlen( inputtext ) > 20 || !strlen( inputtext ) )
  403.             {
  404.  
  405.                 ShowPlayerDialog( playerid, Dialog_Registro ,DIALOG_STYLE_PASSWORD, "Doege Registro", "Sua Senha Deve Conter No Mínimo 5 Caracteres!\nE No Máximo 20!\nTente Novamente!","Registrar","Sair" );
  406.  
  407.                 return 1;
  408.             }
  409.  
  410.             // Criar Arquivo E Colocar Os Valores //
  411.             DOF2_CreateFile( GetPlayerArquivo( playerid ) );
  412.             DOF2_SetString( GetPlayerArquivo( playerid ),"Senha", inputtext );
  413.             DOF2_SetInt( GetPlayerArquivo( playerid ), "Score" ,0 );
  414.             DOF2_SetInt( GetPlayerArquivo( playerid ), "Matou" ,0 );
  415.             DOF2_SetInt( GetPlayerArquivo( playerid ), "Morreu" ,0 );
  416.             //DOF2_SetInt( GetPlayerArquivo( playerid ), "Skin" ,0 );
  417.             DOF2_SetInt( GetPlayerArquivo( playerid ),"Dinheiro", 10000 );
  418.             DOF2_SetInt( GetPlayerArquivo( playerid ), "Admin",0 );
  419.  
  420.             SendClientMessage(playerid, 0x19B519FF, "[DOEGE]» {FFFFFF}Registrado Com Sucesso!.");
  421.  
  422.             ShowPlayerDialog( playerid, Dialog_Login ,DIALOG_STYLE_PASSWORD, "Brasil Vida-Real Login", "Digite Sua Senha Registrada Abaixo Para Fazer O Login!","Logar","Sair" );
  423.  
  424.         }
  425.         else Kick( playerid );
  426.     }
  427.  
  428.     case Dialog_Login:
  429.     {
  430.         if( response )
  431.         {
  432.             if( strlen( inputtext ) < 5 || strlen( inputtext ) > 20 || !strlen( inputtext ) )
  433.             {
  434.  
  435.                 SendClientMessage( playerid, -1, "{19B519}[VIDA-REAL]» {FFFFFF}Digite Sua Senha Corretamente!." );
  436.                 ShowPlayerDialog( playerid, Dialog_Login, DIALOG_STYLE_PASSWORD, "Brasil Vida-Real Login","Digite Sua Senha Para Entrar!","Entrar","Sair");
  437.  
  438.                 return 1;
  439.             }
  440.             if( strcmp( inputtext, DOF2_GetString( GetPlayerArquivo( playerid ), "Senha" )) == 0 )
  441.             {
  442.  
  443.                 LoadPlayer( playerid );
  444.  
  445.                 SendClientMessage(playerid, 0x19B519FF, "[VIDA-REAL]» {FFFFFF}Logado Com Sucesso!.");
  446.  
  447.             }
  448.             else
  449.             {
  450.                 Erro[ playerid ] ++; // Aquivo adiciona + 1 a variavel erro...
  451.                 if ( Erro[ playerid ] == 5 ){ SavePlayer(playerid); Kick ( playerid ); } // se a variavel chegar a 5, kicka o player pois ele errou 5 vezes a senha.
  452.  
  453.                 SendClientMessage( playerid, Verde, "{19B519}[DOEGE]» {FFFFFF}Digite Sua Senha Corretamente!." );
  454.                 ShowPlayerDialog( playerid, Dialog_Login, DIALOG_STYLE_PASSWORD, "Doege Login","Digite Sua Senha Para Entrar!","Entrar","Sair");
  455.  
  456.             }
  457.         }
  458.         else{
  459.  
  460.          SavePlayer( playerid );
  461.          Kick( playerid );
  462.  
  463.         }
  464.     }
  465.  
  466.     }
  467.     return 1;
  468. }
  469.  
  470. public OnPlayerClickPlayer(playerid, clickedplayerid, source)
  471. {
  472.     return 1;
  473. }
  474.  
  475. forward SendMensagem();
  476.  
  477. public SendMensagem()
  478. {
  479.      new String[100];
  480.      
  481.      new RandomMensagensServer = random(sizeof(MensagensServer));
  482.      
  483.      format(String, sizeof(String), "%s",MensagensServer[RandomMensagensServer]);
  484.      
  485.      SendClientMessageToAll(Verde, String);
  486.      
  487.      return 1;
  488.  
  489. }
  490.  
  491. // Funções //
  492.  
  493. GetPlayerArquivo(playerid)
  494. {
  495.     new ArquivoPlayer[ 30 ];
  496.     format( ArquivoPlayer, sizeof( ArquivoPlayer ), Contas, GetPlayerNameEx( playerid ) );
  497.     return ArquivoPlayer;
  498. }
  499.  
  500. stock GetPlayerNameEx(playerid)
  501. {
  502.     new Nome[MAX_PLAYER_NAME];
  503.     GetPlayerName(playerid, Nome, sizeof(Nome));
  504.     return Nome;
  505. }
  506.  
  507. SavePlayer(playerid)
  508. {
  509.     if( DOF2_FileExists( GetPlayerArquivo( playerid ) ) )
  510.     {
  511.  
  512.         DOF2_CreateFile(GetPlayerArquivo(playerid));
  513.  
  514.         //DOF2_SetInt( GetPlayerArquivo( playerid ), "Skin", Player[ playerid ][ Skin ] );
  515.         DOF2_SetInt( GetPlayerArquivo( playerid ), "Score", Player[ playerid ][ Score ] );
  516.         DOF2_SetInt( GetPlayerArquivo( playerid ), "Matou", Player[ playerid ][ Matou ] );
  517.         DOF2_SetInt( GetPlayerArquivo( playerid ), "Morreu", Player[ playerid ][ Morreu ] );
  518.         DOF2_SetInt( GetPlayerArquivo( playerid ), "Dinheiro", GetPlayerMoney( playerid ));
  519.         DOF2_SetInt( GetPlayerArquivo( playerid ), "Admin", Player[ playerid ][ Admin ] );
  520.  
  521.         DOF2_SaveFile();
  522.  
  523.     }
  524.     return 1;
  525. }
  526.  
  527. LoadPlayer(playerid)
  528. {
  529.     if( DOF2_FileExists( GetPlayerArquivo( playerid ) ) )
  530.     {
  531.         //Player[ playerid ][ Skin ] = DOF2_GetInt( GetPlayerArquivo( playerid ), "Skin" );
  532.         Player[ playerid ][ Score ] = DOF2_GetInt( GetPlayerArquivo( playerid ), "Score" );
  533.         Player[ playerid ][ Dinheiro ] = DOF2_GetInt( GetPlayerArquivo( playerid ), "Dinheiro" );
  534.         Player[ playerid ][ Admin ] = DOF2_GetInt( GetPlayerArquivo( playerid ), "Admin"  );
  535.         Player[ playerid ][ Matou ] = DOF2_GetInt( GetPlayerArquivo( playerid ), "Matou" );
  536.         Player[ playerid ][ Morreu ] = DOF2_GetInt( GetPlayerArquivo( playerid ), "Morreu" );
  537.  
  538.         SetPlayerScore( playerid, Player[ playerid ][ Score ] );
  539.         GivePlayerMoney( playerid, Player[ playerid] [ Dinheiro ] );
  540.         //SetPlayerSkin(playerid, Player[ playerid ][ Skin ] );
  541.  
  542.     }
  543.     return 1;
  544. }
  545.  
  546.  //kick| Ban//
  547.  
  548. forward Kicka(p); public Kicka(p) {
  549.     #undef Kick
  550.     Kick(p);
  551.     #define Kick(%0) SetTimerEx("Kicka", 100, false, "i", %0)
  552.     return 1;
  553. }
  554.  
  555. forward Bana(p); public Bana(p) {
  556.     #undef Ban
  557.     Ban(p);
  558.     #define Ban(%0) SetTimerEx("Bana", 100, false, "i", %0)
  559.     return 1;
  560. }
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!