Scripto "Gabalai"

[T-R-I-X]

Žaliems: Atsidarai pawno programa tada spaudi FILE tada OPEN susirandi savo GameMode folderį eini į tą folderį Spaudi CTRL+F ir rašai OnPlayerCommandText ir po šita eilute keli scriptus.

Visos komandos kurios yra apačioje:

1./to - nusiteleportuoja pas pasirinktą žmogų

3./parduotizole - pasirenki žmogų žolės kiekį , kainą ir parduodi žolę

4./atelevisus - atiteleportuoja visus žaidėjus prie žmogaus kuris parašė šią komandą, nereik jokių sutikimų.

5./refresh - jai išsiteleportavai iš pastato ir nebematai nieko aplinkui parašes šią komanda vėl viską matai.

6./suteik - suteikia pasirinktam žmogui teises.

7./dpapyldima - duoda saskaitos papyldima pasirinktam žmogui.

Komanda /to nusigabenti pas pasirinktą žmogų:

if(!strcmp(cmdtext, "/to", true,3))
{
if(cmdtext[3]==0){SendClientMessage(playerid, Balta, "Keliauti pas žaidėja: {FF0000}/to {00FF00}dalis vardo"); 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, 0xAA3333AA, " Tokio žaidėjo nėra"); return 1;}
if (playerDB[id][ikalintas]) {SendClientMessage(playerid, 0xAA3333AA, " Žaidėjas kalėjime"); return 1;}
if (playerDB[playerid][ikalintas]) {SendClientMessage(playerid, 0xAA3333AA, " Jūs esate kalėjime"); return 1;}
if (GetPlayerVirtualWorld(id)>0){SendClientMessage(playerid, RED, " Žaidėjas pastate teleportuotis negalima"); return 1;}
SetPlayerInterior(playerid,GetPlayerInterior(id));
if(!IsPlayerInAnyVehicle(playerid))
{
new Float:tempcoo[3];
GetPlayerPos(id,tempcoo[0],tempcoo[1],tempcoo[2]);
SetPlayerPos(playerid,tempcoo[0],tempcoo[1],tempcoo[2]);
SetCameraBehindPlayer(playerid);
}
new Float:tempcoh[3];
GetPlayerPos(id,tempcoh[0],tempcoh[1],tempcoh[2]);
new vehicleid = GetPlayerVehicleID(playerid);
SetVehiclePos(vehicleid,tempcoh[0],tempcoh[1],tempcoh[2]);
return 1;
}

Žolės(kanapių) pardavimo scriptas :

if(strcmp(cmdtext, "/parduotizole", true,13)==0)
{

if(playerDB[playerid][zole]<1) return SendClientMessage(playerid,0xAA3333AA,"* Tu neturi žolės");
if(cmdtext[13]==0) return SendClientMessage(playerid,BLUE,"* Parduoti žole: /parduotizole [Vardas_Pavarde] [kiek] [vieno_gramo_kaina]");
new vardas[MAX_PLAYER_NAME], kiek, kaina;
strmid(vardas,GetArgument(1, cmdtext,0),0,MAX_PLAYER_NAME);
if(!IsNumeric(GetArgument(2, cmdtext,0)) || !IsNumeric(GetArgument(3, cmdtext,0))) return SendClientMessage(playerid,Melina,"* Parduoti žole: /parduotizole [Vardas_Pavarde] [kiek] [viso_kaina]");
kiek = StringToInt(GetArgument(2, cmdtext,0));
kaina = StringToInt(GetArgument(3, cmdtext,0));
if(!strcmp("0",vardas,true) || kiek == 0 || kaina == 0) return SendClientMessage(playerid,BLUE,"* Parduoti zole: /parduotizole [Vardas_Pavarde] [kiek] [viso_kaina]");
if(kiek > playerDB[playerid][zole]) return SendClientMessage(playerid,0xAA3333AA,"* Tu neturi tiek žolės!");
new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID) return SendClientMessage(playerid, 0xAA3333AA, "* Tokio žaidėjo nėra");
if( GetPlayerScore(id) < 3500 ) return SendClientMessage(playerid, 0xAA3333AA, "* Žaidėjas dar nepakankamai patyres.");
playerDB[id][textas]=9;
playerDB[id][rkiekis][0]=kiek;
playerDB[id][rkaina][0]=kaina;
playerDB[id][rid][0]=playerid;
new msg[128],name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,sizeof(name));
format(msg,sizeof(msg),"%s jums siulo %i gramu zoles uz %i LT. priimti? [taip/ne]",name,kiek,kaina);
SendClientMessage(id,BLUE,msg);
return 1;
}

Šis scriptas atiteleportuoja visus prie savęs:

