equal
deleted
inserted
replaced
692 dec(Gear^.Timer); |
692 dec(Gear^.Timer); |
693 case Gear^.Kind of |
693 case Gear^.Kind of |
694 gtATStartGame: begin |
694 gtATStartGame: begin |
695 AllInactive:= false; |
695 AllInactive:= false; |
696 if Gear^.Timer = 0 then |
696 if Gear^.Timer = 0 then |
|
697 begin |
697 AddCaption(trmsg[sidStartFight], cWhiteColor, capgrpGameState); |
698 AddCaption(trmsg[sidStartFight], cWhiteColor, capgrpGameState); |
|
699 end |
698 end; |
700 end; |
699 gtATSmoothWindCh: begin |
701 gtATSmoothWindCh: begin |
700 if Gear^.Timer = 0 then |
702 if Gear^.Timer = 0 then |
701 begin |
703 begin |
702 if WindBarWidth < Gear^.Tag then inc(WindBarWidth) |
704 if WindBarWidth < Gear^.Tag then inc(WindBarWidth) |
704 if WindBarWidth <> Gear^.Tag then Gear^.Timer:= 10; |
706 if WindBarWidth <> Gear^.Tag then Gear^.Timer:= 10; |
705 end |
707 end |
706 end; |
708 end; |
707 gtATFinishGame: begin |
709 gtATFinishGame: begin |
708 AllInactive:= false; |
710 AllInactive:= false; |
|
711 if Gear^.Timer = 1000 then |
|
712 begin |
|
713 ScreenFade:= sfToBlack; |
|
714 ScreenFadeValue:= 0; |
|
715 ScreenFadeSpeed:= 1; |
|
716 end; |
709 if Gear^.Timer = 0 then |
717 if Gear^.Timer = 0 then |
710 begin |
718 begin |
711 SendIPC('N'); |
719 SendIPC('N'); |
712 SendIPC('q'); |
720 SendIPC('q'); |
713 GameState:= gsExit |
721 GameState:= gsExit |