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

San Andreas Multiplayer (SA-MP) => SA-MP: Szerverfejlesztés => A témát indította: BoSS - 2012. március 30. - 23:06:33

Cím: VIP System
Írta: BoSS - 2012. március 30. - 23:06:33
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
Használjátok egészséggel :)
A nevemet kérlek tüntesd fel,ha ezt használod!
Cím: VIP System
Írta: KDDomi - 2012. március 31. - 10:39:44
Szép Script! Grat! Felhasználok belõle egy kicsike részt. Ment a +!
Cím: VIP System
Írta: BoSS - 2012. március 31. - 10:51:47
<-\" 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
Cím: VIP System
Írta: Neon - 2012. május 13. - 13:04:35
Grat
Cím: VIP System
Írta: Benceee - 2012. május 13. - 13:22:52
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.
Cím: VIP System
Írta: FastFurious - 2012. május 13. - 13:33:27
jó script de azt hogy lehet megoldani hogy VIP vagyok és ha kilépek és vissza akkor mentse el hogy VIP vagyok .
Cím: VIP System
Írta: Alvin - 2012. május 15. - 18:14:42
szép pont jóljött  :shifty:
Cím: VIP System
Írta: zeteni - 2012. május 15. - 18:28:42
Nem rossz így tovább!
Cím: VIP System
Írta: ZyZu. - 2012. május 15. - 18:45:02
Idézetet írta: FastFurious date=1336908807\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"19331\" data-ipsquote-contentclass=\"forums_Topic
jó script de azt hogy lehet megoldani hogy VIP vagyok és ha kilépek és vissza akkor mentse el hogy VIP vagyok .
 
Dini..
Cím: VIP System
Írta: Alvin - 2012. május 15. - 18:51:55
hmm ha valaki vip akkor azt honnét is lehet tudni ?:O
Cím: VIP System
Írta: Fuuuhead - 2012. május 16. - 18:55:17
]Köszi! Jobb mint az oxfordos xDD

Bár még van mit javítani.

Üdv,Fuuuhead
Cím: VIP System
Írta: BoSS - 2012. május 16. - 20:14:00
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.
Cím: VIP System
Írta: Fuuuhead - 2012. május 16. - 20:26:31
/vfix   mire való??

Nem tudok rájönni..


Üdv, Fuuuhead.
Cím: VIP System
Írta: BoSS - 2012. május 16. - 20:29:55
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
Cím: VIP System
Írta: Fuuuhead - 2012. május 17. - 16:48:21
... Köszi!
Üdv, Fuuuhead
Cím: VIP System
Írta: Neon - 2012. május 13. - 13:04:35
Grat
Cím: VIP System
Írta: Benceee - 2012. május 13. - 13:22:52
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.
Cím: VIP System
Írta: FastFurious - 2012. május 13. - 13:33:27
jó script de azt hogy lehet megoldani hogy VIP vagyok és ha kilépek és vissza akkor mentse el hogy VIP vagyok .
Cím: VIP System
Írta: Alvin - 2012. május 15. - 18:14:42
szép pont jóljött  :shifty:
Cím: VIP System
Írta: zeteni - 2012. május 15. - 18:28:42
Nem rossz így tovább!
Cím: VIP System
Írta: ZyZu. - 2012. május 15. - 18:45:02
Idézetet írta: FastFurious date=1336908807\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"19331\" data-ipsquote-contentclass=\"forums_Topic
jó script de azt hogy lehet megoldani hogy VIP vagyok és ha kilépek és vissza akkor mentse el hogy VIP vagyok .
 
Dini..
Cím: VIP System
Írta: Alvin - 2012. május 15. - 18:51:55
hmm ha valaki vip akkor azt honnét is lehet tudni ?:O
Cím: VIP System
Írta: Fuuuhead - 2012. május 16. - 18:55:17
]Köszi! Jobb mint az oxfordos xDD

Bár még van mit javítani.

Üdv,Fuuuhead
Cím: VIP System
Írta: BoSS - 2012. május 16. - 20:14:00
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.
Cím: VIP System
Írta: Fuuuhead - 2012. május 16. - 20:26:31
/vfix   mire való??

Nem tudok rájönni..


Üdv, Fuuuhead.
Cím: VIP System
Írta: BoSS - 2012. május 16. - 20:29:55
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
Cím: VIP System
Írta: Fuuuhead - 2012. május 17. - 16:48:21
... Köszi!
Üdv, Fuuuhead
Cím: VIP System
Írta: SuBaRu - 2012. július 29. - 20:39:03
a VIp-t menti???
Cím: VIP System
Írta: Kovacs_Bela - 2012. július 29. - 21:06:46
Idézetet írta: SuBaRu date=1343587143\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"19331\" data-ipsquote-contentclass=\"forums_Topic
a VIp-t menti???
 
nem
Cím: VIP System
Írta: Rupert - 2012. július 29. - 21:58:01
Ha fajlba mentos VIP kell, itt az enyem: http://sampforum.hu/index.php?topic=20163.msg216249#msg216249
Cím: VIP System
Írta: Striker - 2012. július 29. - 22:05:15
Áh gúd ezjónak tûnik :D
Cím: VIP System
Írta: [(The_Pro_Kari)] - 2012. július 30. - 08:17:35
Szép script grat remélem bõvided paransokkal
Cím: VIP System
Írta: SuBaRu - 2012. augusztus 02. - 15:13:27
Ha fajlba mentos VIP kell, itt az enyem: http://sampforum.hu/index.php?topic=20163.msg216249#msg216249
[/quote]
köszii Rupert :D