equal
deleted
inserted
replaced
265 end; |
265 end; |
266 |
266 |
267 //////////////////////////////////////////////////////////////////////////////// |
267 //////////////////////////////////////////////////////////////////////////////// |
268 procedure doStepActionTimer(Gear: PGear); |
268 procedure doStepActionTimer(Gear: PGear); |
269 begin |
269 begin |
270 dec(Gear.Timer); |
|
271 case Gear.State of |
270 case Gear.State of |
272 gtsStartGame: begin |
271 gtsStartGame: begin |
|
272 dec(Gear.Timer); |
273 AllInactive:= false; |
273 AllInactive:= false; |
274 if Gear.Timer > 0 then exit; |
274 if Gear.Timer > 0 then exit; |
275 AddCaption('Let''s fight!', $FFFFFF, capgrpStartGame); |
275 AddCaption('Let''s fight!', $FFFFFF, capgrpStartGame); |
276 DeleteGear(Gear) |
276 DeleteGear(Gear) |
|
277 end; |
|
278 gtsSmoothWindCh: begin |
|
279 if Gear.Timer = 0 then |
|
280 begin |
|
281 Gear.Timer:= 10; |
|
282 if WindBarWidth < Gear.Tag then inc(WindBarWidth) |
|
283 else if WindBarWidth > Gear.Tag then dec(WindBarWidth) |
|
284 else DeleteGear(Gear) |
|
285 end else dec(Gear.Timer) |
277 end; |
286 end; |
278 end; |
287 end; |
279 end; |
288 end; |
280 |
289 |
281 //////////////////////////////////////////////////////////////////////////////// |
290 //////////////////////////////////////////////////////////////////////////////// |