Urgent Problem, needs fixing ASAP

[frosty]

i have a big problem, this is urgent, i cant get my server running until this is fixed

the code:

Code: (pascal) [Select]

var
Cash:Integer;
i,BonusID,ID,HC,EBN,ED,EBNM,EDM,DED:Byte;
Command:String;
deathexp: Boolean;

procedure Nova(const X,Y,speed,decentralize,power: single; ID,style: byte; n: integer);
var i: integer;
    angle: single;
begin
  angle := 2*pi/n;
  for i:=0 to n do
    CreateBullet(X+cos(angle*i)*decentralize, Y+sin(angle*i)*decentralize, cos(angle*i)*speed, sin(angle*i)*speed, power,style , ID );
end;

procedure ActivateServer();
begin
Cash:=0;
EBN:=3;
EBNM:=1;
EDM:=1;
BonusID:=4;
DED:=25;
end;

procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
begin
if deathexp = true then begin
{for i := 1 to 5 do}
CreateBullet(GetPlayerStat(Victim, 'X'), GetPlayerStat(Victim, 'Y') - 0, 0, 0,100, 4, Killer);
Nova(GetPlayerstat(Victim,'X'),Getplayerstat(Victim,'Y'),0,ED,0, Killer,4,EBN);
Givebonus(Killer,BonusID)
Cash :=Cash+1;
//WriteLn('Cash Updated');
//WriteConsole(0,'Global Player Cash: '+inttostr(Cash),$EE81FAA1);
//WriteLn('Cash Displayed');
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin

if Text = '/cash' then begin
WriteConsole(0,IdtoName(ID)+' has just requested Cash levels!',$EE81FAA1);
WriteConsole(0,'Global Player Cash: '+inttostr(Cash),$EE81FAA1);
end;

if Text = '/buy pred' then begin
if Cash < 50 then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase predator, not enough funds!',$EE81FAA1);
end;
if Cash >= 50 then begin
Cash :=Cash-50;
WriteConsole(0,IdtoName(ID)+' has just bought predator for 50 Cash',$EE81FAA1);
end;
end;

if Text = '/buy bes' then begin
if Cash < 65 then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase berserker, not enough funds!',$EE81FAA1);
end;
if Cash >= 65 then begin
Cash :=Cash-65;
WriteConsole(0,IdtoName(ID)+' has just bought berserker for 65 Cash',$EE81FAA1);
GiveBonus(ID, 2);
end;
end;

if Text = '/buy clusters' then begin
if Cash < 1000 then begin
If BonusID <> 5 then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase the clusters, not enough funds!',$EE81FAA1);
end;
end;
if BonusID = 5 then begin
WriteConsole(ID,'cluster grenades are already in affect, try normal nades!',$EE81FAA1);
end;
if Cash >= 1000 then begin
If BonusID <> 5 then begin
Cash :=Cash-1000;
BonusID:=5;
WriteConsole(0,IdtoName(ID)+' has just bought the cluster grenade upgrade for 1000 Cash',$EE81FAA1);
GiveBonus(ID,BonusID);
end;
end;
end;

if Text = '/buy nades' then begin
if Cash < 1000 then begin
If BonusID <> 4 then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase the nades, not enough funds!',$EE81FAA1);
end;
end;
if BonusID = 4 then begin
WriteConsole(ID,'regular grenades are already in affect, try clusters!',$EE81FAA1);
end;
if Cash >= 1000 then begin
If BonusID <> 4 then begin
Cash :=Cash-1000;
BonusID:=4;
WriteConsole(0,IdtoName(ID)+' has just bought the regular grenade upgrade for 1000 Cash',$EE81FAA1);
GiveBonus(ID,BonusID);
end;
end;
end;

//if Text = '/buy dex' then begin
//if Cash < 3000 then begin
//WriteConsole(0,IdtoName(ID)+' just tried to purchase bigger bangs, not enough //funds!',$EE81FAA1);
//end;
//if Cash >= 3000 then begin
//EBNM :=EBNM+1:
//EBN :=3*EBNM;
//EDM :=EDM+1;
//ED := (5*EDM)+ED;
//Cash :=Cash-3000;
//WriteConsole(0,IdtoName(ID)+' has just bought bigger bangs for 3000 //Cash',$EE81FAA1);
//end;
//end;

//if Text = '/buy holycross' then begin
//if Cash < 1000 then begin
//WriteConsole(0,IdtoName(ID)+' just tried to purchase Holy Cross, not enough //funds!',$EE81FAA1);
//end;
//if Cash >= 1000 then begin
//HC:=1;
//WriteConsole(0,IdtoName(ID)+' has just bought Holy Cross for 1000 Cash',$EE81FAA1);
//end;
//end;

if Text = '/items' then begin
WriteConsole(0,'/buy pred - gives u pred bonus - 50 cash',$EE81FAA1);
WriteConsole(0,'/buy bes - gives u berserker bonus - 65 cash',$EE81FAA1);
WriteConsole(0,'/buy clusters - upgrades your nade bonus to clusters - 1000 cash',$EE81FAA1);
WriteConsole(0,'/buy nades - upgrades your cluster bonus to nades - 1000 cash',$EE81FAA1);
WriteConsole(0,'---->grenade upgrades affects whole team',$EE81FAA1);
//WriteConsole(0,'/buy holycross - Kills all zombies in Red Team Base on Red Team score //- 1000 cash',$EE81FAA1);
end;
end;

procedure OnMapChange(NewMap: string);
begin
deathexp := true;
For i := 0 to Numplayers do
begin
GiveBonus(i,BonusID);
end;
end;

procedure OnPlayerRespawn(ID: byte);
begin
GiveBonus(ID, BonusID);
end;

//procedure OnJoinTeam(ID, Team: byte);
//begin
//GiveBonus(ID, BonusID);
//end;

//procedure OnFlagScore(ID, TeamFlag: byte);
//begin
//if HC = 1 then begin
//
//end;
//end;

function OnCommand(ID: Byte; Text: string): boolean;
begin
if GetPiece(text,' ',0) = '/raisecash' then begin
Cash := Cash + Strtoint(GetPiece(Text,' ',1));
WriteConsole(0,'Admin has just deposited '+Getpiece(Text,' ',1)+' Global Player Cash!',$EE81FAA1);
end;

if Text = '/deathexplode' then begin
WriteConsole(0,'death explosions enabled', $00EE0000);
WriteLn('death explosions have been enabled by ' + IntToStr(ID) + '!');
deathexp := True;
end;

if Text = '/nodeathexp' then begin
WriteConsole(0,'death explosions disabled', $00EE0000);
WriteLn('death explosions have been disabled by ' + IntToStr(ID) + '!');
deathexp := False;
end;
end;
the error:

Code: [Select]

