equal
deleted
inserted
replaced
437 if not CurrentTeam^.ExtDriven then SendIPC('S'); |
437 if not CurrentTeam^.ExtDriven then SendIPC('S'); |
438 with CurrentHedgehog^.Gear^ do |
438 with CurrentHedgehog^.Gear^ do |
439 Message:= Message or gm_Switch |
439 Message:= Message or gm_Switch |
440 end; |
440 end; |
441 |
441 |
|
442 {$IFDEF IPHONEOS} |
|
443 procedure clearView; cdecl; external; |
|
444 {$ENDIF} |
|
445 |
442 procedure chNextTurn(var s: shortstring); |
446 procedure chNextTurn(var s: shortstring); |
443 begin |
447 begin |
444 s:= s; // avoid compiler hint |
448 s:= s; // avoid compiler hint |
445 TryDo(AllInactive, '/nextturn called when not all gears are inactive', true); |
449 TryDo(AllInactive, '/nextturn called when not all gears are inactive', true); |
446 |
450 |
447 if not CurrentTeam^.ExtDriven then SendIPC('N'); |
451 if not CurrentTeam^.ExtDriven then SendIPC('N'); |
448 {$IFDEF DEBUGFILE}AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));{$ENDIF} |
452 {$IFDEF DEBUGFILE} |
|
453 AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks)); |
|
454 {$ENDIF} |
|
455 {$IFDEF IPHONEOS} |
|
456 clearView(); |
|
457 {$ENDIF} |
449 end; |
458 end; |
450 |
459 |
451 procedure chSay(var s: shortstring); |
460 procedure chSay(var s: shortstring); |
452 begin |
461 begin |
453 SendIPC('s' + s); |
462 SendIPC('s' + s); |