Skriptu gabalai.

[Dovis_Sander]

Sveiki,neturėdamas ką veikti nusprendžiau padaryti keleta skriptu,ir juos sutvarkyti [Kaikurie skriptai nėra kurti mano,tik yra sutvarkyti].

1. UnBaN Sistema,prie šios sistemos ilgiausiai sedėjau,kol sutvarkiau,dabar turėtu pilnai veikti šį sistemą.Naudojimas: /unban [Žaidėjo IP].

 [/center]


[center]if(!strcmp(cmdtext, "/unban", true,6))
{
 new UnBanIP[16], UnBanStr[128],adminname[MAX_PLAYER_NAME];
 GetPlayerName(playerid,adminname,sizeof(adminname));
 strmid(UnBanIP,GetArgument(1, cmdtext,0),0,MAX_PLAYERS);
if(!strcmp(UnBanIP, "0", true) ){SendClientMessage(playerid, COLOR_TEAL, "Atbaninti žaidėją: /unban [žaidėjo IP]."); return 1;}
 format(banfailas,76,"/Ban/%s.ban",UnBanIP);
if(dini_Exists(banfailas))
{
dini_Remove(banfailas);
format(UnBanStr,128,"%s atblokavo %s IP adresa.",adminname, UnBanIP);
if(IsPlayerConnected(playerid) && playerDB[playerid][admin])
{
 SendClientMessage(playerid,COLOR_GREEN,UnBanStr);
}
}
else if(!dini_Exists(banfailas))
{
SendClientMessage(playerid,COLOR_RED," Šis IP adresas nėra užblokuotas.");
}
return 1;
}[/center]

2. /skai parašius šia komandą V.I.P Narys pradės skaičiavima (Galima pasikeisti,galima padaryti kad admin ir t.t).

 [/center]


[center]if(strcmp(cmdtext,"/skai",true) == 0) {
new pName[30];
new stringas[256];
if(Skaicevimas == false)
{
 Skaicevimas = true;[/center]


[center]
GetPlayerName(playerid,pName,sizeof(pName));
 format(stringas, 280, "* V.I.P %s pradejo skaičiavima.",pName);
 SendClientMessageToAll(0xFF000090, stringas);
for(new i; i < MAX_PLAYERS; i++) {
 GameTextForPlayer(i, "~n~~n~~n~~n~~n~~n~~n~~n~~n~~g~~u~~y~ 1 ~g~~d~",1000,3);
PlayerPlaySound(i, 1056, 0 ,0 ,0);[/center]


[center]	 SetTimer("count2",1000,0);
 SetTimer("count1",2000,0);
 SetTimer("countgo",3000,0);
 SetTimer("stop",6000,0);
 }
 }else{ SendClientMessage(playerid, RED, "* Skaičiavimas dabar vyksta.");
}
 return 1;
}[/center]

3.Šį komandą tinka labiausiai policija,parašius /lg [Vardas_Pavardė] Žaidėjui parašys Policijos Pareigūnas prašo jūsų sustoti.

 [/center]


[center]if(!strcmp(cmdtext, "/lg", true,3))
{
if(playerDB[playerid][specialybe]!=1){SendClientMessage(playerid,COLOR_RED," Si komanda tik policininkams."); return 1;}
if(cmdtext[3]==0){SendClientMessage(playerid,BLUE," Policijos garsiakalbis /lg Vardas_Pavarde"); return 1;}
new vardas[MAX_PLAYER_NAME];
strmid(vardas,cmdtext[4],0,MAX_PLAYER_NAME);
 new id = GetPlayeridMid(vardas);
if(id == INVALID_PLAYER_ID)
{
SendClientMessage(playerid, COLOR_RED, " Tokio zaidejo nera");
return 1;
}
new msg[128],admmsg[MAX_PLAYER_NAME];
GetPlayerName(playerid,admmsg,sizeof(admmsg));
GetPlayerName(id,vardas,sizeof(vardas));[/center]


[center] format(msg,sizeof(msg)," Zaidejo %s paprasiai sustoti.",vardas);
SendClientMessage(playerid,COLOR_GREEN,msg);[/center]


[center] format(msg,sizeof(msg),"[POLICIJA] Pareigūnas %s prašo jūsų sustoti.",admmsg);
SendClientMessage(id,COLOR_GREEN,msg);
 return 1;
}[/center]

4.Šį komandą irgi labiau skirta policijai,parašius /alko [Vardas_Pavardė] Jums parašys koks girtumo promiliu laipsnis.

[center]if(!strcmp(cmdtext, "/mboom", true))
{
  if(playerDB[playerid][specialybe]!=12){SendClientMessage(playerid,RED,"* Ši komanda tik mechanikui!"); return 1;}
  if(!IsPlayerInAnyVehicle(playerid)){
SendClientMessage(playerid,RED,"* Turi buti transporto priemoneje!");
return 1;
 }
if(IsPlayerInAnyVehicle(playerid)) SetVehicleHealth(GetPlayerVehicleID(playerid),-7);
return 1;
 }

Skriptai bus pildomi,rytoj padarysiu didesni update

.

Patiko? +Rep.

Redaguota Kovo 31, 2013, nario ! Misterišš !

[wuPoR]

Pravers kam nors. Beto, gali dėt ne tik su strmcp o ir su zcdm.

[TwiiCer]

Panaudos kažkas gal.

[Aivaras]

Ne juk *Myliu SuperGames.lt* yra scriptu gabalai zjbs jei skai ipisai be timeriu publicku tai čia irgi *Myliu SuperGames.lt*.