[21:1]Unknown identifier 'Nova''why is that coming up when i have defined Nova the same way as this script which is compiling fine:

Code: (pascal) [Select]

var   
flak,rd,bb: Boolean;
 Timer,i,ObjectID:integer;
 Cash:byte;
deathexp: Boolean;

procedure Nova(const X,Y,speed,decentralize,power: single; ID,style: byte; n: integer);
var i: integer;
    angle: single;
begin
  angle := 2*pi/n;
  for i:=0 to n do
    CreateBullet(X+cos(angle*i)*decentralize, Y+sin(angle*i)*decentralize, cos(angle*i)*speed, sin(angle*i)*speed, power,style , ID );
end;

procedure ActivateServer();
begin
Cash:=0;
end;

 function OnCommand(ID: Byte; Text: string): Boolean;
 var
 destroy:Byte;
 begin   
   if Text = '/flakb' then begin 
    WriteLn('The flak event has been initiated by ' + IntToStr(ID) + '!');   
    WriteConsole(0,'The Flak shells event is beginning!',$00EE00EE); 
    flak:= True; 
  end; 
   
  if Text = '/flak end' then begin 
    WriteLn('The flak event has been cancelled by ' + IntToStr(ID) + '!');   
    WriteConsole(0, 'The Flak shells event has finished!', $00EE00EE); 
    WriteConsole(0, 'server administration hopes that you enjoyed the event!', $EEEE00EE); 
    flak:= False; 
  end; 
   
   
  if Text = '/killall' then begin
   for destroy := 1 to 32 do
   DoDamage(destroy,99999999)
   WriteConsole(0, 'ALL GO BOOM!', $00EE00EE);
   end;

if Text = '/rdeath' then begin
rd := True;
WriteConsole(0,'Wacky deaths enabled', $00EE0000);
end;

if Text = '/nrdeath' then begin
rd := False;
WriteConsole(0,'Wacky deaths disabled', $00EE0000);
end;

if Text = '/bb1' then begin
bb := True;
end;

if Text = '/bb0' then begin
bb := False;
end;

end;

 function OnPlayerDamage(Victim, Shooter: Byte; Damage: Integer): Integer; 
 begin 
  result := Damage;
  {DoDamage(Victim,9999999);}
  if flak = True then begin 
  CreateBullet(GetPlayerStat(Victim, 'X'), GetPlayerStat(Victim, 'Y') - 0, 0, 0,100, 10, Shooter); 
 end; 
end;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
var
i,i2,i3,i4:Byte;
begin
if rd = true then begin
for i := 1 to NumPlayers do
CreateBullet(GetPlayerStat(i,'x'), GetPlayerStat(i,'y') - 0, 0, 0,100, 10, Killer);
end;
 if GetPlayerStat(Killer, 'Name') = 'MR.ZOMBIE' then begin   
   
  if Killer = Victim then begin 
   
  end else begin     
 
    WriteConsole(0,IDtoName(Victim) + ' Just had his head sawed off', $00EE00EE);
end;

end;
if Victim = Killer then begin //begin nova
    // This message will only happen for selfkilling bots, though.
    WriteConsole(0, IDtoName(Victim) + ' just annihilated himself', $00EE0000);
Nova(GetPlayerstat(Killer,'X'),Getplayerstat(Killer,'Y'),20,15,0, Killer,9,75);
end;

if bb = True then begin
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+25, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+25 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-25, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-25 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+50, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+50 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-50, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-50 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+75, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+75 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-75, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-75 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+100, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+100 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-100, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-100 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+125, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+125 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-125, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-125 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+150, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+150 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-150, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-150 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+175, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+175 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-175, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-175 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+200, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+200 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-200, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-200 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+225, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+225 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-225, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-225 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+250, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+250 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-250, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-250 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+275, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+275 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-275, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-275 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+300, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+300 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-300, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-300 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+325, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+325 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-325, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-325 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+350, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+350 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-350, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-350 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+375, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+375 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-375, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-375 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+400, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+400 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-400, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-400 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+425, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+425 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-425, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-425 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+450, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+450 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-450, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-450 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+475, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+475 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-475, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-475 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+500, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+500 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-500, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-500 - 0, 0, 0,100, 10, Killer);
//begin extended side
CreateBullet(GetPlayerStat(Victim,'x')+525, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-525, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+550, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-550, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+575, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-575, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+600, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-600, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+625, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-625, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+650, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-650, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+675, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-675, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+700, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-700, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+725, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-725, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+750, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-750, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+775, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-775, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+800, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-800, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+825, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-825, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+850, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-850, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+875, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-875, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+900, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-900, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+925, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-925, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+950, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-950, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+975, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-975, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+1000, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-1000, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+1025, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-1025, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+1050, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-1050, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 10, Killer);
//begin extended top/bottom
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+525 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-525 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+550 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-550 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+575 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-575 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+600 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-600 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+625 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-625 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+650 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-650 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+675 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-675 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+700 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-700 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+725 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-725 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+750 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-750 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+775 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-775 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+800 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-800 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+825 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-825 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+850 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-850 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+875 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-875 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+900 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-900 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+925 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-925 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+950 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-950 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+975 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-975 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+1000 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-1000 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+1025 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-1025 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+1050 - 0, 0, 0,100, 10, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-1050 - 0, 0, 0,100, 10, Killer);
end;

end;

 procedure AppOnIdle(Ticks: integer);
begin
     if Timer > 0 then
          Timer := Timer - 1;
     if Timer = 0 then begin
KillObject(ObjectID);
           Timer := -1;
     end;
end;

