equal
deleted
inserted
replaced
304 s:= s; // avoid compiler hint |
304 s:= s; // avoid compiler hint |
305 if CheckNoTeamOrHH or isPaused then exit; |
305 if CheckNoTeamOrHH or isPaused then exit; |
306 bShowFinger:= false; |
306 bShowFinger:= false; |
307 with CurrentHedgehog^.Gear^ do |
307 with CurrentHedgehog^.Gear^ do |
308 begin |
308 begin |
309 {$IFDEF DEBUGFILE}AddFileLog('/+attack: hedgehog''s Gear^.State = '+inttostr(State));{$ENDIF} |
309 AddFileLog('/+attack: hedgehog''s Gear^.State = '+inttostr(State)); |
310 if ((State and gstHHDriven) <> 0) then |
310 if ((State and gstHHDriven) <> 0) then |
311 begin |
311 begin |
312 FollowGear:= CurrentHedgehog^.Gear; |
312 FollowGear:= CurrentHedgehog^.Gear; |
313 if not CurrentTeam^.ExtDriven then SendIPC('A'); |
313 if not CurrentTeam^.ExtDriven then SendIPC('A'); |
314 Message:= Message or (gmAttack and InputMask); |
314 Message:= Message or (gmAttack and InputMask); |
345 begin |
345 begin |
346 s:= s; // avoid compiler hint |
346 s:= s; // avoid compiler hint |
347 TryDo(AllInactive, '/nextturn called when not all gears are inactive', true); |
347 TryDo(AllInactive, '/nextturn called when not all gears are inactive', true); |
348 |
348 |
349 if not CurrentTeam^.ExtDriven then SendIPC('N'); |
349 if not CurrentTeam^.ExtDriven then SendIPC('N'); |
350 {$IFDEF DEBUGFILE} |
|
351 AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks)); |
350 AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks)); |
352 {$ENDIF} |
|
353 end; |
351 end; |
354 |
352 |
355 procedure chTimer(var s: shortstring); |
353 procedure chTimer(var s: shortstring); |
356 begin |
354 begin |
357 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit; |
355 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit; |