Pawno.cz • Zobrazit téma - [TuT] Marwin37 aneb Jak jsem začínal

Registrovat

Přihlásit se

FAQ

Hledat

RSS

Právě je úte 22. kvě 2012 11:17:42

Hosting WEDOS.cz
SLEVA 25% (slevový kód:PAWNO25)
Nejnovější témata:
[HELP] NHL 09 od MajkX
HRAJMINERCAFT.CZ - IndustrialCraft, BuildCraft, RedPower od MajkX
[OCHRANA] FS Control [Identifikovac hack prikazov] od Om3n
[Hlasovanie] Pridanie teamov do PICH od MajkX
[Ms 2012] NHL 2009 Remake od MajkX

Vyzkoušejte antivirus ESET Smart Security 5

Vyhledat témata bez odpovědí | Zobrazit aktivní témata Zobrazit nové příspěvky | Zobrazit vaše příspěvky

Obsah fóra » Pawno » Návody

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]

[TuT] Marwin37 aneb Jak jsem začínal

Stránka 1 z 1

[ Příspěvků: 20 ]

Verze pro tisk

Předchozí téma | Následující téma

Autor

Zpráva

Marwin37

Předmět příspěvku: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: pát 30. pro 2011 22:57:25

Kendall Johnson "Kendl"

Registrován: stř 18. úno 2009 12:34:23

Příspěvky: 2626

Marwin37 aneb Jak jsem začínal

Nevím jestli se to hodí do této sekce ale tak možná to některé úplné nováčky inspiruje jak začít s pawnem.
Když sem začínal tak jsem dělal nesmyslné scripty které nefungovali, ovšem pak jsem si z nudy začal dělat SA-MP mapy první mapa byla Podium.

První verze podia s označením 0.2 byla jen holá mapa vypadala takto

Spoiler:

Kód:

#include <a_samp>
public OnFilterScriptInit()
{
   print("\n--------------------------------------");
   print("Blank Filterscript by Marw37");
   print("--------------------------------------\n");
   CreateObject(16136,98.016,2504.016,16.000,0.0,0.0,-90.000);
   CreateObject(8556,63.423,2507.140,20.000,0.0,0.0,0.0);
   CreateObject(7020,131.602,2486.586,19.068,0.0,0.0,0.0);
   CreateObject(5130,117.914,2480.882,18.481,0.0,0.0,-495.000);
   CreateObject(1391,48.144,2246.231,157.001,0.0,0.0,0.0);
   CreateObject(1391,37.045,2246.532,158.085,0.0,0.0,0.0);
   CreateObject(2780,115.233,2491.172,22.314,0.0,0.0,0.0);
   CreateObject(2780,114.773,2513.645,22.034,0.0,0.0,0.0);
   CreateObject(18028,155.622,2509.098,25.000,0.0,0.0,180.000);
   CreateObject(1234,116.919,2502.335,22.000,0.0,0.0,-270.000);
   CreateObject(2232,116.575,2488.135,29.181,0.0,0.0,-90.000);
   CreateObject(3268,125.231,2502.303,22.034,0.0,0.0,0.0);
   CreateObject(10841,146.000,2488.000,27.046,0.0,0.0,0.0);
   CreateObject(10841,159.500,2488.000,27.046,0.0,0.0,0.0);
   CreateObject(10841,170.000,2498.595,27.046,0.0,0.0,-270.000);
   CreateObject(10841,170.000,2510.098,27.046,0.0,0.0,-270.000);
   CreateObject(10841,159.500,2521.000,27.046,0.0,0.0,-180.000);
   CreateObject(10841,146.000,2521.000,27.046,0.0,0.0,-180.000);
   CreateObject(10841,135.990,2510.098,27.046,0.0,0.0,-450.000);
   CreateObject(9241,153.563,2504.650,29.168,0.0,0.0,-180.000);
   CreateObject(5269,139.253,2491.214,24.343,0.0,0.0,-90.000);
   CreateObject(5269,155.849,2492.500,24.343,0.0,0.0,0.0);
   CreateObject(5269,151.222,2494.399,24.343,0.0,0.0,0.0);
   CreateObject(5269,146.562,2491.330,24.343,0.0,0.0,-90.000);
   CreateObject(3570,138.437,2516.079,23.382,0.0,0.0,-90.000);
   CreateObject(3570,138.386,2508.121,23.382,0.0,0.0,-90.000);
   CreateObject(3570,138.375,2501.129,23.382,0.0,0.0,-90.000);
   CreateObject(3570,138.414,2495.301,23.382,0.0,0.0,-90.000);
   CreateObject(3570,138.266,2516.568,26.080,0.0,0.0,-90.000);
   CreateObject(3570,138.223,2509.062,26.080,0.0,0.0,-90.000);
   CreateObject(3570,138.177,2502.116,26.080,0.0,0.0,-90.000);
   CreateObject(3570,138.160,2495.672,26.080,0.0,0.0,-90.000);
   CreateObject(3570,136.860,2496.402,26.131,0.0,0.0,-90.000);
   CreateObject(3566,117.012,2535.200,18.332,0.0,0.0,-258.750);
   CreateObject(3570,138.005,2516.195,27.467,0.0,0.0,-90.000);
   CreateObject(3570,137.926,2508.275,27.467,0.0,0.0,-90.000);
   CreateObject(3570,137.969,2500.412,27.467,0.0,0.0,-90.000);
   CreateObject(3570,136.649,2495.226,27.467,0.0,0.0,-90.000);
   CreateObject(3570,139.174,2495.292,27.467,0.0,0.0,-90.000);
   CreateObject(3570,139.730,2490.407,27.913,0.0,0.0,-180.000);
   CreateObject(3570,147.513,2490.392,27.913,0.0,0.0,-180.000);
   CreateObject(3570,152.095,2493.097,27.913,0.0,0.0,-270.000);
   CreateObject(3570,154.891,2493.073,27.913,0.0,0.0,-270.000);
   CreateObject(3570,153.453,2493.073,27.895,0.0,0.0,-270.000);
   CreateObject(2232,124.201,2503.580,22.632,0.0,0.0,-90.000);
   CreateObject(2232,124.215,2502.879,22.632,0.0,0.0,-90.000);
   CreateObject(2232,124.199,2505.012,22.632,0.0,0.0,-90.000);
   CreateObject(2232,124.194,2502.191,22.632,0.0,0.0,-90.000);
   CreateObject(2232,124.201,2501.476,22.632,0.0,0.0,-90.000);
   CreateObject(2232,124.206,2500.760,22.632,0.0,0.0,-90.000);
   CreateObject(2232,124.198,2500.055,22.632,0.0,0.0,-90.000);
   CreateObject(2232,124.176,2499.340,22.632,0.0,0.0,-90.000);
   CreateObject(2232,124.176,2502.471,23.832,0.0,0.0,-90.000);
   CreateObject(2232,124.128,2501.782,23.832,0.0,0.0,-90.000);
   CreateObject(2232,124.167,2501.064,23.832,0.0,0.0,-90.000);
   CreateObject(2232,124.195,2503.177,23.832,0.0,0.0,-90.000);
   CreateObject(2232,124.170,2503.883,23.832,0.0,0.0,-90.000);
   CreateObject(2232,124.123,2500.359,23.832,0.0,0.0,-90.000);
   CreateObject(1271,124.899,2502.065,22.384,0.0,0.0,0.0);
   CreateObject(1271,124.899,2501.333,22.384,0.0,0.0,0.0);
   CreateObject(1271,124.916,2502.826,22.384,0.0,0.0,0.0);
   CreateObject(1271,125.595,2502.063,22.384,0.0,0.0,0.0);
   CreateObject(1271,124.846,2502.047,23.079,0.0,0.0,0.0);
   CreateObject(3570,153.000,2490.000,28.000,-180.000,0.0,0.0);
   CreateObject(3570,153.000,2493.000,28.000,-180.000,0.0,-270.000);
   CreateObject(3570,153.000,2490.000,28.000,0.0,0.0,-180.000);
   CreateObject(3570,153.000,2494.000,28.000,0.0,0.0,-270.000);
   return 1;
}

public OnFilterScriptExit()
{
   return 1;
}

Další verzi jsem vydal pod označením 0.6 kde jsem předělal AdminOstrov XZerroIsle (jehož pwn jsem již nikde nenašel) dal jsem tam své objekty

Spoiler:

Následující verze měla označení 0.9, ve které jsem pokud si dobře pamatuji dodělal kamerový systém, ten byl taktéž převzat ze scriptu AdminOstrov XZerroIsle

Spoiler:

Verze 1.2Beta obsahovala můj první pickup který jsem podle všeho tvořil hodně dlouho

Spoiler:

Do verze s označením 1.2, předposlední kterou jsem viděl, se udělal (vlastně zkopčil z tohoto fóra z TUTu od nějaké lamy xD)

Spoiler:

Kód:

#include <a_samp>
#pragma tabsize 0

#define COLOR_GREY 0xAFAFAFAA
#define COLOR_GREEN 0x33AA33AA
#define COLOR_RED 0xAA3333AA
#define COLOR_YELLOW 0xFFFF00AA
#define COLOR_PURPLE 0x9900FFAA
#define COLOR_NAVY 0xFF0000AA
#define COLOR_WHITE 0xFFFFFFAA

new openos; // Hlavni Brana
new openth; // Pod
new danger1; // Zabespecovaci Brana1
new danger2; // Zabespecovaci Brana2
new danger3; // Zabespecovaci Brana3
new opent;  // Chodba

new hospoda1; //Warp z hospody
new hospoda2; //Warp do hospody
new alcohol; //Bar v hospode
new Menu:alcoholmenu; //Menu baru
new alkohol[MAX_PLAYERS]; //Potrebne k baru

