[GRP]VIP Sistema

popa11 · Lapkričio 11, 2010

Ši vip sistema nėra būtent mano išmislas , tiesiog ją moku pasidaryti ir joje bus daugiau pričindalų t.y. funkcijų vipams nei kitų supportų vip pamokoj.. Gal biškį suvėliau , bet pradedam..

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

if(IsPlayerConnected(i) && playerDB[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

{

if(IsPlayerConnected(i) && playerDB[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.

Endis · Lapkričio 11, 2010

Ripinta. ( http://gta-support.lt/vip-sistema-t771.html )

Deiwa123 · Gegužės 3, 2011

Man meta 26 errorus :

data/playerDB.txt(27) : error 001: expected token: "}", but found "-identifier-"

data/functions.txt(15) : error 017: undefined symbol "specialybe"

data/functions.txt(36) : error 017: undefined symbol "specialybe"

data/functions.txt(64) : error 017: undefined symbol "specialybe"

data/functions.txt(78) : error 017: undefined symbol "specialybe"

data/functions.txt(92) : error 017: undefined symbol "specialybe"

data/functions.txt(106) : error 017: undefined symbol "specialybe"

data/functions.txt(119) : error 017: undefined symbol "specialybe"

data/functions.txt(134) : error 017: undefined symbol "lektuvas"

data/functions.txt(317) : error 017: undefined symbol "kalejimo_laikas"

data/mobilus.txt(20) : error 017: undefined symbol "banke"

data/mobilus.txt(22) : error 017: undefined symbol "mobsas"

data/mobilus.txt(23) : error 017: undefined symbol "banke"

data/mobilus.txt(30) : error 017: undefined symbol "mobsas"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(140) : error 017: undefined symbol "authstate"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(142) : error 017: undefined symbol "authstate"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(203) : error 017: undefined symbol "authstate"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(233) : error 017: undefined symbol "authstate"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(236) : error 017: undefined symbol "authstate"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(241) : error 017: undefined symbol "drabuziai"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(242) : error 017: undefined symbol "lytis"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(245) : error 017: undefined symbol "specialybe"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(249) : error 017: undefined symbol "specialybe"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(253) : error 017: undefined symbol "specialybe"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(257) : error 017: undefined symbol "specialybe"

C:\DOCUME~1\Admin\Desktop\GRP5_9~1\GAMEMO~1\LTGGRP~1.PWN(261) : error 017: undefined symbol "specialybe"

26 Errors.

FreeZ- · Gegužės 3, 2011

Ripinta. Deiva eik y pawno folderi pasijunk ir per open pasijunk savo gm ir f5 spausk..

Smiki_Addidas · Vasario 10, 2013

Mldc .Man praverte.

Prisijungti

[GRP]VIP Sistema

Recommended Posts

popa11

Endis

Deiwa123

FreeZ-

Smiki_Addidas

Šiame puslapyje naršo: 0 nariai

Skelbimai

Naujausios temos

Naujausi būsenos atnaujinimai

Nustatymai

Teksto formatavimas

Nario nuotrauka

Member

Nustatymai

Populiariausi nariai

📝 Referatai, konspektai, kursiniai ir kt. rašto darbai ✏️

📝 Referatai, konspektai, kursiniai ir kt. rašto darbai ✏️

📝 Referatai, konspektai, kursiniai ir kt. rašto darbai ✏️

Naujienos

Bendruomenė

Prisijungti

[GRP]VIP Sistema

Recommended Posts

Šiame puslapyje naršo: 0 nariai

Skelbimai

Naujausios temos

Naujausi būsenos atnaujinimai Nustatymai Teksto formatavimas Nario nuotrauka Member Išsaugoti

Nustatymai

Populiariausi nariai

Naujausi būsenos atnaujinimai

Nustatymai

Teksto formatavimas

Nario nuotrauka

Member