1. SA-MP Forums Archive
  2. Non-English
  3. Languages
  4. Português/Portuguese

Threaded Mode
[Ajuda] sistema de radar! me ajudem pf
GustavoG3D
Big Clucker
***
Posts: 189
Threads: 84
Joined: Dec 2013
Reputation: 0
#1

27.12.2013, 21:19
Ajuda FS de radar!!


Bem tavo pesquisando na net e achei esse FS dahora
Achei 1 Fs de radar
dai alguem passa da velocidade Aparece
Voce passo do limite de velocidade e foi multado
Nгo perde dinheiro e nada sу aparece isso!
tem como alguem colocar pra ir pro dp e da /pagarmulta ?
Ficaria bem Legal!
Alguem ajuda?
Por favor! Obrigado!

SOU NOVATO NO FORUM.SA-MP.COM
Desculpem se postei algo errado!

FS


#include <a_samp>
// SISTEMA FEITO POR: DESCONHECIDO
// SISTEMA DE EDITADO E TRADUZIDO POR Pedro_Felipe - Pedro_Tilambucu
//----------------------------------------
new UpdateSeconds = 2; // Nгo Mecher
new maxobject = 4;
//----------------------------------------

public OnFilterScriptInit() {
print("\n----------------------------------");
print("[FS] Radar Automatico Carregado");
print("----------------------------------\n");
SetTimer("UpdateSpeed", UpdateSeconds*1000, 1);
}

public OnFilterScriptExit() {
print("\n----------------------------------");
print("[FS] Radar Automatico Desativado");
print("----------------------------------\n");
}
forward UpdateSpeed(playerid);
enum SavePlayerPosEnum {
Float:LastX,
Float:LastY,
Float:LastZ
}
#define COLOR_YELLOW 0xFFFF00AA
#define VERDEFRACO 0x80cf80AA
#define SLOTS 500

new objectcreated;
new SavePlayerPos[SLOTS][SavePlayerPosEnum];
new distance1[MAX_PLAYERS];


public UpdateSpeed(playerid)
{
new Float,Float:y,Float:z;
new Float:distance,value;
for(new i=0; i<SLOTS; i++)
{
if(IsPlayerConnected(i))
{
GetPlayerPos(i, x, y, z);
distance = floatsqroot(floatpower(floatabs(floatsub(x,SavePla yerPos[i][LastX])),2)+floatpower(floatabs(floatsub(y,SavePlayerPos[i][LastY])),2)+floatpower(floatabs(floatsub(z,SavePlayerPos[i][LastZ])),2));
value = floatround(distance * 3600);
if(UpdateSeconds > 1)
{
value = floatround(value / UpdateSeconds);
}
distance1[i] = floatround(value/1600);

SavePlayerPos[i][LastX] = x;
SavePlayerPos[i][LastY] = y;
SavePlayerPos[i][LastZ] = z;
/* Para colocar Coordenada no lugar que voce quer , basta colocar a Coordenada X,Y,Z no lugar dos 00000 ,
o 40 й o raio que o radar pega, e o 50 , й a velocidade maxima*/
AddFlitsPaal(i, 1278, 1476.2402,-1726.3396,13.5469, 40, 50); // Radar da DP PM
AddFlitsPaal(i, 1278, 1524.1256,-1679.0756,13.5469, 40, 50); // Prefeitura
AddFlitsPaal(i, 1278, 2048.7131,1353.5975,10.6719, 40, 50); // BANCO
AddFlitsPaal(i, 1278, 1200.9847,-1337.9875,13.3984, 40, 45); // HOSPITAL
AddFlitsPaal(i, 1278, 0000.0000,0000.0000,0000.0000, 50, 70); // VAGO
AddFlitsPaal(i, 1278, 0000.0000,0000.0000,0000.0000, 20, 50); // VAGO
AddFlitsPaal(i, 1278, 0000.0000,0000.0000,0000.0000, 20, 50); // VAGO
AddFlitsPaal(i, 1278, 0000.0000,0000.0000,0000.0000, 20, 50); // VAGO
AddFlitsPaal(i, 1278, 0000.0000,0000.0000,0000.0000, 20, 50); // VAGO
AddFlitsPaal(i, 1278, 0000.0000,0000.0000,0000.0000, 20, 50); // VAGO
}
}
}

public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
{
return 1;
}


public OnPlayerExitVehicle(playerid, vehicleid)
{
return 1;
}

IsPlayerInCircle(playerid,Float,Float:y,radius)
{
if(GetPlayerDistanceToPoint(playerid,Float,Float :y) < radius)
{
return 1;
}
return 0;
}

GetPlayerDistanceToPoint(playerid,Float,Float:y)
{
new Float1,Float:y1,Float:z1; GetPlayerPos(playerid,x1,y1,z1);
new Float:tmpdis = floatsqroot(floatpower(floatabs(floatsub(x,x1)),2) +
floatpower(floatabs(floatsub(y,y1)),2));
return floatround(tmpdis);
}