function BigBangDeath(Victim:Byte; Killer:Byte): Byte;
begin
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+25, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+25 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-25, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-25 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+50, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+50 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-50, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-50 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+75, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+75 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-75, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-75 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+100, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+100 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-100, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-100 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+125, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+125 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-125, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-125 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+150, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+150 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-150, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-150 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+175, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+175 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-175, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-175 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+200, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+200 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-200, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-200 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+225, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+225 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-225, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-225 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+250, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+250 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-250, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-250 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+275, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+275 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-275, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-275 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+300, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+300 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-300, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-300 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+325, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+325 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-325, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-325 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+350, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+350 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-350, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-350 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+375, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+375 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-375, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-375 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+400, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+400 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-400, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-400 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+425, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+425 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-425, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-425 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+450, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+450 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-450, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-450 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+475, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+475 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-475, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-475 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+500, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')+500 - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-500, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x'), GetPlayerStat(Victim,'y')-500 - 0, 0, 0,100, 9, Killer);
//begin extended side
CreateBullet(GetPlayerStat(Victim,'x')+525, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-525, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+550, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-550, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+575, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-575, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+600, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-600, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+625, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-625, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+650, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-650, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+675, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-675, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+700, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-700, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+725, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-725, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+750, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-750, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+775, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-775, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+800, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-800, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+825, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-825, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+850, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-850, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+875, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-875, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+900, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-900, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+925, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-925, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+950, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-950, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+975, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-975, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+1000, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-1000, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+1025, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-1025, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')+1050, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
CreateBullet(GetPlayerStat(Victim,'x')-1050, GetPlayerStat(Victim,'y') - 0, 0, 0,100, 9, Killer);
end;

[Hacktank]

Didnt read through your code but sounds like you dont have the nova() function above wherever your trying to se it.

PS:
look up for loops.

[frosty]

nvm i seemed to have a duplicate procedure

now im getting identifier expected on line 111

Code: (pascal) [Select]

var
Cash:Integer;
i,BonusID,ID,HC,EBN,ED,EBNM,EDM,DED:Byte;
Command:String;
deathexp: Boolean;

procedure Nova(const X,Y,speed,decentralize,power: single; ID,style: byte; n: integer);
var i: integer;
    angle: single;
begin
  angle := 2*pi/n;
  for i:=0 to n do
    CreateBullet(X+cos(angle*i)*decentralize, Y+sin(angle*i)*decentralize, cos(angle*i)*speed, sin(angle*i)*speed, power,style , ID );
end;

procedure ActivateServer();
begin
Cash:=0;
EBN:=3;
EBNM:=1;
EDM:=1;
BonusID:=4;
DED:=25;
end;

procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
begin
if deathexp = true then begin
{for i := 1 to 5 do}
CreateBullet(GetPlayerStat(Victim, 'X'), GetPlayerStat(Victim, 'Y') - 0, 0, 0,100, 4, Killer);
Nova(GetPlayerstat(Victim,'X'),Getplayerstat(Victim,'Y'),0,ED,0, Killer,4,EBN);
Givebonus(Killer,BonusID)
Cash :=Cash+1;
//WriteLn('Cash Updated');
//WriteConsole(0,'Global Player Cash: '+inttostr(Cash),$EE81FAA1);
//WriteLn('Cash Displayed');
end;
if Victim = Killer then begin //begin nova
    // This message will only happen for selfkilling bots, though.
    WriteConsole(0, IDtoName(Victim) + ' just annihilated himself', $00EE0000);
Nova(GetPlayerstat(Killer,'X'),Getplayerstat(Killer,'Y'),20,15,0, Killer,9,75);
end;
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin

if Text = '/cash' then begin
WriteConsole(0,IdtoName(ID)+' has just requested Cash levels!',$EE81FAA1);
WriteConsole(0,'Global Player Cash: '+inttostr(Cash),$EE81FAA1);
end;

if Text = '/buy pred' then begin
if Cash < 50 then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase predator, not enough funds!',$EE81FAA1);
end;
if Cash >= 50 then begin
Cash :=Cash-50;
WriteConsole(0,IdtoName(ID)+' has just bought predator for 50 Cash',$EE81FAA1);
end;
end;

if Text = '/buy bes' then begin
if Cash < 65 then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase berserker, not enough funds!',$EE81FAA1);
end;
if Cash >= 65 then begin
Cash :=Cash-65;
WriteConsole(0,IdtoName(ID)+' has just bought berserker for 65 Cash',$EE81FAA1);
GiveBonus(ID, 2);
end;
end;

if Text = '/buy clusters' then begin
if Cash < 1000 then begin
If BonusID <> 5 then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase the clusters, not enough funds!',$EE81FAA1);
end;
end;
if BonusID = 5 then begin
WriteConsole(ID,'cluster grenades are already in affect, try normal nades!',$EE81FAA1);
end;
if Cash >= 1000 then begin
If BonusID <> 5 then begin
Cash :=Cash-1000;
BonusID:=5;
WriteConsole(0,IdtoName(ID)+' has just bought the cluster grenade upgrade for 1000 Cash',$EE81FAA1);
GiveBonus(ID,BonusID);
end;
end;
end;

if Text = '/buy nades' then begin
if Cash < 1000 then begin
If BonusID <> 4 then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase the nades, not enough funds!',$EE81FAA1);
end;
end;
if BonusID = 4 then begin
WriteConsole(ID,'regular grenades are already in affect, try clusters!',$EE81FAA1);
end;
if Cash >= 1000 then begin
If BonusID <> 4 then begin
Cash :=Cash-1000;
BonusID:=4;
WriteConsole(0,IdtoName(ID)+' has just bought the regular grenade upgrade for 1000 Cash',$EE81FAA1);
GiveBonus(ID,BonusID);
end;
end;
end;

if Text = '/buy dex' then begin
if Cash < 3000 then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase bigger bangs, not enough funds!',$EE81FAA1);
end;
if Cash >= 3000 then begin
EBNM :=EBNM+1:
EBN :=3*EBNM;
EDM :=EDM+1;
ED := (5*EDM)+ED;
Cash :=Cash-3000;
WriteConsole(0,IdtoName(ID)+' has just bought bigger bangs for 3000 Cash',$EE81FAA1);
end;
end;

//if Text = '/buy holycross' then begin
//if Cash < 1000 then begin
//WriteConsole(0,IdtoName(ID)+' just tried to purchase Holy Cross, not enough //funds!',$EE81FAA1);
//end;
//if Cash >= 1000 then begin
//HC:=1;
//WriteConsole(0,IdtoName(ID)+' has just bought Holy Cross for 1000 Cash',$EE81FAA1);
//end;
//end;

if Text = '/items' then begin
WriteConsole(0,'/buy pred - gives u pred bonus - 50 cash',$EE81FAA1);
WriteConsole(0,'/buy bes - gives u berserker bonus - 65 cash',$EE81FAA1);
WriteConsole(0,'/buy clusters - upgrades your nade bonus to clusters - 1000 cash',$EE81FAA1);
WriteConsole(0,'/buy nades - upgrades your cluster bonus to nades - 1000 cash',$EE81FAA1);
WriteConsole(0,'---->grenade upgrades affects whole team',$EE81FAA1);
//WriteConsole(0,'/buy holycross - Kills all zombies in Red Team Base on Red Team score //- 1000 cash',$EE81FAA1);
end;
end;

procedure OnMapChange(NewMap: string);
begin
deathexp := true;
For i := 0 to Numplayers do
begin
GiveBonus(i,BonusID);
end;
end;

procedure OnPlayerRespawn(ID: byte);
begin
GiveBonus(ID, BonusID);
end;

//procedure OnJoinTeam(ID, Team: byte);
//begin
//GiveBonus(ID, BonusID);
//end;

//procedure OnFlagScore(ID, TeamFlag: byte);
//begin
//if HC = 1 then begin
//
//end;
//end;

function OnCommand(ID: Byte; Text: string): boolean;
begin
if GetPiece(text,' ',0) = '/raisecash' then begin
Cash := Cash + Strtoint(GetPiece(Text,' ',1));
WriteConsole(0,'Admin has just deposited '+Getpiece(Text,' ',1)+' Global Player Cash!',$EE81FAA1);
end;

if Text = '/deathexplode' then begin
WriteConsole(0,'death explosions enabled', $00EE0000);
WriteLn('death explosions have been enabled by ' + IntToStr(ID) + '!');
deathexp := True;
end;

if Text = '/nodeathexp' then begin
WriteConsole(0,'death explosions disabled', $00EE0000);
WriteLn('death explosions have been disabled by ' + IntToStr(ID) + '!');
deathexp := False;
end;
end;
From: April 05, 2010, 12:25:43 amtheres no loops, can u please go over it? i cant see where the problem is

the only loop there is is where it gives the bonus to everyone on map change, but, that was working perfect yesterday so it cant be that

From: April 05, 2010, 12:28:42 ambtw hacktank on both scripts above the nova function is just below the vars

From: April 05, 2010, 01:13:48 amif i comment the code for '/buy dex' it compiles

wtf is wrong with the code for it

Code: (pascal) [Select]

if Text = '/buy dex' then begin
if Cash < 3000 then begin
WriteConsole(0,IdtoName(ID)+' just tried to purchase bigger bangs, not enough //funds!',$EE81FAA1);
end;
if Cash >= 3000 then begin
EBNM :=EBMN+1:
EBN :=3*EBNM;
EDM :=EDM+1;
ED := (5*EDM)+ED;
Cash :=Cash-3000;
WriteConsole(0,IdtoName(ID)+' has just bought bigger bangs for 3000 Cash',$EE81FAA1);
end;
end;
From: April 05, 2010, 01:55:52 amalso im having a problem with the script, Givebonus isnt giving the normal grenades

From: April 05, 2010, 01:56:12 amits only giving clusters


please help!!!!!!

[dnmr]

INDENT YOUR CODE

And you will find missing/extra ENDs and BEGINs more easily

[Gizd]

Loop example:

Code: [Select]

procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
begin
  if GetPlayerStat(Killer,'Team') = GetPlayerStat(Victim,'Team') then repeat
    WriteConsole(Killer,'NOOB TEAMKILLER!!!1111',$00FF00);
  until false;
end;


[frosty]

ok here is the indented code, found no missing or extra ends or ifs, maybe u guys can now see whats wrong

ive spent all day going over each line trying to find what wrong, went over the whole damn script 20 times

now the prblem seems to be, when BonusID is set to 4 which is supposed to call regular grenades if clusters werent bought, even if i tell it to spawn grenades on a player regardless of conditions

Code: (pascal) [Select]

GiveBonus(ID,4);it doesnt work, but why would it work one day and not the next, most of the stuff that u see in the script is what ive tried to debug, it shouldnt stop working one day but work the other day if you know what i mean, maybe i missed something along the way but it was working perfect before      wtf!!!!

Code: (pascal) [Select]

var
Cash:Integer;
i,BonusID,ID,HC,EBN,EBNM,ED,EDM,DED:Byte;
Command:String;
deathexp: Boolean;

procedure Nova(const X,Y,speed,decentralize,power: single; ID,style: byte; n: integer);
var i: integer;
    angle: single;
begin
  angle := 2*pi/n;
  for i:=0 to n do
    CreateBullet(X+cos(angle*i)*decentralize, Y+sin(angle*i)*decentralize, cos(angle*i)*speed, sin(angle*i)*speed, power,style , ID );
end;

procedure ActivateServer();
begin
  BonusID:=4;
  Cash:=0;
  //EBN:=3;
  //EBNM:=1;
  //EDM:=1;
  //DED:=25;
end;

procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
  begin
    GiveBonus(Killer,BonusID);
    Cash :=Cash+1;
    if deathexp = true then begin
    {for i := 1 to 5 do}
       CreateBullet(GetPlayerStat(Victim, 'X'), GetPlayerStat(Victim, 'Y') - 0, 0, 0,100, 4, Killer);
       Nova(GetPlayerstat(Victim,'X'),Getplayerstat(Victim,'Y'),0,25,0, Killer,4,3);
       //WriteLn('Cash Updated');
       //WriteConsole(0,'Global Player Cash: '+inttostr(Cash),$EE81FAA1);
       //WriteLn('Cash Displayed');
   end;
   if Victim = Killer then begin //begin nova
       // This message will only happen for selfkilling bots, though.
       WriteConsole(0, IDtoName(Victim) + ' just annihilated himself', $00EE0000);
Nova(GetPlayerstat(Killer,'X'),Getplayerstat(Killer,'Y'),20,15,0, Killer,9,75);
   end;
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
   begin

       if Text = '/cash' then begin
            WriteConsole(0,IdtoName(ID)+' has just requested Cash levels!',$EE81FAA1);
            WriteConsole(0,'Global Player Cash: '+inttostr(Cash),$EE81FAA1);
       end;

       if Text = '/buy pred' then begin
            if Cash < 50 then begin
                WriteConsole(0,IdtoName(ID)+' just tried to purchase predator, not enough funds!',$EE81FAA1);
            end;
            if Cash >= 50 then begin
                Cash :=Cash-50;
                WriteConsole(0,IdtoName(ID)+' has just bought predator for 50 Cash',$EE81FAA1);
            end;
       end;

  if Text = '/buy bes' then begin
     if Cash < 65 then begin
         WriteConsole(0,IdtoName(ID)+' just tried to purchase berserker, not enough funds!',$EE81FAA1);
     end;
     if Cash >= 65 then begin
         Cash :=Cash-65;
         WriteConsole(0,IdtoName(ID)+' has just bought berserker for 65 Cash',$EE81FAA1);
         GiveBonus(ID, 2);
     end;
  end;

  if Text = '/buy clusters' then begin
     if Cash < 1000 then begin
         If BonusID <> 5 then begin
             WriteConsole(0,IdtoName(ID)+' just tried to purchase the clusters, not enough funds!',$EE81FAA1);
         end;
     end;
     if BonusID = 5 then begin
         WriteConsole(ID,'cluster grenades are already in affect, try normal nades!',$EE81FAA1);
     end;
     if Cash >= 1000 then begin
        If BonusID <> 5 then begin
             Cash :=Cash-1000;
             BonusID:=5;
             WriteConsole(0,IdtoName(ID)+' has just bought the cluster grenade upgrade for 1000 Cash',$EE81FAA1);
             GiveBonus(ID,BonusID);
        end;
     end;
  end;

  if Text = '/buy nades' then begin
      if Cash < 1000 then begin
          If BonusID <> 4 then begin
               WriteConsole(0,IdtoName(ID)+' just tried to purchase the nades, not enough funds!',$EE81FAA1);
          end;
      end;
      if BonusID = 4 then begin
          WriteConsole(ID,'regular grenades are already in affect, try clusters!',$EE81FAA1);
      end;
      if Cash >= 1000 then begin
         If BonusID <> 4 then begin
            Cash :=Cash-1000;
            BonusID:=4;
            WriteConsole(0,IdtoName(ID)+' has just bought the regular grenade upgrade for 1000 Cash',$EE81FAA1);
            GiveBonus(ID,BonusID);
         end;
      end;
  end;

  //if Text = '/buy dex' then begin
     //if Cash < 3000 then begin
         //WriteConsole(0,IdtoName(ID)+' just tried to purchase bigger bangs, not enough funds!',$EE81FAA1);
     //end;
     //if Cash >= 3000 then begin
         //EBNM :=EBMN+1:
         //EBN :=3*EBNM;
         //EDM :=EDM+1;
         //ED := (5*EDM)+ED;
         //Cash :=Cash-3000;
         //WriteConsole(0,IdtoName(ID)+' has just bought bigger bangs for 3000 Cash',$EE81FAA1);
     //end;
  //end;

  //if Text = '/buy holycross' then begin
      //if Cash < 1000 then begin
          //WriteConsole(0,IdtoName(ID)+' just tried to purchase Holy Cross, not enough funds!',$EE81FAA1);
      //end;
      //if Cash >= 1000 then begin
          //HC:=1;
          //WriteConsole(0,IdtoName(ID)+' has just bought Holy Cross for 1000 Cash',$EE81FAA1);
      //end;
  //end;

  if Text = '/items' then begin
     WriteConsole(0,'/buy pred - gives u pred bonus - 50 cash',$EE81FAA1);
     WriteConsole(0,'/buy bes - gives u berserker bonus - 65 cash',$EE81FAA1);
     WriteConsole(0,'/buy clusters - upgrades your nade bonus to clusters - 1000 cash',$EE81FAA1);
     WriteConsole(0,'/buy nades - upgrades your cluster bonus to nades - 1000 cash',$EE81FAA1);
     WriteConsole(0,'---->grenade upgrades affects whole team',$EE81FAA1);
     //WriteConsole(0,'/buy holycross - Kills all zombies in Red Team Base on Red Team score //- 1000 cash',$EE81FAA1);
  end;
end;

procedure OnMapChange(NewMap: string);
begin
      For i := 0 to Numplayers do
         begin
            GiveBonus(i, BonusID);
         end;
   deathexp := true;
end;

procedure OnPlayerRespawn(ID: byte);
begin
   GiveBonus(i,BonusID);
end;

//procedure OnJoinTeam(ID, Team: byte);
//begin
   //GiveBonus(ID, BonusID);
//end;

//procedure OnFlagScore(ID, TeamFlag: byte);
//begin
   //if HC = 1 then begin
//end;

function OnCommand(ID: Byte; Text: string): boolean;
begin
   if GetPiece(text,' ',0) = '/raisecash' then begin
      Cash := Cash + Strtoint(GetPiece(Text,' ',1));
      WriteConsole(0,'Admin has just deposited '+Getpiece(Text,' ',1)+' Global Player Cash!',$EE81FAA1);
   end;

   if Text = '/deathexplode' then begin
      WriteConsole(0,'death explosions enabled', $00EE0000);
      WriteLn('death explosions have been enabled by ' + IntToStr(ID) + '!');
      deathexp := True;
   end;

   if Text = '/nodeathexp' then begin
      WriteConsole(0,'death explosions disabled', $00EE0000);
      WriteLn('death explosions have been disabled by ' + IntToStr(ID) + '!');
      deathexp := False;
   end;
end;

[Swompie]

Don't write so long sentences and uppercase the start of a new please!
And please explain better what you mean, I can't understand that, maybe someone else does, but I didn't.
Please also only post the part of the code where you need help in

However, that's what I think you meant:
When someone buys something, he gets normal nades if clusters weren't purchased.
But when clusters were bought, he gets them?

[frosty]

lets try this again,

normally when a player joins, BonusID is set to 4, thats if some one hasnt bought clusters, so nades is normal, when they join they should get a nadepack, when they kill they should get a nadepack

normal nadepacks arent working, but if someone buys clusters, clusters work fine, if they buy normal nades again, NORMAL NADES ARENT WORKING, they ARENT being GIVEN

why arent normal nades working?

why did i post the full code?

because, as I said when i first posted,

I dont know where the problem is

so i cant post any particular

section

since i

DONT know where the problem IS

something, somewhere in the code is causing some sort of conflict but i dont know what

thats what im asking for help about, if you would bother to read the full post you would have figured that out

why else do u think i haven't posted a section of the code but instead posted the full script?

btw the uppercase ASAP is short for As Soon As Possible for future ref

ill say it again if the code for 'buy dex' is COMMENTED OUT then it compiles but if its UNCOMMENTED it doesnt compile,

ill say my problems AGAIN here:
-GiveBonus is not giving normal nades at all, its ONLY giving CLUSTERS, NOT NORMAL GRENADES! WAS WORKING A FEW DAYS AGO BUT WILL NOT WORK TODAY!
-code for '/buy dex' is not compiling in the script when UNCOMMENTED

Code: (pascal) [Select]

if Text = '/buy dex' then begin
   if Cash < 3000 then begin
      WriteConsole(0,IdtoName(ID)+' just tried to purchase bigger bangs, not enough funds!',$EE81FAA1);
   end;
   if Cash >= 3000 then begin
      EBNM :=EBMN+1:
      EBN :=3*EBNM;
      EDM :=EDM+1;
      ED := (5*EDM)+ED;
      Cash :=Cash-3000;
      WriteConsole(0,IdtoName(ID)+' has just bought bigger bangs for 3000 Cash',$EE81FAA1);
   end;
end;
THIS /\ is the code for BUY DEX

Code: (pascal) [Select]

var
Cash:Integer;
i,BonusID,ID,HC,EBN,EBNM,ED,EDM,DED:Byte;
Command:String;
deathexp: Boolean;

procedure Nova(const X,Y,speed,decentralize,power: single; ID,style: byte; n: integer);
var i: integer;
    angle: single;
begin
  angle := 2*pi/n;
  for i:=0 to n do
    CreateBullet(X+cos(angle*i)*decentralize, Y+sin(angle*i)*decentralize, cos(angle*i)*speed, sin(angle*i)*speed, power,style , ID );
end;

procedure ActivateServer();
begin
  BonusID:=4;
  Cash:=0;
  //EBN:=3;
  //EBNM:=1;
  //EDM:=1;
  //DED:=25;
end;

procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
  begin
    GiveBonus(Killer,BonusID);
    Cash :=Cash+1;
    if deathexp = true then begin
    {for i := 1 to 5 do}
       CreateBullet(GetPlayerStat(Victim, 'X'), GetPlayerStat(Victim, 'Y') - 0, 0, 0,100, 4, Killer);
       Nova(GetPlayerstat(Victim,'X'),Getplayerstat(Victim,'Y'),0,25,0, Killer,4,3);
       //WriteLn('Cash Updated');
       //WriteConsole(0,'Global Player Cash: '+inttostr(Cash),$EE81FAA1);
       //WriteLn('Cash Displayed');
   end;
   if Victim = Killer then begin //begin nova
       // This message will only happen for selfkilling bots, though.
       WriteConsole(0, IDtoName(Victim) + ' just annihilated himself', $00EE0000);
Nova(GetPlayerstat(Killer,'X'),Getplayerstat(Killer,'Y'),20,15,0, Killer,9,75);
   end;
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
   begin

       if Text = '/cash' then begin
            WriteConsole(0,IdtoName(ID)+' has just requested Cash levels!',$EE81FAA1);
            WriteConsole(0,'Global Player Cash: '+inttostr(Cash),$EE81FAA1);
       end;

       if Text = '/buy pred' then begin
            if Cash < 50 then begin
                WriteConsole(0,IdtoName(ID)+' just tried to purchase predator, not enough funds!',$EE81FAA1);
            end;
            if Cash >= 50 then begin
                Cash :=Cash-50;
                WriteConsole(0,IdtoName(ID)+' has just bought predator for 50 Cash',$EE81FAA1);
            end;
       end;

  if Text = '/buy bes' then begin
     if Cash < 65 then begin
         WriteConsole(0,IdtoName(ID)+' just tried to purchase berserker, not enough funds!',$EE81FAA1);
     end;
     if Cash >= 65 then begin
         Cash :=Cash-65;
         WriteConsole(0,IdtoName(ID)+' has just bought berserker for 65 Cash',$EE81FAA1);
         GiveBonus(ID, 2);
     end;
  end;

  if Text = '/buy clusters' then begin
     if Cash < 1000 then begin
         If BonusID <> 5 then begin
             WriteConsole(0,IdtoName(ID)+' just tried to purchase the clusters, not enough funds!',$EE81FAA1);
         end;
     end;
     if BonusID = 5 then begin
         WriteConsole(ID,'cluster grenades are already in affect, try normal nades!',$EE81FAA1);
     end;
     if Cash >= 1000 then begin
        If BonusID <> 5 then begin
             Cash :=Cash-1000;
             BonusID:=5;
             WriteConsole(0,IdtoName(ID)+' has just bought the cluster grenade upgrade for 1000 Cash',$EE81FAA1);
             GiveBonus(ID,BonusID);
        end;
     end;
  end;

  if Text = '/buy nades' then begin
      if Cash < 1000 then begin
          If BonusID <> 4 then begin
               WriteConsole(0,IdtoName(ID)+' just tried to purchase the nades, not enough funds!',$EE81FAA1);
          end;
      end;
      if BonusID = 4 then begin
          WriteConsole(ID,'regular grenades are already in affect, try clusters!',$EE81FAA1);
      end;
      if Cash >= 1000 then begin
         If BonusID <> 4 then begin
            Cash :=Cash-1000;
            BonusID:=4;
            WriteConsole(0,IdtoName(ID)+' has just bought the regular grenade upgrade for 1000 Cash',$EE81FAA1);
            GiveBonus(ID,BonusID);
         end;
      end;
  end;

  //if Text = '/buy dex' then begin
     //if Cash < 3000 then begin
         //WriteConsole(0,IdtoName(ID)+' just tried to purchase bigger bangs, not enough funds!',$EE81FAA1);
     //end;
     //if Cash >= 3000 then begin
         //EBNM :=EBMN+1:
         //EBN :=3*EBNM;
         //EDM :=EDM+1;
         //ED := (5*EDM)+ED;
         //Cash :=Cash-3000;
         //WriteConsole(0,IdtoName(ID)+' has just bought bigger bangs for 3000 Cash',$EE81FAA1);
     //end;
  //end;

  //if Text = '/buy holycross' then begin
      //if Cash < 1000 then begin
          //WriteConsole(0,IdtoName(ID)+' just tried to purchase Holy Cross, not enough funds!',$EE81FAA1);
      //end;
      //if Cash >= 1000 then begin
          //HC:=1;
          //WriteConsole(0,IdtoName(ID)+' has just bought Holy Cross for 1000 Cash',$EE81FAA1);
      //end;
  //end;

  if Text = '/items' then begin
     WriteConsole(0,'/buy pred - gives u pred bonus - 50 cash',$EE81FAA1);
     WriteConsole(0,'/buy bes - gives u berserker bonus - 65 cash',$EE81FAA1);
     WriteConsole(0,'/buy clusters - upgrades your nade bonus to clusters - 1000 cash',$EE81FAA1);
     WriteConsole(0,'/buy nades - upgrades your cluster bonus to nades - 1000 cash',$EE81FAA1);
     WriteConsole(0,'---->grenade upgrades affects whole team',$EE81FAA1);
     //WriteConsole(0,'/buy holycross - Kills all zombies in Red Team Base on Red Team score //- 1000 cash',$EE81FAA1);
  end;
end;

procedure OnMapChange(NewMap: string);
begin
      For i := 0 to Numplayers do
         begin
            GiveBonus(i, BonusID);
         end;
   deathexp := true;
end;

procedure OnPlayerRespawn(ID: byte);
begin
   GiveBonus(i,BonusID);
end;

//procedure OnJoinTeam(ID, Team: byte);
//begin
   //GiveBonus(ID, BonusID);
//end;

//procedure OnFlagScore(ID, TeamFlag: byte);
//begin
   //if HC = 1 then begin
//end;

function OnCommand(ID: Byte; Text: string): boolean;
begin
   if GetPiece(text,' ',0) = '/raisecash' then begin
      Cash := Cash + Strtoint(GetPiece(Text,' ',1));
      WriteConsole(0,'Admin has just deposited '+Getpiece(Text,' ',1)+' Global Player Cash!',$EE81FAA1);
   end;

   if Text = '/deathexplode' then begin
      WriteConsole(0,'death explosions enabled', $00EE0000);
      WriteLn('death explosions have been enabled by ' + IntToStr(ID) + '!');
      deathexp := True;
   end;

   if Text = '/nodeathexp' then begin
      WriteConsole(0,'death explosions disabled', $00EE0000);
      WriteLn('death explosions have been disabled by ' + IntToStr(ID) + '!');
      deathexp := False;
   end;
end;
This is the SCRIPT code, i am having trouble with BOTH, read through BOTH of them PLEASE

[Swompie]

Solutions for nade:
1. Player has clusters, you want to replace them with normal nades. Not possible, don't ask, just doesn't work.
2. You want to give him normal nades, but give him instead clusters, maybe invalid bonus ID.
3. Maybe set the var to the wrong value somewhere.
4. Idk anything else what could cause that.

What is the error which the dex part is throwing? Can't see anything which could cause errors.

[frosty]

normally it DOES give normal grenades on kill and on respawn, and 2 days ago Givebonus WAS giving normal nades, if someone buys clusters then the player gets clusters, if they dont like the clusters they can revert to regular grenades, normally they start with regular grenades so they should get some sort of grenade regardless

however as soon as i added some variables to the script, Givebonus stopped giving regular grenades, problem is i never changed the GiveBonus code since it was actually working, thats what im confused over, has one of the variables somehow conflicted with it? (doubt it, but i dont get what else could trigger this problem as thats the only thing ive added before it stopped working, along with a couple of commands i added to the bottom of the script, Givebonus isnt set to any of the new variables, its still set to BonusID) i dont get it, BonusID is somehow not being assigned to its number, doc for Givebonus can be found here: http://devs.soldat.pl/wiki/index.php?title=GiveBonus as u can see, 4 is regular grenades

Players should be getting some sort of nade pack regardless but get nothing UNTIL someone buys clusters

some points about your solutions:
1. no i was doing it the other day it WAS working, from nades to clusters then clusters to nades, it was working perfect
2. i have checked all BonusID pointing to the commands, all are as i had them when it was working, maybe i need to make a new variable as it seems to have gotten confused with another var somehow
3 i have checked and double checked, the code for Givebonus is exact the same as when it was working flawlessly

when uncommented the code for dex is throwing me an ídentifier expected error on the line just above the code for it (empty line, line 111) no missing begins or ends or extra ones for that matter

can anyone see why its throwing me that error?

Edit/\: indented the code for buy dex

[DorkeyDear]

Highly doubtful that this is the problem but GetPlayerStat(ID, 'Name') is preferred over IDtoName(ID) (at least its more... uhm... enesce-liking and me-liking xD)

Temporary replace BonusID with the number 4 itself in the spot its necessary maybe.. or just WriteLn BonusID to see if it actually was set properly before you GiveBonus.

[SpiltCoffee]

Code: (pascal) [Select]

if Text = '/buy dex' then begin
   if Cash < 3000 then begin
      WriteConsole(0,IdtoName(ID)+' just tried to purchase bigger bangs, not enough funds!',$EE81FAA1);
   end;
   if Cash >= 3000 then begin
      EBNM :=EBMN+1: //look a little closer at the entirety of this line... EBMN doesn't exist, and why is it terminated with a colon?
      EBN :=3*EBNM;
      EDM :=EDM+1;
      ED := (5*EDM)+ED;
      Cash :=Cash-3000;
      WriteConsole(0,IdtoName(ID)+' has just bought bigger bangs for 3000 Cash',$EE81FAA1);
   end;
end;
I never encountered any problems on line 111 or any of the lines before it... Might've just been the compiler being retarculous.

[frosty]

oops, thanks spilt

EBNM does exist, its defined as a global variable

ill point it out:

Code: (pascal) [Select]

var
Cash:Integer;
i,BonusID,ID,HC,EBN,EBNM,ED,EDM,DED:Byte; //its here...on this line.
Command:String;
deathexp: Boolean;
that code, the one for 'buy dex' is part of the rest of the script, the colon is probably whats causing the identifier expected error as it doesnt know what the EBNM:=EBNM+1 means
oops spotted another typo, EBMN should be EBNM
thanks guys now it works


From: April 06, 2010, 01:37:23 pmnow to figure out nades, ill do it later, no time now...

[shantec]

Hm?
If someone buys nades, EVERYONE will get nades - same with clusters. Is that meant to be so?
Also, everyone has the same amount of money.. is that also meant to be so?

[frosty]

Hm?
If someone buys nades, EVERYONE will get nades - same with clusters. Is that meant to be so?
Also, everyone has the same amount of money.. is that also meant to be so?

yes, normally players start with getting normal nades on kill and on spawn, problem is, NOONE is getting any normal nades, the only thing they do get is clusters, thats the problem im working on, getting it to give normal nades again, even if they do buy nades they are not getting any because the script wont give any normal nades, thats what im trying to figure out

EVERYBODY should be getting nades, yes but for some some reason they are NOT, They only DO get nades if Clusters are set

If someone buys nades, EVERYONE will get nades - same with clusters. Is that meant to be so?

to answer your question yes, but they dont need to buy nades, as they should be getting normal nades to start with, only time they need to buy nades is when they want to change FROM nades to clusters or back TO nades FROM clusters

Also, everyone has the same amount of money.. is that also meant to be so?

yes, this server encourages teamwork, so tactical buying of items is needed, altho its not like cash aint easy to get on my server, I've seen it get up to more than 1500 in an hour (3000 if mass zombie spawning happens, altho normally the mas spawning doesn't last long before they accidentally boost a zombie into the spawning team, killing all of them using a suicide bomb)