LoopingAnim(playerid,animlib[],animname[], Float:Speed, looping, lockx, locky, lockz, lp)
{
    ApplyAnimation(playerid, animlib, animname, Speed, looping, lockx, locky, lockz, lp);
}

forward vyprchani(playerid);
forward alert(playerid);
forward cam1(playerid);
forward cam2(playerid);
forward cam3(playerid);
forward cam4(playerid);
forward cam5(playerid);
forward cam6(playerid);
forward camexit(playerid);

public OnFilterScriptInit() {
   print("\n----------------------------------");
   print("Podium Created by Marw37");
   print("----------------------------------\n");
}

public OnGameModeInit()
{

//
CreateObject(16136,98.016,2504.016,16.000,0.0,0.0,-90.000);
CreateObject(8556,63.423,2507.140,20.000,0.0,0.0,0.0);
CreateObject(7020,131.602,2486.586,19.068,0.0,0.0,0.0);
CreateObject(5130,117.914,2480.882,18.481,0.0,0.0,-495.000);
CreateObject(1391,48.144,2246.231,157.001,0.0,0.0,0.0);
CreateObject(1391,37.045,2246.532,158.085,0.0,0.0,0.0);
CreateObject(2780,115.233,2491.172,22.314,0.0,0.0,0.0);
CreateObject(2780,114.773,2513.645,22.034,0.0,0.0,0.0);
CreateObject(18028,155.622,2509.098,25.000,0.0,0.0,180.000);
CreateObject(1234,116.919,2502.335,22.000,0.0,0.0,-270.000);
CreateObject(3268,125.231,2502.303,22.034,0.0,0.0,0.0);
CreateObject(10841,146.000,2488.000,27.046,0.0,0.0,0.0);
CreateObject(10841,159.500,2488.000,27.046,0.0,0.0,0.0);
CreateObject(10841,170.000,2498.595,27.046,0.0,0.0,-270.000);
CreateObject(10841,170.000,2510.098,27.046,0.0,0.0,-270.000);
CreateObject(10841,159.500,2521.000,27.046,0.0,0.0,-180.000);
CreateObject(10841,146.000,2521.000,27.046,0.0,0.0,-180.000);
CreateObject(10841,135.990,2510.098,27.046,0.0,0.0,-450.000);
CreateObject(9241,153.563,2504.650,29.168,0.0,0.0,-180.000);
CreateObject(5269,139.253,2491.214,24.343,0.0,0.0,-90.000);
CreateObject(5269,155.849,2492.500,24.343,0.0,0.0,0.0);
CreateObject(5269,151.222,2494.399,24.343,0.0,0.0,0.0);
CreateObject(5269,146.562,2491.330,24.343,0.0,0.0,-90.000);
CreateObject(3570,138.437,2516.079,23.382,0.0,0.0,-90.000);
CreateObject(3570,138.386,2508.121,23.382,0.0,0.0,-90.000);
CreateObject(3570,138.375,2501.129,23.382,0.0,0.0,-90.000);
CreateObject(3570,138.414,2495.301,23.382,0.0,0.0,-90.000);
CreateObject(3570,138.266,2516.568,26.080,0.0,0.0,-90.000);
CreateObject(3570,138.223,2509.062,26.080,0.0,0.0,-90.000);
CreateObject(3570,138.177,2502.116,26.080,0.0,0.0,-90.000);
CreateObject(3570,138.160,2495.672,26.080,0.0,0.0,-90.000);
CreateObject(3570,136.860,2496.402,26.131,0.0,0.0,-90.000);
CreateObject(3566,117.012,2535.200,18.332,0.0,0.0,-258.750);
CreateObject(3570,138.005,2516.195,27.467,0.0,0.0,-90.000);
CreateObject(3570,137.926,2508.275,27.467,0.0,0.0,-90.000);
CreateObject(3570,137.969,2500.412,27.467,0.0,0.0,-90.000);
CreateObject(3570,136.649,2495.226,27.467,0.0,0.0,-90.000);
CreateObject(3570,139.174,2495.292,27.467,0.0,0.0,-90.000);
CreateObject(3570,139.730,2490.407,27.913,0.0,0.0,-180.000);
CreateObject(3570,147.513,2490.392,27.913,0.0,0.0,-180.000);
CreateObject(3570,152.095,2493.097,27.913,0.0,0.0,-270.000);
CreateObject(3570,154.891,2493.073,27.913,0.0,0.0,-270.000);
CreateObject(3570,153.453,2493.073,27.895,0.0,0.0,-270.000);
CreateObject(1491,152.793,2498.343,22.808,0.0,0.0,0.0);
CreateObject(1508,154.811,2494.114,23.693,0.0,0.0,-90.000);
CreateObject(1665,155.686,2507.695,23.878,0.0,0.0,-67.500);
CreateObject(1668,158.343,2507.713,24.034,0.0,0.0,-22.500);
CreateObject(1546,157.992,2507.753,23.956,0.0,0.0,0.0);
CreateObject(1546,159.158,2512.203,24.027,0.0,0.0,0.0);
CreateObject(1546,159.321,2510.499,24.027,0.0,0.0,0.0);
CreateObject(1546,159.458,2511.122,24.027,0.0,0.0,0.0);
CreateObject(3570,153.000,2490.000,28.000,-180.000,0.0,0.0);
CreateObject(3570,153.000,2493.000,28.000,-180.000,0.0,-270.000);
CreateObject(3570,153.000,2490.000,28.000,0.0,0.0,-180.000);
CreateObject(3570,153.000,2494.000,28.000,0.0,0.0,-270.000);
CreateObject(2232,124.201,2503.580,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.215,2502.879,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.199,2505.012,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.194,2502.191,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.201,2501.476,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.206,2500.760,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.198,2500.055,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.176,2499.340,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.176,2502.471,23.832,0.0,0.0,-90.000);
CreateObject(2232,124.128,2501.782,23.832,0.0,0.0,-90.000);
CreateObject(2232,124.167,2501.064,23.832,0.0,0.0,-90.000);
CreateObject(2232,124.195,2503.177,23.832,0.0,0.0,-90.000);
CreateObject(2232,124.170,2503.883,23.832,0.0,0.0,-90.000);
CreateObject(2232,124.230,2504.295,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.123,2500.359,23.832,0.0,0.0,-90.000);
CreateObject(3570,139.000,2490.000,28.000,-180.000,0.0,0.0);
CreateObject(3570,146.000,2490.000,28.000,-180.000,0.0,0.0);
CreateObject(3570,146.000,2490.000,28.000,0.0,0.0,-180.000);
CreateObject(3570,153.000,2490.000,28.000,-180.000,0.0,0.0);
CreateObject(3570,153.000,2493.000,28.000,-180.000,0.0,-270.000);
CreateObject(3570,153.000,2490.000,28.000,0.0,0.0,-180.000);
CreateObject(3570,153.000,2494.000,28.000,0.0,0.0,-270.000);
CreateObject(1684,129.000,2526.000,17.350,0.0,0.0,-90.000);
CreateObject(1684,129.000,2526.000,20.380,0.0,0.0,-90.000);
CreateObject(5706,142.256,2474.294,21.197,0.0,0.0,0.0);
CreateObject(1271,124.899,2502.065,22.384,0.0,0.0,0.0);
CreateObject(1271,124.899,2501.333,22.384,0.0,0.0,0.0);
CreateObject(1271,124.916,2502.826,22.384,0.0,0.0,0.0);
CreateObject(1271,125.595,2502.063,22.384,0.0,0.0,0.0);
CreateObject(1271,124.846,2502.047,23.079,0.0,0.0,0.0);

//
openos = CreateObject(971,75.777,2507.170,19.000,0.0,0.0,-450.000);
openth = CreateObject(971,118.816,2486.353,24.092,0.0,0.0,-540.000);
opent = CreateObject(988,134.664,2490.088,23.073,0.0,0.0,-90.000);
danger1 = CreateObject(8210,73.092,2502.020,9.000,0.0,0.0,-450.000);
danger2 = CreateObject(8210,100.000,2529.151,9.000,0.0,0.0,-540.000);
danger3 = CreateObject(8210,100.000,2475.413,9.000,0.0,0.0,-720.000);

//
hospoda1 = CreatePickup(1318, 1, 153.000, 2499.000, 24.000);
hospoda2 = CreatePickup(1318, 1, 153.337, 2493.000, 22.533);
alcohol = CreatePickup(1318, 1, 156.941, 2506.674, 23.319);
alcoholmenu = CreateMenu("alcoholmenu", 1, 20,120,150,40);
       AddMenuItem(alcoholmenu, 0, "Rum");
       AddMenuItem(alcoholmenu, 0, "Tokai");
       AddMenuItem(alcoholmenu, 0, "Sex on the Beach");
       AddMenuItem(alcoholmenu, 0, "Mojito");
       AddMenuItem(alcoholmenu, 0, "Gambrinus 12");
       AddMenuItem(alcoholmenu, 0, "Konec");
       SetTimer("vyprchani", 12000, 1);


}
public OnPlayerConnect(playerid)
{
SendClientMessage(playerid, COLOR_GREEN, "Na Serveru je Podium (by Marw37)");
SendClientMessage(playerid, COLOR_GREEN, "Prikazy /phelp a novinky /pnews");
return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{

new cmd[256];
new idx;
cmd = strtok(cmdtext, idx);
// 370 - Jetpack

// Camery cmd
if(strcmp(cmd, "/pcam1", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 1
PlayerPlaySound(playerid,1132,0,0,0);
cam1(playerid); // public cam1
return 1;
}
if(strcmp(cmd, "/pcam2", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 2
PlayerPlaySound(playerid,1132,0,0,0);
cam2(playerid); // public cam2
return 1;
}
if(strcmp(cmd, "/pcam3", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 3
PlayerPlaySound(playerid,1132,0,0,0);
cam3(playerid); // public cam3
return 1;
}
if(strcmp(cmd, "/pcam4", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 4
PlayerPlaySound(playerid,1132,0,0,0);
cam4(playerid); // public cam4
return 1;
}
if(strcmp(cmd, "/pcam5", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 5
PlayerPlaySound(playerid,1132,0,0,0);
cam5(playerid); // public cam5
return 1;
}
if(strcmp(cmd, "/pcam6", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 6
PlayerPlaySound(playerid,1132,0,0,0);
cam6(playerid); // public cam6
return 1;
}
if(strcmp(cmd, "/pexitcam", true) == 0 && IsPlayerAdmin(playerid)) { // Exit Cam
camexit(playerid); // public camexit
return 1;
}

// Alarm
if(strcmp(cmd, "/alert", true) == 0 && IsPlayerAdmin(playerid)) { // ALARM
alert(playerid);
return 1;
}

// Hl.Brána
if(strcmp(cmd, "/opengate", true) == 0 && IsPlayerAdmin(playerid)) { // HL VRATA
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Hlavni Brána k podiu byla otevřena.");
MoveObject(openos, 75.777, 2507.170, 8.000,3);
return 1;
}
if(strcmp(cmd, "/closegate", true) == 0 && IsPlayerAdmin(playerid)) { // HL VRATA
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Hlavni Brána k podiu byla zavřena.");
MoveObject(openos, 75.777, 2507.170, 19.000,3);
return 1;
}

//PODIUM
if(strcmp(cmd, "/openpod", true) == 0 && IsPlayerAdmin(playerid)) { // PODIUM
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Vstup na podium je otevřen.");
MoveObject(openth, 118.816, 2486.353, 14.092,3);
return 1;
}
if(strcmp(cmd, "/closepod", true) == 0 && IsPlayerAdmin(playerid)) { // PODIUM
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Vstup na podium je zabezpečen.");
MoveObject(openth, 118.816, 2486.353, 24.092,3);
return 1;
}

// Chodba
if(strcmp(cmd, "/opencho", true) == 0 && IsPlayerAdmin(playerid)) { // CHODBA
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Chodba je otevřena.");
MoveObject(opent, 134.664,2499.088,23.073,3);
return 1;
}
if(strcmp(cmd, "/closecho", true) == 0 && IsPlayerAdmin(playerid)) { // CHODBA
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Chodba je zavřena a zabespečena.");
MoveObject(opent, 134.664,2490.088,23.073,3);
return 1;
}

// Chodba
if(strcmp(cmd, "/bpup", true) == 0 && IsPlayerAdmin(playerid)) {
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Vysoký Plot Zvednut.");
MoveObject(danger1, 73.092, 2502.020, 18.500,5);
MoveObject(danger2, 100.000, 2529.151, 18.500,5);
MoveObject(danger3, 100.000, 2475.413, 18.500,5);
return 1;
}
if(strcmp(cmd, "/bpdown", true) == 0 && IsPlayerAdmin(playerid)) { 
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Vysoký Plot Byl stahnut.");
MoveObject(danger1, 73.092, 2502.020, 9.000,5);
MoveObject(danger2, 100.000, 2529.151, 9.000,5);
MoveObject(danger3, 100.000, 2475.413, 9.000,5);
return 1;
}

// S.T.O.P.
if(strcmp(cmd, "/stopon", true) == 0 && IsPlayerAdmin(playerid)) { // Specialni Takticky Obrany Program
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Specialni Takticky Obrany Program byl Aktivovan.");
MoveObject(danger1, 73.092, 2502.020, 18.500,5);
MoveObject(danger2, 100.000, 2529.151, 18.500,5);
MoveObject(danger3, 100.000, 2475.413, 18.500,5);
MoveObject(opent, 134.664,2490.088,23.073,5);
MoveObject(openth, 118.816, 2486.353, 24.092,5);
MoveObject(openos, 75.777, 2507.170, 19.000,5);
return 1;
}
if(strcmp(cmd, "/stopoff", true) == 0 && IsPlayerAdmin(playerid)) { // Specialni Takticky Obrany Program
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Specialni Takticky Obrany Program byl Deaktivovan.");
MoveObject(danger1, 73.092, 2502.020, 9.000,1);
MoveObject(danger2, 100.000, 2529.151, 9.000,1);
MoveObject(danger3, 100.000, 2475.413, 9.000,1);
MoveObject(opent, 134.664,2499.088,23.073,1);
MoveObject(openth, 118.816, 2486.353, 14.092,1);
MoveObject(openos, 75.777, 2507.170, 8.000,1);
return 1;
}

// Warp
if(strcmp(cmd, "/pwarp", true) == 0 && IsPlayerAdmin(playerid)) {
SetPlayerInterior(playerid, 0);
SetPlayerPos(playerid,78.456,2526.613,15.983);
return 1;
}
if(strcmp(cmd, "/phelp", true) == 0 && IsPlayerAdmin(playerid)) { // HELPER
SendClientMessage(playerid, COLOR_NAVY, "================================================");
SendClientMessage(playerid, COLOR_RED, "Podium 1.2 prikazy");
SendClientMessage(playerid, COLOR_WHITE, "Warp - /pwarp.");
SendClientMessage(playerid, COLOR_WHITE, "Chodba - /opencho /closecho.");
SendClientMessage(playerid, COLOR_WHITE, "Podium - /openpod /closepod.");
SendClientMessage(playerid, COLOR_WHITE, "Hlavní Brana - /opengate /closegate.");
SendClientMessage(playerid, COLOR_WHITE, "System S.T.O.P. - /stopon /stopoff.");
SendClientMessage(playerid, COLOR_WHITE, "Vysoky plot - /bpdown /bpup.");
SendClientMessage(playerid, COLOR_RED, "Zabespečovací systemy mužou jen správci Ostrovu.");
SendClientMessage(playerid, COLOR_NAVY, "================================================");
return 1;
}
if(strcmp(cmd, "/pnews", true) == 0 && IsPlayerAdmin(playerid)) { // NEWSKY
SendClientMessage(playerid, COLOR_NAVY, "================================================");
SendClientMessage(playerid, COLOR_RED, "Novinky ve verzi 1.2");
SendClientMessage(playerid, COLOR_WHITE, "Pickup do hospody na podiu.");
SendClientMessage(playerid, COLOR_WHITE, "Opravena strecha nad vchodem do hospody");
SendClientMessage(playerid, COLOR_WHITE, "Zrušené kamerové systémy");
SendClientMessage(playerid, COLOR_WHITE, "Cam System bude v další verzi 1.6");
SendClientMessage(playerid, COLOR_NAVY, "================================================");
return 1;
}
return 0;
}

strtok(const string[], &index) // tohle to je na ty cmd picoviny atd...
{
new length = strlen(string);
while ((index < length) && (string[index] <= ' '))
{
index++;
}
new offset = index;
new result[20];
while ((index < length) && (string[index] > ' ') && ((index - offset) < (sizeof(result) - 1)))
{
result[index - offset] = string[index];
index++;
}
result[index - offset] = EOS;
return result;
}
public alert(playerid) // Alert navazuje na /alert
{
for(new i=0; i<MAX_PLAYERS; i++)
{
if (IsPlayerAdmin(i)) {
SendClientMessage(i, COLOR_NAVY,"!!!Podium napadeno!!!Podium napadeno!!!");
SendClientMessage(i, COLOR_NAVY,"!!!Podium napadeno!!!Podium napadeno!!!");
PlayerPlaySound(i,1147,0,0,0);
}
}
}

// Camerove systemy public
public cam1(playerid) { // Camerovy system 1
{
SendClientMessage(playerid, COLOR_NAVY,"Camera System 1");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,-2114.5057,1464.5052,10.5400);
SetPlayerCameraLookAt(playerid,-2114.5067,1474.5055,9.5500);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public cam2(playerid) { // Camerovy system 2
{
SendClientMessage(playerid, COLOR_NAVY,"Camera System 2");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,-2123.5057,1317.5052,12.5400);
SetPlayerCameraLookAt(playerid,-2123.5067,1327.5055,9.5500);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public cam3(playerid) { // Camerovy system 3
{
SendClientMessage(playerid, COLOR_NAVY,"Camera System 3");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,-2119.5057,1586.5052,12.5400);
SetPlayerCameraLookAt(playerid,-2119.5067,1596.5055,9.5500);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public cam4(playerid) { // Camerovy system 4
{
SendClientMessage(playerid, COLOR_NAVY,"Camera System 4");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,-1991.5057,1594.5052,10.5400);
SetPlayerCameraLookAt(playerid,-1991.5067,1604.5055,8.5500);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public cam5(playerid) { // Camerovy system 5
{
SendClientMessage(playerid, COLOR_NAVY,"Camera System 5");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,-2070.5057,1595.5052,12.5400);
SetPlayerCameraLookAt(playerid,-2070.5067,1605.5055,9.5500);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public cam6(playerid) { // Camerovy system 6
{
SendClientMessage(playerid, COLOR_NAVY,"Camera System 6");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,-2109.5057,1560.5052,10.5400);
SetPlayerCameraLookAt(playerid,-2109.5067,1570.5055,9.5500);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public camexit(playerid) { // Exit cam system
{
SendClientMessage(playerid, COLOR_NAVY,"Opustil si Cam system");
TogglePlayerControllable(playerid,1);
SetCameraBehindPlayer(playerid);
}
}

public OnPlayerPickUpPickup(playerid, pickupid)
{

if(pickupid == hospoda1){
SetPlayerPos(playerid,153.000, 2491.000, 23.000);
}

if(pickupid == hospoda2){
SetPlayerPos(playerid,153.337, 2501.000, 22.533);
}

if(pickupid == alcohol)
{
ShowMenuForPlayer(alcoholmenu,playerid);
}

return 1;
}

public OnPlayerSelectedMenuRow(playerid, row)
{

new Menu:Current = GetPlayerMenu(playerid);
if (Current == alcoholmenu ) {
switch(row) {
case 0:{
if(alkohol[playerid] == 0)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 1. sklenku.");
}
if(alkohol[playerid] == 1)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
alkohol[playerid]=2;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 2. sklenku.");
}
if(alkohol[playerid] == 2)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
alkohol[playerid]=3;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 3. sklenku.");
}
if(alkohol[playerid] == 3)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 4. sklenku.");
}
if(alkohol[playerid] == 4)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
alkohol[playerid]=5;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 5. sklenku.");
}
if(alkohol[playerid] == 5)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
alkohol[playerid]=6;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 6. sklenku.");
}
}
case 1:{
if(alkohol[playerid] == 0)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 1. sklenku.");
}
if(alkohol[playerid] == 1)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
alkohol[playerid]=2;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 2. sklenku.");
}
if(alkohol[playerid] == 2)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
alkohol[playerid]=3;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 3. sklenku.");
}
if(alkohol[playerid] == 3)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 4. sklenku.");
}
if(alkohol[playerid] == 4)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
alkohol[playerid]=5;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 5. sklenku.");
}
if(alkohol[playerid] == 5)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
alkohol[playerid]=6;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 6. sklenku.");
}
}
case 2:{
if(alkohol[playerid] == 0)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 1. sklenku.");
}
if(alkohol[playerid] == 1)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
alkohol[playerid]=2;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 2. sklenku.");
}
if(alkohol[playerid] == 2)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
alkohol[playerid]=3;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 3. sklenku.");
}
if(alkohol[playerid] == 3)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 4. sklenku.");
}
if(alkohol[playerid] == 4)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
alkohol[playerid]=5;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 5. sklenku.");
}
if(alkohol[playerid] == 5)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
alkohol[playerid]=6;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 6. sklenku.");
}
}
case 3:{
if(alkohol[playerid] == 0)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 1. sklenku.");
}
if(alkohol[playerid] == 1)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
alkohol[playerid]=2;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 2. sklenku.");
}
if(alkohol[playerid] == 2)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
alkohol[playerid]=3;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 3. sklenku.");
}
if(alkohol[playerid] == 3)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 4. sklenku.");
}
if(alkohol[playerid] == 4)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
alkohol[playerid]=5;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 5. sklenku.");
}
if(alkohol[playerid] == 5)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
alkohol[playerid]=6;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 6. sklenku.");
}
}

