equal
deleted
inserted
replaced
35 Ticks: Longword; |
35 Ticks: Longword; |
36 FallPix: Longword; |
36 FallPix: Longword; |
37 JumpType: TJumpType; |
37 JumpType: TJumpType; |
38 end; |
38 end; |
39 |
39 |
40 procedure init_uAIMisc; |
40 procedure initModule; |
41 procedure free_uAIMisc; |
41 procedure freeModule; |
42 |
42 |
43 procedure FillTargets; |
43 procedure FillTargets; |
44 procedure FillBonuses(isAfterAttack: boolean); |
44 procedure FillBonuses(isAfterAttack: boolean); |
45 procedure AwareOfExplosion(x, y, r: LongInt); |
45 procedure AwareOfExplosion(x, y, r: LongInt); |
46 function RatePlace(Gear: PGear): LongInt; |
46 function RatePlace(Gear: PGear): LongInt; |
465 begin |
465 begin |
466 if random(2) = 0 then AIrndSign:= num |
466 if random(2) = 0 then AIrndSign:= num |
467 else AIrndSign:= - num |
467 else AIrndSign:= - num |
468 end; |
468 end; |
469 |
469 |
470 procedure init_uAIMisc; |
470 procedure initModule; |
471 begin |
471 begin |
472 friendlyfactor:= 300; |
472 friendlyfactor:= 300; |
473 KnownExplosion.X:= 0; |
473 KnownExplosion.X:= 0; |
474 KnownExplosion.Y:= 0; |
474 KnownExplosion.Y:= 0; |
475 KnownExplosion.Radius:= 0; |
475 KnownExplosion.Radius:= 0; |
476 end; |
476 end; |
477 |
477 |
478 procedure free_uAIMisc; |
478 procedure freeModule; |
479 begin |
479 begin |
480 |
480 |
481 end; |
481 end; |
482 |
482 |
483 end. |
483 end. |