hedgewars/uAIActions.pas
author nemo
Fri, 30 Sep 2011 22:33:28 -0400
changeset 6077 d8fa5a85d24f
parent 5419 2fed5e26ff7d
child 6393 701eb3f3556a
permissions -rw-r--r--
This prevents girders from erasing landbacktex (square windows in tunnels and such), at the cost of requiring lfBasic and lfObject to be treated the same apart from graphically
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
71
5f56c6979496 - Changed falling damage scoring
unc0rr
parents: 70
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 883
diff changeset
     2
 * Hedgewars, a free turn based strategy game
4976
088d40d8aba2 Happy 2011 :)
koda
parents: 4414
diff changeset
     3
 * Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com>
71
5f56c6979496 - Changed falling damage scoring
unc0rr
parents: 70
diff changeset
     4
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 165
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
57c2ef19f719 Relicense to GPL
unc0rr
parents: 165
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
57c2ef19f719 Relicense to GPL
unc0rr
parents: 165
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
71
5f56c6979496 - Changed falling damage scoring
unc0rr
parents: 70
diff changeset
     8
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 165
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
57c2ef19f719 Relicense to GPL
unc0rr
parents: 165
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
57c2ef19f719 Relicense to GPL
unc0rr
parents: 165
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
57c2ef19f719 Relicense to GPL
unc0rr
parents: 165
diff changeset
    12
 * GNU General Public License for more details.
71
5f56c6979496 - Changed falling damage scoring
unc0rr
parents: 70
diff changeset
    13
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 165
diff changeset
    14
 * You should have received a copy of the GNU General Public License
57c2ef19f719 Relicense to GPL
unc0rr
parents: 165
diff changeset
    15
 * along with this program; if not, write to the Free Software
57c2ef19f719 Relicense to GPL
unc0rr
parents: 165
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
71
5f56c6979496 - Changed falling damage scoring
unc0rr
parents: 70
diff changeset
    17
 *)
5f56c6979496 - Changed falling damage scoring
unc0rr
parents: 70
diff changeset
    18
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2599
diff changeset
    19
{$INCLUDE "options.inc"}
079ef82eac75 revamped file access and debug display
koda
parents: 2599
diff changeset
    20
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    21
unit uAIActions;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    22
interface
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents: 3407
diff changeset
    23
uses uFloat, uTypes;
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2599
diff changeset
    24
3165
3ec07a7d8456 just some very sane stuff for the iphone port (plus some macro on pascal files)
koda
parents: 2630
diff changeset
    25
const MAXACTIONS     = 96;
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
    26
      aia_none       = 0;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    27
      aia_Left       = 1;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    28
      aia_Right      = 2;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    29
      aia_Timer      = 3;
70
82d93eeecebe - Many AI improvements
unc0rr
parents: 66
diff changeset
    30
      aia_attack     = 4;
82d93eeecebe - Many AI improvements
unc0rr
parents: 66
diff changeset
    31
      aia_Up         = 5;
82d93eeecebe - Many AI improvements
unc0rr
parents: 66
diff changeset
    32
      aia_Down       = 6;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    33
195
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    34
      aia_Weapon     = $8000;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    35
      aia_WaitXL     = $8001;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    36
      aia_WaitXR     = $8002;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    37
      aia_LookLeft   = $8003;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    38
      aia_LookRight  = $8004;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    39
      aia_AwareExpl  = $8005;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    40
      aia_HJump      = $8006;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    41
      aia_LJump      = $8007;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    42
      aia_Skip       = $8008;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    43
      aia_Wait       = $8009;
543
465e2ec8f05f - Better randomness of placing hedgehogs on the land
unc0rr
parents: 433
diff changeset
    44
      aia_Put        = $800A;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    45
195
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    46
      aim_push       = $8000;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    47
      aim_release    = $8001;
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    48
      ai_specmask    = $8000;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    49
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
    50
type TAction = record
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 369
diff changeset
    51
               Action: Longword;
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 369
diff changeset
    52
               X, Y, Param: LongInt;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    53
               Time: Longword;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    54
               end;
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
    55
     TActions = record
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
    56
                Count, Pos: Longword;
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
    57
                actions: array[0..Pred(MAXACTIONS)] of TAction;
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 369
diff changeset
    58
                Score: LongInt;
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
    59
                end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    60
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 369
diff changeset
    61
procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt);
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
    62
procedure ProcessAction(var Actions: TActions; Me: PGear);
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
    63
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    64
implementation
4414
cb90b7f82cd5 Move doPut into uIO (not a very bad place really)
unc0rr
parents: 4403
diff changeset
    65
uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils, uDebug, uIO;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    66
70
82d93eeecebe - Many AI improvements
unc0rr
parents: 66
diff changeset
    67
