Szerző Téma: Jelszavas Kapu (Kezdõknek)  (Megtekintve 2932 alkalommal)

Nem elérhető BoOy

  • 3209
  • 2013-as év szkriptere
    • Profil megtekintése
Jelszavas Kapu (Kezdõknek)
« Dátum: 2013. Június 18. - 23:30:45 »
+19 Show voters
Hali. Kezdõknek csináltam egy jelszavas kaput az Area51 környékén ami magától zárul be.


//---- . Jelszavas Ajtó Area51 környékén (kezdõknek). Készítette: BoOy
#include <a_samp>
#include <zcmd>
#define DIALOG_PASS 3423
#define JELSZO \"Példa1345\" //Írd be a tetszõleges jelszavadat...
new Kapu;
new checkpick1;
new checkpick2;
new Nyitva;
public OnFilterScriptInit()
{
    Kapu = CreateObject(971, 213.86644, 1875.39343, 12.16784,   0.00000, 0.00000, 0.00000);
CreateObject(2886, 209.83719, 1876.43262, 13.58393,   0.00000, 0.00000, 90.00000);
    CreateObject(2886, 209.46373, 1874.66895, 13.58390,   0.00000, 0.00000, 0.00000);
checkpick1 = CreatePickup(1239, 2,209.50102, 1873.96338, 12.99174);
checkpick2 = CreatePickup(1239, 2,210.32538, 1876.55420, 12.99174);
return 1;
}
public OnFilterScriptExit()
{
return 1;
}
public OnPlayerPickUpPickup(playerid, pickupid)
{
    if(pickupid == checkpick1 || pickupid == checkpick2)
{
    ShowPlayerDialog(playerid,DIALOG_PASS,DIALOG_STYLE_PASSWORD,\"Jelszavas Ajtó\",\"Az ajtó zárva! Kérlek írd be a jelszót!\",\"Megad\",\"Mégse\");
}
}
public OnPlayerUpdate(playerid)
{
if(Nyitva == 1)
{
   if(!IsPlayerInRangeOfPoint(playerid, 3.0, 210.6729,1876.1299,13.1406))
   {
      MoveObject(Kapu,213.86644, 1875.39343,12.16784,2);
      Nyitva = 0;
      return 1;
   }
}
return 1;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == DIALOG_PASS)
{
    if(response)
    {
        if(Check(playerid,inputtext))
        {
            SendClientMessage(playerid,-1,\"Jelszó megadva! Sikeres belépés..\");
      MoveObject(Kapu,213.86644, 1875.39343,6.3958,1.5);
      Nyitva = 1;
   }
   else
   {
       ShowPlayerDialog(playerid,DIALOG_PASS,DIALOG_STYLE_PASSWORD,\"Jelszavas Ajtó\",\"HIBA: Rossz jelszót adtál meg!\",\"Megad\",\"Mégse\");
   }
}
    return 1;
}
return 1;
}
forward Check(playerid, const password[]);
public Check(playerid, const password[])
{
if(!strcmp(password, JELSZO, false)) return 1;
return 0;
}

Nem elérhető instant

  • 2778
  • ZzzzzZ
    • Profil megtekintése
Jelszavas Kapu (Kezdõknek)
« Válasz #1 Dátum: 2013. Június 19. - 09:54:50 »
0 Show voters
Szép lett grat

Nem elérhető KR3W

  • 395
  • #weekendcup - irc.
    • Profil megtekintése
Jelszavas Kapu (Kezdõknek)
« Válasz #2 Dátum: 2013. Június 19. - 10:22:47 »
0 Show voters
tesztelve!
nagyon jól jön a kezdõknek!  ;)

Jelszavas Kapu (Kezdõknek)
« Válasz #3 Dátum: 2013. Június 19. - 11:49:46 »
0 Show voters
Megy a plusz

Jelszavas Kapu (Kezdõknek)
« Válasz #4 Dátum: 2013. Június 19. - 12:37:11 »
0 Show voters
Ment a (+)  :)

Nem elérhető BoOy

  • 3209
  • 2013-as év szkriptere
    • Profil megtekintése
Jelszavas Kapu (Kezdõknek)
« Válasz #5 Dátum: 2013. Június 19. - 12:41:19 »
0 Show voters
Köszönöm mindenkinek :)

Nem elérhető Mower

  • 167
    • Profil megtekintése
Jelszavas Kapu (Kezdõknek)
« Válasz #6 Dátum: 2013. Június 19. - 13:17:24 »
0 Show voters
Megy a +

Nem elérhető BoOy

  • 3209
  • 2013-as év szkriptere
    • Profil megtekintése
Jelszavas Kapu (Kezdõknek)
« Válasz #7 Dátum: 2013. Június 19. - 13:36:18 »
0 Show voters
Köszi :)

Jelszavas Kapu (Kezdõknek)
« Válasz #8 Dátum: 2013. Június 19. - 17:51:08 »
0 Show voters
Megy a + :D

xD1999

  • Vendég
Jelszavas Kapu (Kezdõknek)
« Válasz #9 Dátum: 2013. Június 19. - 19:32:58 »
0 Show voters
Nagyon teccik ment a +

Nem elérhető BoOy

  • 3209
  • 2013-as év szkriptere
    • Profil megtekintése
Jelszavas Kapu (Kezdõknek)
« Válasz #10 Dátum: 2013. Június 19. - 19:36:22 »
0 Show voters
Idézetet írta: Gyuri_Boyka date=1371657068\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"38621\" data-ipsquote-contentclass=\"forums_Topic
Megy a + :D
 

Nagyon teccik ment a +
 
[/quote]
Köszi :)

Nem elérhető Szasza

  • 388
    • Profil megtekintése
Jelszavas Kapu (Kezdõknek)
« Válasz #11 Dátum: 2013. Június 19. - 23:27:05 »
0 Show voters
és mindig módba kell átírni ha akarom változtatni? így elég gagyi

Nem elérhető Loren

  • 1401
  • Ex Moderátor
    • Profil megtekintése
Jelszavas Kapu (Kezdõknek)
« Válasz #12 Dátum: 2013. Június 20. - 07:27:14 »
0 Show voters
Idézetet írta: ZzzzzZ date=1371628490\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"38621\" data-ipsquote-contentclass=\"forums_Topic
Szép lett grat
 
Egyébként megy a plusz!

Nem elérhető BoOy

  • 3209
  • 2013-as év szkriptere
    • Profil megtekintése
Jelszavas Kapu (Kezdõknek)
« Válasz #13 Dátum: 2013. Június 20. - 09:53:43 »
0 Show voters
Köszi :)

 

SimplePortal 2.3.7 © 2008-2024, SimplePortal