Szerző Téma: Sziréna neon  (Megtekintve 2729 alkalommal)

Sziréna neon
« Dátum: 2012. március 15. - 21:46:21 »
+1 Show voters
Csináltam egy olyat,hogy ha beirjuk,hogy /sziréna bejön egy dialog és az admin tud rakni a kocsira szirénát de le is tudja venni..
Script:
 
#include <a_samp>
#include ladmin
#define hiba    0xFF0000AA
public OnFilterScriptInit()
{
print(\"\\n************************************\");
print(\"         Sziréna Betöltve       \");
print(\"************************************\\n\");
return 1;
}
public OnFilterScriptExit()
{
print(\"\\n***************************************\");
print(\"         Sziréna Kikapcsolva         \");
print(\"***************************************\\n\");
return 1;
}
 
public OnPlayerCommandText(playerid, cmdtext[])
{
if(strcmp(cmdtext, \"/sziréna\", true)==0)
{
  if(IsPlayerLuxAdmin(playerid))
{
    ShowPlayerDialog(playerid, 8899, DIALOG_STYLE_LIST, \"Sziréna System By Yakuza\", \"Sziréna\\nSziréna törlése\", \"Kiválaszt\", \"Kilépés\");
}
else
{
SendClientMessage(playerid, hiba, \"Nem vagy rendszervezet tagja!\");
}
return 1;
}
return 0;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == 8899)
{
if(response)
{
   if(listitem == 0)
   {
      SetPVarInt(playerid, \"Status\", 1);
            SetPVarInt(playerid, \"undercover\", CreateObject(18646,0,0,0,0,0,0));
            SetPVarInt(playerid, \"undercover1\", CreateObject(18646,0,0,0,0,0,0));
            AttachObjectToVehicle(GetPVarInt(playerid, \"undercover\"), GetPlayerVehicleID(playerid), -0.5, -0.2, 0.8, 2.0, 2.0, 3.0);
            AttachObjectToVehicle(GetPVarInt(playerid, \"undercover1\"), GetPlayerVehicleID(playerid), -0.5, -0.2, 0.8, 2.0, 2.0, 3.0);
            SendClientMessage(playerid, 0x00FFFFAA, \"Sziréna felrakva!\");
   }
   if(listitem == 1)
   {
            DestroyObject(GetPVarInt(playerid, \"undercover\"));
            DeletePVar(playerid, \"Status\");
            DestroyObject(GetPVarInt(playerid, \"undercover1\"));
            DeletePVar(playerid, \"Status\");
          }
}
}
return 0;
}

 
Civil is tudja használni:
 
#include <a_samp>
#include ladmin
#define hiba    0xFF0000AA
public OnFilterScriptInit()
{
print(\"\\n************************************\");
print(\"         Sziréna Betöltve       \");
print(\"************************************\\n\");
return 1;
}
public OnFilterScriptExit()
{
print(\"\\n***************************************\");
print(\"         Sziréna Kikapcsolva         \");
print(\"***************************************\\n\");
return 1;
}
 
public OnPlayerCommandText(playerid, cmdtext[])
{
if(strcmp(cmdtext, \"/sziréna\", true)==0)
    ShowPlayerDialog(playerid, 8899, DIALOG_STYLE_LIST, \"Sziréna System By Yakuza\", \"Sziréna\\nSziréna törlése\", \"Kiválaszt\", \"Kilépés\");
}
return 1;
}
return 0;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == 8899)
{
if(response)
{
   if(listitem == 0)
   {
      SetPVarInt(playerid, \"Status\", 1);
            SetPVarInt(playerid, \"undercover\", CreateObject(18646,0,0,0,0,0,0));
            SetPVarInt(playerid, \"undercover1\", CreateObject(18646,0,0,0,0,0,0));
            AttachObjectToVehicle(GetPVarInt(playerid, \"undercover\"), GetPlayerVehicleID(playerid), -0.5, -0.2, 0.8, 2.0, 2.0, 3.0);
            AttachObjectToVehicle(GetPVarInt(playerid, \"undercover1\"), GetPlayerVehicleID(playerid), -0.5, -0.2, 0.8, 2.0, 2.0, 3.0);
            SendClientMessage(playerid, 0x00FFFFAA, \"Sziréna felrakva!\");
   }
   if(listitem == 1)
   {
            DestroyObject(GetPVarInt(playerid, \"undercover\"));
            DeletePVar(playerid, \"Status\");
            DestroyObject(GetPVarInt(playerid, \"undercover1\"));
            DeletePVar(playerid, \"Status\");
          }
}
}
return 0;
}

 
Valakinek jól jöhet :D
Edit:
ladmin.inc
http://solidfiles.com/d/bc5089d7c9/
« Utoljára szerkesztve: 2012. március 16. - 11:00:48 írta Yakuza™ »

Nem elérhető Dead

  • 2045
    • Profil megtekintése
Sziréna neon
« Válasz #1 Dátum: 2012. március 15. - 21:56:52 »
0 Show voters
Jó!
Off: de mi az az ladmin.inc?  xd  sztem linkeld meg.

Sziréna neon
« Válasz #2 Dátum: 2012. március 16. - 09:36:51 »
0 Show voters
Köszönöm,hogy szóltál!
Itt a link:
ladmin.inc letöltés

Sziréna neon
« Válasz #3 Dátum: 2012. március 16. - 09:44:08 »
0 Show voters
Ez egy neon scriptbõl vett részlet, mivel a neon scriptbe is így van az 1-ikbe talán.

Sziréna neon
« Válasz #4 Dátum: 2012. március 16. - 09:56:53 »
0 Show voters
Idézetet írta: lackos888 date=1331887448\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"18561\" data-ipsquote-contentclass=\"forums_Topic
Ez egy neon scriptbõl vett részlet, mivel a neon scriptbe is így van az 1-ikbe talán.
 
Viszont van akinek így kell!

Nem elérhető CANNONN

  • 2139
    • Profil megtekintése
Sziréna neon
« Válasz #5 Dátum: 2012. március 16. - 10:56:14 »
+1 Show voters
A második kódba nem kell az if(IsPlayerLuxAdmin(playerid)).
Amúgy jó lett!

SuBaRu

  • Vendég
Sziréna neon
« Válasz #6 Dátum: 2012. március 16. - 10:57:49 »
0 Show voters
nekem tetszik jo :)

Sziréna neon
« Válasz #7 Dátum: 2012. március 16. - 11:01:45 »
0 Show voters
Cannonn javítva! :)
Akkor jó ha tetszik.

Nem elérhető Neon

  • 300
    • Profil megtekintése
Sziréna neon
« Válasz #8 Dátum: 2012. május 13. - 13:09:07 »
0 Show voters
Jó lett

Nem elérhető Neon

  • 300
    • Profil megtekintése
Sziréna neon
« Válasz #9 Dátum: 2012. május 13. - 13:09:07 »
0 Show voters
Jó lett

Nem elérhető MaRcK

Sziréna neon
« Válasz #10 Dátum: 2012. június 16. - 13:48:53 »
0 Show voters
Copyzni konnyu-.- Trucks And Trailers-rol copyztad es elsajatitottad hat ugyes vagy-.-

Nem elérhető instant

  • 2778
  • ZzzzzZ
    • Profil megtekintése
Sziréna neon
« Válasz #11 Dátum: 2012. június 16. - 13:52:03 »
0 Show voters
Idézetet írta: MaRcK date=1339847333\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"18561\" data-ipsquote-contentclass=\"forums_Topic
Copyzni konnyu-.- Trucks And Trailers-rol copyztad es elsajatitottad hat ugyes vagy-.-
 
bizonyítékkal vádolj + így magába is könnyû megcsinálni

Sziréna neon
« Válasz #12 Dátum: 2012. június 16. - 13:57:36 »
0 Show voters
én csak ennyit mondok:
 
Re:Sziréna neon
« Válasz #8 Dátum: 2012. Május 13. 13:09:07 »

 
és ha már ittjárok, 8 millió 1 ezer ilyen neon script van amiben benne van, szal nehéz lenne kideríteni \"HA COPY\" h honnan szedte ki

Kovacs_Bela

  • Vendég
Sziréna neon
« Válasz #13 Dátum: 2012. június 16. - 16:33:58 »
0 Show voters
szerintem ez is olyan mint amit a tesóm már egyszer kitalált ;)
http://forum.sa-mp.com/showthread.php?t=343224

Sziréna neon
« Válasz #14 Dátum: 2012. június 16. - 16:52:32 »
0 Show voters
Idézetet írta: danix99 date=1339857238\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"18561\" data-ipsquote-contentclass=\"forums_Topic
szerintem ez is olyan mint amit a tesóm már egyszer kitalált ;)
http://forum.sa-mp.com/showthread.php?t=343224
 
csak az kicsit komolyabb :D

 

SimplePortal 2.3.7 © 2008-2024, SimplePortal