15 * along with this program; if not, write to the Free Software |
15 * along with this program; if not, write to the Free Software |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
19 function CheckNoTeamOrHH: boolean; |
19 function CheckNoTeamOrHH: boolean; |
20 var Result: boolean; |
20 var bRes: boolean; |
21 begin |
21 begin |
22 Result:= (CurrentTeam = nil) or (CurrentHedgehog^.Gear = nil); |
22 bRes:= (CurrentTeam = nil) or (CurrentHedgehog^.Gear = nil); |
23 {$IFDEF DEBUGFILE} |
23 {$IFDEF DEBUGFILE} |
24 if Result then |
24 if bRes then |
25 if CurrentTeam = nil then AddFileLog('CONSOLE: CurTeam = nil') |
25 if CurrentTeam = nil then AddFileLog('CONSOLE: CurTeam = nil') |
26 else AddFileLog('CONSOLE: CurTeam <> nil, Gear = nil'); |
26 else AddFileLog('CONSOLE: CurTeam <> nil, Gear = nil'); |
27 {$ENDIF} |
27 {$ENDIF} |
28 CheckNoTeamOrHH:= Result |
28 CheckNoTeamOrHH:= bRes; |
29 end; |
29 end; |
30 //////////////////////////////////////////////////////////////////////////////// |
30 //////////////////////////////////////////////////////////////////////////////// |
31 procedure chQuit(var s: shortstring); |
31 procedure chQuit(var s: shortstring); |
32 const prevGState: TGameState = gsConfirm; |
32 const prevGState: TGameState = gsConfirm; |
33 begin |
33 begin |