Criador de radar de velocidade

por **Weslley_Script** Dom 14 Jun 2015 - 0:29

Weslley_Script: SS - Fundador; Steam : WeslleySSGames
Zello : WeslleySSGames
Mensagens : 11625
Moedas : 1032880
Data de inscrição : 06/10/2011
Idade : 28
Localização : Brasil

Mensagem nº1

Criador de radar de velocidade

por Weslley_Script Dom 14 Jun 2015 - 0:29

[size=32]Radar de velocidade[/size]

Eae galera estava sem fazer nada e decidi criar um criador de radar de velocidade, simples de mais, mais pode ser útil para quem tem servidor rp/g...

Imagens:

Criando radar

https://i.imgur.com/0dUjNDK.png

Radar criado
Criador de radar de velocidade SDumGy2

https://i.imgur.com/SDumGy2.png

Passando pelo radar e recebendo as estrelinhas la
Criador de radar de velocidade Rexsk7o

https://i.imgur.com/rexsk7o.png

Deletando o radar
Criador de radar de velocidade EFQIzxD

https://i.imgur.com/eFQIzxD.png

Comandos:
/comandos ~ /criarradar ~ /deletarradar
É necessário estar logado na rcon para digitar os comandos!

Includes necessárias:
ZCMD ~ SSCANF ~ DOF2

**Obs: é necessário criar uma pasta Radares no scriptfiles

Código...

Code:

#include
#include zcmd
#include sscanf
#include dof2
#define MAX_RADAR 100

#define PastaRadares "Radares/Radar%d.ini"

static
lString[256],
radarid[MAX_PLAYERS],
vel,
Text3D:TRadar[MAX_RADAR],
Variavel[MAX_PLAYERS],
ObjetoRadar[2][MAX_RADAR],
CriandoRadar,
Float:PosX,
Float:PosY,
Float:PosZ,
Float:Angulo;
enum radar {
Float:lPosX,
Float:lPosY,
Float:lPosZ,
Float:lAngulo,
lVelocidade,
};
new InfoRadar[MAX_RADAR][radar];

public OnFilterScriptInit()
{
CarregarRadares();
return 1;
}

public OnFilterScriptExit()
{
SalvarRadares();
DOF2_Exit();
return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == 3030)
{
if(response)
{
static
strradar[100];
GetPlayerPos(playerid, PosX,PosY,PosZ);
GetPlayerFacingAngle(playerid, Angulo);
IdRadarLivre(playerid);
InfoRadar[radarid[playerid]][lPosX] = PosX;
InfoRadar[radarid[playerid]][lPosY] = PosY;
InfoRadar[radarid[playerid]][lPosZ] = PosZ-1.5;
InfoRadar[radarid[playerid]][lAngulo] = Angulo;
InfoRadar[radarid[playerid]][lVelocidade] = vel;
ObjetoRadar[0][radarid[playerid]] = CreateObject(18880, InfoRadar[radarid[playerid]][lPosX], InfoRadar[radarid[playerid]][lPosY], InfoRadar[radarid[playerid]][lPosZ], 0.0, 0.0, InfoRadar[radarid[playerid]][lAngulo]);
ObjetoRadar[1][radarid[playerid]] = CreateObject(18880, InfoRadar[radarid[playerid]][lPosX], InfoRadar[radarid[playerid]][lPosY], InfoRadar[radarid[playerid]][lPosZ], 0.0, 0.0, InfoRadar[radarid[playerid]][lAngulo] + 180.0);
format(strradar, sizeof(strradar),"{FF0000}Radar\nLimite de velocidade: %d KM/H",InfoRadar[radarid[playerid]][lVelocidade]);
TRadar[radarid[playerid]] = Text3D:Create3DTextLabel(strradar, -1, InfoRadar[radarid[playerid]][lPosX], InfoRadar[radarid[playerid]][lPosY], InfoRadar[radarid[playerid]][lPosZ]+1, 50.0, 0);
format(lString, sizeof(lString),"Radar ID: %d criado.",radarid[playerid]);
SendClientMessage(playerid, 0x004C00FF, lString);
SetPlayerPos(playerid, PosX+1,PosY+1,PosZ+1);
CriandoRadar = 0;
SalvarRadares();
}
else
{
CriandoRadar = 0;
SendClientMessage(playerid, 0xFFFFFFFF,"Você fechou o dialog de criar radar!");
}
}
return 1;
}

public OnPlayerUpdate(playerid)
{
CheckRadar(playerid);
return 1;
}

