GTA Közösség - A magyar GTA fórum

Sziasztok.
Elsõ \"komolyabb\" scriptem 75%-ban egyedül csináltam,Segítséget MonsterGame-tõl kaptam(õ tanítgat engem scriptelni)
Tehát ez egy VIP System:
Admin Parancsok:
/advip - ezt csak 4-es admin tudja adni(vagy amilyenre te állítod)
/vipel - ezt szintén 4-es admin tudja használni
Vip parancsok
/vcar
/vfegyver
/vgoto
/vjail
/vunjail
/vfix
 

#include <a_samp>
#include <zcmd>
#include <sscanf>
#define FILTERSCRIPTS
#define COLOR_WHITE 0xFFFFFFFF
#define COLOR_RED 0xFF0606FF
new vip[MAX_PLAYERS] = 0;
new AdminLevel[MAX_PLAYERS] = 0;
/**************V.I.P.*****************/
CMD:vcar(playerid, params[])
{
if(vip[playerid] == 1)
{
new carid;
if(sscanf(params,\"i\", carid)) { SendClientMessage(playerid,COLOR_WHITE,\"Használat: /vcar [jármú id]\"); return 1; }
SendClientMessage(playerid,COLOR_RED,\"Sikeresen lekértél egy jármût!\");
if(carid > 611 || carid < 400) { SendClientMessage(playerid,COLOR_RED,\"HIBA: Nincs ilyen jármû id!\"); return 1; }
else {
new Float:x,Float:y,Float:z;
GetPlayerPos(playerid,x,y,z);
new car = CreateVehicle(carid,x,y,z,95.0,0,0,1000);
PutPlayerInVehicle(playerid, car, 0);
}
}
else if(vip[playerid] == 0)
{
SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy V.I.P!\");
}
return 1;
}
CMD:vfegyver(playerid, params[])
{
if(vip[playerid] == 1)
{
new id;
new ammo;
new weapon;
if(sscanf(params,\"uii\",id,weapon,ammo)) SendClientMessage(playerid,COLOR_WHITE,\"Használat: /giveweapon [id] [fegyver id] [lõszer]\");
else if (id == INVALID_PLAYER_ID) SendClientMessage(playerid, COLOR_RED, \"HIBA: Rossz játékos id!\");
else {
new string[128];
if(weapon > 46 || weapon < 0) { SendClientMessage(playerid,COLOR_RED,\"HIBA: Nincs ilyen fegyver id!\"); return 1; }
GetPlayerName(playerid,string,sizeof(string));
format(string,sizeof(string),\"[VIP]%s {FF6600} adott neked fegyvert! {00FF33} (Fegyver id:%d | {FF9966} Lõszer: %d)\",string,weapon,ammo);
SendClientMessage(id,COLOR_RED,string);
GetPlayerName(id,string,sizeof(string));
format(string,sizeof(string),\"{{FF9966}} Adtál %s-nak/nek fegyvert! {00FF33} (Fegyver id:%d | {FF6600} Lõszer: %d)\",string,weapon,ammo);
SendClientMessage(playerid,COLOR_RED,string);
GivePlayerWeapon(id,weapon,ammo);
}
}
else if(vip[playerid] == 0)
{
SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy V.I.P!\");
}
return 1;
}
CMD:vgoto(playerid, params[])
{
if(vip[playerid] == 1)
{
new id;
if(sscanf(params , \"u\" ,id)) SendClientMessage(playerid, COLOR_WHITE, \"Használat : /vgoto [id].\");
else if (id == INVALID_PLAYER_ID) SendClientMessage(playerid, COLOR_RED, \"HIBA: Rossz játékos id!\");
else {
new Float:x;
new Float:y;
new Float:z;
GetPlayerPos(id,x,y,z);
SetPlayerPos(playerid,x+1,y+1,z);
new string[128];
GetPlayerName(id,string,sizeof(string));
format(string,sizeof(string),\"{FF0000} Oda teleportáltál {EECCCC} %s-hoz/hez!\",string);
SendClientMessage(playerid,COLOR_RED,string);
}
}
else if(vip[playerid] == 0)
{
SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy V.I.P\");
}
}
CMD:vjail(playerid, params[])
{
if(vip[playerid] == 1)
{
new id;
if(sscanf(params , \"u\" ,id)) SendClientMessage(playerid, COLOR_WHITE, \"Használat : /vjail [id].\");
else if (id == INVALID_PLAYER_ID) SendClientMessage(playerid, COLOR_RED, \"HIBA: Rossz játékos id!\");
else {
new string[200];
GetPlayerName(playerid,string,sizeof(string));
format(string,sizeof(string),\"{00FFFF} [VIP]%s {FF6600} börtönbe zárt!\",string);
SendClientMessage(id,COLOR_RED,string);
SetPlayerPos(id,223.3760,109.9426,999.0156);
SetPlayerInterior(id,10);
TogglePlayerControllable(id, 0);
GetPlayerName(id,string,sizeof(string));
format(string,sizeof(string),\"{FF6600} Börtönbe zártad {00FFFF} %s-t!\",string);
SendClientMessage(playerid,COLOR_RED,string);
}
}
else if(vip[playerid] == 0)
{
SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy V.I.P\");
}
return 1;
}
CMD:vunjail(playerid, params[])
{
if(vip[playerid] == 1)
{
new id;
if(sscanf(params , \"u\" ,id)) SendClientMessage(playerid, COLOR_WHITE, \"Használat : /vunjail [id].\");
else if (id == INVALID_PLAYER_ID) SendClientMessage(playerid, COLOR_RED, \"HIBA: Rossz játékos id!\");
else {
SpawnPlayer(id);
new string[200];
GetPlayerName(playerid,string,sizeof(string));
format(string,sizeof(string),\"{00FFFF}[VIP]%s {FF6600}kiengedett a börtönbõl!\",string);
SendClientMessage(id,COLOR_RED,string);
TogglePlayerControllable(id, 1);
GetPlayerName(id,string,sizeof(string));
format(string,sizeof(string),\"{FF6600}Kiengedted a {00FFFF}börtönbõl %s-t!\",string);
SendClientMessage(playerid,COLOR_RED,string);
}
}
else if(vip[playerid] == 0)
{
SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy V.I.P\");
}
return 1;
}
CMD:vfix(playerid, params[])
{
if(vip[playerid] == 1)
{
if(IsPlayerInAnyVehicle(playerid))
{
new vehicle = GetPlayerVehicleID(playerid);
RepairVehicle(vehicle);
SetVehicleHealth(vehicle,1000);
SendClientMessage(playerid,COLOR_RED,\"Jármûved javítva!\");
}
else
{
SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy jármûben!\");
}
}
else if(vip[playerid] == 0)
{
SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy V.I.P!\");
}
return 1;
}
CMD:advip(playerid, params[])
{
if(AdminLevel[playerid] >= 4) {
new id;
if(sscanf(params,\"u\", id)) return SendClientMessage(playerid,COLOR_WHITE,\"Használat: /advip [id]\");
if(!IsPlayerConnected(id)) return SendClientMessage(playerid,COLOR_RED,\"HIBA: Rossz játékos id!\");
else {
new string[128];
GetPlayerName(id,string,sizeof(string));
format(string,sizeof(string),\"Kinevezted %s-t V.I.P-nak!\",string);
SendClientMessage(playerid,COLOR_WHITE,string);
vip[id] = 1;
GetPlayerName(playerid,string,sizeof(string));
format(string,sizeof(string), \"[Adminisztrátor]:%s V.I.P jogott adott neked, Gratulálunk!\", string);
SendClientMessage(id,COLOR_WHITE,string);
}
}
else if(AdminLevel[playerid] < 4) {
SendClientMessage(playerid,COLOR_RED,\"HIBA: Túl kicsi az admin szinted ehhez a parancshoz!\");
}
return 1;
}
CMD:vipel(playerid, params[])
{
if(AdminLevel[playerid] >= 4) {
new id;
if(sscanf(params,\"u\", id)) return SendClientMessage(playerid,COLOR_WHITE,\"Használat: /vipel [id]\");
if(!IsPlayerConnected(id)) return SendClientMessage(playerid,COLOR_RED,\"HIBA: Rossz játékos id!\");
else {
new string[126];
GetPlayerName(id,string,sizeof(string));
format(string,sizeof(string),\"Törölted %s V.I.P jogát!\",string);
SendClientMessage(playerid,COLOR_RED,string);
vip[id] = 0;
GetPlayerName(playerid,string,sizeof(string));
format(string,sizeof(string), \"[Adminisztrátor]:%s elvette a V.I.P jogod, sajnáljuk!\", string);
SendClientMessage(id,COLOR_RED,string);
}
}
else if(AdminLevel[playerid] < 4) {
SendClientMessage(playerid,COLOR_RED,\"HIBA: Túl kicsi az admin szinted ehhez a parancshoz!\");
}
return 1;
}

 
 
Letöltõlink : http://data.hu/get/4921551/VIP_.pwn\" rel=\"external nofollow\">http://data.hu/get/4921551/VIP_.pwn
Használjátok egészséggel :)
A nevemet kérlek tüntesd fel,ha ezt használod!

Szép Script! Grat! Felhasználok belõle egy kicsike részt. Ment a +!

<-\" post=\"247533\" timestamp=\"1333183184\"]
Szép Script! Grat! Felhasználok belõle egy kicsike részt. Ment a +!
 
[/quote]
Köszi
UI az /advip parancsot elírtam modban is /adtvip-re azt írjátok majd át ha használjátok :D

Grat

Amikor létrehozol egy változót, minek nullázod ki? Alapból 0 az értéke. Továbbá ha van fent egy VIP, és kilép, majd feljön valaki más, és a VIP játékos ID-jét kapja meg, akkor az új játékos is VIP lesz. Tehát OnPlayerConnect alatt nullázd az admin és VIP szintet.
Egyébként szép munka.

jó script de azt hogy lehet megoldani hogy VIP vagyok és ha kilépek és vissza akkor mentse el hogy VIP vagyok .

szép pont jóljött  :shifty:

Nem rossz így tovább!

Idézetet írta: FastFurious date=1336908807\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"19331\" data-ipsquote-contentclass=\"forums_Topicjó script de azt hogy lehet megoldani hogy VIP vagyok és ha kilépek és vissza akkor mentse el hogy VIP vagyok .
 

Dini..

hmm ha valaki vip akkor azt honnét is lehet tudni ?:O

]Köszi! Jobb mint az oxfordos xDD

Bár még van mit javítani.
Üdv,Fuuuhead

Dolgozok már a javításán,fogja majd menteni is a VIP-et..Mivel nem vagyok pro és elég sok segítségre szorulok ezért nem tudom mikor fogom frissíteni...meg épp a TDM szerveremen dolgozok és az van az elsõ helyen,de meg próbálok sietni :) És örülök,hogy tetszik.

/vfix   mire való??

Nem tudok rájönni..

Üdv, Fuuuhead.

Idézetet írta: Fuuuhead date=1337192791\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"19331\" data-ipsquote-contentclass=\"forums_Topic/vfix   mire való??

Nem tudok rájönni..

Üdv, Fuuuhead.
 

/vfix az jármû javítás elméletben :D

... Köszi!
Üdv, Fuuuhead