case 4:{
if(alkohol[playerid] == 0)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 1. sklenku.");
}
if(alkohol[playerid] == 1)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
alkohol[playerid]=2;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 2. sklenku.");
}
if(alkohol[playerid] == 2)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
alkohol[playerid]=3;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 3. sklenku.");
}
if(alkohol[playerid] == 3)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 4. sklenku.");
}
if(alkohol[playerid] == 4)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
alkohol[playerid]=5;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 5. sklenku.");
}
if(alkohol[playerid] == 5)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
alkohol[playerid]=6;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 6. sklenku.");
}
}
}
}

return 1;
}

Poslední zveřejněná verze 1.6 obsahovala navíc místnost ochranky a licenci ochranky což byl vlastně trochu přepsaný řidičák co jsem našel zde na fóru

Spoiler:

Kód:

#include <a_samp>
#pragma tabsize 0

#define COLOR_GREY 0xAFAFAFAA
#define COLOR_GREEN 0x33AA33AA
#define COLOR_RED 0xAA3333AA
#define COLOR_YELLOW 0xFFFF00AA
#define COLOR_PURPLE 0x9900FFAA
#define COLOR_NAVY 0xFF0000AA
#define COLOR_WHITE 0xFFFFFFAA
#define COLOR 0xFFFF00AA