[Dovis_Sander]

Ne juk *Myliu SuperGames.lt* yra scriptu gabalai zjbs jei skai ipisai be timeriu publicku tai čia irgi *Myliu SuperGames.lt*.

Turi būti su timeriais..

[Aivaras]

Turi būti su timeriais..

Tai timeriu įjungimas yra, o kur jų veiksmas?

[Silveris_P]

Sveiki,neturėdamas ką veikti nusprendžiau padaryti keleta skriptu,ir juos sutvarkyti [Kaikurie skriptai nėra kurti mano,tik yra sutvarkyti].

1. UnBaN Sistema,prie šios sistemos ilgiausiai sedėjau,kol sutvarkiau,dabar turėtu pilnai veikti šį sistemą.Naudojimas: /unban [Žaidėjo IP].

 [/center]


[center]if(!strcmp(cmdtext, "/unban", true,6))
{
 new UnBanIP[16], UnBanStr[128],adminname[MAX_PLAYER_NAME];
 GetPlayerName(playerid,adminname,sizeof(adminname));
 strmid(UnBanIP,GetArgument(1, cmdtext,0),0,MAX_PLAYERS);
if(!strcmp(UnBanIP, "0", true) ){SendClientMessage(playerid, COLOR_TEAL, "Atbaninti žaidėją: /unban [žaidėjo IP]."); return 1;}
 format(banfailas,76,"/Ban/%s.ban",UnBanIP);
if(dini_Exists(banfailas))
{
dini_Remove(banfailas);
format(UnBanStr,128,"%s atblokavo %s IP adresa.",adminname, UnBanIP);
if(IsPlayerConnected(playerid) && playerDB[playerid][admin])
{
 SendClientMessage(playerid,COLOR_GREEN,UnBanStr);
}
}
else if(!dini_Exists(banfailas))
{
SendClientMessage(playerid,COLOR_RED," Šis IP adresas nėra užblokuotas.");
}
return 1;
}[/center]

2. /skai parašius šia komandą V.I.P Narys pradės skaičiavima (Galima pasikeisti,galima padaryti kad admin ir t.t).

 [/center]


[center]if(strcmp(cmdtext,"/skai",true) == 0) {
new pName[30];
new stringas[256];
if(Skaicevimas == false)
{
 Skaicevimas = true;[/center]


[center]
GetPlayerName(playerid,pName,sizeof(pName));
 format(stringas, 280, "* V.I.P %s pradejo skaičiavima.",pName);
 SendClientMessageToAll(0xFF000090, stringas);
for(new i; i < MAX_PLAYERS; i++) {
 GameTextForPlayer(i, "~n~~n~~n~~n~~n~~n~~n~~n~~n~~g~~u~~y~ 1 ~g~~d~",1000,3);
PlayerPlaySound(i, 1056, 0 ,0 ,0);[/center]


[center]	 SetTimer("count2",1000,0);
 SetTimer("count1",2000,0);
 SetTimer("countgo",3000,0);
 SetTimer("stop",6000,0);
 }
 }else{ SendClientMessage(playerid, RED, "* Skaičiavimas dabar vyksta.");
}
 return 1;
}[/center]

3.Šį komandą tinka labiausiai policija,parašius /lg [Vardas_Pavardė] Žaidėjui parašys Policijos Pareigūnas prašo jūsų sustoti.

 [/center]


[center]if(!strcmp(cmdtext, "/lg", true,3))
{
if(playerDB[playerid][specialybe]!=1){SendClientMessage(playerid,COLOR_RED," Si komanda tik policininkams."); return 1;}
if(cmdtext[3]==0){SendClientMessage(playerid,BLUE," Policijos garsiakalbis /lg Vardas_Pavarde"); return 1;}
new vardas[MAX_PLAYER_NAME];
strmid(vardas,cmdtext[4],0,MAX_PLAYER_NAME);
 new id = GetPlayeridMid(vardas);
if(id == INVALID_PLAYER_ID)
{
SendClientMessage(playerid, COLOR_RED, " Tokio zaidejo nera");
return 1;
}
new msg[128],admmsg[MAX_PLAYER_NAME];
GetPlayerName(playerid,admmsg,sizeof(admmsg));
GetPlayerName(id,vardas,sizeof(vardas));[/center]


[center] format(msg,sizeof(msg)," Zaidejo %s paprasiai sustoti.",vardas);
SendClientMessage(playerid,COLOR_GREEN,msg);[/center]


[center] format(msg,sizeof(msg),"[POLICIJA] Pareigūnas %s prašo jūsų sustoti.",admmsg);
SendClientMessage(id,COLOR_GREEN,msg);
 return 1;
}[/center]

4.Šį komandą irgi labiau skirta policijai,parašius /alko [Vardas_Pavardė] Jums parašys koks girtumo promiliu laipsnis.

[center]if(!strcmp(cmdtext, "/mboom", true))
{
if(playerDB[playerid][specialybe]!=12){SendClientMessage(playerid,RED,"* Ši komanda tik mechanikui!"); return 1;}
if(!IsPlayerInAnyVehicle(playerid)){
SendClientMessage(playerid,RED,"* Turi buti transporto priemoneje!");
return 1;
}
if(IsPlayerInAnyVehicle(playerid)) SetVehicleHealth(GetPlayerVehicleID(playerid),-7);
return 1;
}

Skriptai bus pildomi,rytoj padarysiu didesni update

.

Patiko? +Rep.

pakeisk komanda ten /mboom