stock AddFlitsPaal(playerid, modelid, Floatx, Float:yy, Float:zz, radius, speed)
{
new fine[MAX_PLAYERS];
new str[256];

if(objectcreated!=maxobject)
{
CreateObject(modelid, xx, yy, zz, 0.0, 0.0, 10);
objectcreated++;
}
if((distance1[playerid])>speed)
{
if(IsPlayerInCircle(playerid, xx, yy, radius) && GetPlayerState(playerid)== PLAYER_STATE_DRIVER)
{
fine[playerid]=((distance1[playerid]*17/10)-speed);
GivePlayerMoney(playerid, -2000);
format(str,sizeof(str), "[RADAR xXX ] O Limite de velocidade й %d KM/H Voce Passou a %d KM/H e foi multado!",speed, distance1[playerid] ,fine[playerid]);
// Caso queira mudar o nome do radar , й so mudar o xXx pelo nome que quiser. e o -2000 й o valor da multa.
SendClientMessage(playerid, VERDEFRACO, str);
PlayerPlaySound(playerid, 1132, 0.0, 0.0, 0.0);
}
}
}
public OnPlayerCommandText(playerid, cmdtext[])
if (strcmp("/sradar", cmdtext, true, 10) == 0)
{
SendClientMessage(playerid,0x33CCFFAA,"******* SISTEMA DE RADAR ************");
SendClientMessage(playerid,0x33CCFFAA,"Existem Radar na Prefeitura, No Hospital e no DP's de Los Santos e Banco");
SendClientMessage(playerid,0x33CCFFAA,"O Limite de velocidade й entre 50 KM/H");
SendClientMessage(playerid,0x33CCFFAA,"Se vocк exceder o Limite de velocidade Nesses Locais , Levara Multa de 2000 $ ");
SendClientMessage(playerid,0xAA3333AA,"Atenciosame nte , A administraзгo.");
return 1;
}
Find
Reply
Kyl3
Big Clucker
***
Posts: 51
Threads: 12
Joined: Feb 2013
Reputation: 0
#2

27.12.2013, 21:24
"Primeiro aprenda a programar, depois comece a desenvolver algo."

Tenho certeza que ninguйm vai fazer isso para vocк por nada.

Por que em vez de ficar no CONTROL + C e V, vocк nгo vai na Wiki do SA-MP e comeзa a estudar a linguagem, sua lуgica, funзхes, plugins, e depois comeзa a fazer alguma coisa?
Find
Reply
Pablo_Mantega
Big Clucker
***
Posts: 118
Threads: 30
Joined: Jun 2012
Reputation: 0
#3

27.12.2013, 21:27
Fica mais Zika quando alguem passar no radar leva estrela ! ta ai o code sem adaptaзгo das estrelas se alguem quiser posta ta ai.
Код:
if(strcmp(cmd, "/pagarmulta", true) == 0)
	{
	    if(IsPlayerConnected(playerid))
	    {
	        if(!PlayerToPoint(4.0, playerid, 249.56, 67.87, 1003.64))
			{
	    		SendClientMessage(playerid, COLOR_GREY, "Vocк precisa estar no balcгo da DP para pagar uma multa!");
	    		return 1;
			}
			else
			{
				if(Multa[playerid] == 0)
				{
		 		   SendClientMessage(playerid, COLOR_YELLOW, "Vocк nгo tem uma multa pra pagar!");
		 		   return 1;
  				}
  				else if(Multa[playerid] == 1)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 1 multa no valor de R$100.");
	 				Multa[playerid] -= 1;
	 				GivePlayerGP(playerid, -100);
				}
				else if(Multa[playerid] == 2)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 2 multas no valor de R$200.");
	 				Multa[playerid] = 0;
	 				GivePlayerGP(playerid, -200);
				}
				else if(Multa[playerid] == 3)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 3 multas no valor de R$300.");
	 				Multa[playerid] = 0;
	 				GivePlayerGP(playerid, -300);
				}
				else if(Multa[playerid] == 4)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 4 multas no valor de R$400.");
	 				Multa[playerid] = 0;
	 				GivePlayerGP(playerid, -400);
				}
				else if(Multa[playerid] == 5)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 5 multas no valor de R$500.");
	 				Multa[playerid] = 0;
	 				GivePlayerGP(playerid, -500);
				}
				else if(Multa[playerid] == 6)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 6 multas no valor de R$600.");
	 				Multa[playerid] = 0;
	 				GivePlayerGP(playerid, -600);
				}
				else if(Multa[playerid] == 7)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 7 multas no valor de R$700.");
	 				Multa[playerid] = 0;
	 				GivePlayerGP(playerid, -700);
				}
				else if(Multa[playerid] == 8)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 8 multas no valor de R$800.");
	 				Multa[playerid] = 0;
	 				GivePlayerGP(playerid, -800);
				}
				else if(Multa[playerid] == 9)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 9 multas no valor de R$900.");
	 				Multa[playerid] = 0;
	 				GivePlayerGP(playerid, -900);
				}
				else if(Multa[playerid] == 10)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 10 multas no valor de R$1000.");
	 				Multa[playerid] = 0;
	 				GivePlayerGP(playerid, -1000);
				}
			}
		}
		return 1;
 	}