new openos; // Hlavni Brana
new openth; // Podium
new danger1; // Zabespecovaci Brana1
new danger2; // Zabespecovaci Brana2
new danger3; // Zabespecovaci Brana3
new opent;  // Chodba

new hospoda1; //Warp z hospody
new hospoda2; //Warp do hospody
new alcohol; //Bar v hospode
new Menu:alcoholmenu; //Menu baru
new alkohol[MAX_PLAYERS]; //Potrebne k baru
new pas[MAX_PLAYERS]; //Potrebne k licenci
new paspickup; //Licence Pickup
new Menu:pasmenu; //Licence Menu
new Menu:warp1menu; //Menu v hospode (potrebna licence)
new warp1; //Warp do prostoru ochranky (potrebna licence)
new warp2; //Warp z prostoru ochranky
new warpzobr; //pro zobrazeni warpu do prostoru ochranky

new string[256]; //definice string

LoopingAnim(playerid,animlib[],animname[], Float:Speed, looping, lockx, locky, lockz, lp)
{
    ApplyAnimation(playerid, animlib, animname, Speed, looping, lockx, locky, lockz, lp);
}

forward vyprchani(playerid);
forward alert(playerid);
forward cam1(playerid);
forward cam2(playerid);
forward cam3(playerid);
forward cam4(playerid);
forward cam5(playerid);
forward cam6(playerid);
forward camexit(playerid);

public OnFilterScriptInit() {
   print("\n----------------------------------");
   print("Podium Created by Marw37");
   print("----------------------------------\n");
}

