%Custom Types
type gameObject :
    record
        X : int
        Y : int
        alive : boolean
        ammo : int
        clips : int
        grenades : int
        enemy : boolean
        interactable : boolean
        velocity : int
        currWeap : int
        moving : boolean
    end record

%Variables
var player : gameObject
%Initializing Player
player.X := 0
player.Y := 0
player.alive := true
player.ammo := 30
player.clips := 5
player.currWeap := 1
player.moving := false

var Elite : array 1 .. 10 of gameObject
var Grunt : array 1 .. 20 of gameObject
var ch : string (1)

%Pictures
var playerRifleSprite := Pic.FileNew ("WieldingRifle.bmp")
var playerstandSprite := Pic.FileNew ("Standing.bmp")
var playerwalk1Sprite := Pic.FileNew ("Walking1.bmp")
var playerwalk2Sprite := Pic.FileNew ("Walking2.bmp")
var playerwalk3Sprite := Pic.FileNew ("Walking3.bmp")
var playerwalk4Sprite := Pic.FileNew ("Walking4.bmp")

var maxJump : int
var gravity : int
var keys : array char of boolean
var font1 := Font.New ("Halo:30")



%Start Screen
View.Set ("offscreenonly,graphics:700;400,nobuttonbar")


setscreen ("graphics")
colorback (black)
cls

Font.Draw ("Halo By Diablo117", 100, 200, font1, blue)
Font.Draw ("Press any key to continue", 50, 100, font1, blue)
getch (ch)
cls


%Drawing the player
proc playerDraw (weapon : int, walking : boolean)
    var acounter : int := 1

    %Draws the basic model
    if walking = false then
        Pic.Draw (playerstandSprite, player.X, player.Y, picMerge)
    else
        if acounter = 1 then
            Pic.Draw (playerwalk1Sprite, player.X, player.Y, picMerge)
        end if
        acounter += 1
    end if
    %What weapon is player using?
    if weapon = 1 then
        Pic.Draw (playerRifleSprite, player.X - 12, player.Y, picMerge)
    end if

end playerDraw


loop
    View.Update
    cls

    Input.KeyDown (keys)
    if keys (KEY_RIGHT_ARROW) then
        player.moving := true
        player.X += 10
    else
        player.moving := false
    end if



    playerDraw (player.currWeap, player.moving)
    delay (50)
end loop

% Done by Tyler Moore
if chars (KEY_LEFT_ARROW) then
                loop
                    cls
                    X -= 10
                    % ADD PICTURE
                    Input.KeyDown (chars)
                    exit when chars (KEY_LEFT_ARROW) not= true
                    View.Update
                    delay (60)
                    cls
                    X -= 10
                    % ADD PICTURE
                    Input.KeyDown (chars)
                    exit when chars (KEY_LEFT_ARROW) not= true
                    View.Update
                    delay (60)
                    cls
                    X -= 10
                    % ADD PICTURE
                    Input.KeyDown (chars)
                    exit when chars (KEY_LEFT_ARROW) not= true
                    View.Update
                    delay (60)
                    cls
                    X -= 10 % Moving it left or right in this case left
                    % ADD PICTURE % You can add more then one if you have background....
                    Input.KeyDown (chars) % Updates if key is down or not still :)
                    exit when chars (KEY_LEFT_ARROW) not= true % if the key isn't still down leave!
                    View.Update
                    delay (60)
                    exit % I think this is optional
                end loop
            end if

var player_pic : array 1 .. 10 of int
for i : lower (player_pic) .. upper (player_pic)
    player_pic := Pic.FileNew ("picture" + intstr (i) + ".jpg")
end for

var sprite_counter := 0
loop %this is the main loop of your program, treat it well, and add your other code into it.
    if player_is_to_be_drawn then
        Pic.Draw (positions, playerPic (counter)
        sprite_counter += 1
        if sprite_counter > upper(player_pic) then
            sprite_counter := lower (player_pic)
        end if
    end if
end loop