Szerző Téma: Mini VIP System 1.1 [Link hozzáadva!]  (Megtekintve 2280 alkalommal)

Kovacs_Bela

  • Vendég
Mini VIP System 1.1 [Link hozzáadva!]
« Dátum: 2012. november 10. - 02:52:11 »
+2 Show voters
Jóreggelt!
Unalmamban elkészítettem egy scriptet, mely egy VIP System. 6 parancs van  jelenleg kész, mert az utolsó 4 parancsra már nem volt lelki erõm..  :laugh:
Na szóval.
Hibát nem észleltem benne!
Újítások:

- /vhelp-ben külön sorban vannak a parancsok


- /vgoto /vget /veject és /onvips kész!


- Menti a VIP-eket (Viptagok mappát létre kell hozni!!!)


- /delvip parancs hozzáadva


- További parancsok megtervezve a következõ verzióhoz



KÉSZEN VANNAK:
 

/vhelp     ----------  Megnézed a VIP parancsokat vele
/vslap     ----------  Feldobod a játékost
/viptag    ----------  Kinevezel egy játékost VIP taggá
/kick        ----------  Kirúgod a játékost
/vchat     ----------  Írsz a VIP Chatbe
/vsay      ----------  VIPként írsz
/onvips   ----------  Megnézed, hogy ki van fent aki VIP
/vget       ---------  Magadhoz hívod a játékost
/vgoto     ---------  Odateleportálsz a játékoshoz
/veject    ---------  Kirúgod a játékost a jármûvébõl

 
V 1.2 VERZIÓRA VÁRHATÓ PARANCSOK:
 

/vlook [iD] - Megfigyeled vele a játékost
/vlookoff - Abbahagyod a megfigyelést
/vstat [iD] - Megnézed vele a játékos adatait
/vszoli - VIP szolgálatba állsz

 
 
Készítõ: Én
Sorok: 67
A script ZCMD-t,DINI-t, és SSCANFot használ!
 
