1040 function AIrndOffset(targ: TTarget; Level: LongWord): LongInt; inline;

  1040 function AIrndOffset(targ: TTarget; Level: LongWord): LongInt; inline;

  1041 begin

  1041 begin

  1042 if Level <> 1 then exit(0);

  1042 if Level <> 1 then exit(0);

  1043 // at present level 2 doesn't track falls on most things

  1043 // at present level 2 doesn't track falls on most things

  1044 //if Level = 2 then exit(round(targ.Radius*(random(5)-2)/2));

  1044 //if Level = 2 then exit(round(targ.Radius*(random(5)-2)/2));

  1046 end;

  1046 end;

  1047 

  1047 

  1048 procedure initModule;

  1048 procedure initModule;

  1049 begin

  1049 begin

  1050     friendlyfactor:= 300;

  1050     friendlyfactor:= 300;