equal
deleted
inserted
replaced
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)); |
1045 if Level = 1 then exit(round(targ.Radius*(random(7)-3)/2)) |
1045 AIrndOffset := targ.Radius*(random(7)-3)*2 |
1046 end; |
1046 end; |
1047 |
1047 |
1048 procedure initModule; |
1048 procedure initModule; |
1049 begin |
1049 begin |
1050 friendlyfactor:= 300; |
1050 friendlyfactor:= 300; |