Pagrindinis diskusijų puslapis
Prisijungti
Registruotis
Ieškoti
1. Serveris>gamemode>data>playerDB.txt faile prie visų bool'ų prirašome:
Kodas: Pasirinkti visus
bool:vip,Išsaugoję einame į savo Gamemode'ą..
Susirandame scriptuką:
Kodas: Pasirinkti visus
if(GetPlayerSpecialAction(playerid) == SPECIAL_ACTION_USEJETPACK)
{
if(playerDB[playerid][admin]) return;
new name[MAX_PLAYER_NAME],msg[128];
GetPlayerName(playerid,name,sizeof(name));
format(msg,sizeof(msg),"%s buvo užblokuotas serveryje (jetpack)",name);
SendClientMessageToAll(0x0080C0FF,msg);
SendClientMessage(playerid,0xFF8040FF,"* Jūs buvote užblokuotas už jetpack naudojimą.");
Ban(playerid);
return;
}ir prie [admin] darašome [vip].. Viskas atrodytų taip:
Kodas: Pasirinkti visus
{
if(playerDB[playerid][admin] || playerDB[playerid][vip]) return;
new name[MAX_PLAYER_NAME],msg[128];
GetPlayerName(playerid,name,sizeof(name));
format(msg,sizeof(msg),"%s buvo užblokuotas serveryje (jetpack)",name);
SendClientMessageToAll(0x0080C0FF,msg);
SendClientMessage(playerid,0xFF8040FF,"* Jūs buvote užblokuotas už jetpack naudojimą.");
Ban(playerid);
return;
}2. Susirandame eilutę:
Kodas: Pasirinkti visus
public Clear(playerid)po ja randame:
Kodas: Pasirinkti visus
zinutes[playerid]="--";
playerDB[playerid][admin]=false;ir iškart po tuo kodu darašome tokią pat eilutę , tik su [vip].
Viskas turi atrodyti taip:
Kodas: Pasirinkti visus
public Clear(playerid)
{
zinutes[playerid]="--";
playerDB[playerid][admin]=false;
playerDB[playerid][vip]=false;3. Priskiriame VIP nariams vartų komandas..
Susirandam tokią eilutę:
Kodas: Pasirinkti visus
if(playerDB[playerid][specialybe]==7 || playerDB[playerid][admin])Ir po [admin] prirašome:
Kodas: Pasirinkti visus
|| playerDB[playerid][vip]Viskas atrodytų taip:
Kodas: Pasirinkti visus
if(playerDB[playerid][specialybe]==7 || playerDB[playerid][admin] || playerDB[playerid][vip])Ir po šia eilute turėtų būti panaši eilutė , kad leistų atidaryti VISUS vartus.. prirašome taip pat
Kodas: Pasirinkti visus
|| playerDB[playerid][vip]4. Kągi , sekantis dalykas kūrį turime padaryti , tai ,kad rodytų esančius vipus online.
Susirandame /admin komandą ir po ja rašome:
Kodas: Pasirinkti visus
if(!strcmp(cmdtext, "/vip", true,4))
{
if(!cmdtext[4])
{
new zin[256] = "VIP Online:";
new name[MAX_PLAYER_NAME];
for(new i = 0; i <MAX_PLAYERS; i++){
if(IsPlayerConnected(i) && playerDB[i][vip]){
GetPlayerName(i,name,MAX_PLAYER_NAME);
format(zin,256,"%s %s,",zin,name);
}
}
SendClientMessage(playerid,COLOR_GREEN,zin);
return 1;
}
new zin[128],name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,MAX_PLAYER_NAME);
format(zin,sizeof(zin),"%s VIPams: %s",name,cmdtext[7]);
for(new i = 0; i <MAX_PLAYERS; i++)
{
if(IsPlayerConnected(i) && playerDB[i][vip])
{
SendClientMessage(i,COLOR_GREEN,zin);
}
}
SendClientMessage(playerid,COLOR_GREEN,zin);
return 1;
}5. Padarysim , kad vip galėtų rašyti su /v komanda , taip kaip ir administratoriai.. t.y. kad visi matytų.
Po komanda kurią prieš tai įkėlėme rašome:
Kodas: Pasirinkti visus
if(playerDB[playerid][vip])
{
if(!strcmp(cmdtext, "/v ", true,3)){
if(cmdtext[2]==0){SendClientMessage(playerid,GREEN, "* Naudojimas: /v [tekstas]"); return 1;}
new zin[256];
format(zin,sizeof(zin),"VIP: %s",cmdtext[3]);
SendClientMessageToAll(GREEN,zin);
return 1;
}
}6. Sekantis žingsnis: /vtaisyti , /vskristi , /vginklai komandos.
/vtaisyti - Sutaiso mašiną už kažkokią pinigų sumą.
/vskristi - VIPas gauna specialų jetpack , t.y. gali skraidyti su juo.
/vginklai - VIPas gauna specialius vip paskirtus ginklus..
Taigi visas funkcijas rašysime po praeita komanda..
/vskristi:
Kodas: Pasirinkti visus
if(strcmp(cmdtext, "/vskristi", true)==0)
{
SetPlayerSpecialAction(playerid,SPECIAL_ACTION_USEJETPACK);
return 1;
}/vtaisyti:
Kodas: Pasirinkti visus
if(!strcmp(cmdtext, "/vtaisyti", true))
{
if(!playerDB[playerid][vip]){SendClientMessage(playerid,RED,"* Si komanda tik VIPams!"); return 1;}
if(!IsPlayerInAnyVehicle(playerid))
{
SendClientMessage(playerid,RED,"* Tu esi ne transporto priemoneje");
return 1;
}
if(GetPlayerMoneyA(playerid)<1000) //Jūsų norima mašinos taisymo suma.[TIKRINS AR ŽAIDĖJAS TURI TIEK PINIGŲ]
{
SendClientMessage(playerid,RED,"* Taisymo kaina 1000 lt!");
return 1;
}
GivePlayerMoneyA(playerid,-1000); //Čia taip pat pakeiskit savo sumą..[ČIA JĄ PAIMS IŠ ŽAIDĖJO]
SendClientMessage(playerid,GREEN,"* Sutaisei transporto priemone!");
if(IsPlayerInAnyVehicle(playerid)) RepairVehicle(GetPlayerVehicleID(playerid));
return 1;
}/vginklai:
Kodas: Pasirinkti visus
if(strcmp(cmdtext, "/vginklai", true)==0)
{
GivePlayerWeapon(playerid,24,300); //Desert Eagle pistoletas
GivePlayerWeapon(playerid,25,300); //Shotgun ilgo vamzdžio pompa
GivePlayerWeapon(playerid,34,200); //Sniper Rifle
GivePlayerWeapon(playerid,30,300); //AK-47 Automatas
GivePlayerWeapon(playerid,43,100000); //Foto aparatas
GivePlayerWeapon(playerid,1,1); //Kastetai
GivePlayerWeapon(playerid,46,100000); //Parašiutas
SendClientMessage(playerid,COLOR,"* Jus gavote VIP ginklus !");
return 1;
}7. Toliau reikia padaryti , kad žmonės žinotų kaip vip užsisakyti , kokios jų funkcijos..
Po /masina ir /veiksmai komandom rašom:
Kodas: Pasirinkti visus
if(strcmp(cmdtext, "/vinfo", true)==0)
{
SendClientMessage(playerid,RED,"*==============Vip Informacija===============");
SendClientMessage(playerid,GREEN,"* VIP žaidėjai žymimi žalia spalva");
SendClientMessage(playerid,WHITE,"* VIP žaidėjai gali rašyti per /v chat'ą , kad visi matytų!");
SendClientMessage(playerid,WHITE,"* VIP žaidėjai gali naudotis specialiais VIP ginklais!");
SendClientMessage(playerid,WHITE,"* VIP žaidėjai gali naudotis visomis vartų komandomis!");
SendClientMessage(playerid,WHITE,"* VIP žaidėjai gali naudoti jetpack /vskristi!");
SendClientMessage(playerid,WHITE,"* VIP žaidėjai gali susitaisyti mašiną parašę /vtaisyti - kaina 1000lt!");
SendClientMessage(playerid,WHITE,"* Dėl VIP statuso kreiptis į skype.");
SendClientMessage(playerid,WHITE,"* VIP Kaina 700lt/min - Plačiau skype.");
SendClientMessage(playerid,RED,"* Nusižengus VIP taisyklėms , vip statusas gali būti atimtas.");
return 1;
}8. Toliau reikia padaryti , kad VIP gautų specialų prisijungimo pasveikinimą tokį kaip ir adminui..
Susirandame:
Kodas: Pasirinkti visus
new exp = dini_Int(file,"Xp");
if(dini_Int(file,"Admin") == 1) playerDB[playerid][admin]=true;Darašome:
Kodas: Pasirinkti visus
if(dini_Int(file,"Vip") == 1) playerDB[playerid][vip]=true;Viskas atrodytų taip:
Kodas: Pasirinkti visus
new exp = dini_Int(file,"Xp");
if(dini_Int(file,"Admin") == 1) playerDB[playerid][admin]=true;
if(dini_Int(file,"Vip") == 1) playerDB[playerid][vip]=true;Po šiomis eilutėmis iškart žemiau pamatysite eilutę:
Kodas: Pasirinkti visus
if(playerDB[playerid][admin])Darašome [vip] ir viskas turi atrodyt šitaip:
Kodas: Pasirinkti visus
if(playerDB[playerid][admin] || playerDB[playerid][vip])
9. Paskutinė funkcija , tai tikrinimas ar žaidėjas yra vip ir nustatoma jo defaultinė spalva.. (ŽALIA)
Pradžioje susirandame šias eilutes:
Kodas: Pasirinkti visus
if(playerDB[playerid][specialybe]==1)
{
SetPlayerColor(playerid, 0x004E5BFF);
}
if(playerDB[playerid][specialybe]==2)
{
SetPlayerColor(playerid, COLOR_RED);Virš jų rašome:
Kodas: Pasirinkti visus
if(playerDB[playerid][vip])
{
SetPlayerColor(playerid, 0x40FF40FF);
}Baigta , spaudžiame F5 , kad sucompiliuotume.. VIP užsidėjimas: "scriptfiles>saves>users>xxx_xxx.ini" apačioj prirašome vip=1
PRAŠAU PAMOKOS NEPUBLIKUOTI,NEVIEŠINTI KITUOSE FORUMUOSE.