public OnGameModeInit()
{

//
CreateObject(16136,98.016,2504.016,16.000,0.0,0.0,-90.000);
CreateObject(8556,63.423,2507.140,20.000,0.0,0.0,0.0);
CreateObject(7020,131.602,2486.586,19.068,0.0,0.0,0.0);
CreateObject(5130,117.914,2480.882,18.481,0.0,0.0,-495.000);
CreateObject(1391,48.144,2246.231,157.001,0.0,0.0,0.0);
CreateObject(1391,37.045,2246.532,158.085,0.0,0.0,0.0);
CreateObject(2780,115.233,2491.172,22.314,0.0,0.0,0.0);
CreateObject(2780,114.773,2513.645,22.034,0.0,0.0,0.0);
CreateObject(18028,155.622,2509.098,25.000,0.0,0.0,180.000);
CreateObject(1234,116.919,2502.335,22.000,0.0,0.0,-270.000);
CreateObject(3268,125.231,2502.303,22.034,0.0,0.0,0.0);
CreateObject(10841,146.000,2488.000,27.046,0.0,0.0,0.0);
CreateObject(10841,159.500,2488.000,27.046,0.0,0.0,0.0);
CreateObject(10841,170.000,2498.595,27.046,0.0,0.0,-270.000);
CreateObject(10841,170.000,2510.098,27.046,0.0,0.0,-270.000);
CreateObject(10841,159.500,2521.000,27.046,0.0,0.0,-180.000);
CreateObject(10841,146.000,2521.000,27.046,0.0,0.0,-180.000);
CreateObject(10841,135.990,2510.098,27.046,0.0,0.0,-450.000);
CreateObject(9241,153.563,2504.650,29.168,0.0,0.0,-180.000);
CreateObject(1491,152.793,2498.343,22.808,0.0,0.0,0.0);
CreateObject(1665,155.686,2507.695,23.878,0.0,0.0,-67.500);
CreateObject(1668,158.343,2507.713,24.034,0.0,0.0,-22.500);
CreateObject(1546,157.992,2507.753,23.956,0.0,0.0,0.0);
CreateObject(1546,159.158,2512.203,24.027,0.0,0.0,0.0);
CreateObject(1546,159.321,2510.499,24.027,0.0,0.0,0.0);
CreateObject(1546,159.458,2511.122,24.027,0.0,0.0,0.0);
CreateObject(2232,124.201,2503.580,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.215,2502.879,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.199,2505.012,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.194,2502.191,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.201,2501.476,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.206,2500.760,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.198,2500.055,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.176,2499.340,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.176,2502.471,23.832,0.0,0.0,-90.000);
CreateObject(2232,124.128,2501.782,23.832,0.0,0.0,-90.000);
CreateObject(2232,124.167,2501.064,23.832,0.0,0.0,-90.000);
CreateObject(2232,124.195,2503.177,23.832,0.0,0.0,-90.000);
CreateObject(2232,124.170,2503.883,23.832,0.0,0.0,-90.000);
CreateObject(2232,124.230,2504.295,22.632,0.0,0.0,-90.000);
CreateObject(2232,124.123,2500.359,23.832,0.0,0.0,-90.000);
CreateObject(1684,129.000,2526.000,17.350,0.0,0.0,-90.000);
CreateObject(1684,129.000,2526.000,20.380,0.0,0.0,-90.000);
CreateObject(5706,142.256,2474.294,21.197,0.0,0.0,0.0);
CreateObject(1271,124.899,2502.065,22.384,0.0,0.0,0.0);
CreateObject(1271,124.899,2501.333,22.384,0.0,0.0,0.0);
CreateObject(1271,124.916,2502.826,22.384,0.0,0.0,0.0);
CreateObject(1271,125.595,2502.063,22.384,0.0,0.0,0.0);
CreateObject(1271,124.846,2502.047,23.079,0.0,0.0,0.0);
CreateObject(3390,155.271,2517.591,22.032,0.0,0.0,90.000);
CreateObject(1508,138.300,2489.800,23.500,0.0,0.0,-90.000);
CreateObject(1508,144.500,2489.800,23.500,0.0,0.0,-90.000);
CreateObject(1508,148.500,2489.950,23.500,0.0,0.0,-270.000);
CreateObject(1508,151.500,2493.000,23.500,0.0,0.0,-180.000);
CreateObject(1508,138.300,2490.000,24.700,0.0,-90.000,-90.000);
CreateObject(1508,144.500,2490.000,24.700,0.0,-90.000,-90.000);
CreateObject(1508,150.830,2490.000,24.700,0.0,-90.000,-90.000);
CreateObject(1508,153.000,2492.000,24.700,0.0,-90.000,-180.000);
CreateObject(1508,153.000,2494.900,23.500,0.0,0.0,-270.000);
CreateObject(1491,151.640,2493.057,22.024,0.0,0.0,0.0);
CreateObject(1508,158.885,2515.165,23.693,0.0,0.0,0.0);
CreateObject(1508,152.793,2515.144,23.693,0.0,0.0,0.0);
CreateObject(1508,155.734,2518.142,23.693,0.0,0.0,-90.000);
CreateObject(1508,154.000,2515.000,25.000,0.0,90.000,0.0);
CreateObject(1508,157.000,2515.000,25.000,0.0,90.000,0.0);
CreateObject(1508,155.811,2512.040,23.693,0.0,0.0,90.000);
CreateObject(1508,153.250,2491.700,23.500,0.0,0.0,0.0);
//CreateObject(1253,155.492,2516.057,22.334,0.0,0.0,-101.250);

openos = CreateObject(971,75.777,2507.170,19.000,0.0,0.0,-450.000);
openth = CreateObject(971,118.816,2486.353,24.092,0.0,0.0,-540.000);
opent = CreateObject(988,134.664,2490.088,23.073,0.0,0.0,-90.000);
danger1 = CreateObject(8210,73.092,2502.020,9.000,0.0,0.0,-450.000);
danger2 = CreateObject(8210,100.000,2529.151,9.000,0.0,0.0,-540.000);
danger3 = CreateObject(8210,100.000,2475.413,9.000,0.0,0.0,-720.000);

hospoda1 = CreatePickup(1318, 1, 152.457, 2493.852, 22.600);
hospoda2 = CreatePickup(1318, 1, 153.521, 2496.902, 23.400);
alcohol = CreatePickup(1314, 1, 158.018, 2506.822, 23.400);
alcoholmenu = CreateMenu("alcoholmenu", 1, 20,120,150,40);
       AddMenuItem(alcoholmenu, 0, "Rum");
       AddMenuItem(alcoholmenu, 0, "Tokai");
       AddMenuItem(alcoholmenu, 0, "Sex on the Beach");
       AddMenuItem(alcoholmenu, 0, "Mojito");
       AddMenuItem(alcoholmenu, 0, "Gambrinus 12");
       AddMenuItem(alcoholmenu, 0, "Konec");
       SetTimer("vyprchani", 12000, 1);
warpzobr = CreatePickup(1318, 1, 413.397, 2535.889, 18.647);
warp1 = CreatePickup(1318, 1, 154.394,2509.635,23.319);
warp1menu = CreateMenu("warp1menu", 1, 150.0, 100.0, 250.0, 150.0);
       AddMenuItem(warp1menu, 0, "K ovladacimu panelu");
warp2 = CreatePickup(1318, 1, 153.500, 2513.000, 22.600);
paspickup = CreatePickup(1581, 1, 414.000, 2531.000, 18.750);
pasmenu = CreateMenu("pasmenu", 1, 150.0, 100.0, 250.0, 150.0);
       AddMenuItem(pasmenu, 0, "Koupit licenci");
       AddMenuItem(pasmenu, 0, "Zpet");
}

