equal
deleted
inserted
replaced
36 {$INCLUDE options.inc} |
36 {$INCLUDE options.inc} |
37 procedure ProcessBot; |
37 procedure ProcessBot; |
38 |
38 |
39 implementation |
39 implementation |
40 uses uAIActions, uAIMisc, uMisc, uTeams, uConsts, uAIAmmoTests, uGears, SDLh; |
40 uses uAIActions, uAIMisc, uMisc, uTeams, uConsts, uAIAmmoTests, uGears, SDLh; |
41 |
|
42 function Go(Gear: PGear; Times: Longword): boolean; |
|
43 begin |
|
44 Result:= false |
|
45 end; |
|
46 |
41 |
47 procedure Think; |
42 procedure Think; |
48 var Targets: TTargets; |
43 var Targets: TTargets; |
49 Angle, Power: integer; |
44 Angle, Power: integer; |
50 Time: Longword; |
45 Time: Longword; |