Szerző Téma: AutóControl (Megtekintve 3245 alkalommal)

BoSS · « **Dátum:** 2012. március 21. - 18:24:30 »

Sziasztok.
Ezt a Scriptet tegnap elõtt küldte nekem egy srác,hogy rakjam be neki a modjába.
Beraktam neki,de gondoltam ez sok más embernek is jól jönne így felrakom ide
Amit én csináltam benne: Magyarosítottam és ZCMD-sitettem
Eredeti készítõ:Shadow
Eredeti téma: Sajnos nem tudok olyat adni,viszont feltöltöm azt a verziót amit Shadow készített.
Shadow Munkája:
Letöltõlink : http://data.hu/get/4882325/car-control.pwn
Shadow Kód:
[pawn]#define FILTERSCRIPT
#include <a_samp>
public OnFilterScriptInit()
{
print(\"Advanced Vehicle Control System - Created by Shadow\");
return 1;
}
public OnPlayerCommandText(playerid, cmdtext[])
{
if(strcmp(cmdtext,\"/vcontrol\",true)==0)
{
   if(!IsPlayerInAnyVehicle(playerid))
   {
      SendClientMessage(playerid, 0xCC0000FF, \"ERROR : You must be inside a vehicle to use this command.\");
   }
   else
   {
      ShowPlayerDialog(playerid, 1, DIALOG_STYLE_LIST, \"Control\", \"Lighting ( On/Off )\\nBonnect ( Open/Close )\\nBoot/Trunk ( Open/Close )\\nDoors ( Open/Close )\\nEngine ( On/Off )\\nAlarm ( On/Off )\\nSet Licence Plate\", \"Select\", \"Cancel\");
   }
   return 1;
}
if(strcmp(cmdtext, \"/spawncar\", true) == 0)
{
new Float:x, Float:y, Float:z;
GetPlayerPos(playerid, x, y, z);
   AddStaticVehicle(420, x, y, z, 0, 1, 1);
   return 1;
}
return 0;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
new veh = GetPlayerVehicleID(playerid);
new engine,lights,alarm,doors,bonnet,boot,objective;
if(dialogid == 1)
{
   if(!response) return SendClientMessage(playerid, 0xCC0000FF, \"INFORMATION : You pressed Cancel\");
   switch(listitem)
{
case 0:
{
         if(GetPVarInt(playerid, \"Lights\") == 0)
         {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,engine,VEHICLE_PARAMS_ON,alarm,doors,bonnet,boot,objective);
            SetPVarInt(playerid, \"Lights\", 1);
         }
         else if(GetPVarInt(playerid, \"Lights\") == 1)
         {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,engine,VEHICLE_PARAMS_OFF,alarm,doors,bonnet,boot,objective);
            SetPVarInt(playerid, \"Lights\", 0);
         }
      }
      case 1:
      {
         if(GetPVarInt(playerid, \"Bonnet\") == 0)
         {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,engine,lights,alarm,doors,VEHICLE_PARAMS_ON,boot,objective);
            SetPVarInt(playerid, \"Bonnet\", 1);
         }
         else if(GetPVarInt(playerid, \"Bonnet\") == 1)
         {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,engine,lights,alarm,doors,VEHICLE_PARAMS_OFF,boot,objective);
            SetPVarInt(playerid, \"Bonnet\", 0);
         }
      }
      case 2:
      {
         if(GetPVarInt(playerid, \"Boot\") == 0)
          {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,VEHICLE_PARAMS_ON,objective);
            SetPVarInt(playerid, \"Boot\", 1);
         }
         else if(GetPVarInt(playerid, \"Boot\") == 1)
         {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,VEHICLE_PARAMS_OFF,objective);
            SetPVarInt(playerid, \"Boot\", 0);
         }
      }
      case 3:
      {
         if(GetPVarInt(playerid, \"Doors\") == 0)
          {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,engine,lights,alarm,VEHICLE_PARAMS_ON,bonnet,boot,objective);
            SetPVarInt(playerid, \"Doors\", 1);
         }
         else if(GetPVarInt(playerid, \"Doors\") == 1)
         {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,engine,lights,alarm,VEHICLE_PARAMS_OFF,bonnet,boot,objective);
            SetPVarInt(playerid, \"Doors\", 0);
         }
      }
      case 4:
      {
         if(GetPVarInt(playerid, \"Engine\") == 0)
          {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,VEHICLE_PARAMS_ON,lights,alarm,doors,bonnet,boot,objective);
            SetPVarInt(playerid, \"Engine\", 1);
         }
         else if(GetPVarInt(playerid, \"Engine\") == 1)
         {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,VEHICLE_PARAMS_OFF,lights,alarm,doors,bonnet,boot,objective);
            SetPVarInt(playerid, \"Engine\", 0);
         }
      }
      case 5:
      {
         if(GetPVarInt(playerid, \"Alarm\") == 0)
         {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,engine,lights,VEHICLE_PARAMS_ON,doors,bonnet,boot,objective);
            SetPVarInt(playerid, \"Alarm\", 1);
         }
         else if(GetPVarInt(playerid, \"Alarm\") == 1)
         {
            GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
            SetVehicleParamsEx(veh,engine,lights,VEHICLE_PARAMS_OFF,doors,bonnet,boot,objective);
            SetPVarInt(playerid, \"Alarm\", 0);
         }
      }
      case 6:
      {
         ShowPlayerDialog(playerid, 2, DIALOG_STYLE_INPUT, \"License Plate\", \"Please type your chosen number plate [A-Z, 0-9] (32 Characters Only)\", \"Set\", \"\");
      }
   }
   return 1;
}
if(dialogid == 2)
{
if(response)
{
      new Float:vX, Float:vY, Float:vZ, Float:vA;
      SetVehicleNumberPlate(veh, inputtext);
      GetVehiclePos(veh,vX,vY,vZ);
          GetVehicleZAngle(veh,vA);
       SetVehicleToRespawn(veh);
      SetVehiclePos(veh,vX,vY,vZ);
       PutPlayerInVehicle(playerid,veh,0);
    SetVehicleZAngle(veh,vA);
   }
   return 1;
}
return 0;
}[/pawn]

BosS Munkája:
Letöltõlink : http://data.hu/get/4882334/vcontrol.pwn
BosS Kód

#include <a_samp>
#include <zcmd>
#define FILTERSCRIPT
 
CMD:vcontrol(playerid, params[])
{
   if(!IsPlayerInAnyVehicle(playerid))
{
   SendClientMessage(playerid, 0xCC0000FF, \"Hiba: Nem ülsz autóban!\");
   }
    else
    {
   ShowPlayerDialog(playerid, 6111, DIALOG_STYLE_LIST, \"Autó control\", \"Világítás [be/Ki]\\nMotorháztetõ [Nyit/Zár]\\nCsomagtartó [Nyit/Zár]\\nAjtók [Nyit/Zár]\\nMotor [indít/Leállit]\\nRiasztó [be/Ki]\\nRendszám\", \"Ok\", \"Mégse\");
   }
return 1;
}
CMD:spawncar(playerid, params[])
{
new Float:x, Float:y, Float:z;
GetPlayerPos(playerid, x, y, z);
AddStaticVehicle(420, x, y, z, 0, 1, 1);
return 1;
}
 
 
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
new veh = GetPlayerVehicleID(playerid);
new engine,lights,alarm,doors,bonnet,boot,objective;
if(dialogid == 6111)
{
if(!response) return SendClientMessage(playerid, 0xCC0000FF, \"INFORMÁCIÓK : You pressed Cancel\");
switch(listitem)
    {
        case 0:
        {
               if(GetPVarInt(playerid, \"Fény\") == 0)
      {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,engine,VEHICLE_PARAMS_ON,alarm,doors,bonnet,boot,objective);
         SetPVarInt(playerid, \"Fény\", 1);
      }
      else if(GetPVarInt(playerid, \"Fény\") == 1)
      {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,engine,VEHICLE_PARAMS_OFF,alarm,doors,bonnet,boot,objective);
         SetPVarInt(playerid, \"Fény\", 0);
      }
   }
   case 1:
   {
      if(GetPVarInt(playerid, \"Motorháztetõ\") == 0)
      {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,engine,lights,alarm,doors,VEHICLE_PARAMS_ON,boot,objective);
         SetPVarInt(playerid, \"Motorháztetõ\", 1);
      }
      else if(GetPVarInt(playerid, \"Motorháztetõ\") == 1)
      {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,engine,lights,alarm,doors,VEHICLE_PARAMS_OFF,boot,objective);
         SetPVarInt(playerid, \"Motorháztetõ\", 0);
      }
   }
   case 2:
   {
      if(GetPVarInt(playerid, \"Csomagtartó\") == 0)
          {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,VEHICLE_PARAMS_ON,objective);
         SetPVarInt(playerid, \"Csomagtartó\", 1);
      }
      else if(GetPVarInt(playerid, \"Csomagtartó\") == 1)
      {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,VEHICLE_PARAMS_OFF,objective);
         SetPVarInt(playerid, \"Csomagtartó\", 0);
      }
   }
   case 3:
   {
      if(GetPVarInt(playerid, \"Ajtók\") == 0)
          {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,engine,lights,alarm,VEHICLE_PARAMS_ON,bonnet,boot,objective);
         SetPVarInt(playerid, \"Ajtók\", 1);
      }
      else if(GetPVarInt(playerid, \"Ajtók\") == 1)
      {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,engine,lights,alarm,VEHICLE_PARAMS_OFF,bonnet,boot,objective);
         SetPVarInt(playerid, \"Ajtók\", 0);
      }
   }
   case 4:
   {
      if(GetPVarInt(playerid, \"Motor\") == 0)
          {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,VEHICLE_PARAMS_ON,lights,alarm,doors,bonnet,boot,objective);
         SetPVarInt(playerid, \"Motor\", 1);
      }
      else if(GetPVarInt(playerid, \"Motor\") == 1)
      {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,VEHICLE_PARAMS_OFF,lights,alarm,doors,bonnet,boot,objective);
         SetPVarInt(playerid, \"Motor\", 0);
      }
   }
   case 5:
   {
      if(GetPVarInt(playerid, \"Riasztó\") == 0)
      {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,engine,lights,VEHICLE_PARAMS_ON,doors,bonnet,boot,objective);
         SetPVarInt(playerid, \"Riasztó\", 1);
      }
      else if(GetPVarInt(playerid, \"Riasztó\") == 1)
      {
         GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);
         SetVehicleParamsEx(veh,engine,lights,VEHICLE_PARAMS_OFF,doors,bonnet,boot,objective);
         SetPVarInt(playerid, \"Riasztó\", 0);
      }
   }
   case 6:
   {
      ShowPlayerDialog(playerid, 6112, DIALOG_STYLE_INPUT, \"RendszámTábla\", \"Add meg a jármûved,rendszámát\", \"Ok\", \"\");
   }
}
return 1;
}
if(dialogid == 6112)
{
    if(response)
    {
   new Float:vX, Float:vY, Float:vZ, Float:vA;
   SetVehicleNumberPlate(veh, inputtext);
   GetVehiclePos(veh,vX,vY,vZ);
            GetVehicleZAngle(veh,vA);
           SetVehicleToRespawn(veh);
            SetVehiclePos(veh,vX,vY,vZ);
             PutPlayerInVehicle(playerid,veh,0);
            SetVehicleZAngle(veh,vA);
}
return 1;
}
return 0;
}

Remélem jól jön valakinek

Na Pá.

ChuckNorris · « **Válasz #1 Dátum:** 2012. március 21. - 19:23:03 »

Idézet a szabályzatból:

Idézetet írta: ChuckNorris date=1284395127\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"18872\" data-ipsquote-contentclass=\"forums_Topic

Script tárolása:
Kérek mindenkit, hogy mostantól a scriptet/függvénykönyvtárat ne csupán feltöltse egy fájlmegosztó oldalra, hanem a fórumra is másolja fel [ code][ /code] tagek közé!

Erre azért van szükség, mert míg egy-egy fájlmegosztó megszûnik/bezárják, rengeteg script eltûnik!

Ha a script használ olyan függvénykönyvtárat, ami nincsen fent a fórumon, akkor annak külön témát kell nyitni, és belinkelni a scriptet publikáló témában! (A függvénykönyvtárakat is másoljuk fel)

A több tízezer soros módokat nem fogjátok tudni kirakni code tagekkel sem. Kérlek ezeket a scripteket (Fõleg RP módok) a http://pastebin.com/ -ra tegyétek fel kötelezõen, ne a fórumra.

Kérlek titeket, a fórumra másoljátok fel a kódot,ténylegesen, tehát pastebin és társai nem jók.

Illetve megemlítenék pár megbízhatóbb fájlmegosztót, ahova szintén nem árt feltölteni a scriptet (és annak tartozékait), a felmásolás mellett:

Nagyon ajánlott: http://pastebin.com/

http://solidfiles.com/

http://www.mediafire.com/

Kérlek pótold.

Flash · « **Válasz #2 Dátum:** 2012. március 22. - 06:49:40 »

Szép script, de ez: #define FILTERSCRIPT nem kelll szerintem bele.

Dead · « **Válasz #3 Dátum:** 2012. március 22. - 07:22:52 »

solidfiles plase

BoSS · « **Válasz #4 Dátum:** 2012. március 22. - 17:22:15 »

solidfiles-re nem tudom valamiért feltölteni,de ott a kód részlet \"BosS Kód\" azt bemásolod egy pawnoba és Csá

de próbálkozok még a solidfiles-el háta seikerül feltölteni.

Neon · « **Válasz #5 Dátum:** 2012. május 13. - 12:50:57 »

Zsir munka lett grat

DjMark · « **Válasz #6 Dátum:** 2012. május 14. - 18:08:36 »

ez kellet a szerromba

FastFurious · « **Válasz #7 Dátum:** 2012. május 14. - 18:34:55 »

O_o ezt a scriptet én magyarositottam csak õ rakta még rég bele az én modomba!

BoSS · « **Válasz #8 Dátum:** 2012. május 14. - 19:12:08 »

Idézetet írta: FastFurious date=1337013295\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"18872\" data-ipsquote-contentclass=\"forums_Topic

O_o ezt a scriptet én magyarositottam csak õ rakta még rég bele az én modomba!

1:Ha végig olvasnád leírtam hogy beraktam egy srácnak azaz neked nem írtam oda a neved....
2:Lehet Te is lemagyarosítottad miután beraktam neked,de én nekem Angolul küldted el...
3:ZCMD-be nem Te raktad át??? xDDD
Szánalmas vagy mindenhol meg próbálsz belém kötni...
Na By ..

Alvin · « **Válasz #9 Dátum:** 2012. május 16. - 14:13:40 »

nekem tetszik

Fuuuhead · « **Válasz #10 Dátum:** 2012. május 16. - 18:58:17 »

Ejjj,mindig tudjátok,mi kell nekem! Csak keresni kell

Puszi,puszi!!
Üdv, Fuuuhead

BoSS · « **Válasz #11 Dátum:** 2012. május 16. - 20:15:11 »

Köszönöm,örülök ha hasznát veszítek

Fuuuhead · « **Válasz #12 Dátum:** 2012. május 16. - 20:18:08 »

BoSS,igen,pont jól jött..

És jól sikerült!!

Csak így tovább!

Üdv, Fuuuhead

BoSS · « **Válasz #13 Dátum:** 2012. május 16. - 20:19:59 »

Idézetet írta: Fuuuhead date=1337192288\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"18872\" data-ipsquote-contentclass=\"forums_Topic

BoSS,igen,pont jól jött..

És jól sikerült!!

Csak így tovább!

Üdv, Fuuuhead

Ezt a scriptet csak zcmd-be raktam és magyarosítottam végül is nem én írtam,de örülök ha jól jött :)Azért raktam fel!

Neon · « **Válasz #14 Dátum:** 2012. május 13. - 12:50:57 »

Zsir munka lett grat