const ActionIdToStr: array[0..6] of string[16] = (
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    68
{aia_none}           '',
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    69
{aia_Left}           'left',
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    70
{aia_Right}          'right',
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    71
{aia_Timer}          'timer',
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    72
{aia_attack}         'attack',
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    73
{aia_Up}             'up',
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    74
{aia_Down}           'down'
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
    75
                     );
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    76
80
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    77
{$IFDEF TRACEAIACTIONS}
195
edae828322a0 Fixed compilation with freepascal version prior to 1.9.6
unc0rr
parents: 194
diff changeset
    78
const SpecActionIdToStr: array[$8000..$8009] of string[16] = (
80
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    79
{aia_Weapon}             'aia_Weapon',
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    80
{aia_WaitX}              'aia_WaitX',
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    81
{aia_WaitY}              'aia_WaitY',
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    82
{aia_LookLeft}           'aia_LookLeft',
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    83
{aia_LookRight}          'aia_LookRight',
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    84
{aia_AwareExpl}          'aia_AwareExpl',
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    85
{aia_HJump}              'aia_HJump',
144
e6084b0c9316 - Fix 'new team' regression
unc0rr
parents: 143
diff changeset
    86
{aia_LJump}              'aia_LJump',
193
56885ea29202 Fix bots regressions
unc0rr
parents: 183
diff changeset
    87
{aia_Skip}               'aia_Skip',
56885ea29202 Fix bots regressions
unc0rr
parents: 183
diff changeset
    88
{aia_Wait}               'aia_Wait'
80
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    89
);
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    90
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    91
procedure DumpAction(Action: TAction; Me: PGear);
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    92
begin
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    93
if (Action.Action and ai_specmask) = 0 then
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    94
   WriteLnToConsole('AI action: '+ActionIdToStr[Action.Action])
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    95
else begin
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
    96
   WriteLnToConsole('AI action: '+SpecActionIdToStr[Action.Action]);
193
56885ea29202 Fix bots regressions
unc0rr
parents: 183
diff changeset
    97
   if (Action.Action = aia_WaitXL) or (Action.Action = aia_WaitXR) then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4373
diff changeset
    98
      WriteLnToConsole('AI action Wait X = '+IntToStr(Action.Param)+', current X = '+IntToStr(hwRound(Me^.X)))
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4373
diff changeset
    99
   else if (Action.Action = aia_AwareExpl) then WriteLnToConsole('Aware X = ' + IntToStr(Action.X) + ', Y = ' + IntToStr(Action.Y));
80
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
   100
   end
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
   101
end;
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
   102
{$ENDIF}
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
   103
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 369
diff changeset
   104
procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   105
begin
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   106
with Actions do
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   107
     begin
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   108
     actions[Count].Action:= Action;
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   109
     actions[Count].Param:= Param;
71
5f56c6979496 - Changed falling damage scoring
unc0rr
parents: 70
diff changeset
   110
     actions[Count].X:= X;
5f56c6979496 - Changed falling damage scoring
unc0rr
parents: 70
diff changeset
   111
     actions[Count].Y:= Y;
66
9643d75baf1e Many AI improvements, bots do think in separate thread
unc0rr
parents: 64
diff changeset
   112
     if Count > 0 then actions[Count].Time:= TimeDelta
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   113
                  else actions[Count].Time:= GameTicks + TimeDelta;
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   114
     inc(Count);
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   115
     TryDo(Count < MAXACTIONS, 'AI: actions overflow', true);
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   116
     end
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   117
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   118
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   119
procedure ProcessAction(var Actions: TActions; Me: PGear);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   120
var s: shortstring;
280
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   121
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   122
    procedure CheckHang;
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 369
diff changeset
   123
    const PrevX: LongInt = 0;
280
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   124
          timedelta: Longword = 0;
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   125
    begin
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   126
    if hwRound(Me^.X) <> PrevX then
280
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   127
       begin
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   128
       PrevX:= hwRound(Me^.X);
280
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   129
       timedelta:= 0
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   130
       end else
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   131
       begin
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   132
       inc(timedelta);
740
5ac69a012b69 - Small cleanup
unc0rr
parents: 676
diff changeset
   133
       if timedelta > 1700 then
280
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   134
          begin
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   135
          timedelta:= 0;
676
2aa3082937ac Fix AI breaking demos and saves in some cases
unc0rr
parents: 544
diff changeset
   136
          FreeActionsList
280
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   137
          end
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   138
       end
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   139
    end;
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   140
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   141
begin
194
88652abdce9a Fixed weird bots behavior
unc0rr
parents: 193
diff changeset
   142
repeat
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   143
if Actions.Pos >= Actions.Count then exit;
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   144
with Actions.actions[Actions.Pos] do
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   145
     begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   146
     if Time > GameTicks then exit;
80
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
   147
     {$IFDEF TRACEAIACTIONS}
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
   148
     DumpAction(Actions.actions[Actions.Pos], Me);
3c3dc6a148ca - Fixed bug with hedgehog under water using rope
unc0rr
parents: 75
diff changeset
   149
     {$ENDIF}
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   150
     if (Action and ai_specmask) <> 0 then
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   151
        case Action of