public OnPlayerConnect(playerid)
{
SendClientMessage(playerid, COLOR_GREEN, "Na Serveru je Podium 1.6 (by Marw37)");
SendClientMessage(playerid, COLOR_GREEN, "Zobrazení prikazů /phelp");
SendClientMessage(playerid, COLOR_GREEN, "Zobrazení novinek /pnews");
SendClientMessage(playerid, COLOR_GREEN, "Zobrazení veci v dalsi verzi /poce");
return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
new cmd[256];
new idx;
cmd = strtok(cmdtext, idx);

// Camery cmd
if(strcmp(cmd, "/pcam1", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 1
cam1(playerid); // public cam1
return 1;
}
if(strcmp(cmd, "/pcam2", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 2
cam2(playerid); // public cam2
return 1;
}
if(strcmp(cmd, "/pcam3", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 3
cam3(playerid); // public cam3
return 1;
}
if(strcmp(cmd, "/pcam4", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 4
cam4(playerid); // public cam4
return 1;
}
if(strcmp(cmd, "/pcam5", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 5
cam5(playerid); // public cam5
return 1;
}
if(strcmp(cmd, "/pcam6", true) == 0 && IsPlayerAdmin(playerid)) { // Camera 6
cam6(playerid); // public cam6
return 1;
}
if(strcmp(cmd, "/exitcam", true) == 0 && IsPlayerAdmin(playerid)) { // Exit Cam
camexit(playerid); // public camexit
return 1;
}

// Hl.Brána
if(strcmp(cmd, "/opengate", true) == 0 && IsPlayerAdmin(playerid)) { // HL VRATA
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Hlavni Brána k podiu byla otevřena.");
MoveObject(openos, 75.777, 2507.170, 8.000,3);
return 1;
}
if(strcmp(cmd, "/closegate", true) == 0 && IsPlayerAdmin(playerid)) { // HL VRATA
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Hlavni Brána k podiu byla zavřena.");
MoveObject(openos, 75.777, 2507.170, 19.000,3);
return 1;
}

//PODIUM
if(strcmp(cmd, "/openpod", true) == 0 && IsPlayerAdmin(playerid)) { // PODIUM
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Vstup na podium je otevřen.");
MoveObject(openth, 118.816, 2486.353, 14.092,3);
return 1;
}
if(strcmp(cmd, "/closepod", true) == 0 && IsPlayerAdmin(playerid)) { // PODIUM
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Vstup na podium je zabezpečen.");
MoveObject(openth, 118.816, 2486.353, 24.092,3);
return 1;
}

// Chodba
if(strcmp(cmd, "/opencho", true) == 0 && IsPlayerAdmin(playerid)) { // CHODBA
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Chodba je otevřena.");
MoveObject(opent, 134.664,2499.088,23.073,3);
return 1;
}
if(strcmp(cmd, "/closecho", true) == 0 && IsPlayerAdmin(playerid)) { // CHODBA
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Chodba je zavřena a zabespečena.");
MoveObject(opent, 134.664,2490.088,23.073,3);
return 1;
}

// Chodba
if(strcmp(cmd, "/bpup", true) == 0 && IsPlayerAdmin(playerid)) {
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Vysoký Plot Zvednut.");
MoveObject(danger1, 73.092, 2502.020, 18.500,5);
MoveObject(danger2, 100.000, 2529.151, 18.500,5);
MoveObject(danger3, 100.000, 2475.413, 18.500,5);
return 1;
}
if(strcmp(cmd, "/bpdown", true) == 0 && IsPlayerAdmin(playerid)) { 
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Vysoký Plot Byl stahnut.");
MoveObject(danger1, 73.092, 2502.020, 9.000,5);
MoveObject(danger2, 100.000, 2529.151, 9.000,5);
MoveObject(danger3, 100.000, 2475.413, 9.000,5);
return 1;
}

// S.T.O.P.
if(strcmp(cmd, "/stopon", true) == 0 && IsPlayerAdmin(playerid)) { // Specialni Takticky Obrany Program
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Specialni Takticky Obrany Program byl Aktivovan.");
MoveObject(danger1, 73.092, 2502.020, 18.500,5);
MoveObject(danger2, 100.000, 2529.151, 18.500,5);
MoveObject(danger3, 100.000, 2475.413, 18.500,5);
MoveObject(opent, 134.664,2490.088,23.073,5);
MoveObject(openth, 118.816, 2486.353, 24.092,5);
MoveObject(openos, 75.777, 2507.170, 19.000,5);
return 1;
}
if(strcmp(cmd, "/stopoff", true) == 0 && IsPlayerAdmin(playerid)) { // Specialni Takticky Obrany Program
SendClientMessage(playerid, COLOR_NAVY, "PODIUM: Specialni Takticky Obrany Program byl Deaktivovan.");
MoveObject(danger1, 73.092, 2502.020, 9.000,1);
MoveObject(danger2, 100.000, 2529.151, 9.000,1);
MoveObject(danger3, 100.000, 2475.413, 9.000,1);
MoveObject(opent, 134.664,2499.088,23.073,1);
MoveObject(openth, 118.816, 2486.353, 14.092,1);
MoveObject(openos, 75.777, 2507.170, 8.000,1);


return 1;
}

// Warp
if(strcmp(cmd, "/pwarp", true) == 0 && IsPlayerAdmin(playerid)) {
SetPlayerInterior(playerid, 0);
SetPlayerPos(playerid,78.456,2526.613,15.983);
return 1;
}
if(strcmp(cmd, "/phelp", true) == 0 && IsPlayerAdmin(playerid)) { // HELPER
SendClientMessage(playerid, COLOR_NAVY, "================================================");
SendClientMessage(playerid, COLOR_RED, "Podium 1.6 prikazy");
SendClientMessage(playerid, COLOR_WHITE, "Warp - /pwarp.");
SendClientMessage(playerid, COLOR_WHITE, "Chodba - /opencho /closecho.");
SendClientMessage(playerid, COLOR_WHITE, "Podium - /openpod /closepod.");
SendClientMessage(playerid, COLOR_WHITE, "Hlavní Brana - /opengate /closegate.");
SendClientMessage(playerid, COLOR_WHITE, "System S.T.O.P. - /stopon /stopoff.");
SendClientMessage(playerid, COLOR_WHITE, "Vysoky plot - /bpdown /bpup.");
SendClientMessage(playerid, COLOR_WHITE, "Seznam kamer - /pcams");
SendClientMessage(playerid, COLOR_NAVY, "================================================");
return 1;
}
if(strcmp(cmd, "/pnews", true) == 0 && IsPlayerAdmin(playerid)) { // NEWSKY
SendClientMessage(playerid, COLOR_NAVY, "================================================");
SendClientMessage(playerid, COLOR_RED, "Novinky ve verzi 1.6");
SendClientMessage(playerid, COLOR_WHITE, "Upravene pickupy.");
SendClientMessage(playerid, COLOR_WHITE, "Opraven a upgradovan vchod na podium");
SendClientMessage(playerid, COLOR_WHITE, "Pickup do mista ochranky");
SendClientMessage(playerid, COLOR_WHITE, "Cam System /pcams");
SendClientMessage(playerid, COLOR_WHITE, "Zrusen tajny prikaz /alert");
SendClientMessage(playerid, COLOR_WHITE, "Prikaz /poce pro ocekavane novinky v dalsi verzi");
SendClientMessage(playerid, COLOR_WHITE, "Opravena opilost");
SendClientMessage(playerid, COLOR_NAVY, "================================================");
return 1;
}
if(strcmp(cmd, "/pcams", true) == 0 && IsPlayerAdmin(playerid)) { // Kamery
SendClientMessage(playerid, COLOR_NAVY, "================================================");
SendClientMessage(playerid, COLOR_RED, "Kamery ve verzi 1.6");
SendClientMessage(playerid, COLOR_WHITE, "/pcam1 - Sledovaní podia I / pohled na cele podium");
SendClientMessage(playerid, COLOR_WHITE, "/pcam2 - Sledovaní podia II / pohled na podium kde je DJ");
SendClientMessage(playerid, COLOR_WHITE, "/pcam3 - Sledovaní Chodby do baru");
SendClientMessage(playerid, COLOR_WHITE, "/pcam4 - Sledovaní Baru I / pohled na bar");
SendClientMessage(playerid, COLOR_WHITE, "/pcam5 - Sledovaní Baru II / pohled na dvere");
SendClientMessage(playerid, COLOR_WHITE, "/pcam6 - Sledovaní Hlavní brány");
SendClientMessage(playerid, COLOR_WHITE, "/exitcam - Vypnutí kamery");
SendClientMessage(playerid, COLOR_NAVY, "================================================");
return 1;
}
if(strcmp(cmd, "/poce", true) == 0 && IsPlayerAdmin(playerid)) { // Ocekavani
SendClientMessage(playerid, COLOR_NAVY, "================================================");
SendClientMessage(playerid, COLOR_RED, "Ocekavane veci ve verzi 2.2");
SendClientMessage(playerid, COLOR_WHITE, "Kamery pres Pickup v miste ochranky(54%)");
SendClientMessage(playerid, COLOR_WHITE, "Zobrazeni pickupu (do mista ochranky) pres Pickup(100%)");
SendClientMessage(playerid, COLOR_WHITE, "Dalsi 2 kamery do kameroveho systemu(100%)");
SendClientMessage(playerid, COLOR_WHITE, "Pribyde dalsi warp(21%)");
SendClientMessage(playerid, COLOR_WHITE, "(xXX%) - Z kolika procent bude v dalsi verzi");
SendClientMessage(playerid, COLOR_NAVY, "================================================");
return 1;
}
return 0;
}

strtok(const string[], &index)
{
new length = strlen(string);
while ((index < length) && (string[index] <= ' '))
{
index++;
}
new offset = index;
new result[20];
while ((index < length) && (string[index] > ' ') && ((index - offset) < (sizeof(result) - 1)))
{
result[index - offset] = string[index];
index++;
}
result[index - offset] = EOS;
return result;
}

// Camerove systemy public
public cam1(playerid) { // Camerovy system 1
{
SendClientMessage(playerid, COLOR_RED,"Kamera 1");
SendClientMessage(playerid, COLOR_RED,"Pro opuštění sledovacího systému napište /exitcam");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,62.000, 2543.000, 40.000);
SetPlayerCameraLookAt(playerid,85.000, 2524.000, 30.000);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public cam2(playerid) { // Camerovy system 2
{
SendClientMessage(playerid, COLOR_RED,"Kamera 2");
SendClientMessage(playerid, COLOR_RED,"Pro opuštění sledovacího systému napište /exitcam");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,115.231, 2510.409, 28.515);
SetPlayerCameraLookAt(playerid,125.309, 2505.523, 22.047);
SetPlayerFacingAngle(playerid, 180.0);
}
}

public cam3(playerid) { // Camerovy system 3
{
SendClientMessage(playerid, COLOR_RED,"Kamera 3");
SendClientMessage(playerid, COLOR_RED,"Pro opuštění sledovacího systému napište /exitcam");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,137.000, 2489.193, 24.000);
SetPlayerCameraLookAt(playerid,144.000, 2489.193, 23.700);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public cam4(playerid) { // Camerovy system 4
{
SendClientMessage(playerid, COLOR_RED,"Kamera 4");
SendClientMessage(playerid, COLOR_RED,"Pro opuštění sledovacího systému napište /exitcam");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,167.500, 2504.700, 25.000);
SetPlayerCameraLookAt(playerid,153.222, 2507.218, 23.232);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public cam5(playerid) { // Camerovy system 5
{
SendClientMessage(playerid, COLOR_RED,"Kamera 5");
SendClientMessage(playerid, COLOR_RED,"Pro opuštění sledovacího systému napište /exitcam");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,143.452, 2520.074, 26.401);
SetPlayerCameraLookAt(playerid,149.394, 2505.587, 22.833);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public cam6(playerid) { // Camerovy system 6
{
SendClientMessage(playerid, COLOR_RED,"Kamera 6");
SendClientMessage(playerid, COLOR_RED,"Pro opuštění sledovacího systému napište /exitcam");
TogglePlayerControllable(playerid,0);
SetPlayerCameraPos(playerid,81.000, 2496.000, 24.000);
SetPlayerCameraLookAt(playerid,78.000, 2502.500, 20.000);
SetPlayerFacingAngle(playerid, 180.0);
}
}
public camexit(playerid) { // Exit cam system
{
SendClientMessage(playerid, COLOR_RED,"Opustil si sledovací system");
TogglePlayerControllable(playerid,1);
SetCameraBehindPlayer(playerid);
}
}

public OnPlayerPickUpPickup(playerid, pickupid)
{

if(pickupid == hospoda1)
{
SetPlayerPos(playerid,153.521, 2499.000, 23.319);
}

if(pickupid == hospoda2)
{
SetPlayerPos(playerid,152.457, 2491.852, 22.533);
}

if(pickupid == alcohol)
{
ShowMenuForPlayer(alcoholmenu,playerid);
}

if(pickupid == warp1)
{
ShowMenuForPlayer(warp1menu,playerid);
}

if(pickupid == warp2)
{
SetPlayerPos(playerid,155.000, 2509.580, 23.319);
}

if(pickupid == paspickup)
{
ShowMenuForPlayer(pasmenu,playerid);
}

if(pickupid == warpzobr)
{
SetPlayerPos(playerid,413.397, 2535.889, 18.647);
}

return 1;
}



public OnPlayerSelectedMenuRow(playerid, row)
{

//ochranka hospody
new Menu:Current = GetPlayerMenu(playerid);
if (Current == pasmenu ){
switch(row) {
case 0:{
if (pas[playerid] == 1){
SendClientMessage(playerid, COLOR_GREEN, "Už máš licenci");
}else{
new pname[MAX_PLAYER_NAME];
GetPlayerName(playerid, pname, MAX_PLAYER_NAME);
format(string, sizeof(string), "%s si koupil licenci.", pname);
SendClientMessageToAll(COLOR_GREEN, string);
pas[playerid] = 1;//nastavi hodnotu pasu
}
}
}
}

if (Current == warp1menu){
switch(row) {
case 0:{
if (pas[playerid] == 0){
SendClientMessage(playerid, COLOR_GREEN, "Nemáš licenci ! Musíš si koupit licenci");
}else{
new pname[MAX_PLAYER_NAME];
GetPlayerName(playerid, pname, MAX_PLAYER_NAME);
format(string, sizeof(string), "Hrac %s vesel do spravcovske mistnosti.", pname);
SendClientMessageToAll(COLOR_GREEN, string);
        SetPlayerInterior(playerid, 0);
        SetPlayerPos(playerid,155.000, 2512.939, 22.533);//souradnice kam ma teleportnout
}
}
}
}


//Pití v hospode
new Menu:Current0 = GetPlayerMenu(playerid);
if (Current0 == alcoholmenu ) {
switch(row) {
case 0:{
if(alkohol[playerid] == 0)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 1. sklenku.");
}
if(alkohol[playerid] == 1)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
alkohol[playerid]=2;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 2. sklenku.");
}
if(alkohol[playerid] == 2)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
alkohol[playerid]=3;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 3. sklenku.");
}
if(alkohol[playerid] == 3)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 4. sklenku.");
}
if(alkohol[playerid] == 4)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
alkohol[playerid]=5;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 5. sklenku.");
}
if(alkohol[playerid] == 5)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
alkohol[playerid]=6;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 6. sklenku.");
}
}
case 1:{
if(alkohol[playerid] == 0)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 1. sklenku.");
}
if(alkohol[playerid] == 1)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
alkohol[playerid]=2;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 2. sklenku.");
}
if(alkohol[playerid] == 2)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
alkohol[playerid]=3;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 3. sklenku.");
}
if(alkohol[playerid] == 3)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 4. sklenku.");
}
if(alkohol[playerid] == 4)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
alkohol[playerid]=5;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 5. sklenku.");
}
if(alkohol[playerid] == 5)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
alkohol[playerid]=6;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 6. sklenku.");
}
}
case 2:{
if(alkohol[playerid] == 0)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 1. sklenku.");
}
if(alkohol[playerid] == 1)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
alkohol[playerid]=2;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 2. sklenku.");
}
if(alkohol[playerid] == 2)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
alkohol[playerid]=3;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 3. sklenku.");
}
if(alkohol[playerid] == 3)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 4. sklenku.");
}
if(alkohol[playerid] == 4)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
alkohol[playerid]=5;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 5. sklenku.");
}
if(alkohol[playerid] == 5)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
alkohol[playerid]=6;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 6. sklenku.");
}
}
case 3:{
if(alkohol[playerid] == 0)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 1. sklenku.");
}
if(alkohol[playerid] == 1)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
alkohol[playerid]=2;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 2. sklenku.");
}
if(alkohol[playerid] == 2)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
alkohol[playerid]=3;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 3. sklenku.");
}
if(alkohol[playerid] == 3)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 4. sklenku.");
}
if(alkohol[playerid] == 4)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
alkohol[playerid]=5;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 5. sklenku.");
}
if(alkohol[playerid] == 5)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
alkohol[playerid]=6;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 6. sklenku.");
}
}

