% Dark Lance
var stream : int
open : stream, "config/player1location.txt", put, seek, get
var window : int := Window.Open ("graphics:597;637, offscreenonly")
var PLAYER1 : int := Pic.FileNew ("Sprites/Player1.bmp")
var GUI : int := Pic.FileNew ("pictures/shitgui.bmp")
var player1sprite : int
var x, y, button : int
var coordx, coordy : int := 64
var filePos : int
var player1x2 : int := 26
var player1y2 : int := 51
player1sprite := Sprite.New (PLAYER1)
var chars : array char of boolean
%I/O's%
put : stream, "Player1location"
tell : stream, filePos
put : stream, player1x2
put : stream, player1y2
seek : stream, filePos

var player1x : int := player1x2
var player1y : int := player1y2
%tell : stream, filePos2
%seek : stream, filePos2

procedure grid
    for gridcount : 1 .. 9
        drawline ((gridcount * 64) + 11, 51, (gridcount * 64) + 11, 627, black)
        drawline (12, (gridcount * 64) + 51, 586, (gridcount * 64) + 51, black)
    end for
end grid

procedure draw
    Sprite.SetPosition (player1sprite, player1x, player1y, false)
    Sprite.Show (player1sprite)
    grid
    Pic.Draw (GUI, 1, 1, picMerge)
    View.Update
end draw


draw

loop
    loop
        Input.KeyDown (chars)

        if chars (KEY_UP_ARROW) and player1y < 500 then
            player1y += coordy
            player1y2 := player1y + coordy
            seek : stream, filePos
            put : stream, player1x2
            put : stream, player1y2
            exit
        end if

        if chars (KEY_RIGHT_ARROW) and player1x < 510 then
            player1x += coordx
            exit
        end if

        if chars (KEY_LEFT_ARROW) and player1x > 75 then
            player1x -= coordx
            exit
        end if

        if chars (KEY_DOWN_ARROW) and player1y > 51 then
            player1y -= coordy
            exit
        end if
    end loop
    draw
    delay (250)
end loop

open : stream, "config/player1location.txt", put, seek, get
*
*
*
*
tell : stream, filePos