Spoiler for Kód:
// script by danix
#include <a_samp>
#include <zcmd>
#include <sscanf2>
#include <dini>
#define green 0x00ff00
#define orange 0xffbb00
new bool:vip[MAX_PLAYERS];
stock check(playerid) { if(vip[playerid] == true) return 1; else return 0; }
public OnPlayerConnect(playerid)
{
new n[24],file[64]; GetPlayerName(playerid,n,24); format(file,64,\"Viptagok/%s.ini\",n);
if(dini_Exists(file)) return vip[playerid] = true;
else return vip[playerid] = false;
return 1;
}
CMD:vhelp(playerid)
{
if(check(playerid) == 0 && !IsPlayerAdmin(playerid)) return SendClientMessage(playerid,0xff0000ff,\"Nem vagy VIP Tag!\");
SendClientMessage(playerid,orange,\"::::: VIP parancsok :::::\");
SendClientMessage(playerid,orange,\"/vkick [iD] - Kirúgod vele a játékost\");
SendClientMessage(playerid,orange,\"/vslap [iD] - Feldobod a játékost\");
SendClientMessage(playerid,orange,\"/vsay [ÜZENET] - VIP-ként írsz\");
SendClientMessage(playerid,orange,\"/vhelp - Kiíratod vele a parancsokat\");
SendClientMessage(playerid,orange,\"/vchat [ÜZENET] - Írsz a VIP chatbe\");
SendClientMessage(playerid,oramge,\"/onvips - Kiíratod vele az online vip tagokat\");
SendClientMessage(playerid,orange,\"/vget [iD] - Magadhoz teleportálod a játékost\");
SendClientMessage(playerid,orange,\"/vgoto [iD] - Odateleportálsz a játékoshoz\");
SendClientMessage(playerid,orange,\"/veject [iD] - Kirúgod a játékost a jármûvébõl\"); /*
V1.2:   SendClientMessage(playerid,orange,\"/vlook [iD] - Megfigyeled vele a játékost\");
SendClientMessage(playerid,orange,\"/vlookoff - Abbahagyod a megfigyelést\");
SendClientMessage(playerid,orange,\"/vstat [iD] - Megnézed vele a játékos adatait\");
SendClientMessage(playerid,orange,\"/vszoli - VIP szolgálatba állsz\");  */
SendClientMessage(playerid,orange,\"RCON: {000000}/viptag [iD] - Kinevezel valakit VIP taggá\");
SendClientMessage(playerid,orange,\"RCON: {000000}/delvip [iD] - Elveszed valakitõl a VIP jogot\");
        return 1;
}
CMD:vkick(playerid,params[])
{
new kit;
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag !! [-]\");
if(sscanf(params,\"u\",kit)) return 0;
Kick(kit);
SendClientMessage(playerid,green,\"
  • !! Sikeres kirúgás !!
  • \");

return 1;
}
CMD:vslap(playerid,params[])
{
new kit,Float:x,Float:y,Float:z;
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag !! [-]\");
if(sscanf(params,\"u\",kit)) return 0;
GetPlayerPos(kit,x,y,z);
SetPlayerPos(kit,x,y,z+20);
SendClientMessage(playerid,green,\"
  • !! Sikeres feldobás !!
  • \");

return 1;
}
CMD:vsay(playerid,params[])
{
new str[128],n[24];
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag !! [-]\");
if(sscanf(params,\"s[128]\",str)) return 0;
GetPlayerName(playerid,n,24);
format(str,128,\"!!![VIP]!!! %s: %s\");
SendClientMessageToAll(0x0000ffff,str);
return 1;
}
CMD:vchat(playerid,params[])
{
new str[128],n[24];
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag !! [-]\");
if(sscanf(params,\"s[128]\",str)) return 0;
GetPlayerName(playerid,n,24);
format(str,128,\"[VIP CHAT] %s: %s\");
for(new i; i < MAX_PLAYERS; i++) {
if(check(i) == 1) {
   SendClientMessage(i,0xffbb00ff,str);
}
}
return 1;
}
CMD:viptag(playerid,params[])
{
new kit;
if(IsPlayerAdmin(playerid) == 0) return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy RCON ADMIN ! [-]!\");
if(sscanf(params,\"u\",kit)) return 0;
new n[24],file[64]; GetPlayerName(playerid,n,24); format(file,64,\"Viptagok/%s.ini\",n);
if(check(kit) == 0) return vip[kit] = true,dini_Create(file),
SendClientMessage(playerid,green,\"
  • !! Sikeres kinevezés !!
  • \"),

SendClientMessage(kit,green,\"!! VIP TAG LETTÉL !!\");
else return SendClientMessage,playerid,0xff0000ff,\"!!!! A játékos már VIP Tag !!!!\");
return 1;
}
CMD:delvip(playerid,params[])
{
new kit;
if(IsPlayerAdmin(playerid) == 0) return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy RCON ADMIN ! [-]!\");
if(sscanf(params,\"u\",kit)) return 0;
new n[24],file[64]; GetPlayerName(playerid,n,24); format(file,64,\"Viptagok/%s.ini\",n);
if(check(kit) == 1) return vip[kit] = false,dini_Remove(file),
SendClientMessage(playerid,green,\"
  • !! Sikeres lefokozás !!
  • \"),

SendClientMessage(kit,0xff0000ff,\"Már nem vagy vip! :(\");
else return SendClientMessage,playerid,0xff0000ff,\"!!!! A játékos nem VIP Tag !!!!\");
return 1;
}
CMD:onvips(playerid)
{
new str[128],n[24];
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Csak VIP-ek nézhetik meg az online vipeket !! [-]\");
for(new i; i < MAX_PLAYERS; i++) {
if(check(i) == 1) {
   GetPlayerName(i,n,24);
}
}
format(str,128,\"[VIP] %s\\n\",n);
SendClientMessage(playerid,str);
return 1;
}
CMD:vget(playerid,params[])
{
new kit,Float:x,Float:y,Float:z;
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag !! [-]\");
if(sscanf(params,\"u\",kit)) return 0;
GetPlayerPos(playerid,x,y,z);
SetPlayerPos(kit,x+5,y+3,z);
SendClientMessage(kit,0x0000ffff,\"Egy VIP magához teleportált\");
SendClientMessage(playerid,green,\"
  • !! Sikeres hívás !!
  • \");

return 1;
}
CMD:vgoto(playerid,params[])
{
new kit,Float:x,Float:y,Float:z;
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag !! [-]\");
if(sscanf(params,\"u\",kit)) return 0;
GetPlayerPos(kit,x,y,z);
SetPlayerPos(playerid,x+5,y+3,z);
SendClientMessage(playerid,green,\"
  • !! Sikeres teleportálás !!
  • \");

return 1;
}
CMD:veject(playerid,params[])
{
new kit;
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag !! [-]\");
if(sscanf(params,\"u\",kit)) return 0;
RemovePlayerFromVehicle(kit,GetPlayerVehicleID(kit))
SendClientMessage(playerid,green,\"
  • !! Sikeres kidobás !!
  • \");

return 1;
}

 
::LETÖLTÉS::
« Utoljára szerkesztve: 2012. november 10. - 23:30:35 írta danix99 »

Nem elérhető Neon

  • 300
    • Profil megtekintése
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #1 Dátum: 2012. november 10. - 07:02:13 »
0 Show voters
Jo Lett ment a +

Nem elérhető ZyZu.

  • Globális moderátor
  • 8939
  • my turbo diesel forum
  • Discord: ZyZu.
    • Profil megtekintése
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #2 Dátum: 2012. november 10. - 07:53:56 »
0 Show voters
Menti a vip -et :D?

Nem elérhető Neon

  • 300
    • Profil megtekintése
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #3 Dátum: 2012. november 10. - 08:42:39 »
0 Show voters
szerintem igen

Nem elérhető bendor

  • 2949
    • Profil megtekintése
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #4 Dátum: 2012. november 10. - 08:44:04 »
0 Show voters
Idézetet írta: ZyZu date=1352530436\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"29672\" data-ipsquote-contentclass=\"forums_Topic
Menti a vip -et :D?
 
nem
[pawn]// script by danix
#include <a_samp>
#include <zcmd>
#include <sscanf2>
#define green 0x00ff00
new bool:vip[MAX_PLAYERS];
stock check(playerid) { if(vip[playerid] == true) return 1; else return 0; }
CMD:vhelp(playerid)
{
if(check(playerid) == 0 && !IsPlayerAdmin(playerid)) return SendClientMessage(playerid,0xff0000ff,\"Nem vagy VIP Tag!\");
SendClientMessage(playerid,-1,\"/kick /slap /vsay /vhelp /vchat /onvips /get /goto /eject {ff0000}/viptag\");
        return 1;
}
CMD:kick(playerid,params[])
{
new kit;
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag ! [-]!\");
if(sscanf(params,\"u\",kit)) return 0;
Kick(kit);
SendClientMessage(playerid,green,\"
  • !! Sikeres kirúgás !!
  • \");

return 1;
}
CMD:slap(playerid,params[])
{
new kit,Float:x,Float:y,Float:z;
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag ! [-]!\");
if(sscanf(params,\"u\",kit)) return 0;
GetPlayerPos(kit,x,y,z);
SetPlayerPos(kit,x,y,z+20);
SendClientMessage(playerid,green,\"
  • !! Sikeres feldobás !!
  • \");

return 1;
}
CMD:vsay(playerid,params[])
{
new str[128],n[24];
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag ! [-]!\");
if(sscanf(params,\"s[128]\",str)) return 0;
GetPlayerName(playerid,n,24);
format(str,128,\"!!![VIP]!!! %s: %s\");
SendClientMessageToAll(0x0000ffff,str);
return 1;
}
CMD:vchat(playerid,params[])
{
new str[128],n[24];
if(check(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy VIP Tag ! [-]!\");
if(sscanf(params,\"s[128]\",str)) return 0;
GetPlayerName(playerid,n,24);
format(str,128,\"[VIP CHAT] %s: %s\");
for(new i; i < MAX_PLAYERS; i++) {
   if(check(i) == 1) {
      SendClientMessage(i,0xffbb00ff,str);
   }
}
return 1;
}
CMD:viptag(playerid,params[])
{
new kit;
if(IsPlayerAdmin(playerid) == 0)return SendClientMessage(playerid,0xff0000ff,\"[-] !! Nem vagy RCON ADMIN ! [-]!\");
if(sscanf(params,\"u\",kit)) return 0;
vip[kit] = 1;
SendClientMessage(playerid,green,\"
  • !! Sikeres kinevezés !!
  • \");

return 1;
}[/pawn]

Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #5 Dátum: 2012. november 10. - 11:01:18 »
0 Show voters
Jo minden, de mi értelme van ha még a vipet se menti  :angry:

Nem elérhető Flash

  • 5726
  • (っ◕‿◕)っ
    • Profil megtekintése
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #6 Dátum: 2012. november 10. - 12:28:07 »
0 Show voters
/kick /slap /get /goto /eject minden admin rendszerbe van, szóval felesleges, max ha megcsinnálod, hogy /vget stb..
Ja és Dini-vel mentse, mert a kezdõk, azzal mentik a cuccaikat. Akiknek jobban megy a scriptelés, az úgyis ír sajátot mysql-el..

Nem elérhető Dfoglalo

  • 4069
  • Globális Moderátor
    • Profil megtekintése
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #7 Dátum: 2012. november 10. - 14:23:38 »
0 Show voters
Jó, de így nincs sok értelme... És azért van benne pár szemétkedõs parancs, pl. autó ellopás és a kick. Ha nincs felügyelõ admin, ezeket jogtalanul is használhatják, és ezzel a nem VIP-k megutálhatják az adott szerót. Persze egy kijelölés törléssel ki lehet szedni ezeket a (számomra) nem kellõ parancsokat, de szerintem nem minden szerveren lenne ez a pár dolog benne elõnyös. De most mindenki számára nem túl jó a dolog, ha egyszer nem menti el a VIP személyeket.

Kovacs_Bela

  • Vendég
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #8 Dátum: 2012. november 10. - 14:56:42 »
0 Show voters
Köszönöm mindenkinek!
Valóban nem menti. Miért? Mert alapból Rcon adminra épülõ rendszert akartam csinálni, így nem menti, és így vannak benne ilyen parancsok.
Aki jól megnézi az látja hogy mikor nyitottam a témát, és hogy van egy 1.0 a név mellett :D

Nem elérhető ZyZu.

  • Globális moderátor
  • 8939
  • my turbo diesel forum
  • Discord: ZyZu.
    • Profil megtekintése
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #9 Dátum: 2012. november 10. - 17:54:03 »
0 Show voters
Ha lesz idõm meg csinálom a mentést és írok majd ha nem baj ? :D Egyépként tetszik :)

Nem elérhető instant

  • 2778
  • ZzzzzZ
    • Profil megtekintése
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #10 Dátum: 2012. november 10. - 18:08:48 »
0 Show voters
tesztelve lett?:D
OFF: danix99 megengedték már hogy ismét SA-MPoz?xd

Kovacs_Bela

  • Vendég
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #11 Dátum: 2012. november 10. - 19:02:12 »
0 Show voters
Idézetet írta: ZzzzzZ date=1352567328\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"29672\" data-ipsquote-contentclass=\"forums_Topic
tesztelve lett?:D
OFF: danix99 megengedték már hogy ismét SA-MPoz?xd
 
zyzu: nem kell, csinálom az 1.1es verziót
zzzz: sajt! am meg, de most meg én nem akarok sampozni xDD
E: készül az 1.1

Nem elérhető zeteni

  • 1970
  • Ex-Scripter
    • Profil megtekintése
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #12 Dátum: 2012. november 10. - 19:11:01 »
0 Show voters
Téma áthelyezve, ameddig nem lesz forráskód, és letöltés.

Kovacs_Bela

  • Vendég
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #13 Dátum: 2012. november 10. - 23:26:41 »
0 Show voters
Vissza lehet helyezni, v 1.1-es link hozzáadva!

Nem elérhető zeteni

  • 1970
  • Ex-Scripter
    • Profil megtekintése
Mini VIP System 1.1 [Link hozzáadva!]
« Válasz #14 Dátum: 2012. november 10. - 23:28:22 »
0 Show voters
Visszaraktam, de kérlek rakd ki code tag-ek közé is!

 

SimplePortal 2.3.7 © 2008-2024, SimplePortal