Changeset 17 for trunk/UFormMain.pas
- Timestamp:
- Feb 20, 2014, 11:29:54 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UFormMain.pas
r16 r17 59 59 RedrawPending: Boolean; 60 60 procedure DoOnMove(CellFrom, CellTo: TCell; var CountOnce, CountRepeat: Integer); 61 procedure DoOnWin(Player: TPlayer); 61 62 public 62 63 Game: TGame; … … 111 112 end; 112 113 114 procedure TFormMain.DoOnWin(Player: TPlayer); 115 begin 116 ShowMessage('Player ' + Player.Name + ' wins'); 117 end; 118 113 119 procedure TFormMain.Redraw; 114 120 begin … … 120 126 Game := TGame.Create; 121 127 Game.OnMove := DoOnMove; 128 Game.OnWin := DoOnWin; 122 129 end; 123 130 … … 131 138 Game.NextTurn; 132 139 Redraw; 133 while Game. CurrentPlayer.Mode <> pmHumando begin140 while Game.Running and (Game.CurrentPlayer.Mode <> pmHuman) do begin 134 141 Game.NextTurn; 135 142 Redraw;
Note:
See TracChangeset
for help on using the changeset viewer.