Off-topic: also some improvements I've made to the script are making it harder and harder to mass spawn, mass spawning causes my server to lag and in some cases crash, thats why I'm working against mass spawning, a little bit of mass spawn to get flag is fine, but continual mass spawn just causes a problem, eventually someones gonna screw up and its gonna kill all the spawning members when they do

From: April 07, 2010, 02:29:39 amok ive tried a debug, havent needed to add any write things, a player completed it for me and i didnt even have to ask

Code: (pascal) [Select]

if BonusID = 4 then begin 
         WriteConsole(ID,'regular grenades are already in affect, try clusters!',$EE81FAA1); 
     end;  a player joins the server, noticing immediately he has no nades or there are none to pick up, suddenly a server info message appears to chech cash using /cash, he does so, soon after a server info message appears saying to use /items to see items for sale, he notices that he can 'buy nades' and has enough cash, so he types /buy nades, but then the 'nades already in effect' message shows up in his console

this message will only appear if BonusID is actually set to 4,

so, something is stopping Givebonus from giving any of the players normal nades through any of the events,

i even tried changing the BonusID to 4 in the actual Givebonus command and it still wont give normal nades

Player has clusters, you want to replace them with normal nades. Not possible, don't ask, just doesn't work.

the situation is different, player has NOTHING and im trying to give him nades but it wont work

