[GRP] pamoka ligų sistema.

[Harogy]

Prieš pradedant žiūrėti pamoką iškarto pranešu, jog pamoka nemano kurta, aš tik ja dalinuosi.

Manau kažkam pravers

1.Sukuriam kintamuosius,

liga, ligoslygis,

2.Padarom kad prisijungęs žaidėjas netureėu ligos, kad ja saugoto ir užkrautu

Taigi po Public Clear rašom

playerDB[playerid][liga]=0; playerDB[playerid][ligoslygis]=0;

Po Public LoadPlayerData rašom

playerDB[playerid][liga] = dini_Int(file,"Liga");
playerDB[playerid][ligoslygis] = dini_Int(file,"Ligoslygis");

3.Tada po public žaidimas rašom

if(playerDB[playerid][liga]==0)
{
new vezys = random(2300); // 1/2000/min tikimybe
new gripas = random(100); // 1/600/min tikimybe
new pasiutlige = random(1300); // 1/1000/min tikimybe
new persalimas = random(500); // 1/200/min tikimybe
if(persalimas==1)
{
playerDB[playerid][liga]=4;
playerDB[playerid][ligoslygis]=0;
SendClientMessage(playerid,0xAA3333AA,"* Persalote, prasome kreiptis pas gydytojus arba nueiti i vaistine!");
}
else if(pasiutlige==1)
{
playerDB[playerid][liga]=3;
playerDB[playerid][ligoslygis]=0;
SendClientMessage(playerid,0xAA3333AA,"* Pasigavote pasiutlige, prasome kreiptis pas gydytojus arba nueiti i vaistine!");
}
else if(vezys==1)
{
playerDB[playerid][liga]=1;
playerDB[playerid][ligoslygis]=0;
SendClientMessage(playerid,0xAA3333AA,"* Pasigavote vezá, prasome nedelsiant kreiptis pas gydytojus!");
}
else if(gripas==1)
{
playerDB[playerid][liga]=2;
playerDB[playerid][ligoslygis]=0;
SendClientMessage(playerid,0xAA3333AA,"* Pasigavote gripa, prasome kreiptis pas gydytojus arba nueiti i vaistine!");
}
}
else
{
playerDB[playerid][ligoslygis]+=1;
if(playerDB[playerid][liga]==1)
{
if(playerDB[playerid][ligoslygis] == 60)
{
SendClientMessage(playerid,0xAA3333AA,"* Vezys jus prazude galutinai!");
SetPlayerHealth(playerid, 0);
}
else if(playerDB[playerid][ligoslygis] == 50)
{
SendClientMessage(playerid,0xAA3333AA,"* Vezys baigia jus prazudyti!");
SetPlayerDrunkLevel(playerid, 5000);
}
else if(playerDB[playerid][ligoslygis] == 45)
{
SendClientMessage(playerid,0xAA3333AA,"* Vezys jau nualino daugiau nei puse jusu organizmo!");
SendClientMessage(playerid,0xAA3333AA,"* Greiciau kreipkites pas gyditojus !!!!");
SetPlayerDrunkLevel(playerid, 4000);
}
else if(playerDB[playerid][ligoslygis] == 30)
{
SendClientMessage(playerid,0xAA3333AA,"* Vezys paciame stiprume!");
SendClientMessage(playerid,0xAA3333AA,"* Negi jus norite mirti ?! Kreipkites pas gyditoja!!!");
SetPlayerDrunkLevel(playerid, 2500);
}
else if(playerDB[playerid][ligoslygis] == 15)
{
SendClientMessage(playerid,0xAA3333AA,"* Vezys jau pradejo trikdyti jus!");
SetPlayerDrunkLevel(playerid, 1000);
}
else if(playerDB[playerid][ligoslygis] == 5)
{
SendClientMessage(playerid,0xAA3333AA,"* Vezys nuo jusu neatstoja!");
}
}
if(playerDB[playerid][liga]==2)
{
if(playerDB[playerid][ligoslygis] == 90)
{
SendClientMessage(playerid,0xAA3333AA,"* Gripas jus prazude galutinai!");
SetPlayerHealth(playerid, 0);
}
else if(playerDB[playerid][ligoslygis] == 60)
{
SendClientMessage(playerid,0xAA3333AA,"* Gripas baigia jus prazudyti!");
SetPlayerDrunkLevel(playerid, 3000);
}
else if(playerDB[playerid][ligoslygis] == 30)
{
SendClientMessage(playerid,0xAA3333AA,"* Gripas paciame stiprume!");
SetPlayerDrunkLevel(playerid, 2500);
}
else if(playerDB[playerid][ligoslygis] == 10)
{
SendClientMessage(playerid,0xAA3333AA,"* Gripas jau pradejo trikdyti jus!");
SetPlayerDrunkLevel(playerid, 2000);
}
}
if(playerDB[playerid][liga]==3)
{
if(playerDB[playerid][ligoslygis] == 60)
{
SendClientMessage(playerid,0xAA3333AA,"* Pasiutlige jus uzvalde galutinai!");
SetPlayerDrunkLevel(playerid, 5000);
}
else if(playerDB[playerid][ligoslygis] == 40)
{
SendClientMessage(playerid,0xAA3333AA,"* Pasiutlige baigia uzvaldyti jus!");
SetPlayerDrunkLevel(playerid, 4000);
}
else if(playerDB[playerid][ligoslygis] == 25)
{
SendClientMessage(playerid,0xAA3333AA,"* Pasiutlige sutrikde jus dar labiau!");
SetPlayerDrunkLevel(playerid, 2500);
}
else if(playerDB[playerid][ligoslygis] == 10)
{
SendClientMessage(playerid,0xAA3333AA,"* Pasiutlige jau pradejo trikdyti jus!");
SetPlayerDrunkLevel(playerid, 1000);
}
}
if(playerDB[playerid][liga]==4)
{
if(playerDB[playerid][ligoslygis] == 30)
{
SendClientMessage(playerid,0xAA3333AA,"* Sloga dingo savaime!");
playerDB[playerid][liga]=0;
playerDB[playerid][ligoslygis]=0;
}
else if(playerDB[playerid][ligoslygis] == 10)
{
SendClientMessage(playerid,0xAA3333AA,"* Sloga paèiame stiprume, praðome kreiptis á medikus!");
}
}
}

