161 ///////////////////

   161 ///////////////////

   162 procedure MainLoop;

   162 procedure MainLoop;

   163 var PrevTime,

   163 var PrevTime,

   164     CurrTime: Longword;

   164     CurrTime: Longword;

   165     event: TSDL_Event;

   165     event: TSDL_Event;

   166     mouseState, whichMouse: byte;

   167     mouseState, whichMouse: byte;

   167     x, y, x_up, y_up, x_down, y_down: LongInt;

   168     x, y, x_up, y_up, x_down, y_down: LongInt;

   168     oldy: LongInt = 240;

   169     oldy: LongInt = 240;

   169 begin

   171 begin

   170 PrevTime:= SDL_GetTicks;

   172 PrevTime:= SDL_GetTicks;

   171 repeat

   173 repeat

   172 while SDL_PollEvent(@event) <> 0 do

   174 while SDL_PollEvent(@event) <> 0 do

   173 	case event.type_ of

   175 	case event.type_ of