Find
Reply
GustavoG3D
Big Clucker
***
Posts: 189
Threads: 84
Joined: Dec 2013
Reputation: 0
#4

27.12.2013, 21:52
Mals sou novato ou pablo como eu posto que nen vocк?

Os codigos sou novato e nao sei pode ensinar Por favor

Obrigado Pablo!
Find
Reply
GustavoG3D
Big Clucker
***
Posts: 189
Threads: 84
Joined: Dec 2013
Reputation: 0
#5

27.12.2013, 21:57
Ou pablo deu 10 erros

C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42119) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42125) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42131) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42137) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42143) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42149) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42155) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42161) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42167) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42173) : error 017: undefined symbol "GivePlayerGP"
Pawn compiler 3.2.3664 Copyright © 1997-2006, ITB CompuPhase


10 Errors.
Find
Reply
cantiliano
Big Clucker
***
Posts: 171
Threads: 7
Joined: Jan 2013
Reputation: 0
#6

27.12.2013, 22:07
Quote:
Originally Posted by GustavoG3D
Посмотреть сообщение
Ou pablo deu 10 erros

C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42119) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42125) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42131) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42137) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42143) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42149) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42155) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42161) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42167) : error 017: undefined symbol "GivePlayerGP"
C:\Users\Samsung 2 - Gustavo\Desktop\SPS LS\gamemodes\*******RPG.pwn(42173) : error 017: undefined symbol "GivePlayerGP"
Pawn compiler 3.2.3664 Copyright © 1997-2006, ITB CompuPhase


10 Errors.
Troque GivePlayerGP

Por

GivePlayerMoney


........
Код:
if(strcmp(cmd, "/pagarmulta", true) == 0)
	{
	    if(IsPlayerConnected(playerid))
	    {
	        if(!PlayerToPoint(4.0, playerid, 249.56, 67.87, 1003.64))
			{
	    		SendClientMessage(playerid, COLOR_GREY, "Vocк precisa estar no balcгo da DP para pagar uma multa!");
	    		return 1;
			}
			else
			{
				if(Multa[playerid] == 0)
				{
		 		   SendClientMessage(playerid, COLOR_YELLOW, "Vocк nгo tem uma multa pra pagar!");
		 		   return 1;
  				}
  				else if(Multa[playerid] == 1)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 1 multa no valor de R$100.");
	 				Multa[playerid] -= 1;
	 				GivePlayerMoney(playerid, -100);
				}
				else if(Multa[playerid] == 2)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 2 multas no valor de R$200.");
	 				Multa[playerid] = 0;
	 				GivePlayerMoney(playerid, -200);
				}
				else if(Multa[playerid] == 3)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 3 multas no valor de R$300.");
	 				Multa[playerid] = 0;
	 				GivePlayerMoney(playerid, -300);
				}
				else if(Multa[playerid] == 4)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 4 multas no valor de R$400.");
	 				Multa[playerid] = 0;
	 				GivePlayerMoney(playerid, -400);
				}
				else if(Multa[playerid] == 5)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 5 multas no valor de R$500.");
	 				Multa[playerid] = 0;
	 				GivePlayerMoney(playerid, -500);
				}
				else if(Multa[playerid] == 6)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 6 multas no valor de R$600.");
	 				Multa[playerid] = 0;
	 				GivePlayerMoney(playerid, -600);
				}
				else if(Multa[playerid] == 7)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 7 multas no valor de R$700.");
	 				Multa[playerid] = 0;
	 				GivePlayerMoney(playerid, -700);
				}
				else if(Multa[playerid] == 8)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 8 multas no valor de R$800.");
	 				Multa[playerid] = 0;
	 				GivePlayerMoney(playerid, -800);
				}
				else if(Multa[playerid] == 9)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 9 multas no valor de R$900.");
	 				Multa[playerid] = 0;
	 				GivePlayerMoney(playerid, -900);
				}
				else if(Multa[playerid] == 10)
  				{
  					SendClientMessage(playerid, COLOR_YELLOW, "Vocк pagou 10 multas no valor de R$1000.");
	 				Multa[playerid] = 0;
	 				GivePlayerMoney(playerid, -1000);
				}
			}
		}
		return 1;
 	}
Find
Reply
Pablo_Mantega
Big Clucker
***
Posts: 118
Threads: 30
Joined: Jun 2012
Reputation: 0
#7

27.12.2013, 22:19
Isso Ai !
Find
Reply
GustavoG3D
Big Clucker
***
Posts: 189
Threads: 84
Joined: Dec 2013
Reputation: 0
#8

27.12.2013, 22:23
Agora como eu posto os codigos que nen voce
Find
Reply
GustavoG3D
Big Clucker
***
Posts: 189
Threads: 84
Joined: Dec 2013
Reputation: 0
#9

27.12.2013, 22:28
Alguem ajdua ai agora?
https://sampforum.blast.hk/showthread.php?tid=483828
Find
Reply
« Next Oldest | Next Newest »


Forum Jump:


Users browsing this thread: 2 Guest(s)
  1. SA-MP Forums Archive
  2. Non-English
  3. Languages
  4. Português/Portuguese