Paprastos kelios komandos

if(strcmp(cmdtext, "/tablete", true)==0)
{
if(playerDB[playerid][tabletes]==0){ SendClientMessage(playerid,COLOR_RED,"* Jus neturite tableciu"); return 1;}
playerDB[playerid][tabletes]-=1;
playerDB[playerid][liga]=0;
playerDB[playerid][ligoslygis]=0;
SetPlayerDrunkLevel(playerid, 0);
SendClientMessage(playerid,0xD9E916FF,"*Prarijote tablete, liga pradejo nykti.");
return 1;
}

if(!strcmp(cmdtext, "/diagnozuoti", true,12))
{
if(playerDB[playerid][specialybe]!=2){SendClientMessage(playerid,0x7DB34DFF,"* Si komanda tik medikams"); return 1;}
if(cmdtext[12]==0){SendClientMessage(playerid,0x7DB34DFF,"* Diagnozuoti zmogaus liga: /diagnozuoti [vardo_dalis]"); return 1;}
new vardas[MAX_PLAYER_NAME];
strmid(vardas,cmdtext[13],0,MAX_PLAYER_NAME);
new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, 0x7DB34DFF, "* Tokio vardo nera"); return 1;}
if (id == playerid){ SendClientMessage(playerid, 0x7DB34DFF, "* Sau diagnozuoti negali"); return 1;}
new Float:Coo[3];
GetPlayerPos(id,Coo[0],Coo[1],Coo[2]);
if(!PlayerToPoint(3, playerid, Coo[0],Coo[1],Coo[2])){SendClientMessage(playerid, 0x7DB34DFF, "* Zaidejas per toli, prieikite arciau."); return 1;}
if (playerDB[id][liga]==0){ SendClientMessage(playerid, 0x7DB34DFF, "* Zaidejas neserga"); return 1;}
if(playerDB[id][liga]==1)
{
new msgz[128];
GetPlayerName(id,vardas,sizeof(vardas));
format(msgz,sizeof(msgz),"* %s serga veziu, isgydimo kaina: 12000 LT",vardas);
SendClientMessage(playerid,0x7DB34DFF,msgz);
}
if(playerDB[id][liga]==2)
{
new msgz[128];
GetPlayerName(id,vardas,sizeof(vardas));
format(msgz,sizeof(msgz),"* %s serga gripu, isgydimo kaina: 200 LT",vardas);
SendClientMessage(playerid,0x7DB34DFF,msgz);
}
if(playerDB[id][liga]==3)
{
new msgz[128];
GetPlayerName(id,vardas,sizeof(vardas));
format(msgz,sizeof(msgz),"* %s serga pasiutlige, isgydimo kaina: 400 LT",vardas);
SendClientMessage(playerid,0x7DB34DFF,msgz);
}
if(playerDB[id][liga]==4)
{
new msgz[128];
GetPlayerName(id,vardas,sizeof(vardas));
format(msgz,sizeof(msgz),"* %s serga sloga, isgydimo kaina: 50 LT",vardas);
SendClientMessage(playerid,0x7DB34DFF,msgz);
}
return 1;
}

Redaguota Liepos 26, 2013, nario -User

[MiZ]

Iš kur traukei skriptą ? iš seno fortcarson gmo ?

[Harogy]

Nu niaaa. Kitame forume radau ir pasidalinau

[Danielius_Driftas]

Galit padet kur tas komandas reik kelt ???