case 4:{
if(alkohol[playerid] == 0)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 1. sklenku.");
}
if(alkohol[playerid] == 1)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
alkohol[playerid]=2;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 2. sklenku.");
}
if(alkohol[playerid] == 2)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
alkohol[playerid]=3;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 3. sklenku.");
}
if(alkohol[playerid] == 3)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 4. sklenku.");
}
if(alkohol[playerid] == 4)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
alkohol[playerid]=5;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 5. sklenku.");
}
if(alkohol[playerid] == 5)
{
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
alkohol[playerid]=6;
GivePlayerMoney(playerid, -120);
}else{
SendClientMessage(playerid, COLOR_YELLOW, "Máš v sobě 6. sklenku.");
}
}
}
}
return 1;
}

forward vyprchani();
public vyprchani()
{
new playerid;
if(alkohol[playerid] == 1)
{
alkohol[playerid]=0;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.001,1,1,1,1,1);
}else{
if(alkohol[playerid] == 2)
{
alkohol[playerid]=1;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.01,1,1,1,1,1);
}else{
if(alkohol[playerid] == 3)
{
alkohol[playerid]=2;
LoopingAnim(playerid,"PED","WALK_DRUNK",0.1,1,1,1,1,1);
}else{
if(alkohol[playerid] == 4)
{
alkohol[playerid]=3;
LoopingAnim(playerid,"PED","WALK_DRUNK",1.3,1,1,1,1,1);
alkohol[playerid]=4;
}else{
if(alkohol[playerid] == 5)
{
alkohol[playerid]=4;
LoopingAnim(playerid,"PED","WALK_DRUNK",4.5,1,1,1,1,1);
}else{
if(alkohol[playerid] == 6)
{
alkohol[playerid]=5;
LoopingAnim(playerid,"PED","WALK_DRUNK",5.5,1,1,1,1,1);
}
}
}
}
}
}

return 1;
}

Byla rozdělána verze 2.2, ve které měl být v místnosti ochranky pickup, přes který měly být používany kamery, tuto verzi jsem však nikdy nedokončil, protože se mi zdrbal script

A to jsou celé mé začátky pak jsem se snažil udělat pár FS & GM a pomalu jsem se naučil pawnit tak jak dnes pawním

Vím že je to kravina, ale chcu říct že když já jsem začínal tak jsem se snažil sám vyřešit problém. Tehdy toto fórum nemělo chat a nikdo tam nespamoval ať ho někdo naučí pawn.

_________________
AdminBot Osfald v4.0

Aktuální práce:
The BlueShark
AdminBot Osvald v4.1
Pub4Fun Freeroam RELOADED

Další práce v budoucnu:
AdminBot Osvald v5.0 - (90% že bude)
Game Over - The Next Series - nejisté

Ewwe

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: pát 30. pro 2011 23:01:13

Eddie Pulaski

Registrován: úte 02. lis 2010 22:16:14

Příspěvky: 1468

Bydliště: Program Files(x64);

BBCODe pastebin nefunguje na pricipu code ale takto mas ur scriptu na psatebinu
http://pastebin.com/w2jXMSLE
pak pouzijes tento bbcod takto

Kód:

[pastebin]w2jXMSLE[/pastebin]

JInak dobrý

_________________

K temné straně Dooku přidal se. Lži, zrada a nedůvěra jsou teď nástroje jeho.

michy04

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: pát 30. pro 2011 23:01:40

Barry Thorne "Big Bear"

Registrován: ned 07. lis 2010 21:05:51

Příspěvky: 330

Bydliště: Somewhere on the earth

Neberte to špatně, nechci nikoho urazit, ale myslím si, že začínat dneska s Pawnem, je tak trochu ztráta času, alespoň pokud už nemáte předchozí zkušenosti z programováním, protože pawno vás naučí docela špatné programovací návyky, kterých se pak těžko zbavíte, je to jen můj názor, nemusíte souhlasit :-)

PS: Ajaj, za to mě asi ukamenujete :-)

_________________

Linux is free only if your time has no value.

Yamaha

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: pát 30. pro 2011 23:02:36

Barry Thorne "Big Bear"

Registrován: čtv 09. zář 2010 14:31:27

Příspěvky: 315

Tiež moje prvé práce v pawn boli objekty :hehe:

Mubby

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: pát 30. pro 2011 23:06:26

Barry Thorne "Big Bear"

Registrován: pát 16. pro 2011 21:29:31

Příspěvky: 271

Hmmm celkem zajímavý.
PWN moje první práce a script mi pomohl vytvořit Paulie2907
No WoW

celkem zábavný

takový malý pŕitom obsahuje toho víc než se zdá.

_________________

Nevíš si rady s pawnem?

Kontakt:

Spoiler:

!POZORNĚ ČTI!
Nový SA-MP Hosting s vlastní administrací za pár kaček http://hosting.gamemix.eu
Hostujeme/budeme hostovat: SA-MP,MC,CS 1.6,Shout Cast(TS3/Ventrilo) podivej se na web ted!

HighPrint

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: sob 31. pro 2011 1:05:12

Marc Wayne "B-Dup"

Registrován: pát 19. zář 2008 16:26:22

Příspěvky: 760

michy04 píše:

PS: Ajaj, za to mě asi ukamenujete :-)

Tak s tímhle mírně nesouhlasím, tím, že jsem se naučil pawn mi jdou lehce a rychleji se naučit jiné programovací jazyky. Nevím jak u jiných, ale aspoň u mě je to tak. Třeba obsahuje většinu logických znaků, které jsou ve většině program. jazyků. Výpočty, proměny (jen se tvoří jinak), pracování s cykly atd.

Ale jinak, začínal jsem stejně jako ty Marwe, i když možná hůř

_________________
Obrázek

Proud =NTP= Member - http://ntpclan.com/

Michal Hojgr

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: sob 31. pro 2011 1:13:15

Marc Wayne "B-Dup"

Registrován: úte 13. říj 2009 17:56:16

Příspěvky: 846

michy04 píše:

PS: Ajaj, za to mě asi ukamenujete :-)

S tím nesouhlasím

Můj absolutně první jazyk byl pawn. Tehdy jsem pochopil, co je to proměnná. Pochopil jsem, co je to cyklus, co je to string, integr, blablabla. Naučil jsem se hodně. Později jsem se naučil PHP, C#, C++ a Cčko. Nicméně učit se a nadále dělat pawn mi příjde také zbytečné. Je to jazyk bez užitku. Ano, uděláte si über cool mód nebo filterscript. Ale šance, že na vašem serveru budou hrát hrači v desítkách, je nepravděpodobná. Jedině, že by jste udělali pořádnej mod v angličtině, protože česko-slovenská scén jde pěkne do kanálu.

_________________
Anarchie je jen sekundární název samovolného pořádku.
<?php
while(true)
{
echo "<script>";
echo "alert('Strašně XSSáckej text!')";
echo "</script>";
}

SpooNy

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: čtv 16. úno 2012 1:12:09

T - Bone Mendez

Registrován: pon 06. zář 2010 17:46:17

Příspěvky: 110

9/10 Přijde mi to dobrá motivace (_

_________________
Moje mapy:
DriftMapka
[url]http://pawno.cz/post283444.html#p283444
[/url]
DžůTůb Kanál!!

Spoiler:

http://www.SpoonyLand.eu

Ewwe

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: čtv 16. úno 2012 7:11:47

Eddie Pulaski

Registrován: úte 02. lis 2010 22:16:14

Příspěvky: 1468

Bydliště: Program Files(x64);

michy04 píše:

PS: Ajaj, za to mě asi ukamenujete :-)

Podle mě je pawn dobrá průprava j celkem podobný c++ a vb ja se diky pawn naucil i neco malo z basicu a pozdeji z c#. Takze si myslim ze je to dobry zacatek

