%"Legend of Zelda : The Turing Quest" By Ryan Shannon

%Music File
process DoMusic
    loop
        Music.PlayFile ("LostWoods.mp3")
    end loop
end DoMusic
fork DoMusic

% Health Bar
var dmg, hp: int
hp := 8- dmg
dmg := 1

%Movement Input
var x, y : int
x := 100
y := 100
var chars : array char of boolean
loop
    Input.KeyDown (chars)

    if chars (KEY_UP_ARROW) then
        y := y + 6
    end if

    if chars (KEY_RIGHT_ARROW) then
        x := x + 7
    end if

    if chars (KEY_LEFT_ARROW) then
        x := x - 7
    end if

    if chars (KEY_DOWN_ARROW) then
        y := y - 6
    end if

% Health Bar
var dmg, hp: int
hp := 8- dmg
dmg := 1
if XXXXXXX
dmg := dmg +1

%Picture File
var mypic1 : int := Pic.FileNew ("link.bmp")
Pic.Draw (mypic1, x, y, 0)
drawoval (x + 35, y + 23, 4, 4, blue)
delay (20)
cls
Pic.Free (mypic1)

end loop

var cHP : int := 1000
var mDamage : int
var mypic1 : int := Pic.FileNew ("C:\\Character.bmp")
var mypic2 : int := Pic.FileNew ("C:\\Enemy.bmp")
var x1, y1, x2, y2 : int
var chars : array char of boolean

x1 := % Characters X value (Horizontal Axis)
y1 := % Characters Y value (Verticle Axis
x2 := % Monsters X value (Horizontal Axis)
y2 := % Monsters Y value (Verticle Axis)

process BgmSound
    loop
        Music.PlayFile ("C:\\CokeTown.mp3")
    end loop
end BgmSound

procedure mDamageHandler
    mDamage := Rand.Int (1, 60)
end mDamageHandler

procedure cHealthHandler
    mDamageHandler
    cHP := cHP - mDamage
    if cHP <= 0 then
        put "You have died."
    end if
end cHealthHandler

procedure CollisionDetection
/*
It was requested by Tony that I did not fully help you so I what I did was
simply adjust your code so it runs nicer. It may need some tweaking though.
The program should run cleaner and I fixed the flicker a bit.

Pic.Free was not needed because you were reusing the image in a loop. It was
a waste of processing and it causes lag with loading of an image. Hope
this helps a bit and all I can suggest now is to find a guide on Collision
*/
end CollisionDetection

fork BgmSound
loop
    Input.KeyDown (chars)
    if chars (KEY_UP_ARROW) then
        y1 := y1 + 6
    end if
    if chars (KEY_RIGHT_ARROW) then
        x1 := x1 + 7
    end if
    if chars (KEY_LEFT_ARROW) then
        x1 := x1 - 7
    end if
    if chars (KEY_DOWN_ARROW) then
        y1 := y1 - 6
    end if
    CollisionDetection
    Pic.Draw (mypic2, x2, y2, 0)
    Pic.Draw (mypic1, x1, y1, 0)
    delay (20)
    cls
end loop

var cHP : int := 1000
var mDamage : int
var mypic1 : int := Pic.FileNew ("Link.bmp")
var mypic2 : int := Pic.FileNew ("Knight.bmp")
var x1, y1, x2, y2 : int
var chars : array char of boolean

x1 := 50 % Characters X value (Horizontal Axis)
y1 := 50 % Characters Y value (Verticle Axis
x2 := 200 % Monsters X value (Horizontal Axis)
y2 := 200 % Monsters Y value (Verticle Axis)

process BgmSound
    loop
        Music.PlayFile ("LostWoods.mp3")
    end loop
end BgmSound

procedure mDamageHandler
    mDamage := Rand.Int (1, 60)
end mDamageHandler

procedure cHealthHandler
    mDamageHandler
    cHP := cHP - mDamage
    if cHP <= 0 then
        put "You have died."
    end if
end cHealthHandler

procedure CollisionDetection
/*
It was requested by Tony that I did not fully help you so I what I did was
simply adjust your code so it runs nicer. It may need some tweaking though.
The program should run cleaner and I fixed the flicker a bit.

Pic.Free was not needed because you were reusing the image in a loop. It was
a waste of processing and it causes lag with loading of an image. Hope
this helps a bit and all I can suggest now is to find a guide on Collision
*/
end CollisionDetection

fork BgmSound
loop
    Input.KeyDown (chars)
    if chars (KEY_UP_ARROW) then
        y1 := y1 + 6
    end if
    if chars (KEY_RIGHT_ARROW) then
        x1 := x1 + 7
    end if
    if chars (KEY_LEFT_ARROW) then
        x1 := x1 - 7
    end if
    if chars (KEY_DOWN_ARROW) then
        y1 := y1 - 6
    end if
    CollisionDetection
    Pic.Draw (mypic2, x2, y2, 0)  %HERE
    Pic.Draw (mypic1, x1, y1, 0)  %HERE
    delay (20)
    cls
end loop