Advertisement
Guest User

Untitled

a guest
Jun 30th, 2012
1,307
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 2.72 KB | None | 0 0
  1. #include <a_samp>
  2. #include <zcmd>
  3. #include <sscanf>
  4.  
  5. #define FILTERSCRIPT
  6. #if defined FILTERSCRIPT
  7. #endif
  8.  
  9. #define Vermelho 0xFF0000FF
  10.  
  11. new
  12.     IDVeiculo,
  13.     CorVeiculo,
  14.     CorVeiculo2,
  15.     IDCarro[MAX_PLAYERS],
  16.     bool:VeiculoCriado[MAX_PLAYERS],
  17.     Float:p1x,
  18.     Float:p1y,
  19.     Float:p1z,
  20.     Float:SetVPos[3]
  21. ;
  22.  
  23. public OnFilterScriptInit()
  24. {
  25.     printf("Sistema de Criação De Veículos Via Comando By: .FuneraL. - Ligado");
  26.     return 1;
  27. }
  28.  
  29. public OnFilterScriptExit()
  30. {
  31.     printf("Sistema de Criação De Veículos Via Comando By: .FuneraL. - Desligado");
  32.     return 1;
  33. }
  34.  
  35. public OnPlayerDisconnect(playerid, reason)
  36. {
  37.     DestroyVehicle(IDCarro[playerid]);
  38.     VeiculoCriado[playerid] = false;
  39.     return 1;
  40. }
  41.    
  42.  
  43. CMD:v(playerid, params[])
  44. {
  45.     if(sscanf(params, "ddd", IDVeiculo, CorVeiculo, CorVeiculo2)) return SendClientMessage(playerid, Vermelho, "USO: /v [ID Veiculo] [Cor1] [Cor2]");
  46.     if(IDVeiculo < 400 || IDVeiculo > 611) return SendClientMessage(playerid, Vermelho, "ID Inválido < ID's de 400 a 611 >");
  47.     if(CorVeiculo < 0 || CorVeiculo > 255) return SendClientMessage(playerid, Vermelho, "COR Inválida < Cores de 0 a 255 >");
  48.     if(CorVeiculo2 < 0 || CorVeiculo2 > 255) return SendClientMessage(playerid, Vermelho, "COR2 Inválida < Cores de 0 a 255 >");
  49.     if(VeiculoCriado[playerid] == true) return SendClientMessage(playerid, Vermelho, "Você já Possui um Veículo Criado, Use /deletarveiculo");
  50.     GetPlayerPos(playerid, p1x, p1y, p1z);
  51.     IDCarro[playerid] = CreateVehicle(IDVeiculo, p1x, p1y, p1z+5, 0.0, CorVeiculo, CorVeiculo2, 60000);
  52.     PutPlayerInVehicle(playerid, IDCarro[playerid], 0);
  53.     SetVehicleVirtualWorld(IDCarro[playerid], GetPlayerVirtualWorld(playerid));
  54.     LinkVehicleToInterior(IDCarro[playerid], GetPlayerInterior(playerid));
  55.     VeiculoCriado[playerid] = true;
  56.     SendClientMessage(playerid, Vermelho, "Você Criou um Veiculo, Para Deleta-lo Utilize: /deletarveiculo!");
  57.     return 1;
  58. }
  59. CMD:trazerveiculo(playerid)
  60. {
  61.     if(VeiculoCriado[playerid] == false) return SendClientMessage(playerid, Vermelho, "Você Não Criou um Veículo!");
  62.     GetPlayerPos(playerid, SetVPos[0], SetVPos[1], SetVPos[2]);
  63.     SetVehiclePos(IDCarro[playerid], SetVPos[0], SetVPos[1], SetVPos[2]);
  64.     SendClientMessage(playerid, Vermelho, "Você Trouxe Seu Veículo Até Você!");
  65.     return 1;
  66. }
  67. CMD:deletarveiculo(playerid)
  68. {
  69.     if(!IsPlayerInAnyVehicle(playerid)) return SendClientMessage(playerid, Vermelho, "Você Não Está em um Veículo!");
  70.     if(VeiculoCriado[playerid] == false) return SendClientMessage(playerid, Vermelho, "Você Não Criou um Veículo!");
  71.     DestroyVehicle(IDCarro[playerid]);
  72.     VeiculoCriado[playerid] = false;
  73.     SendClientMessage(playerid, Vermelho, "Você Deletou Seu Veículo Com Sucesso, Para Cria-lo Novamente, Use /v!");
  74.     return 1;
  75. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement