Ahoj potřeboval bych pomoct s tímto
// VIP SYSTEM BY MARVÍK
//NEPŘEPISOVAT AUTORA
#include <a_samp>
#include <dini>[/color]
[color=#000000]new VIP[MAX_PLAYERS];
new VHEAL[MAX_PLAYERS];
new VARMOR[MAX_PLAYERS];[/color]
[color=#000000]#define CheckTime 1
#define VIP_F "vip/%s.txt"
#define DIALOG_VIP 2006
#define DIALOG_VIPS 2005 [/color]
[color=#000000]#define F_CERVENA 0xFF0000AA
#define COLOR_SVMODRA 0x33CCFFAA
#define COLOR_ZELENA 0x008000AA[/color]
[color=#000000]#define dcmd(%1,%2,%3) if ((strcmp((%3)[1], #%1, true, (%2)) == 0) && ((((%3)[(%2) + 1] == 0) && (dcmd_%1(playerid, "")))||(((%3)[(%2) + 1] == 32) && (dcmd_%1(playerid, (%3)[(%2) + 2]))))) return 1[/color]
[color=#000000]public OnFilterScriptInit()
{
print("\n--------------------------------------");
print(" VIP System - Create MARVÍK ");
print("--------------------------------------\n");
return 1;
}[/color]
[color=#000000]public OnPlayerConnect(playerid)
{
new cesta[50];
format(cesta,50,"vip/%s.sav",PlayerName(playerid));
VIP[playerid] = dini_Int(cesta,"vip");
if(VIP[playerid] == 1) return SendClientMessage(playerid, F_CERVENA,"Byl ti aktivován VIP Učet");
if(VIP[playerid] == 0) return SendClientMessage(playerid, F_CERVENA,"Byl ti deaktivován VIP Učet");
if(VIP[playerid] == 1){
new str[100];
format(str, 100, "VIP Hrac %s se pripojil do hry!",PlayerName(playerid));
SendClientMessageToAll(COLOR_SVMODRA, str);
}
return 1;
}[/color]
[color=#000000]public OnPlayerDisconnect(playerid, reason)
{
if(VIP[playerid] == 1){
new str[100];
format(str, 100, "- VIP Hráč %s se odpojil ze hry!",PlayerName(playerid));
SendClientMessageToAll(COLOR_SVMODRA, str);
}
new cesta[50];
format(cesta,50,"vip/%s.sav",PlayerName(playerid));
if(!dini_Exists(cesta))
{
dini_Create(cesta);
}
else
{
dini_IntSet(cesta,"vip",VIP[playerid]);
}
return 1;
}[/color]
[color=#000000]public OnPlayerSpawn(playerid)
{
if(VIP[playerid] == 1) return GivePlayerWeapon(playerid, 30 ,200);
if(VIP[playerid] == 1) return GivePlayerWeapon(playerid, 32 ,200);
if(VIP[playerid] == 1) return SetPlayerArmour(playerid, 100);
if(VIP[playerid] == 1) return SendClientMessage(playerid,-1,"{FF9900}SPAWN --- VIP --- Byla ti dána vesta + zbran!");
return 1;
}[/color]
[color=#000000]public OnPlayerDeath(playerid, killerid, reason)
{
if(VIP[playerid] == 1){
new Float:X,Float:Y,Float:Z;
GetPlayerPos(playerid, X,Y,Z);
CreateExplosion(X,Y,Z,1,5);
}
return 1;
}[/color]
[color=#000000]public OnPlayerCommandText(playerid, cmdtext[])
{
dcmd(vips, 4, cmdtext);
dcmd(vip, 3, cmdtext);
dcmd(setvip, 6, cmdtext);
dcmd(vheal, 5, cmdtext);
dcmd(vbrnko, 6, cmdtext);
dcmd(vrepair, 7, cmdtext);
dcmd(flip, 4, cmdtext);
dcmd(oblek, 5, cmdtext);
return 0;
}[/color]
[color=#000000]dcmd_setvip(playerid, params[])
{
new ID = strval(params);
if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, COLOR_SVMODRA,"[ ! ] {ffffff}Nejsi přihlášen přes {ff0000}RCON{ffffff}!");
if(!IsPlayerConnected(ID)) return SendClientMessage(playerid, COLOR_SVMODRA,"[ ! ] {ffffff}Urcite ID neni připojeno!");
if(VIP[iD] == 0)
{
VIP[playerid] =1;
new str[100];
format(str, 100, "Obyčejnému hráči %s byl dán VIP učet!",PlayerName(ID));
SendClientMessageToAll(COLOR_SVMODRA, str);
new file[100];
format(file,sizeof(file),VIP_F,PlayerName(ID));
dini_Create(file);
}
else if(VIP[iD] == 1)
{
VIP[playerid] =0;
new str[100];
format(str, 100, "VIP hráči %s je zas obyčejný hráč!",PlayerName(ID));
SendClientMessageToAll(F_CERVENA, str);
new file[100];
format(file,sizeof(file),VIP_F,PlayerName(ID));
dini_Remove(file);
}
return 1;
}[/color]
[color=#000000]dcmd_vheal(playerid, params[])
{
#pragma unused params
if(VIP[playerid] == 1)
{
if(VHEAL[playerid] == 1) return SendClientMessage(playerid, COLOR_SVMODRA,"VIP --- Tento příkaz mužeš používat jednou po 5 minutách.");
VHEAL[playerid] = 1;
SetPlayerHealth(playerid,100);
SetTimerEx("VhealTimer", 300000, false, "i", playerid);
return SendClientMessage(playerid,COLOR_ZELENA,"VIP --- Doplnil jsi si HP");
} else return SendClientMessage(playerid, COLOR_SVMODRA, "[ ! ] {ffffff}Nejsi {ffff00}VIP{ffffff} hráč!");
}[/color]
[color=#000000]forward VhealTimer();
public VhealTimer()
{
for(new i; i<MAX_PLAYERS; i++)
{
VHEAL[i] = 0;
SendClientMessage(i,COLOR_SVMODRA,"VIP --- Můžeš znovu použít příkaz /vheal");
}
return 1;
}[/color]
[color=#000000]dcmd_flip(playerid,params[])
{
#pragma unused params
if(VIP[playerid] == 1)
{
if(IsPlayerInAnyVehicle(playerid))
{
new VehicleID, Float:X, Float:Y, Float:Z;
GetPlayerPos(playerid, X, Y, Z);
VehicleID = GetPlayerVehicleID(playerid);
SetVehiclePos(VehicleID, X, Y, Z);
SetVehicleZAngle(VehicleID, 0);
return SendClientMessage(playerid,COLOR_ZELENA,"VIP --- Auto bylo otočeno na kola");
} else return SendClientMessage(playerid,COLOR_SVMODRA,"Nejsi ve vozidle");
} else return SendClientMessage(playerid, COLOR_SVMODRA, "[ ! ] {ffffff}Nejsi {ffff00}VIP{ffffff} hráč!");
}[/color]
[color=#000000]dcmd_vbrnko(playerid, params[])
{
#pragma unused params
if(VIP[playerid] == 1)
{
if(VARMOR[playerid] == 1) return SendClientMessage(playerid,COLOR_SVMODRA,"VIP --- Tento příkaz mužeš používat jednou po 3 minutách. .");
VARMOR[playerid] = 1;
SetPlayerArmour(playerid,100);
SetTimerEx("VarmorTimer", 180000, false, "i", playerid);
return SendClientMessage(playerid,COLOR_ZELENA,"VIP --- Dostal jsi plný Armor");
} else return SendClientMessage(playerid, COLOR_SVMODRA, "[ ! ] {ffffff}Nejsi{ffff00}VIP{ffffff} hráč!");
}[/color]
[color=#000000]forward VarmorTimer();
public VarmorTimer()
{
for(new i; i<MAX_PLAYERS; i++)
{
VARMOR[i] = 0;
SendClientMessage(i,COLOR_SVMODRA,"VIP --- Můžeš znovu použít příkaz /vbrnko");
}
return 1;
}[/color]
[color=#000000]dcmd_oblek(playerid, params[])
{
if(VIP[playerid] == 1)
{
new id = strval(params);
if(!strval(params)) return SendClientMessage(playerid, COLOR_SVMODRA, "/oblek [id obleku]");
if(id < 0 || id > 299) return SendClientMessage(playerid, COLOR_SVMODRA, "Rozmezí skinu je 0 - 299 !");
SetPlayerSkin(playerid, id);
} else SendClientMessage(playerid, COLOR_SVMODRA, "[ ! ] {ffffff}Nejsi {ffff00}VIP{ffffff} hráč!");
return 1;
}[/color]
[color=#000000]dcmd_vrepair(playerid, params[])
{
#pragma unused params
if(VIP[playerid] == 1)
{
if (IsPlayerInAnyVehicle(playerid)) {
SetVehicleHealth(GetPlayerVehicleID(playerid),1250.0);
return SendClientMessage(playerid,COLOR_ZELENA,"Vozidlo opraveno");
} else return SendClientMessage(playerid,COLOR_SVMODRA,"Nejsi ve vozidle");
} else return SendClientMessage(playerid, COLOR_SVMODRA, "[ ! ] {ffffff}Nejsi {ffff00}VIP{ffffff} hráč!");
}[/color]
[color=#000000]dcmd_vip(playerid, params[])
{
#pragma unused params
new string[2000];
strcat(string, "{00FF00}=========|VIP Systém|=========\n");
strcat(string, "{FF0000}/vheal {00FF00}- Doplní HP (po 5 minutách)\n");
strcat(string, "{FF0000}/vflip {00FF00}- Otočí auto na kola\n");
strcat(string, "{FF0000}/vrepair {00FF00}- Opraví vám auto\n");
strcat(string, "{FF0000}/oblek {00FF00}- Nastavíte si skin\n");
strcat(string, "{FF0000}/vbrnko {00FF00}- Dáte si plný armor (po 3 minutách)\n");
strcat(string, "{FF0000}- Výbuch po smrti\n");
ShowPlayerDialog(playerid,DIALOG_VIP,DIALOG_STYLE_MSGBOX,"VIP",string,"OK","");
return 1;
}[/color]
[color=#000000]dcmd_vips(playerid, params[])
{
#pragma unused params
new str[2000];
ShowPlayerDialog(playerid,DIALOG_VIPS,DIALOG_STYLE_MSGBOX,"VIP Hráči Online","Na serveru není přítomen žádný VIP hráč!","OK","");
for (new i; i<MAX_PLAYERS; i++)
{
if(VIP[i] == 1)
{
format(str,sizeof(str), "{00FF00}VIP Hráč{00FF00} {FFFFFF}%s %s \r\n\n",str,PlayerName(i));
}}
ShowPlayerDialog(playerid,DIALOG_VIPS,DIALOG_STYLE_MSGBOX,"VIP Hráči Online",str,"OK","");
return 1;
}[/color]
[color=#000000]stock PlayerName(playerid)
{
new name[255];
GetPlayerName(playerid, name, 255);
return name;
}
Píše Chybu
C:\Users\MARTIN\Plocha\vip.pwn(229) : error 017: undefined symbol "ShowPlayerDialog"
C:\Users\xxxx\Desktop\vip.pwn(218) : warning 203: symbol is never used: "playerid"
C:\Users\MARTIN\Plocha\vip.pwn(238) : error 017: undefined symbol "ShowPlayerDialog"
C:\Users\MARTIN\Plocha\vip.pwn(245) : error 017: undefined symbol "ShowPlayerDialog"
C:\Users\MARTIN\Plocha\vip.pwn(234) : warning 203: symbol is never used: "playerid"
Pawn compiler 3.2.3664 Copyright (c) 1997-2006, ITB CompuPhase[/size][/color]
[color=#000000][size=4]3 Errors.[/size][/color]
[color=#000000][size=4]