however, having said that, i recently changed the setting for bonuses appearing to Never, since then its sorta stopped working, but if that was the case wouldnt that also stop pred, beserker and clusters from being given? as they are all bonuses?

i dont understand whats stopping it from working

From: April 07, 2010, 03:07:21 ami just set the bonuses appearing to always and its still not giving the normal nades, if normal nades is set as the bonus to give, if someone picks up a cluster set, then once they kill they disappear, so its like the game is trying to give the players the nades but for some reason is unable to

[SpiltCoffee]

oops, thanks spilt

EBNM does exist, its defined as a global variable
...
oops spotted another typo, EBMN should be EBNM

That's sorta what I was pointing out...

Also, what is your Max_Grenades value in soldat.ini?

[JFK]

I haven't read all, but if givebonus seems to be bugging, have you tried spawnobject instead of givebonus to deliver nades?

Code: [Select]

SpawnObject(getPlayerStat(ID, 'x'), getPlayerStat(ID, 'y')-5, 17);


[frosty]

yes, i was using that originally but after about a minute players would have to find nadepacks instead of getting nade packs when they kill, and killobject was bugging on me also (useless, was deleting nothing whatsoever) so thats why i looked for an alternative

@Spilt: 5, but why would that affect it as it was working one day and not the next? every day the server auto resets...

