VIP RENDSZER v1.0
Parancsok:
/vipad - rCon admin használhatja. ( VIP rangot lehet adni a játékosnak. )
/vipel - rCon admin használhatja. ( VIP rangot tudunk elvenni a játékostól. )
/vipv - VIP tag saját jármûvet hívhat le magának, ha már egyet lehívtunk az elõzõ törlõdik. )
======================================
VIP rangal járó \"bónuszok\":
Sima játékos ha megöl valakit 1000$ -t és 1 score-t kap. Illetve a meggyilkolttól levonásra kerül pont / pénz. Ha a VIP játékos megöl valakit 2000$-t és 2 score-t kap. Halál esetén semmi sem vonódik le.
/*-------------------------------------------------------------*/
FONTOS: Tesztelni nem tudtam, ezért a hibákért elnézést kérek, legyetek szívesek leírni hsz.-ban a bugokat, illetve ötleteket. Készítette: Én( Fl0rian ).
Elkészítési idõ: fél óra - háromnegyed óra ( Nem néztem )
Rosszalkodik a netem így nem tudtam feltölteni semmilyen tárhelyre, íme a kód:
Code: #include <a_samp>
#include <dini>
#include <sscanf2>
#include <zcmd>
enum Something
{
VIP
}
new pInfo[MAX_PLAYERS][something];
new lerakva[MAX_PLAYERS];
#pragma tabsize 0
#pragma unused ret_memcpy
public OnFilterScriptInit()
{
print(\"\\n-=--=---=----=----=--=-=--=--=--=---\");
print(\"\\n Vip rendszer betöltve by: Fl0rian\");
print(\"\\n-=--=---=----=----=--=-=--=--=--=---\");
return 1;
}
public OnFilterScriptExit()
{
print(\"\\n-=--=---=----=----=--=-=--=--=--=---\");
print(\"\\n Vip rendszer kiiktatva by: Fl0rian\");
print(\"\\n-=--=---=----=----=--=-=--=--=--=---\");
for(new playrs = 0; playrs < MAX_PLAYERS; playrs++)
{
if(pInfo[playrs][VIP] == 1) SendClientMessage(playrs, -111, \"VIP rendszer kikapcsolva, nem vagy VIP.\");
pInfo[playrs][VIP] = 0;
}
return 1;
}
public OnPlayerConnect(playerid)
{
new stR[100], pName[MAX_PLAYER_NAME];
GetPlayerName(playerid, pName, sizeof(pName));
format(stR, sizeof(stR), \"/Vipek/%s.ini\", pName);
if(dini_Exists(stR)) pInfo[playerid][VIP] = 1;
else if(!dini_Exists(stR)) pInfo[playerid][VIP] = 0;
if(pInfo[playerid][VIP] == 0) return SendClientMessage(playerid, -111, \"Üdvözöllek a szerveren.\");
SendClientMessage(playerid, -111, \"Üdvözöllek a szerveren.\");
SendClientMessage(playerid, -111, \"Te VIP tag vagy, a következõ bónuszok járnak a VIP tagsággal:\");
SendClientMessage(playerid, -111, \"** ================================== **\");
SendClientMessage(playerid, -111, \"- Extra pénz és pont az ölésekért.\");
SendClientMessage(playerid, -111, \"- Halál esetén nincs pénz levonás.\");
SendClientMessage(playerid, -111, \"- /vipv parancs VIP jármû lerakásához.\");
return 1;
}
public OnPlayerDisconnect(playerid, reason)
{
pInfo[playerid][VIP] = 0;
return 1;
}
public OnPlayerDeath(playerid, killerid, reason)
{
if(pInfo[playerid][VIP] == 1) return SendClientMessage(playerid, -111, \"VIP tagság miatt nincs pont / pénzlevonás.\");
if(pInfo[killerid][VIP] == 1) return SetPlayerMoney(killerid, GetPlayerMoney(killerid) + 2000); SetPlayerScore(killerid, GetPlayerScore(killerid) + 2);
SetPlayerScore(playerid, GetPlayerScore(playerid) - 1);
SetPlayerScore(killerid, GetPlayerScore(killerid) + 1);
SetPlayerMoney(playerid, GetPlayerMoney(playerid) - 1000);
SetPlayerMoney(killerid, GetPlayerMoney(killerid) + 1000);
return 1;
}
CMD:vipad(playerid, params[])
{
new pID, pName[MAX_PLAYER_NAME], aName[MAX_PLAYERS], stR[128], stR2[100], stR3[100];
if(sscanf(params,\"u\",pID))return SendClientMessage(playerid, -111, \"Használat: /vipad [iD]\");
if(pID == INVALID_PLAYER_ID) return SendClientMessage(playerid, -111, \"Érvénytelen játékos ID.\");
if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -111, \"Nem vagy admin.\");
if(pInfo[playerid][VIP] == 1) return SendClientMessage(playerid, -111, \"A játékos VIP tag.\");
format(stR3, sizeof(stR3), \"/Vipek/%s.ini\", pName);
dini_Create(stR3);
pInfo[pID][VIP] = 1;
GetPlayerName(pID, pName, sizeof(pName));
format(stR, sizeof(stR), \"aInfo: Kinevezted %s-t VIP taggá.\", pName);
SendClientMessage(playerid, -111, stR);
SendClientMessage(pID, -111, \"pInfo: Kineveztek VIP taggá.\");
GetPlayerName(playerid, aName, sizeof(aName));
format(stR2, sizeof(stR2), \"%s használta a /vipad parancsot.\",aName);
printf(stR2);
return 1;
}
CMD:vipel(playerid, params[])
{
new pID, pName[MAX_PLAYER_NAME], aName[MAX_PLAYERS], stR[128], stR2[100], stR3[100];
if(sscanf(params,\"u\",pID))return SendClientMessage(playerid, -111, \"Használat: /vipel [iD]\");
if(pID == INVALID_PLAYER_ID) return SendClientMessage(playerid, -111, \"Érvénytelen játékos ID.\");
if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -111, \"Nem vagy admin.\");
if(pInfo[playerid][VIP] == 0) return SendClientMessage(playerid, -111, \"A játékos nem VIP tag.\");
format(stR3, sizeof(stR3), \"/Vipek/%s.ini\", pName);
dini_Remove(stR3);
pInfo[pID][VIP] = 1;
GetPlayerName(pID, pName, sizeof(pName));
format(stR, sizeof(stR), \"aInfo: Elvetted a VIP tagságot tõle: %s.\", pName);
SendClientMessage(playerid, -111, stR);
SendClientMessage(pID, -111, \"pInfo: Már nem vagy VIP tag.\");
GetPlayerName(playerid, aName, sizeof(aName));
format(stR2, sizeof(stR2), \"%s használta a /vipel parancsot.\",aName);
printf(stR2);
return 1;
}
CMD:vipv(playerid, params[])
{
new vModell, vCola, vColb, vPlate[8];
new stR[200];
new caR;
new Float: xPos, Float:yPos, Float:zPos;
if(sscanf(params,\"iiis[8]\",vModell, vCola, vColb, vPlate))return SendClientMessage(playerid, -111, \"Használat: /vipv [Modell ID] [Color 1] [Color 2] [Rendszám]\");
if(pInfo[playerid][VIP] == 0) return SendClientMessage(playerid, -111, \"Ez a funkció csak VIP tagoknak elérhetõ.\");
if(vModell <= 399 || vModell >= 612) return SendClientMessage(playerid, -111, \"Hibás jármû modell. ( 400 - 611 )\");
if( vCola < 0 || vColb < 0) return SendClientMessage(playerid, -111, \"Helytelen színkód.\");
GetPlayerPos(playerid, xPos, yPos, zPos);
if(lerakva[playerid] == 1) DestroyVehicle(caR);
caR = CreateVehicle(vModell, xPos, yPos + 2, zPos + 0.5, 180,vCola, vColb, -1);
SetVehicleNumberPlate(caR, vPlate);
lerakva[playerid] = 1;
format(stR, sizeof(stR),\"Színei: %d %d\\nModell ID: %d\\nRendszám:%s\", vCola, vColb, vModell, vPlate);
SendClientMessage(playerid, -111, \"Sikeresen létrehoztad a jármûvet. Adatai:\");
SendClientMessage(playerid, -111, stR);
return 1;
}
Szép munka,nagyon hasznos.Ment a +!
[pawn]C:\\Users\\markii\\Desktop\\vip.pwn(15) : error 017: undefined symbol \"ret_memcpy\"
C:\\Users\\markii\\Desktop\\vip.pwn(71) : error 017: undefined symbol \"SetPlayerMoney\"
C:\\Users\\markii\\Desktop\\vip.pwn(75) : error 017: undefined symbol \"SetPlayerMoney\"
C:\\Users\\markii\\Desktop\\vip.pwn(76) : error 017: undefined symbol \"SetPlayerMoney\"
Pawn compiler 3.2.3664 Copyright © 1997-2006, ITB CompuPhase
4 Errors.
[/pawn]
:\'(
Töröld ki azokat a sorokat ;)
Nálam 1 error vagy warning sincs. TÖröld ki a
#pragma unused ret_memcpy
sort
Törölgettem õket de így nem tartalmazza azt a részt amiben +2000$-t ad
GivePlayerMoney-t használj
A setplayer az átállítja nem hozzáadja...
A setplayer az átállítja nem hozzáadja...
NINCS SetPlayerMoney! :)
Azt csak õ találta ki,helyette GivePlayerMoney-t használd,ahogy Sheet mondta.
Ömm.. izé nálam van SetPlayerMoney.. semmit sem töltöttem le hozzá, csak az alap server kit-et.
Nekem is van :DD
:D
Mindenkinek van XD
De a SetPlayerMoney csak át állítsa NEM hozzáad!
Ezért : GivePlayerMoney
Vágom, de én úgy használom(tam) a set player moneyt hogy a mostani pénze+XY$
am, ha mindeninek van akk ez itt mi?
[pawn]C:\\Users\\markii\\Desktop\\vip.pwn(15) : error 017: undefined symbol \"ret_memcpy\"
C:\\Users\\markii\\Desktop\\vip.pwn(71) : error 017: undefined symbol \"SetPlayerMoney\"
C:\\Users\\markii\\Desktop\\vip.pwn(75) : error 017: undefined symbol \"SetPlayerMoney\"
C:\\Users\\markii\\Desktop\\vip.pwn(76) : error 017: undefined symbol \"SetPlayerMoney\"
Pawn compiler 3.2.3664 Copyright © 1997-2006, ITB CompuPhase
4 Errors.
[/pawn]
:\'(
Ilyet ekerstem [samp][/samp]