« előző következő »
Oldalak: [1]   Le

Szerző Téma: Vip System  (Megtekintve 2317 alkalommal)

Nem elérhető instant

  • 2778
  • ZzzzzZ
    • Profil megtekintése
Vip System
« Dátum: 2012. június 12. - 22:44:48 »
+3 Show voters
\"images?q=tbn:ANd9GcR1IFTwofG9uXAo7Ef5ztnZU0MdDkVYCJT-xPNhs6kgj3NagHBj\"
 
Üdv. Beszeretném mutatni a Vip Rendszeremet . 3 Szintje van : Bronz , Silver ,Gold
Készitési idõ : 20 perc
Készitette: Blade.
PVar , és dinivel lett elkészitve
Parancsok:
Vip Parancsok : /vsay /vcarrespawn /veject /vgoto /vskin /vcar /vgod /vgodoff /vjetpack
Vip Játékosok megtekintése : /vips

Kép:
\"j76xQ.jpg\"
Kód:
 

#include a_samp
#include sscanf2
#include zcmd
#include dini
#include dudb
#include dutils
#include colors
#pragma unused ret_memcpy
enum pInfo
{
VIP
};
new PlayerInfo[MAX_PLAYERS][pInfo];
new file[128],str[128];
new player1;
CMD:vips(playerid,params[])
{
new string[250];
SendClientMessage(playerid,COLOR_GREEN,\"____]Online V.I.P Tagok [_____\");
for(new v;v<GetMaxPlayers();v++)
{
if(GetPVarInt(v,\"VIP\") > 0)
{
format(string,250,\"%s V.I.P Szint:%d\",pName(v),GetPVarInt(v,\"VIP\"));
SendClientMessage(playerid,COLOR_GREEN,string);
}
}
return 1;
}
CMD:setvip(playerid, params[])
{
if(IsPlayerAdmin(playerid))
{
new
string[350],
vlevel;
if(sscanf(params,\"ui\",playerid, vlevel)) return SendClientMessage(playerid,COLOR_RED,\"Használat : /setvip id level (1-3)!\");
if(vlevel <0  || vlevel > 3) return SendClientMessage(playerid,COLOR_RED,\"Csak 1 - 3 VIP SZINT Közt van!\");
if( playerid == INVALID_PLAYER_ID ) return SendClientMessage( playerid, COLOR_RED, \"HIBA: Nem létezõ azonosító!\" );
SetPVarInt(playerid,\"VIP\",vlevel);
format(string,350,\"***%s(%d) {00f7ff}nevû admin kinevezett téged {ff0000}%d V.I.P-nak!\",pName(playerid),playerid,GetPVarInt(playerid,\"VIP\"));
SendClientMessage( playerid,COLOR_GREEN,string);
if(vlevel > GetPVarInt(playerid,\"VIP\")) return SendClientMessage( playerid,COLOR_GREEN,\"VIP Szinted növekedett!\");
if(vlevel < GetPVarInt(playerid,\"VIP\")) return SendClientMessage( playerid,COLOR_GREEN,\"VIP Szintedet elvonták!\");
PlayerPlaySound(playerid, 1056, 0, 0, 0);
SetPlayerColor(player1,COLOR_YELLOW);
format(file,sizeof(file),\"%s.ini\",pName(playerid));
dini_IntSet(file,\"VIP\",vlevel);
}
else SendClientMessage( playerid, COLOR_RED, \"Nem vagy RCON Admin!\" );
return 1;
}
CMD:vkick(playerid,params[])
{
if(GetPVarInt(playerid, \"VIP\") >= 3)
{
new target,reason[50];
if(sscanf(params,\"us[50]\",target,reason)) return SendClientMessage(playerid,COLOR_RED,\"Használat : /kick <Játékos> < Indok>\");
if(target == INVALID_PLAYER_ID)return SendClientMessage(playerid, COLOR_RED, \"HIBA: Játékos nincs csatlakozva!\");
if(target == playerid) return SendClientMessage(playerid,COLOR_RED,\"Magadat nem rughatod ki balfácán!\");
    format(str,sizeof(str),\"V.I.P :%s kickelte %s játékost! Indoka : %s\",pName(playerid),pName(target),reason);
    SendClientMessageToAll(COLOR_LIGHTBLUE,str);
    Kick(target);
    return 1;
    } else return SendClientMessage(playerid,COLOR_RED,\"HIBA: Ehez a parancshoz 3 as szintü VIP-nak szükséges!\");
}
CMD:vjail(playerid,params[])
{
if(GetPVarInt(playerid, \"VIP\") >= 2 || IsPlayerAdmin(playerid))
{
new reason[50];
if(sscanf(params, \"us[50]\", player1, reason)) return SendClientMessage(playerid, COLOR_RED, \"HASZNÁLAT: /jail [Játékos ID/Név] [indok]\");
if(IsPlayerNPC(player1)) return SendClientMessage(playerid, COLOR_RED, \"HIBA: Botokat nem zárhatsz börtönbe!\");
    if(!IsPlayerConnected(player1) && (GetPVarInt(player1, \"Level\") > GetPVarInt(playerid, \"Level\")) ) return SendClientMessage(playerid, COLOR_RED, \"HIBA: Játékos nincs csatlakozva, vagy magasabb szintû admin, mint te!\");
if(GetPVarInt(player1, \"JailTime\") > 1) return SendClientMessage(playerid, COLOR_RED, \"HIBA: A játékos már börtönbe van!\");
if(playerid == player1) return SendClientMessage(playerid, COLOR_RED, \"HIBA: Magadat nem zárhatod börönbe!\");
TogglePlayerControllable(player1, 1);
SetPlayerPos(player1, 197.6661, 173.8179, 1003.0234);
SetPlayerInterior(player1,3);
format(str,sizeof(str), \"*** VIP: %s börtönbe zárta %s nevû játékost  [indok: %s]\", pName(playerid), pName(player1),reason);
SendClientMessageToAll(COLOR_LIGHTGREEN,str);
return 1;
} else return SendClientMessage(playerid, COLOR_RED, \"HIBA: Ehez a parancshoz legalább 2-es szintû VIP-nak kéne lenned!\");
}
CMD:vunjail(playerid,params[])
{
if(GetPVarInt(playerid, \"VIP\") >= 2 || IsPlayerAdmin(playerid))
{
if(sscanf(params, \"u\", player1)) return SendClientMessage(playerid, COLOR_RED, \"HASZNÁLAT: /unjail [Játékos ID/Név]\");
    if(!IsPlayerConnected(player1)) return SendClientMessage(playerid, COLOR_RED, \"HIBA: Játékos nincs csatlakozva!\");
if(!GetPVarInt(player1, \"JailTime\")) return SendClientMessage(playerid, COLOR_RED, \"HIBA: A játékos nincs börtönben!\");
        format(str,sizeof(str), \"***VIP: %s kiengedett téged a börtönbõl.\", pName(playerid));
SendClientMessage(player1, COLOR_BLUE,str);
        SpawnPlayer(player1);
format(str,sizeof(str), \"*** Admin: %s kiengedte a börtönbõl %s nevû játékost.\", pName(playerid), pName(player1));
SendClientMessageToAll(COLOR_BLUE,str);
    return 1;
} else return SendClientMessage(playerid, COLOR_RED, \"HIBA: Ehez a parancshoz legalább 2-es szintû VIP-nak kéne lenned!\");
}
CMD:vfreeze(playerid,params[])
{
if(GetPVarInt(playerid, \"VIP\") >= 1 || IsPlayerAdmin(playerid))
{
if(sscanf(params, \"u\", player1)) return SendClientMessage(playerid, COLOR_RED, \"HASZNÁLAT: /freeze [Játékos ID/Név] \");
if(IsPlayerNPC(player1)) return SendClientMessage(playerid, COLOR_RED, \"HIBA: Botokat nem fagyaszthatsz le!\");
if(!IsPlayerConnected(player1)) return SendClientMessage(playerid, COLOR_RED, \"HIBA: Játékos nincs csatlakozva!\");
if(playerid == player1) return SendClientMessage(playerid, COLOR_RED, \"HIBA: Magadat nem fagyaszthatod le!\");
TogglePlayerControllable(player1, 0);
format(str,sizeof(str), \"*** VIP: %s lefagyasztott téged!.\",pName(playerid));
SendClientMessage(player1, COLOR_BLUE,str);
return 1;
} else return SendClientMessage(playerid, COLOR_RED, \"HIBA: Ehez a parancshoz legalább 1-es szintû VIP-nak kéne lenned!\");
}
CMD:vunfreeze(playerid,params[])
{
    if(GetPVarInt(playerid, \"VIP\") >= 1 || IsPlayerAdmin(playerid))
{
    if(sscanf(params, \"u\", player1)) return SendClientMessage(playerid, COLOR_RED, \"HASZNÁLAT: /unfreeze [Játékos ID/Név]\");
    if(!IsPlayerConnected(player1)) return SendClientMessage(playerid, COLOR_RED, \"HIBA: Játékos nincs csatlakozva!\");
    if(!GetPVarInt(player1, \"FreezeTime\")) return SendClientMessage(playerid, COLOR_RED, \"HIBA: A játékos nincs lefagyasztva!\");
SetPVarInt(player1, \"FreezeTime\", 0);
        format(str,sizeof(str), \"*** VIP: %s levette a fagyasztást rólad.\",pName(playerid));
SendClientMessage(player1, COLOR_BLUE,str);
TogglePlayerControllable(player1,1);
format(str,sizeof(str),\"*** VIP: %s levette a fagyasztást %s nevû játékosról.\", pName(playerid), pName(player1));
    return SendClientMessageToAll(COLOR_BLUE, str);
} else return SendClientMessage(playerid, COLOR_RED, \"HIBA: Ehez a parancshoz legalább 1-es szintû VIP-nak kéne lenned!\");
}
CMD:vgod( playerid )
{
if(GetPVarInt(playerid,\"VIP\") >= 2)
{
        if(!GetPVarInt(playerid, \"God\"))
{
           SetPVarInt(playerid, \"God\", 1);
        SetPlayerHealth(playerid,100000);
   return SendClientMessage(playerid, COLOR_GREEN, \"Örökélet be!\");
}
else
{
   SetPVarInt(playerid, \"God\", 0);
        SetPlayerHealth(playerid, 100);
   return SendClientMessage(playerid, COLOR_RED, \"Örökélet ki!\");
}
} else return SendClientMessage(playerid, COLOR_RED, \"HIBA: Ehez a parancshoz 2-es szintû VIP-nak kéne lenned!\");
}
CMD:vskin(playerid,params[])
{
if(GetPVarInt(playerid,\"VIP\") >= 1)
{
new skin;
new string2[175];
if(sscanf(params,\"d\",skin)) return SendClientMessage(playerid,COLOR_YELLOW,\"Használat : /vskin [skinid] \");
if(skin < 0 || skin > 299) return SendClientMessage(playerid,COLOR_RED,\"Csak 0tól és 299ig vannak skinek!\");
SetPlayerSkin(playerid,skin);
format(string2,175,\"Sikeresen átváltoztattad a skinedet!Új Skined ID-je :%d !\",skin);
SendClientMessage(playerid,COLOR_GREEN,string2);
return 1;
} else return SendClientMessage(playerid,COLOR_RED,\"HIBA: Ehez a parancshoz 1-es szintû VIP-nak kéne lenned!\");
}
CMD:vcarrespawn(playerid,params[])
{
new string[250];
if(GetPVarInt(playerid,\"VIP\") >= 3)
{
for(new cars; cars <MAX_VEHICLES; cars++)
{
SetVehicleToRespawn(cars);
}
format(string,250,\"-VIP-%s respawnolta a jármüveket!\",pName(playerid));
SendClientMessageToAll(COLOR_GREEN,string);
return 1;
}else return SendClientMessage(playerid,COLOR_RED,\"HIBA: Ehez a parancshoz 3-as szintû VIP-nak kéne lenned!\");
}
CMD:vcar(playerid,params[])
{
if(GetPVarInt(playerid,\"VIP\") >= 1)
{
new id, color1, color2;
new Float:Rot,Float:X,Float:Y,Float:Z;
GetPlayerPos(playerid, X, Y, Z);
GetPlayerFacingAngle(playerid, Rot);
if(sscanf(params,\"ddd\",id,color1,color2)) return SendClientMessage(playerid,COLOR_YELLOW,\"Használat /vcar [Jármûid][szin1][szin2]\");
if(id < 400 || id > 611) return SendClientMessage(playerid,COLOR_RED,\"Csak 400tól 611ig vannak a jármûid!\");
CreateVehicle(id,X+2,Y+2,Z+2,Rot,color1,color2,0);
SendClientMessage(playerid,COLOR_GREEN,\"Sikeresen lekérted a jármûvet!\");
DestroyVehicle(id);
return 1;
}else return SendClientMessage(playerid,COLOR_RED,\"HIBA: Ehez a parancshoz 1-es szintû VIP-nak kéne lenned!\");
}
CMD:vgoto(playerid,params[])
{
if(GetPVarInt(playerid, \"VIP\") >= 2) return SendClientMessage(playerid, 0xE60000FF, \"Ezt a parancsot max 2.es szintû V.I.P tagok használhatják!\");
{
new id;
new Float:x,Float:y,Float:z;
if(id == INVALID_PLAYER_ID) return SendClientMessage(playerid,COLOR_GREEN,\"Helytelen PlayerID!\");
if(sscanf(params,\"u\",id))return SendClientMessage(playerid,COLOR_YELLOW,\"Használat: /goto [Játékosnév/id]\");
GetPlayerPos(id,x,y,z);
SetPlayerPos(playerid,x,y,z);
SendClientMessage(id,COLOR_GREEN,\"Egy Vip tag hozzád teleportált!\");
}
return 1;
}
CMD:veject(playerid,params[])
{
if(GetPVarInt(playerid, \"VIP\") >= 3)
{
new Float:x,Float:y,Float:z;
new target;
if(sscanf(params,\"d\",target)) return SendClientMessage(playerid,COLOR_YELLOW,\"Használat /veject [iD]\");
SetPlayerPos(target,x,y,z+3);
return 1;
}else return SendClientMessage(playerid,COLOR_RED,\"HIBA: Ehez a parancshoz 3-as szintû VIP-nak kéne lenned!\");
}
CMD:vsay(playerid,params[])
{
if(GetPVarInt(playerid, \"VIP\") >=3)
{
new uzenet[1000],string[200];
if(sscanf(params,\"s[1000]\",uzenet)) return SendClientMessage(playerid,COLOR_YELLOW,\"Használat /vsay [Üzenet]\");
format(string,sizeof(string),\"-VIP-{ff0000}%s : {ffffff}%s\",pName(playerid),uzenet);
SendClientMessageToAll(COLOR_GREEN,string);
return 1;
}else return SendClientMessage(playerid,COLOR_RED,\"HIBA: Ehez a parancshoz 3-as szintû VIP-nak kéne lenned!\");
}
CMD:vjetpack(playerid,params[])
{
if(GetPVarInt(playerid,\"VIP\") >=1)
{
SendClientMessage(playerid,COLOR_RED,\"Nincs jogosultságod-e parancs használatához!\");
SetPlayerSpecialAction(playerid,SPECIAL_ACTION_USEJETPACK);
SendClientMessage(playerid, COLOR_YELLOW, \"Sikeresen adtál magadnak JetPacket!\");
return 1;
}else return SendClientMessage(playerid,COLOR_RED,\"HIBA: Ehez a parancshoz 3-as szintû VIP-nak kéne lenned!\");
}
CMD:vhelp(playerid)
{
if(GetPVarInt(playerid,\"VIP\") >= 1)
{
SendClientMessage(playerid,COLOR_RED,\"____]VIP HELP[____\");
SendClientMessage(playerid,COLOR_GREEN,\"Level1:/vcar /vskin /vjetpack /vfreeze /vunfreeze\");
SendClientMessage(playerid,COLOR_GREEN,\"Level2:/vgoto /vgod /vgodoff /vjail /vunjail\");
SendClientMessage(playerid,COLOR_GREEN,\"Level3:/vsay /veject /vcarrespawn /vkick\");
SendClientMessage(playerid,COLOR_RED,\"____]VIP HELP[____\");
return 1;
}else return SendClientMessage(playerid,COLOR_RED,\"HIBA: Ehez a parancshoz minimum 1 es szintû vipnak kéne lenned!\");
}
public OnPlayerConnect(playerid)
{
PlayerInfo[playerid][VIP] = 0;
format(file,sizeof(file),\"%s.ini\",pName(playerid));
if(!fexist(file))
{
dini_Create(file);
dini_IntSet(file,\"VIP\",GetPVarInt(playerid,\"VIP\"));
}
if(fexist(file))
{
SetPVarInt(playerid,\"VIP\",dini_Int(file,\"VIP\"));
}
return 1;
}
public OnPlayerDisconnect(playerid, reason)
{
format(file,sizeof(file),\"%s.ini\",pName(playerid));
if(fexist(file))
{
SetPVarInt(playerid,\"VIP\",GetPVarInt(playerid,\"VIP\"));
}
return 1;
}
stock pName( playerid )
{
new
   s_szPlayerName[ MAX_PLAYER_NAME ];
GetPlayerName( playerid, s_szPlayerName, MAX_PLAYER_NAME );
return s_szPlayerName;
}

 
Ha hibát jeleztek kérem jelezzétek a Témába!!
« Utoljára szerkesztve: 2012. augusztus 25. - 23:23:23 írta ZzzzzZ »
Naplózva

Nem elérhető Pedró

  • 3341
  • 2014 © Az év Szkriptere
    • Profil megtekintése
Vip System
« Válasz #1 Dátum: 2012. június 12. - 22:54:03 »
0 Show voters
jó lett, de a kód kinézete undorító
Naplózva

Nem elérhető norbee0170

  • 1103
    • Profil megtekintése
Vip System
« Válasz #2 Dátum: 2012. június 12. - 23:30:32 »
0 Show voters
jónak jó... de azér \"SendClientMessage\" helyett használhadtál volna msgbox-ot, úgy szebb lenne 
ugyan úgy a help-nél is :hmmm: :thumbsup:
és a \"20000\" hp-t pillanatok alatt lelehet szedni a vip tagról, sztem lehetne nagyobb érték
és a gotonál van olyan h
 
SendClientMessage(id,ZOLD,\"Egy Vip tag hozzád teleportált!\");[/quote]
ezt annak írja ki aki hozzá teleportált
de ezek csak az én véleményeim  :angel:  :whistle:
« Utoljára szerkesztve: 2012. június 12. - 23:39:05 írta norbee0170 »
Naplózva

Nem elérhető instant

  • 2778
  • ZzzzzZ
    • Profil megtekintése
Vip System
« Válasz #3 Dátum: 2012. június 13. - 06:11:29 »
0 Show voters
házi szerón teszteltem és ugye nem tud oda fel jönni senki sem hogy tudjuk tesztelni
és annak megy az üzenet akihez teleportált
Pedro : Kösz
Naplózva

Nem elérhető Caesar

  • 109
    • Profil megtekintése
Vip System
« Válasz #4 Dátum: 2012. június 13. - 06:54:52 »
0 Show voters
Nekem tetszik amugy ha megnyomod a TAB ot akkor ott is kiirja a VIP et ?
Naplózva

Nem elérhető instant

  • 2778
  • ZzzzzZ
    • Profil megtekintése
Vip System
« Válasz #5 Dátum: 2012. június 13. - 07:18:52 »
0 Show voters
Nem!
Naplózva

Nem elérhető norbee0170

  • 1103
    • Profil megtekintése
Vip System
« Válasz #6 Dátum: 2012. június 13. - 08:44:03 »
0 Show voters
Idézetet írta: Caesar date=1339563292\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"22777\" data-ipsquote-contentclass=\"forums_Topic
Nekem tetszik amugy ha megnyomod a TAB ot akkor ott is kiirja a VIP et ?
 
ez is egy jó ötlet, pl lehetne sárga a neve   :hmmm:
Naplózva

Nem elérhető JBauer

  • 1407
    • Profil megtekintése
Vip System
« Válasz #7 Dátum: 2012. június 13. - 09:12:01 »
0 Show voters
SetPlayerColor(playerid, színkód);
Naplózva

Nem elérhető instant

  • 2778
  • ZzzzzZ
    • Profil megtekintése
Vip System
« Válasz #8 Dátum: 2012. augusztus 25. - 23:31:54 »
0 Show voters
Elnézést kérek a bumpért nem akartam ennek új topicot nyitni de lehet h 1 kicsit késõn javítgattam rajta :(
UPDATE :
- Menti a VIP szintet csatlakozáskor automatikusan létrehoz 1 fájlt ahova menti a vip szintedet. illetve be is tölti hibátlanul
-Az észrevett hibákat kijavítottam
-5 db új parancs
- A /vipsnál a hiba kijavitva
Colors.inc :http://www.solidfiles.com/d/eb2bcba720/
Naplózva

Nem elérhető Bonfini

  • 395
    • Profil megtekintése
Vip System
« Válasz #9 Dátum: 2012. augusztus 25. - 23:41:52 »
+1 Show voters
Nagyon szép,fõleg javítva,mûködik ment a +!
Naplózva
Oldalak: [1]   Fel
« előző következő »
 
SimplePortal 2.3.7 © 2008-2024, SimplePortal