equal
deleted
inserted
replaced
413 |
413 |
414 {$IFDEF DEBUGFILE} |
414 {$IFDEF DEBUGFILE} |
415 AddFileLog('SDL video driver: ' + string(SDL_VideoDriverName(buf, sizeof(buf)))); |
415 AddFileLog('SDL video driver: ' + string(SDL_VideoDriverName(buf, sizeof(buf)))); |
416 {$ENDIF} |
416 {$ENDIF} |
417 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true); |
417 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true); |
418 PixelFormat:= SDLPrimSurface.format; |
418 PixelFormat:= SDLPrimSurface.format |
419 SDL_ShowCursor(0) |
|
420 end; |
419 end; |
421 |
420 |
422 procedure chVol_p(var s: shortstring); |
421 procedure chVol_p(var s: shortstring); |
423 begin |
422 begin |
424 inc(cVolumeDelta, 3) |
423 inc(cVolumeDelta, 3) |
434 if CheckNoTeamOrHH then exit; |
433 if CheckNoTeamOrHH then exit; |
435 bShowFinger:= true; |
434 bShowFinger:= true; |
436 FollowGear:= CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear |
435 FollowGear:= CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear |
437 end; |
436 end; |
438 |
437 |
|
438 procedure chPause(var s: shortstring); |
|
439 begin |
|
440 isPaused:= not isPaused; |
|
441 SDL_ShowCursor(ord(isPaused)) |
|
442 end; |
|
443 |