From: April 07, 2010, 01:37:21 pmas spilt seems to be pointing towards settings, heres my soldat.ini

Code: [Select]

[GAME]
Fullscreen=0
Debug_Mode=0
Console_Show=1
Console_Deaths=1
Respawn_Time=0
WaveRespawn_Time=600
Mouse_Sensitivity=100
Play_Music=0
Deathmatch_Limit=30
Pointmatch_Limit=30
Teammatch_Limit=60
Capture_Limit=5
Rambomatch_Limit=30
Infiltration_Limit=90
Hold_Limit=80
GameStyle=3
Friendly_Fire=0
Guns_Collide=0
Kits_Collide=0
Play_Intro=0
Loop_Maps=1
Bonus_Frequency=5
Bonus_FlameGod=0
Bonus_Predator=1
Bonus_Berserker=1
Bonus_Vest=1
Bonus_Cluster=1
Time_Limit=15
Survival_Mode=0
Realistic_Mode=0
Weapons_Mode=0
Weapon_1=1
Weapon_2=1
Weapon_3=1
Weapon_4=1
Weapon_5=1
Weapon_6=1
Weapon_7=1
Weapon_8=1
Weapon_9=1
Weapon_10=1
Weapon_11=1
Weapon_12=1
Weapon_13=1
Weapon_14=1
Max_Grenades=0
Random_Bots=0
Random_Bots_1=0
Random_Bots_2=0
Random_Bots_3=0
Random_Bots_4=0
Runs=1
Profile_Default=0
Logging=1
Stationary_Guns=1
End_Screenshot=0
Auto_Record=0
Record_Time=2
Bullet_Time=1
NoSniperLine=0
KillConsole_Length=15
MainConsole_Length=6
Advance_Amount=2
Blue_Points_Time=5
Red_Points_Capture=30
HTF_Points_Time=5
MiniMap_Pos_X=285
MiniMap_Pos_Y=5
Radio=1
[GRAPHICS]
Adapter=1
Color_Depth=32
Refresh_Rate=Default
Dithering=0
Swap_Effect=1
BackBuffers=2
Interface_Status_Alpha=200
Gradient_Background=0
Compatibility=0
Antialiasing=0
Texture_Filter=2
Software=0
Bonus_Colors=1
Max_Particles=358
Bullet_Trails=1
Player_Indicator=1
Sniper_Line=1
Weather=1
Interface=Default
Smooth_Edges=0
Window_Resize=0
Screen_Width=640
Screen_Height=480
Gamma=116
MiniMap_Transparency=230
[SOUND]
Volume=77
Music_Volume=100
Max_Channels=64
Bit_Rate=22050
Output=0
Driver=0
Effect1=1
Effect2=1
Mp3List=0
[NETWORK]
Port=23098
JoinPort=23098
Max_Players=23
Default_Remote_Host=
Game_Password=
Admin_Password=******
Connection=Internet
Lobby_Register=1
ASE_Register=1
Lobby_IP=65.169.85.3
Server_Name=#1 Frostys Gather[US]
Dedicated=1
Clanmatch=0
Internet_Connection=3
Greeting_Message=Welcome to Frostys Gather[US]
Greeting_Message2=this is a scripted server, so whatch out for unepected events
Greeting_Message3=Have fun, new scripts are being added all the time
Server_Info=Server Hosted by http://rent.enesce.com
ShowRealLag=1
Min_Ping=0
Max_Ping=9999
Filter_Players=0
Filter_Gametype=0
Filter_Dedicated=0
Filter_NoPassword=0
Filter_NoBots=0
Filter_Survival=0
Filter_Realistic=0
Filter_NoBonuses=0
Filter_Weapons=0
Filter_WeaponsMod=0
Filter_BE=0
Balance_Teams=1
Dont_Forward=0
Vote_Percent=75
Compression=1
Spectator=0
Max_Spectators=3
Spectator_Chat=1
Allow_Download=1
MaxConnections=8
TooMuch_Packets_LAN=99999
TooMuch_Packets_Internet=99999
Flooding_Packets_LAN=99999
Flooding_Packets_Internet=99999
Vote_Cheat_Warnings=8
Max_KnifeCheat_Warnings=14
Disable_AntiCheat_Kick=1
LogFilesUpdate=3600
Max_Flood_Warnings=99999
Max_Ping_Warnings=99999
T1_Snapshot=35
T1_MajorSnapshot=19
T1_DeadSnapshot=50
T1_Heartbeat=135
T1_Delta=4
T1_Ping=21
T1_ThingSnapshot=31
PacketRate_Adjusting=0
ClientPort=23083
BattlEye_Anti_Cheat=0
Disable_Minimap=0
Advanced_Spectate=1
[PLAYER]
Name=Soldier
Main_Color=$001265AF
Pants_Color=$00296938
Skin_Color=16777215
Hair_Color=clWhite
Jet_Color=clWhite
Hair_Style=4
Head_Style=0
Chain_Style=2
Sec_Weapon=0
[CONTROLS]
Left=30
Right=32
Jump=17
Crouch=31
Fire=mb0
Fly=mb1
Grenade=18
Change=16
Drop=33
Reload=19
Chat=20
Prone=45
TeamChat=21
Weapons=15
[BOTS]
Difficulty=50
Chat=1
Raycasting_Quality=15


[dnmr]

for god's sake, dont post such huge pieces of text here, PLEASE. Use some paste service like nopaste or pastebin >.< The pages takes ages to load.
Thanks.

Also, you missed some points, here you are (in case you ran out): ................................................. .

Use them well, they help making your posts more readable
Sorry if you wanted some help on topic, but your walls of text are absolutely unreadable.

[frosty]

ok well heres my soldat.ini

<link removed by author>

note: this link will expire in 1 month

From: April 08, 2010, 12:54:18 amok i changed the max grenades to 10 which is what i wanted the value to be and now, magically we have nades. haha i suck.

thanks alot spilt you have just ended my headache