unit game1;

interface

uses
    sdl2, sdl2_image, graphics1, sprite1;

const
    kfps: integer = 60;

type
    game = class
    public
        constructor game();
        destructor game();

    private
        procedure eventloop();
        procedure update();
        procedure draw(graphics:graphics; sprite:sprite);

    end;

implementation

constructor game.game;
begin
inherited;
    sdl_init(sdl_init_everything);
    sdl_showcursor(sdl_disable);
    eventloop();
//  ;
end;

procedure game.eventloop;
var
    e: tsdl_event;
    running: boolean = true;
    starttimems, elapsedtimems: integer;
    sprite_:^sprite;
begin
    graphics.graphics;

    new(sprite_);
    sprite_^.sprite('gfx/MyChar.png', 0, 0, 16, 16, @graphics.getrenderer);
    writeln(2);

    while running = true do
    begin
        starttimems := sdl_getticks();
        while sdl_pollevent(@e) <> 0 do
        begin
            case e.type_ of
                sdl_keydown: case e.key.keysym.sym of
                    sdlk_escape: running := false;
                    sdlk_q: running := false;
                end;
                sdl_quitev: running := false;
            end;
        end;
        update();
        draw(graphics.graphics, sprite_^);
        elapsedtimems := sdl_getticks() - starttimems;
        sdl_delay(round(1000/kfps - elapsedtimems));
    end;
    dispose(sprite_);
end;

procedure game.update;
begin

end;

procedure game.draw(graphics:graphics; sprite:sprite);
begin
    sprite.draw(graphics, 320, 240);
    graphics.flip();
end;

destructor game.game;
begin
    sdl_quit();
    inherited;
end;

end.