author | unc0rr |
Thu, 20 Jul 2006 20:11:32 +0000 | |
changeset 80 | 3c3dc6a148ca |
parent 75 | d2b737858ff7 |
child 143 | 3dacbd83209b |
permissions | -rw-r--r-- |
71 | 1 |
(* |
2 |
* Hedgewars, a worms-like game |
|
3 |
* Copyright (c) 2005, 2006 Andrey Korotaev <unC0Rr@gmail.com> |
|
4 |
* |
|
5 |
* Distributed under the terms of the BSD-modified licence: |
|
6 |
* |
|
7 |
* Permission is hereby granted, free of charge, to any person obtaining a copy |
|
8 |
* of this software and associated documentation files (the "Software"), to deal |
|
9 |
* with the Software without restriction, including without limitation the |
|
10 |
* rights to use, copy, modify, merge, publish, distribute, sublicense, and/or |
|
11 |
* sell copies of the Software, and to permit persons to whom the Software is |
|
12 |
* furnished to do so, subject to the following conditions: |
|
13 |
* |
|
14 |
* 1. Redistributions of source code must retain the above copyright notice, |
|
15 |
* this list of conditions and the following disclaimer. |
|
16 |
* 2. Redistributions in binary form must reproduce the above copyright notice, |
|
17 |
* this list of conditions and the following disclaimer in the documentation |
|
18 |
* and/or other materials provided with the distribution. |
|
19 |
* 3. The name of the author may not be used to endorse or promote products |
|
20 |
* derived from this software without specific prior written permission. |
|
21 |
* |
|
22 |
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED |
|
23 |
* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF |
|
24 |
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO |
|
25 |
* EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
26 |
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, |
|
27 |
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; |
|
28 |
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, |
|
29 |
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR |
|
30 |
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF |
|
31 |
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
32 |
*) |
|
33 |
||
4 | 34 |
unit uAIActions; |
35 |
interface |
|
64 | 36 |
uses uGears; |
80 | 37 |
{$INCLUDE options.inc} |
75 | 38 |
const MAXACTIONS = 96; |
64 | 39 |
aia_none = 0; |
4 | 40 |
aia_Left = 1; |
41 |
aia_Right = 2; |
|
42 |
aia_Timer = 3; |
|
70 | 43 |
aia_attack = 4; |
44 |
aia_Up = 5; |
|
45 |
aia_Down = 6; |
|
4 | 46 |
|
47 |
aia_Weapon = $80000000; |
|
48 |
aia_WaitX = $80000001; |
|
49 |
aia_WaitY = $80000002; |
|
50 |
aia_LookLeft = $80000003; |
|
51 |
aia_LookRight = $80000004; |
|
71 | 52 |
aia_AwareExpl = $80000005; |
80 | 53 |
aia_HJump = $80000006; |
54 |
aia_LJump = $80000007; |
|
4 | 55 |
|
56 |
aim_push = $80000000; |
|
57 |
aim_release = $80000001; |
|
58 |
ai_specmask = $80000000; |
|
59 |
||
64 | 60 |
type TAction = record |
4 | 61 |
Action, Param: Longword; |
71 | 62 |
X, Y: integer; |
4 | 63 |
Time: Longword; |
64 |
end; |
|
64 | 65 |
TActions = record |
66 |
Count, Pos: Longword; |
|
67 |
actions: array[0..Pred(MAXACTIONS)] of TAction; |
|
68 |
Score: integer; |
|
69 |
end; |
|
4 | 70 |
|
71 | 71 |
procedure AddAction(var Actions: TActions; Action, Param, TimeDelta: Longword; const X: integer = 0; Y: integer = 0); |
64 | 72 |
procedure ProcessAction(var Actions: TActions; Me: PGear); |
4 | 73 |
|
74 |
implementation |
|
71 | 75 |
uses uMisc, uTeams, uConsts, uConsole, uAIMisc; |
4 | 76 |
|
70 | 77 |
const ActionIdToStr: array[0..6] of string[16] = ( |
4 | 78 |
{aia_none} '', |
79 |
{aia_Left} 'left', |
|
80 |
{aia_Right} 'right', |
|
81 |
{aia_Timer} 'timer', |
|
82 |
{aia_attack} 'attack', |
|
83 |
{aia_Up} 'up', |
|
84 |
{aia_Down} 'down' |
|
64 | 85 |
); |
4 | 86 |
|
80 | 87 |
{$IFDEF TRACEAIACTIONS} |
88 |
const SpecActionIdToStr: array[$80000000..$80000006] of string[16] = ( |
|
89 |
{aia_Weapon} 'aia_Weapon', |
|
90 |
{aia_WaitX} 'aia_WaitX', |
|
91 |
{aia_WaitY} 'aia_WaitY', |
|
92 |
{aia_LookLeft} 'aia_LookLeft', |
|
93 |
{aia_LookRight} 'aia_LookRight', |
|
94 |
{aia_AwareExpl} 'aia_AwareExpl', |
|
95 |
{aia_HJump} 'aia_HJump', |
|
96 |
{aia_LJump} 'aia_LJump' |
|
97 |
); |
|
98 |
||
99 |
procedure DumpAction(Action: TAction; Me: PGear); |
|
100 |
begin |
|
101 |
if (Action.Action and ai_specmask) = 0 then |
|
102 |
WriteLnToConsole('AI action: '+ActionIdToStr[Action.Action]) |
|
103 |
else begin |
|
104 |
WriteLnToConsole('AI action: '+SpecActionIdToStr[Action.Action]); |
|
105 |
if Action.Action = aia_WaitX then |
|
106 |
WriteLnToConsole('AI action Wait X = '+inttostr(Action.Param)+', current X = '+inttostr(round(Me.X))); |
|
107 |
end |
|
108 |
end; |
|
109 |
{$ENDIF} |
|
110 |
||
71 | 111 |
procedure AddAction(var Actions: TActions; Action, Param, TimeDelta: Longword; const X: integer = 0; Y: integer = 0); |
4 | 112 |
begin |
64 | 113 |
with Actions do |
114 |
begin |
|
115 |
actions[Count].Action:= Action; |
|
116 |
actions[Count].Param:= Param; |
|
71 | 117 |
actions[Count].X:= X; |
118 |
actions[Count].Y:= Y; |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
119 |
if Count > 0 then actions[Count].Time:= TimeDelta |
64 | 120 |
else actions[Count].Time:= GameTicks + TimeDelta; |
121 |
inc(Count); |
|
122 |
TryDo(Count < MAXACTIONS, 'AI: actions overflow', true); |
|
123 |
end |
|
4 | 124 |
end; |
125 |
||
126 |
procedure SetWeapon(weap: Longword); |
|
127 |
begin |
|
128 |
with CurrentTeam^ do |
|
129 |
with Hedgehogs[CurrHedgehog] do |
|
70 | 130 |
while Ammo[CurSlot, CurAmmo].AmmoType <> TAmmoType(weap) do |
4 | 131 |
ParseCommand('/slot ' + chr(49 + Ammoz[TAmmoType(weap)].Slot)); |
132 |
end; |
|
133 |
||
64 | 134 |
procedure ProcessAction(var Actions: TActions; Me: PGear); |
4 | 135 |
var s: shortstring; |
136 |
begin |
|
64 | 137 |
if Actions.Pos >= Actions.Count then exit; |
138 |
with Actions.actions[Actions.Pos] do |
|
4 | 139 |
begin |
140 |
if Time > GameTicks then exit; |
|
80 | 141 |
{$IFDEF TRACEAIACTIONS} |
142 |
DumpAction(Actions.actions[Actions.Pos], Me); |
|
143 |
{$ENDIF} |
|
4 | 144 |
if (Action and ai_specmask) <> 0 then |
145 |
case Action of |
|
146 |
aia_Weapon: SetWeapon(Param); |
|
64 | 147 |
aia_WaitX: if round(Me.X) = Param then Time:= GameTicks |
148 |
else exit; |
|
149 |
aia_WaitY: if round(Me.Y) = Param then Time:= GameTicks |
|
150 |
else exit; |
|
151 |
aia_LookLeft: if Me.dX >= 0 then |
|
152 |
begin |
|
153 |
ParseCommand('+left'); |
|
154 |
exit |
|
155 |
end else ParseCommand('-left'); |
|
156 |
aia_LookRight: if Me.dX < 0 then |
|
157 |
begin |
|
158 |
ParseCommand('+right'); |
|
159 |
exit |
|
160 |
end else ParseCommand('-right'); |
|
71 | 161 |
aia_AwareExpl: AwareOfExplosion(X, Y, Param); |
80 | 162 |
aia_HJump: ParseCommand('hjump'); |
163 |
aia_LJump: ParseCommand('ljump'); |
|
4 | 164 |
end else |
165 |
begin |
|
166 |
s:= ActionIdToStr[Action]; |
|
167 |
if (Param and ai_specmask) <> 0 then |
|
168 |
case Param of |
|
169 |
aim_push: s:= '+' + s; |
|
170 |
aim_release: s:= '-' + s; |
|
171 |
end |
|
172 |
else if Param <> 0 then s:= s + ' ' + inttostr(Param); |
|
173 |
ParseCommand(s) |
|
174 |
end |
|
175 |
end; |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
176 |
inc(Actions.Pos); |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
177 |
if Actions.Pos <= Actions.Count then |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
178 |
inc(Actions.actions[Actions.Pos].Time, GameTicks) |
4 | 179 |
end; |
180 |
||
181 |
end. |