if(!strcmp(cmdtext, "/atelevisus", true,11))
{
if(playerDB[playerid][savininkas] != true){SendClientMessage(playerid, RED, "* Tokios komandos nėra!"); return 1;}
new Float:tempcoo[3];
GetPlayerPos(playerid,tempcoo[0],tempcoo[1],tempcoo[2]);
for(new id=0;id<MAX_PLAYERS;id++)
{

if(IsPlayerConnected(id))
{
if(!playerDB[id][ikalintas]){
SetPlayerPos(id,tempcoo[0],tempcoo[1],tempcoo[2]);
SetCameraBehindPlayer(id);
SetPlayerInterior(id,GetPlayerInterior(playerid));
}
}
}
return 1;
}

Jai išsiteleportavai iš pastato ir neberodo nieko rašyk šią komandą ir rodys :

if(!strcmp(cmdtext, "/refresh", true , 3))
{
if(!IsPlayerAttachedObjectSlotUsed(playerid, 0))
{
TogglePlayerControllable(playerid,true);
}
SetPlayerVirtualWorld( playerid, 0 );
SetPlayerInterior( playerid, 0 );

return 1;
}

Ši komanda suteikia žaidėjui teises.

if(!strcmp(cmdtext, "/suteik", true, 5))
{
new vardas[MAX_PLAYER_NAME];
strmid(vardas,GetArgument(1, cmdtext,0),0,MAX_PLAYER_NAME);
if(!strcmp(vardas, "0", true) ){SendClientMessage(playerid, Balta, "Suteikti teises: {FF0000}/suteik {FF0000}vardo dalis"); return 1;}
new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, 0xAA3333AA, " Tokio žaidėjo nėra"); return 1;}
playerDB[id][teises] = true;
SendClientMessage(playerid, -1, "Teisės suteiktos!");
return 1;
}

Parašius šią komandą žmogus gaus irašyta saskaitos papyldimo sumą :

if(!strcmp(cmdtext, "/dpapyldima", true,7))
{
if(playerDB[playerid][savininkas] != true){SendClientMessage(playerid, RED, "Tokios komandos nėra!"); return 1;}
new tname[MAX_PLAYER_NAME];
strmid(tname,GetArgument(1, cmdtext, 0),0,MAX_PLAYER_NAME);
if(!strcmp(tname,"0",true)){SendClientMessage(playerid, Zalia, "{FFFFFF}Duoti Saskaitos papyldimą: {FFFF00}/dzoles [Dalis_Nicko] [Kiek]"); return 1;}
new tid = GetPlayeridMid(tname);
GetPlayerName(tid,tname,sizeof(tname));
new tstring[256];
tstring = GetArgument(2, cmdtext, 0);
if(!IsNumeric(tstring)){SendClientMessage(playerid, Zalia, "{FFFFFF}Duoti Saskaitos papyldimąs: {FFFF00}/dzoles [Dalis_Nicko] [Kiek (Turi But Skaičius)]"); return 1;}
new moneys = StringToInt(tstring);
if(moneys == 0){SendClientMessage(playerid, Zalia, "{FFFFFF}Duoti Saskaitos papyldimą: {FFFF00}/dzoles [Dalis_Nicko] [Kiek]"); return 1;}
playerDB[tid][papildimas]+=moneys;
new mess[358],name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,sizeof(name));
format(mess,sizeof(mess)," {FFFF00}[%s >> %i Saskaitos papyldimą] {FFFFFF}Gavote {FFFF00}%i Saskaitos papyldimą {FFFFFF}Iš {FFFF00}%s",name,moneys,moneys,name);
SendClientMessage(tid,Zalia,mess);
format(mess,sizeof(mess)," {FFFF00}[%i Saskaitos papyldimą >> %s] {FFFFFF}Davete {FFFF00}%i Saskaitos papyldimą %s",moneys,tname,moneys,tname);
SavePlayerData(tid,false);
SendClientMessage(playerid,Zalia,mess);
return 1;
}

Ši komanda perkraus (atstatys) visą nenaudojama transportą:

}
if(strcmp(cmdtext, "/perkrautimasinas", true) == 0)
{
if(IsPlayerConnected(playerid))
{
if(playerDB[playerid][savininkas] != true)
{
SendClientMessage(playerid, Balta, " Jūs negalite naudoti šios komandos!");
return 1;
}
new bool:unwanted[MAX_VEHICLES];
for(new player=0; player<MAX_PLAYERS; player++)
{
if(IsPlayerInAnyVehicle(player)) { unwanted[GetPlayerVehicleID(player)]=true; }
}
for(new car = 1; car <= 1850; car++)
{
if(!unwanted[car]) SetVehicleToRespawn(car);
}
GameTextForAll("~w~Visos nenaudojamos masinos ~n~~g~atstatytos!",5000,1);
new y, m, d;
new h,mi,s;
getdate(y,m,d);
gettime(h,mi,s);
}
return 1;
}

Visas komandas patikrinau , visos puikiai veikia, jai neveikia tai tikriausiai dėlto , kad pamiršot isirašyt pagal savo GM kintamūjų arba blogai ikelėt.

