what is false?
folder:
soldat/scripts
levels.pas :
const
//Teams
ALPHA = 1;
BRAVO = 2;
CHARLIE = 3;
DELTA = 4;
SPECTATOR = 5;
HP_PER_LEVEL = 200;
MAX_LVL = 10;
EP_PER_LEVEL = 100;
//Game Modes
DEATHMATCH = 0;
POINTMATCH = 1;
TEAMMATCH = 2;
CTF = 3;
RAMBO = 4;
INF = 5;
HTF = 6;
//Weapons
DEAGLES = 1;
HKMP5 = 2;
AK74 = 3;
STEYR = 4;
SPAS = 5;
RUGER = 6;
M79 = 7;
BARRET = 8;
MINIMI = 9;
MINIGUN = 10;
FLAMER = 11;
BOW = 12;
FLAMEBOW = 13;
SOCOM = 0;
KNIFE = 14;
CHAINSAW = 15;
LAW = 16;
SERVER =255 ;
type tplayer = record
name: string;
ep,level,maxhp: integer;
end;
var soldier: array[1..32] of tplayer;
function GetEP(Killer,Victim:string): integer;
var KID,VID,multiplier,lvldif,EP: integer;
begin
KID:=NametoID(Killer);
VID:=NametoID(Victim);
lvldif:=soldier[VID].level-soldier[KID].level;
multiplier:=100 + 10 * lvldif;
If multiplier<40 then
multiplier:=40;
EP:=1000 + (soldier[VID].level * EP_PER_LEVEL * multiplier DIV 100);
Result:=EP;
end;
function MaxEP(ID: integer): integer;
begin
Result:=2200 + (soldier[ID].level * 2000) + (soldier[ID].level * soldier[ID].level * 200);
end;
{procedure Heal(ID,percent,absolute: intteger);
begin
DoDamage(ID,(-1) * soldier.[ID].maxhp * percentage DIV 100 - absolute);
end;}
procedure GainLvl(ID: integer);
begin
soldier[ID].level:=soldier[ID].level+1;
Command('say ' + IDtoName(ID) + ' reached Level ' + inttostr(soldier[ID].level));
soldier[ID].maxhp:=4000 + HP_PER_LEVEL * soldier[ID].level;
//Heal(ID,100,0);
end;
procedure ActivateServer();
begin
end;
procedure AppOnIdle(Ticks: integer);
begin
end;
procedure OnCommand(ID: integer;Text: string);
begin
end;
function OnRequestGame(IP: string;State: integer):integer;
begin
Result := State;
end;
procedure OnJoinGame(IP, Nickname: string;Team: byte);
begin
end;
procedure OnJoinTeam(IP, Nickname: string;Team: byte);
var i,JID,temp: integer;
begin
temp:=0;
JID:=IPtoID(IP);
soldier[JID].level:=1;
If NumPlayers > 1 then
begin
for i:=1 to 32 do
If soldier[i].level > temp then
temp:=soldier[i].level;
soldier[JID].level:=temp;
end;
soldier[JID].ep:=1;
soldier[JID].maxhp:=4000;
soldier[JID].name:=nickname;
end;
procedure OnLeaveGame(IP, Nickname: string;Team: byte);
begin
end;
procedure OnFlagGrab(ID: integer;TeamFlag: byte;GrabbedInBase: boolean);
begin
end;
procedure OnFlagReturn(ID: integer;TeamFlag: byte);
begin
end;
procedure OnFlagScore(ID: integer;TeamFlag: byte);
begin
end;
procedure OnPlayerKill(Killer,Victim,Weapon: string);
var EP,KID,VID: integer;
begin
KID:=NametoID(Killer);
VID:=NametoID(Victim);
If KID=VID then
begin
If soldier[KID].ep > 1000 + soldier[KID].level * EP_PER_LEVEL then
soldier[KID].ep:=soldier[KID].ep - (1000 + soldier[KID].level * EP_PER_LEVEL)
else
soldier[KID].ep:=0;
end
else
begin
EP:=GetEP(Killer,Victim);
soldier[KID].ep:=soldier[KID].ep + EP;
If soldier[KID].ep >= MaxEP(KID) then
begin
If soldier[KID].level >= MAX_LVL then
else
GainLvl(KID);
end;
end;
end;
procedure OnPlayerRespawn(ID: integer);
begin
end;
procedure OnPlayerSpeak(Name,Text: string);
begin
end;
procedure OnAdminConnect(IP: string);
begin
end;
procedure OnAdminDisconnect(IP: string);
begin
end;
procedure OnAdminMessage(IP, Msg: string);
begin
end;
procedure OnException(ErrorMessage: string);
begin
// WriteFile('ErrorLog.txt', ErrorMessage);
end;
function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
//NOTE: This function will be called when [_ANY_] player types a / command.
Result := false; //Return true if you want disable the command typed.
end;
procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
end;
function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
begin
// Victim = Player Damaged // Shooter = Player doing the damage
result := Damage;
end;
and yes i have done it into the includes.txt
need help