CMD:v(playerid)
{
new Float:x,Float:y,Float:z;
GetPlayerPos(playerid, x,y,z);
CreateVehicle(522,x,y,z,0,-1,-1,-1);
return 1;
}

CMD:comandos(playerid)
{
SendClientMessage(playerid, -1,"/criarradar | /deletarradar - Comandos apenas para admin rcon!");
SendClientMessage(playerid, -1, "Sistema de criar radar por Living(Living_22) qualquer erro entre em contato com o mesmo!");
return true;
}

CMD:deletarradar(playerid, params[])
{
new id, strpasta[200];
if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, 0xB40000FF,"Você não é um administrador!");
if(sscanf(params, "d", id)) return SendClientMessage(playerid, -1, "Digite: /deletarradar [Id do radar]");
format(strpasta, sizeof(strpasta), PastaRadares, id);
if(DOF2_FileExists(strpasta))
{
DOF2_RemoveFile(strpasta);
format(lString, sizeof(lString), "Você deletou o radar de ID: %d.", id);
SendClientMessage(playerid, 0xFF0000FF,lString);
DestroyObject(ObjetoRadar[0][id]);
DestroyObject(ObjetoRadar[1][id]);
Delete3DTextLabel(TRadar[id]);
InfoRadar[id][lPosX] = 0;
InfoRadar[id][lPosY] = 0;
InfoRadar[id][lPosZ] = 0;
InfoRadar[id][lAngulo] = 0;
InfoRadar[id][lVelocidade] = 999;
return 1;
}
else
{
format(lString, sizeof(lString), "O radar de ID: %d não existe.", id);
SendClientMessage(playerid, 0xFF0000FF, lString);
}
return 1;
}

CMD:criarradar(playerid, params[])
{
new velocidade;
if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, 0xB40000FF,"Você não é um administrador!");
if(CriandoRadar == 1) return SendClientMessage(playerid,0xB40000FF, "Já tem alguém criando um radar, aguarde por favor!");
if(sscanf(params,"d",velocidade)) return SendClientMessage(playerid, 0x999C9BFF,"Digite: /criarradar [velocidade]");
vel = velocidade;
GetPlayerPos(playerid, PosX,PosY,PosZ);
GetPlayerFacingAngle(playerid, Angulo);
TogglePlayerControllable(playerid, true);
SetPlayerPos(playerid, PosX,PosY,PosZ);
format(lString, sizeof(lString),"{FFFFFF}Você deseja mesmo criar um radar neste local?\n\n");
format(lString, sizeof(lString),"%s{00B4FF}Posição X: {FFFFFF}%0.4f\n{00B4FF}Posição Y: {FFFFFF} %0.4f\n{00B4FF}Posição Z: {FFFFFF} %0.4f\n{00B4FF}Angulo: {FFFFFF}%0.4f\n{00B4FF}Velocidade: {FFFFFF}%d",lString,PosX,PosY,PosZ,Angulo,velocidade);
CriandoRadar = 1;
ShowPlayerDialog(playerid, 3030, DIALOG_STYLE_MSGBOX, "Criador de radar",lString, "Criar","Cancelar");
return 1;
}

