equal
deleted
inserted
replaced
37 aia_AwareExpl = $8005; |
37 aia_AwareExpl = $8005; |
38 aia_HJump = $8006; |
38 aia_HJump = $8006; |
39 aia_LJump = $8007; |
39 aia_LJump = $8007; |
40 aia_Skip = $8008; |
40 aia_Skip = $8008; |
41 aia_Wait = $8009; |
41 aia_Wait = $8009; |
|
42 aia_Put = $800A; |
42 |
43 |
43 aim_push = $8000; |
44 aim_push = $8000; |
44 aim_release = $8001; |
45 aim_release = $8001; |
45 ai_specmask = $8000; |
46 ai_specmask = $8000; |
46 |
47 |
174 end else ParseCommand('-right', true); |
175 end else ParseCommand('-right', true); |
175 aia_AwareExpl: AwareOfExplosion(X, Y, Param); |
176 aia_AwareExpl: AwareOfExplosion(X, Y, Param); |
176 aia_HJump: ParseCommand('hjump', true); |
177 aia_HJump: ParseCommand('hjump', true); |
177 aia_LJump: ParseCommand('ljump', true); |
178 aia_LJump: ParseCommand('ljump', true); |
178 aia_Skip: ParseCommand('skip', true); |
179 aia_Skip: ParseCommand('skip', true); |
|
180 aia_Put: doPut(X, Y, true); |
179 end else |
181 end else |
180 begin |
182 begin |
181 s:= ActionIdToStr[Action]; |
183 s:= ActionIdToStr[Action]; |
182 if (Param and ai_specmask) <> 0 then |
184 if (Param and ai_specmask) <> 0 then |
183 case Param of |
185 case Param of |