_________________

K temné straně Dooku přidal se. Lži, zrada a nedůvěra jsou teď nástroje jeho.

ffredyk

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: čtv 16. úno 2012 7:35:16

Kendall Johnson "Kendl"

Registrován: úte 24. bře 2009 14:16:39

Příspěvky: 2873

Bydliště: Továrna na marmeželádu / Sklad bagrů

michy04 píše:

PS: Ajaj, za to mě asi ukamenujete :-)

Musím taktéž nesouhlasit

Já také na pawnu začínal (Nepočítám dřívější pokusy s HTML, CSS, PHP, které mi nešli), je to opravdu jednoduchý jazyk, bez složité syntaxe, postavený na jádru C++.
Běží na jednom jádru a tak se nemusí ohlížet na thread-safe program.
Má dobrý kompiler, jenž najde většinu chyb, přepisů a zobrazí varování při divném kódu.
Naučí každého základní syntaxi pro většinu ostatních jazyků (Pro mě, je učení dalšího jazyku docela jednoduché, syntaxe je většinou mírně odlišná a liší se jen funkce a názvy).
Je jednodušší na pochopení a přehlednější než třeba squirrel (Nebudeme se hádat, mě prostě přijde Pawn lepší, tečka.).
A jelikož většina lidí zde, stejně všechno dělá díky různé dokumentaci jak na wikině, tak tady v návodech. Tak si myslím, že oni snad ani s dalšími jazyky nezačnou.

Je to ovšem jen rozmanitost názorů, nevím jestli jsi někdy v Pawn dělal, nejspíš ne, protože by jsi měl na něj lepší názor.

_________________

*Brain reset*
With new brain, new personality, new ffredyk..

Ewwe

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: čtv 16. úno 2012 7:46:23

Eddie Pulaski

Registrován: úte 02. lis 2010 22:16:14

Příspěvky: 1468

Bydliště: Program Files(x64);

michy04 píše:

PS: Ajaj, za to mě asi ukamenujete :-)

Jeste jen tak pro přesnost pawn te moc programovacich navyku nenauci jelikoz je to jazyk scriptovací

_________________

K temné straně Dooku přidal se. Lži, zrada a nedůvěra jsou teď nástroje jeho.

DooM

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: čtv 16. úno 2012 7:49:16

Kendall Johnson "Kendl"

Registrován: sob 31. črc 2010 16:52:29

Příspěvky: 2858

Bydliště: Chomutov

michy04 píše:

PS: Ajaj, za to mě asi ukamenujete :-)

Nesouhlasim.. Kdyz jsem delal Pawn a pak jsem otevrel jednou C# tak mi to jelo jak na dratku hned od prvni minuty

_________________

Seznam programovacích učebnic zdarma

"Jsem vyjímečný.Proto se svým jednáním a chováním nemůžu zapadnout a vy mě budete nazývat jedním slovem "d*bil",protože mě nedokážete pochopit."

"Nic není tak těžké aby to lidský duch nepřekonal"

"Smějte se mi že jsem jiný,ale já se směju vám že vy jste všichni stejní"

SaMpMoNtY

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: čtv 16. úno 2012 10:53:09

T - Bone Mendez

Registrován: pon 09. led 2012 15:23:13

Příspěvky: 84

Dobre Marwin .. sa to začiatočníkom hodí

_________________
Môj pastebin:
http://pastebin.com/u/sampmonty

Mattsy

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: čtv 16. úno 2012 11:20:53

Kendall Johnson "Kendl"

Registrován: ned 28. zář 2008 13:02:11

Příspěvky: 2742

Bydliště: Dreadlands

Nič v zlom Marwin ale myslím si že tí ktorí kopíruju....budú kopírovať....tí ktorým sa nechce rozmýšľať...napíšu help nech im to urobíme a ak pošleme mierne povedané do prdele tak sa prejaví demencia a tí ktorý sa chcú učiť buďto napíšu help s čím začať alebo napíšu do chatu a väčšina im poradí pickup, porty alebo niečo čo k začiatkom až tak veľmi nejde keďže základ sú podmienky, definície, premeny atď... A niektorý rovno otvoria sekciu Návody a vyberú si ten najťažší alebo jeden z komplikovanejších tutov a keď si pozríe niekto tento tvoj "TUT"( neber to zle ale za návod sa to považovať nedá, skôr za rady) Tak sa fakticky dozvedia iba to že majú začaŤ s MTA, kopírovaním z iných skriptov a pickupmy, čiže zase zle pretože potom sa málokto vráti na správnu cestu

ALe prosím ťa neber to zle a už vôbec nie osobne ale napísal som ako to v skutočnosti na tomto fóre pretože v posledných 2 rokoch sem fakt prišlo len minimum uživateľov ktorý sa fakt chceli naučiť pawn a ktorý to naozaj chceli že sa nato nevyprdli

Marwin37

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: čtv 16. úno 2012 15:56:35

Kendall Johnson "Kendl"

Registrován: stř 18. úno 2009 12:34:23

Příspěvky: 2626

tak jako když sem s tím začínal tak jsem tam měl pořád nějaké chyby a nevěděl jsem co s tím pak jsem editoval ten script a bylo to bez chyb ... takže jsem pomalu začal chápat tu syntaxi a díky tomu jsem na té úrovni na které teď jsem

Kaki

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: čtv 16. úno 2012 16:07:01

Barry Thorne "Big Bear"

Registrován: stř 23. bře 2011 14:48:21

Příspěvky: 368

Bydliště: Môj dom , môj hrad :D

moja 1.práca bola taktiež stunt a objekty som našiel na oficial samp foru. A tak som začal

_________________

P-Kaki.Eu

ondras1999

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: úte 17. dub 2012 17:33:44

Nováček

Registrován: pát 06. dub 2012 11:52:09

Příspěvky: 18

Čau všichni!! Jsem tady nový, a chtěl by jsem se naučit pawno. Prosím nevíte kde a jak rychle by jsem se to od základů mohl naučit a co nejrychleji?? Nebo jestli by bylo možné jestli by mi to někdo trochu nevysvětlil??? SKYPE: ondras1999 Díky za pomoc lidi!!!!

AvestX

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: úte 17. dub 2012 17:35:37

Sean Johnson "Sweet"

Registrován: pon 29. čer 2009 17:47:40

Příspěvky: 3156

Bydliště: Petrovice u Sedlčan

ondras1999 píše:

Sklidni se, nikdo ti to nevysvětlí, musíš to pochopit sám, vysvětlit to možná de, ale lehčí je se to naučit a pochopit jak to funguje

todhle je trochu offtopic + spam dohromady ..? nezda se ti?

_________________
Obrázek

[FS] Titanic

Marwin37

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: úte 17. dub 2012 17:53:39

Kendall Johnson "Kendl"

Registrován: stř 18. úno 2009 12:34:23

Příspěvky: 2626

Prostě se to uč jak já nějaký jednoduchý script uprav, vylepši a všechno půjde samo

Petr

Předmět příspěvku: Re: [TuT] Marwin37 aneb Jak jsem začínal

Napsal: úte 17. dub 2012 17:54:52

Moderátor

Registrován: čtv 11. čer 2009 12:47:03

Příspěvky: 2228

Marwin37 píše:

Prostě se to uč jak já nějaký jednoduchý script uprav, vylepši a všechno půjde samo

Učil jsem se podobně, ale podle mě lepší rovnou začít s tvorbou než s úpravou. Začít od základů. Takhle se naučí jakž takž syntax a poté se bude muset doučit základy které mu chybí.

_________________

Stránka 1 z 1

[ Příspěvků: 20 ]

Obsah fóra » Pawno » Návody

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]

Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé

Nemůžete zakládat nová témata v tomto fóru
Nemůžete odpovídat v tomto fóru
Nemůžete upravovat své příspěvky v tomto fóru
Nemůžete mazat své příspěvky v tomto fóru
Nemůžete přikládat soubory v tomto fóru

Přejít na:

Copyright © 2008-2012 Neutrion s.r.o. | Zajímají Vás porno videa? Kupte si dorty od Karlíkovy továrny na dorty! Skvělé jsou čtyřkolky na každodenní užití. Elektronická cigareta je něco, co musíte mít. Elektronická cigareta v prodeji na ecigaretka.cz! neutrion blog | aktuální zprávy | radioaktivní šnek.cz Skvělý blog je adam-lambert.cz a blog u ženy, která se jmenuje Anče Křížová. Rád čtu blogy bordo.cz a businessmag.cz
Skvělé počtení? To je deepoutdoors.cz. Zasněte se a čtěte dreamo.cz a hlavně web katalogycestovek.cz společně se skvělým blogem kver.cz Mám rád také blog ledoborec.com a lockpicking.cz. Zajímají mě finance, proto čtu i morepujcek.cz a chci slyšet moudrá slova, zajímá mě blog moudraslova.cz
Zkuste recenze na recent.cz, nebo IT magazíny it-news.cz a bedlive.info. Blog vaclavhorak.cz Vás jitě překvapí. Jsem si jist, že je recenzeobchodu.cz dokonalý web, stejně jako sliny.cz a it magazín svetinformacicz.cz s blogem autora standablog.cz
Zároveň čtu vitrade.cz a velice mě zajímá zajimame.cz společně s webem zrudicky.cz a jejich bratříčkem globalni.cz Každý má svůj izajem.cz a mnozí programátoři píší na squirrel-box.eu Blog je zajímavý blog.lvalenta.cz, může se jmenovat i san-a.cz, ale existuje i blog adobegroup.czVyzkoušejte antivirus ESET Smart Security 5
Jedeme na phpBB