forward CarregarRadares();
public CarregarRadares()
{
new
strradar[100],
strpasta[200];

for(new rad=0;rad {
format(strpasta,sizeof(strpasta),PastaRadares,rad);
if(DOF2_FileExists(strpasta))
{
InfoRadar[rad][lVelocidade] = DOF2_GetInt(strpasta,"Velocidade");
InfoRadar[rad][lPosX] = DOF2_GetFloat(strpasta,"PosX");
InfoRadar[rad][lPosY] = DOF2_GetFloat(strpasta,"PosY");
InfoRadar[rad][lPosZ] = DOF2_GetFloat(strpasta,"PosZ");
InfoRadar[rad][lAngulo] = DOF2_GetFloat(strpasta,"Angulo");
ObjetoRadar[0][rad] = CreateObject(18880, InfoRadar[rad][lPosX], InfoRadar[rad][lPosY], InfoRadar[rad][lPosZ], 0.0, 0.0, InfoRadar[rad][lAngulo]);
ObjetoRadar[1][rad] = CreateObject(18880, InfoRadar[rad][lPosX], InfoRadar[rad][lPosY], InfoRadar[rad][lPosZ], 0.0, 0.0, InfoRadar[rad][lAngulo] + 180.0);
format(strradar, sizeof(strradar),"{FF0000}Radar\nLimite de velocidade: %d KM/H",InfoRadar[rad][lVelocidade]);
TRadar[rad] = Text3D:Create3DTextLabel(strradar, -1, InfoRadar[rad][lPosX], InfoRadar[rad][lPosY], InfoRadar[rad][lPosZ]+1, 50.0, 0);
}
}
return 1;
}

forward SalvarRadares();
public SalvarRadares()
{
new
strpasta[200];

for(new rad=0;rad {
format(strpasta,sizeof(strpasta),PastaRadares,rad);
if(DOF2_FileExists(strpasta))
{
DOF2_SetInt(strpasta,"Velocidade",InfoRadar[rad][lVelocidade]);
DOF2_SetFloat(strpasta,"PosX",InfoRadar[rad][lPosX]);
DOF2_SetFloat(strpasta,"PosY",InfoRadar[rad][lPosY]);
DOF2_SetFloat(strpasta,"PosZ",InfoRadar[rad][lPosZ]);
DOF2_SetFloat(strpasta,"Angulo",InfoRadar[rad][lAngulo]);
}
}
return 1;
}

forward CheckRadar(playerid);
public CheckRadar(playerid)
{
new
Float:PlayerSpeedDistance,
VelocidadeDoPlayer[MAX_PLAYERS];

GetVehicleVelocity(GetPlayerVehicleID(playerid), PosX, PosY, PosZ);
PlayerSpeedDistance = floatmul(floatsqroot(floatadd(floatadd(floatpower(PosX, 2), floatpower(PosY, 2)), floatpower(PosZ, 2))), 170.0);
new spe = floatround(PlayerSpeedDistance * 1);
VelocidadeDoPlayer[playerid] = spe;
for(new rad = 0; rad < MAX_RADAR; rad++)
{
if(IsPlayerInRangeOfPoint(playerid, 8.0, InfoRadar[rad][lPosX],InfoRadar[rad][lPosY],InfoRadar[rad][lPosZ]))
{
if(VelocidadeDoPlayer[playerid] > InfoRadar[rad][lVelocidade])
{
if(gettime() > Variavel[playerid])
{
Variavel[playerid] = (gettime() + 1);
format(lString, sizeof(lString),"(Radar) Você ultrapassou o limite de velocidade, o limite é {FFFFFF}%d KM/H{FD0600} e você passou a {FFFFFF}%d KM/H!",InfoRadar[rad][lVelocidade],VelocidadeDoPlayer[playerid]);
SendClientMessage(playerid, 0xFD0600FF,lString);
SetPlayerWantedLevel(playerid, GetPlayerWantedLevel(playerid)+1);
}
}
}
}
return 1;
}

stock IdRadarLivre(playerid)
{
static
rstring[74];
for(new i; i< MAX_RADAR; i++)
{
format(rstring, sizeof rstring, PastaRadares, i);
if(!DOF2_FileExists(rstring))
{
radarid[playerid] = i;
DOF2_CreateFile(rstring);
return 1;
}
}
return 0;
}

Créditos a mim Living(Living_22) por ter criado o sistema
Créditos aos criadores das includes zcmd,sscanf,dof2

por Matheus_Scripter/Mapper Dom 14 Jun 2015 - 9:41

Matheus_Scripter/Mapper

Matheus_Scripter/Mapper: --> Postador Iniciante; Celular : 98030669
Mensagens : 56
Moedas : 3601
Data de inscrição : 24/04/2015

Mensagem nº2

Re: Criador de radar de velocidade

por Matheus_Scripter/Mapper Dom 14 Jun 2015 - 9:41

Belo filter script podendo facilmente jogar dentro da GM

por **Weslley_Script** Dom 14 Jun 2015 - 20:44

Weslley_Script

Weslley_Script: SS - Fundador; Steam : WeslleySSGames
Zello : WeslleySSGames
Mensagens : 11625
Moedas : 1032880
Data de inscrição : 06/10/2011
Idade : 28
Localização : Brasil

Mensagem nº3

Re: Criador de radar de velocidade

por Weslley_Script Dom 14 Jun 2015 - 20:44

Pois e.

por Alexandre - DooK Sáb 24 Out 2015 - 20:04

Alexandre - DooK

Alexandre - DooK: --> Postador Iniciante; Celular : 991702595
Mensagens : 7
Moedas : 3318
Data de inscrição : 24/10/2015

Mensagem nº4

Re: Criador de radar de velocidade

por Alexandre - DooK Sáb 24 Out 2015 - 20:04

Esse FS é igual do Brasil PlayCity? Tem como adicionar só pra uma organização usar o comando?

por WanDThuG Sáb 24 Out 2015 - 20:37

WanDThuG

WanDThuG: --> Postador Iniciante; Celular : 869258461
Mensagens : 156
Moedas : 4248
Data de inscrição : 02/03/2014

Mensagem nº5

Re: Criador de radar de velocidade

por WanDThuG Sáb 24 Out 2015 - 20:37

Alexandre é fácil por para apenas uma organização usar o comando kkk, porém depende também da sua GM

por [รรG]тнυG_Iиรidє Seg 23 Nov 2015 - 10:33

[รรG]тнυG_Iиรidє

[รรG]тнυG_Iиรidє: --> Postador Fanático; Steam : SteamAnonymous
Zello : Scripter - Mapper - Designer
Celular : +21 02176065546
Mensagens : 480
Moedas : 4365
Data de inscrição : 03/08/2015
Idade : 23
Localização : 『R.Janeiro』

Mensagem nº6

Re: Criador de radar de velocidade

por [รรG]тнυG_Iиรidє Seg 23 Nov 2015 - 10:33

Otímo Topic.

por LoGaN_BPG Dom 25 Jun 2017 - 16:14

LoGaN_BPG

LoGaN_BPG: --> Postador Iniciante; Celular : 22996108994
Mensagens : 1
Moedas : 2698
Data de inscrição : 20/06/2017
Idade : 30

Mensagem nº7

Re: Criador de radar de velocidade

por LoGaN_BPG Dom 25 Jun 2017 - 16:14

o meu ta dando o erro

erro:

C:\Users\fabiano\Desktop\Brasil Play Games [RPG] @CarbonHost\gamemodes\BPG.pwn(1) : fatal error 100: cannot read from file: ""

por - Dom 25 Jun 2017 - 17:17

-

-: SS - Membro de honra; Celular : -
Mensagens : 2172
Moedas : 7578
Data de inscrição : 12/10/2015
Idade : 74

Mensagem nº8

Re: Criador de radar de velocidade

por - Dom 25 Jun 2017 - 17:17

Crie um tópico de ajuda na área correta, relate seu erro e poste um print para melhores detalhes.

por otaviotm Seg 12 Fev 2018 - 3:06

otaviotm

otaviotm: --> Postador Iniciante; Steam : otaviotm18
Zello : Scripter - Mapper - SAMP
Mensagens : 41
Moedas : 2585
Data de inscrição : 22/12/2017
Idade : 24
Localização : MG

Mensagem nº9

Re: Criador de radar de velocidade

por otaviotm Seg 12 Fev 2018 - 3:06

fatal error 100: cannot read from file: ""

Compilation aborted.Pawn compiler 3.2.3664 Copyright (c) 1997-2006, ITB CompuPhase

1 Error.

Criador de radar de velocidade Usuariowindows7

Meu Servidor no Discord : [url=https://discord.gg/bhfZWCs2md]Acesse[/url]

Meu Canal No Youtube : [url=https://www.youtube.com/@OTAVIOTM]Acesse[/url]

๖̶ۣۜ͡๖ۣۜℛყaɳƶเฑL✞

๖̶ۣۜ͡๖ۣۜℛყaɳƶเฑL✞: --> Postador Iniciante; Steam : ๖̶ۣۜ͡๖ۣۜℛყaɳƶเฑL✞
Zello : ๖̶ۣۜ͡๖ۣۜℛყaɳƶเฑL✞
Celular : 88950527g
Mensagens : 28
Moedas : 2544
Data de inscrição : 21/01/2018
Idade : 22
Localização : ๖̶ۣۜ͡๖ۣۜBrasil㋡

Mensagem nº10

Re: Criador de radar de velocidade

por ๖̶ۣۜ͡๖ۣۜℛყaɳƶเฑL✞ Seg 12 Fev 2018 - 13:12

Este erro está acontecendo é porque vcs não tem a include que precisa para filter script, vou le ajudar melhor vou colocar todas as includer aki para vcs colocar na pasta de includes dentro da pasta pawno!

includes:

ZCMD

Clique Aki!!

SSCANF

Clique Aki!!

DOF2

Clique Aki!!

Bom estar ai se ajudei não de nada e vlw!

| Se |

★----------------------★

| Sentindo! |

★----------------------★

| Solitario! |

★----------------------★

| Sempre! |

~~Um prazer estar aki!~~

por otaviotm Ter 13 Fev 2018 - 10:29

otaviotm

otaviotm: --> Postador Iniciante; Steam : otaviotm18
Zello : Scripter - Mapper - SAMP
Mensagens : 41
Moedas : 2585
Data de inscrição : 22/12/2017
Idade : 24
Localização : MG