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: Kovacs_Bela - 2012. november 10. - 02:52:11

Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: Kovacs_Bela - 2012. november 10. - 02:52:11
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!
 
// 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::
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: Neon - 2012. november 10. - 07:02:13
Jo Lett ment a +
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: ZyZu. - 2012. november 10. - 07:53:56
Menti a vip -et :D?
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: Neon - 2012. november 10. - 08:42:39
szerintem igen
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: bendor - 2012. november 10. - 08:44:04
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,\"
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,\"
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,\"
return 1;
}[/pawn]
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: Dante Sanders - 2012. november 10. - 11:01:18
Jo minden, de mi értelme van ha még a vipet se menti  :angry:
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: Flash - 2012. november 10. - 12:28:07
/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..
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: Dfoglalo - 2012. november 10. - 14:23:38
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.
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: Kovacs_Bela - 2012. november 10. - 14:56:42
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
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: ZyZu. - 2012. november 10. - 17:54:03
Ha lesz idõm meg csinálom a mentést és írok majd ha nem baj ? :D Egyépként tetszik :)
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: instant - 2012. november 10. - 18:08:48
tesztelve lett?:D
OFF: danix99 megengedték már hogy ismét SA-MPoz?xd
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: Kovacs_Bela - 2012. november 10. - 19:02:12
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
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: zeteni - 2012. november 10. - 19:11:01
Téma áthelyezve, ameddig nem lesz forráskód, és letöltés.
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: Kovacs_Bela - 2012. november 10. - 23:26:41
Vissza lehet helyezni, v 1.1-es link hozzáadva!
Cím: Mini VIP System 1.1 [Link hozzáadva!]
Írta: zeteni - 2012. november 10. - 23:28:22
Visszaraktam, de kérlek rakd ki code tag-ek közé is!