Tarkim Pas mane GameMode kintamasis "savininkas" aš dedu šitokią eilutę

if(playerDB[playerid][savininkas] != true){SendClientMessage(playerid, RED, "* Tokios komandos nėra!"); return 1;}

Jai pas jumis kintamasis ne savininkas o tarkim superadmin jūs pakeičiate eilute į šitaip :

 if(playerDB[playerid][superadmin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nėra!"); return 1;}

Jai reikės kokios pagalbos ar dar kažko visada jums padėsiu kiek galėsiu

Mano skype: beautifull393

Po biški vis dadėsiu scriptu , jai turit pageidavimų rašykit imesiu komanda kokia norėsit.

Redaguota Balandžio 6, 2013, nario T-R-I-X

[musicx]

Daviau +rep, šaunuolis

[T-R-I-X]

Dėkui

[rytukas51]

Scripto galabai, get nepilną komandą..

[Aivaras]

Lempu lempa *Myliu SuperGames.lt* ištraukė iš gm visiškai net nežiūrėjas kas per CMD atsakau.

if(!strcmp(cmdtext, "/dpapyldima", true,7))

{

if(playerDB[playerid][savininkas] != true){SendClientMessage(playerid, RED, "Tokios komandos nėra!"); return 1;}

new tname[MAX_PLAYER_NAME];

strmid(tname,GetArgument(1, cmdtext, 0),0,MAX_PLAYER_NAME);

if(!strcmp(tname,"0",true)){SendClientMessage(playerid, Zalia, "{FFFFFF}Duoti Saskaitos papyldimą: {FFFF00}/dzoles [Dalis_Nicko] [Kiek]

Visai *Myliu SuperGames.lt*

kitos cmd net nebaigtos nu lempa vn zodziu

[T-R-I-X]

Dominic ir už ką -REP? už nieką?

Aivaras_Vercetti - tai tu avinas esi kad atsakai , nes 100% viskas veikia.

Per kurią vietą /get nepilna ?

Redaguota Balandžio 3, 2013, nario T-R-I-X

[T-R-I-X]

Jūs asilai visas komandas apžiūrėjau visos puikiai veikia , negydikit kad neveikia ..

Nepatinka nenaudokit yra kam patinka, wpš axujeline..

[rytukas51]

Įsitikinęs, kad veike visos? get komandą neveiks..

[T-R-I-X]

Visiškai įsitikines, nes savo gm naudoju.

[rytukas51]

Žaidėjas paspaudęs sutinku nieko nebus.. jei tu iki šiol nesupranti..

[DominiC.]

Dominic ir už ką -REP? už nieką?

Aivaras_Vercetti - tai tu avinas esi kad atsakai , nes 100% viskas veikia.

Per kurią vietą /get nepilna ?

srry netyčia norėjau +rep

[T-R-I-X]

Žaidėjas paspaudęs sutinku nieko nebus.. jei tu iki šiol nesupranti..

tu isimesk i gm savo ir pabandyk ta sakyk kad klaidu yra

srry netyčia norėjau +rep

Nieko tokio , Dekui

[dzeronimo]

tu isimesk i gm savo ir pabandyk ta sakyk kad klaidu yra

Nieko tokio , Dekui

Klaidos manau su komanda gal ir nebus o gal ir bus kad Ismeta žaidėjui lentele jis sutinka ir nk nebus :DDDDDDDDDD nes Nera Dialogid == 1396 funkcijos) sako veiks

[T-R-I-X]

o cia kas?

ShowPlayerDialog(id,1396,DIALOG_STYLE_MSGBOX,vardas , msg,"Sutikti","Nesutikti");

return 1;

}

[rytukas51]

O kur šitas?

if(dialogid == 1396)
{
if(response)
{
.....

[Aivaras]

Dominic ir už ką -REP? už nieką?

Aivaras_Vercetti - tai tu avinas esi kad atsakai , nes 100% viskas veikia.

Per kurią vietą /get nepilna ?

*Myliu SuperGames.lt* jei būtum žiūrėjas nebūtum tą dpapyldima su dzole palikęs, o *Myliu SuperGames.lt* nevierchink tu čia, sako veiks tai aišku, kad veiks kaip testinti su tuo GM iš kurio traukiai, nes ten yra tolimesnis GET veiksmas kurio tu net nežinai, kad reikia ir kur jis yra vpš.

[T-R-I-X]

Tu wps nerink cia postu.

[rytukas51]

Arba tu debilas arba tu išvis žalias per pawn..

[T-R-I-X]

Arba tu debilas arba tu išvis žalias per pawn..

va link n x dziumbras ku rva.

[Aivaras]

va link n x dziumbras ku rva.

Da pašli tu nax.ui p.oxui man tie tavo postai eik pasiskūsk, kad ištrintu man tus postus žąsine gal praliksmėsi.