165
9b9144948668 Many small fixes
unc0rr
parents: 144
diff changeset
   152
           aia_Weapon: SetWeapon(TAmmoType(Param));
544
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   153
           aia_WaitXL: if hwRound(Me^.X) = Param then
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   154
                          begin
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   155
                          Action:= aia_LookLeft;
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   156
                          Time:= GameTicks;
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   157
                          exit
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   158
                          end
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   159
                          else if hwRound(Me^.X) < Param then
193
56885ea29202 Fix bots regressions
unc0rr
parents: 183
diff changeset
   160
                               begin
5419
2fed5e26ff7d Comment out unsynced logging
unc0rr
parents: 4976
diff changeset
   161
                               //OutError('AI: WaitXL assert (' + IntToStr(hwRound(Me^.X)) + ' < ' + IntToStr(Param) + ')', false);
433
9f8f22094c0e AI thinks in separate thread
unc0rr
parents: 393
diff changeset
   162
                               FreeActionsList;
9f8f22094c0e AI thinks in separate thread
unc0rr
parents: 393
diff changeset
   163
                               exit
193
56885ea29202 Fix bots regressions
unc0rr
parents: 183
diff changeset
   164
                               end
280
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   165
                          else begin CheckHang; exit end;
544
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   166
           aia_WaitXR: if hwRound(Me^.X) = Param then
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   167
                          begin
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   168
                          Action:= aia_LookRight;
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   169
                          Time:= GameTicks;
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   170
                          exit
9e068d2398ca Fix AI jumping to wrong direction on the turn start
unc0rr
parents: 543
diff changeset
   171
                          end
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   172
                          else if hwRound(Me^.X) > Param then
193
56885ea29202 Fix bots regressions
unc0rr
parents: 183
diff changeset
   173
                               begin
5419
2fed5e26ff7d Comment out unsynced logging
unc0rr
parents: 4976
diff changeset
   174
                               //OutError('AI: WaitXR assert (' + IntToStr(hwRound(Me^.X)) + ' > ' + IntToStr(Param) + ')', false);
433
9f8f22094c0e AI thinks in separate thread
unc0rr
parents: 393
diff changeset
   175
                               FreeActionsList;
9f8f22094c0e AI thinks in separate thread
unc0rr
parents: 393
diff changeset
   176
                               exit
193
56885ea29202 Fix bots regressions
unc0rr
parents: 183
diff changeset
   177
                               end
280
4d6e365befc1 Watchdog for bots to prevent them from being stacked by bugs of engine physics
unc0rr
parents: 195
diff changeset
   178
                          else begin CheckHang; exit end;
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   179
         aia_LookLeft: if not Me^.dX.isNegative then
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   180
                          begin
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   181
                          ParseCommand('+left', true);
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   182
                          exit
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   183
                          end else ParseCommand('-left', true);
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   184
        aia_LookRight: if Me^.dX.isNegative then
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   185
                          begin
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   186
                          ParseCommand('+right', true);
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 17
diff changeset
   187
                          exit
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   188
                          end else ParseCommand('-right', true);
71
5f56c6979496 - Changed falling damage scoring
unc0rr
parents: 70
diff changeset
   189
        aia_AwareExpl: AwareOfExplosion(X, Y, Param);
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   190
            aia_HJump: ParseCommand('hjump', true);
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   191
            aia_LJump: ParseCommand('ljump', true);
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   192
             aia_Skip: ParseCommand('skip', true);
543
465e2ec8f05f - Better randomness of placing hedgehogs on the land
unc0rr
parents: 433
diff changeset
   193
              aia_Put: doPut(X, Y, true);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   194
             end else
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   195
        begin
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   196
        s:= ActionIdToStr[Action];
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   197
        if (Param and ai_specmask) <> 0 then
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   198
           case Param of
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   199
             aim_push: s:= '+' + s;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   200
          aim_release: s:= '-' + s;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   201
             end
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4373
diff changeset
   202
          else if Param <> 0 then s:= s + ' ' + IntToStr(Param);
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   203
        ParseCommand(s, true)
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   204
        end
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   205
     end;
66
9643d75baf1e Many AI improvements, bots do think in separate thread
unc0rr
parents: 64
diff changeset
   206
inc(Actions.Pos);
9643d75baf1e Many AI improvements, bots do think in separate thread
unc0rr
parents: 64
diff changeset
   207
if Actions.Pos <= Actions.Count then
194
88652abdce9a Fixed weird bots behavior
unc0rr
parents: 193
diff changeset
   208
   inc(Actions.actions[Actions.Pos].Time, GameTicks);
88652abdce9a Fixed weird bots behavior
unc0rr
parents: 193
diff changeset
   209
until false
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   210
end;
369
2aed85310727 AI compiles, but doesn't work
unc0rr
parents: 351
diff changeset
   211
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   212
end.