70 

    70 

    71 procedure OnDestroy; forward;

    71 procedure OnDestroy; forward;

    72 

    72 

    73 ////////////////////////////////

    73 ////////////////////////////////

    74 procedure DoTimer(Lag: LongInt);

    74 procedure DoTimer(Lag: LongInt);

    75 var s: string;

    76 var s: string;

    76 begin

    78 begin

    77 inc(RealTicks, Lag);

    79 inc(RealTicks, Lag);

    78 

    80 

    79 case GameState of

    81 case GameState of

    80 	gsLandGen: begin

    82 	gsLandGen: begin

   139 StoreRelease;

   141 StoreRelease;

   140 FreeLand;

   142 FreeLand;

   141 SendKB;

   143 SendKB;

   142 CloseIPC;

   144 CloseIPC;

   143 TTF_Quit;

   145 TTF_Quit;

   145 //i know it is not clean but it is better than a crash

   147 //i know it is not clean but it is better than a crash

   146 SDL_Quit;

   148 SDL_Quit;

   147 {$ENDIF}

   149 {$ENDIF}

   148 halt

   150 halt

   149 end;

   151 end;

   167 begin

   169 begin

   168 PrevTime:= SDL_GetTicks;

   170 PrevTime:= SDL_GetTicks;

   169 repeat

   171 repeat

   170 while SDL_PollEvent(@event) <> 0 do

   172 while SDL_PollEvent(@event) <> 0 do

   171 	case event.type_ of

   173 	case event.type_ of

   173 		SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode);

   177 		SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode);

   174 		SDL_ACTIVEEVENT: if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then

   179 		SDL_ACTIVEEVENT: if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then

   175 				cHasFocus:= event.active.gain = 1;

   180 				cHasFocus:= event.active.gain = 1;

   176 		//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));

   181 		//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));

   177 		SDL_QUITEV: isTerminated:= true

   182 		SDL_QUITEV: isTerminated:= true

   178 		end;

   183 		end;