Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [pawn]
- #define SLOTS 100
- #include <a_samp>
- #include <bcmd>
- #include <DOF2>
- #define comprar 18
- #define FileUsers "Contas/%s.ini"
- #define ComproRadio 23
- #define NaoCompro 25
- new bool:ComprouRadio[SLOTS] = false;
- enum pInfo
- {
- radios
- };
- new Informacoes[SLOTS][pInfo];
- stock ReturnFileUser(playerid)
- {
- new File[156],Name[MAX_PLAYER_NAME];
- GetPlayerName(playerid,Name,sizeof(Name));
- format(File,sizeof(File),FileUsers,Name);
- return File;
- }
- public OnGameModeExit()
- {
- DOF2_Exit();
- return 1;
- }
- public OnPlayerConnect(playerid)
- {
- TextDrawShowForPlayer(playerid, Textdraw0);
- SendDeathMessage(playerid, INVALID_PLAYER_ID, 200);
- new string[40];
- new pName[25];
- GetPlayerName(playerid, pName, sizeof(pName));
- format(string, sizeof(string), "%s Entrou no Servidor!", pName);
- SendClientMessageToAll(0xAAAAAAAA, string);
- GameTextForPlayer(playerid,"~b~Bem-Vindo",5000,5);
- SendClientMessage(playerid, 0xFFFF00AA, ">> Seja Bem Vindo Ao Server<<");
- PlayAudioStreamForPlayer(playerid,"https://dl.dropbox.com/u/93019797/1.mp3.mp3");
- if(!DOF2_FileExists(ReturnFileUser(playerid))) return SendClientMessage(playerid,0x56FF00FF,"Olá, sua conta não é registrada. Para ter uma conta e salvar seus dados use /registrar.");
- else if(DOF2_FileExists(ReturnFileUser(playerid))) return SendClientMessage(playerid,0x56FF00FF,"Olá, sua conta já é registrada. Para carregar seus dados use /logar.");
- if(!DOF2_FileExists(ReturnFileUser(playerid))){Informacoes[playerid][radios] = NaoCompro;
- }else{CarregarPlayer(playerid);}
- return 1;
- }
- public OnPlayerDisconnect(playerid, reason)
- {
- new pName[MAX_PLAYER_NAME];
- new string[40];
- GetPlayerName(playerid, pName, sizeof(pName));
- format(string, sizeof(string), "%s Saiu do Servidor! ", pName);
- SendClientMessageToAll(0xAAAAAAAA, string);
- SendDeathMessage(INVALID_PLAYER_ID, playerid, 201);
- if(Conectado[playerid] == true)
- {
- SalvarPlayer(playerid);
- }
- Conectado[playerid] = false;
- DestroyVehicle(Veiculo[playerid]);
- return 1;
- }
- public OnPlayerCallCommand(playerid,cmdtext[],sucess){
- if(!sucess) {
- new result[128];
- format(result,sizeof(result),"{0FF0FF}[INFO]:O comando %s não existe",cmdtext);
- SendClientMessage(playerid,-1,result);
- }
- return 1;
- }
- bCMD[comprar]-(playerid, params [])
- {
- #pragma unused params
- ShowPlayerDialog(playerid, comprar, DIALOG_STYLE_LIST,"Loja","Rádio\nMP3\n","Comprar","Fechar");
- return 1;
- }
- public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
- {
- if(dialogid == comprar)
- {
- if(!response) return SendClientMessage(playerid,-1,"Cancelado com sucesso!");
- if(listitem == 0) {
- if(GetPlayerMoney(playerid) > 250)
- {
- GivePlayerMoney(playerid, -250);
- ComprouRadio[playerid] = true;
- SendClientMessage(playerid, -1, "Você comprou um Rádio");
- DOF2_CreateFile(ReturnFileUser(playerid));
- Informacoes[playerid][radios] = ComproRadio;
- }
- else
- {
- SendClientMessage(playerid, -1, "Você nao tem a grana.");}}
- return 1;
- }
- stock SalvarPlayer(playerid)
- {
- if(DOF2_FileExists(ReturnFileUser(playerid)))
- {
- DOF2_SetInt(ReturnFileUser(playerid),"Level",GetPlayerScore(playerid));
- DOF2_SetInt(ReturnFileUser(playerid),"Dinheiro",GetPlayerMoney(playerid));
- DOF2_SetInt(ReturnFileUser(playerid), "Radio", Informacoes[playerid][radios]);
- DOF2_SaveFile();
- }
- }
- stock CarregarPlayer(playerid)
- {
- if(DOF2_FileExists(ReturnFileUser(playerid)))
- {
- SetPlayerScore(playerid, DOF2_GetInt(ReturnFileUser(playerid), "Level"));
- SetPlayerMoney(playerid, DOF2_GetInt(ReturnFileUser(playerid), "Dinheiro"));
- Informacoes[playerid][radios] = DOF2_GetInt(ReturnFileUser(playerid), "Radio");
- }
- }
- stock PlayerName(playerid)
- {
- new Name[SLOTS];
- GetPlayerName(playerid, Name, sizeof(Name));
- return Name;
- }
- stock SetPlayerMoney(playerid,ammount)
- {
- ResetPlayerMoney(playerid);
- GivePlayerMoney(playerid,ammount);
- return 1;
- }[/pawn]
Advertisement
Add Comment
Please, Sign In to add comment