equal
deleted
inserted
replaced
60 |
60 |
61 |
61 |
62 procedure OnDestroy; forward; |
62 procedure OnDestroy; forward; |
63 |
63 |
64 //////////////////////////////// |
64 //////////////////////////////// |
65 procedure DoTimer(Lag: integer); |
65 procedure DoTimer(Lag: LongInt); |
66 var s: string; |
66 var s: string; |
67 begin |
67 begin |
68 case GameState of |
68 case GameState of |
69 gsLandGen: begin |
69 gsLandGen: begin |
70 GenMap; |
70 GenMap; |
156 until isTerminated |
156 until isTerminated |
157 end; |
157 end; |
158 |
158 |
159 //////////////////// |
159 //////////////////// |
160 procedure GetParams; |
160 procedure GetParams; |
161 var c: integer; |
161 var c: LongInt; |
162 {$IFDEF DEBUGFILE} |
162 {$IFDEF DEBUGFILE} |
163 i: integer; |
163 i: LongInt; |
164 {$ENDIF} |
164 {$ENDIF} |
165 p: TPathType; |
165 p: TPathType; |
166 begin |
166 begin |
167 {$IFDEF DEBUGFILE} |
167 {$IFDEF DEBUGFILE} |
168 AddFileLog('Prefix: "' + PathPrefix +'"'); |
168 AddFileLog('Prefix: "' + PathPrefix +'"'); |