%MAKE A JUMPING GAME

class player
    import Input
    export all

    const gravity := 2
    const radius := 5
    const movespeed := 5
    const jumpspeed := 20

    type aPlayer :
        record
            x, y, xsp, ysp : real
        end record

    var user : aPlayer
    user.xsp := 0
    user.ysp := 0
    user.x := maxx div 2
    user.y := 0
    var chars : array char of boolean

    proc move
        Input.KeyDown (chars)
        if chars (KEY_UP_ARROW) and user.y = radius then %JUMP
            user.ysp := jumpspeed
        end if
        if chars (KEY_LEFT_ARROW) then %MOVER LEFT
            user.xsp := -movespeed
        elsif chars (KEY_RIGHT_ARROW) then %MOVE RIGHT
            user.xsp := movespeed
        else
            user.xsp := 0
        end if

        %MOVE THE PLAYER
        user.ysp -= gravity
        user.x += user.xsp
        user.y += user.ysp

        %SET BOUNDERIES
        %RIGHT AND LEFT
        if user.x + radius > maxx then
            user.x := maxx - radius
        elsif user.x - radius < 0 then
            user.x := radius
        end if
        %UP AND DOWN
        if user.y + radius > maxy then
            user.y := maxy - radius
        elsif user.y - radius < 0 then
            user.y := radius
        end if
    end move

    proc draw
        drawoval (round (user.x), round (user.y), radius, radius, black)
    end draw

end player

class platform   
    inherit player
    import Math
    export all

    type aPlatform :
        record
            x1, x2, y, clr : int
        end record

    var pform : aPlatform

    proc drawplatform (X1, X2, Y, CLR : int)
        pform.x1 := X1 % RIGHT SIDE
        pform.x2 := X2 % LEFT SIDE
        pform.y := Y % HEIGHT
        pform.clr := CLR % COLOUR
        drawline (pform.x1, pform.y, pform.x2, pform.y, pform.clr)
    end drawplatform

%%%%%%%%%THIS PART HERE %%%%%%%%%%%%%%%%
    proc detect
        if Math.DistancePointLine (user.x, (user.y - radius), pform.x1, pform.y, pform.x2, pform.y) < 1 then % COLLISION DETECTION
            user.ysp := 0
            user.y := pform.y + radius             
         end if
    end detect

end platform


setscreen ("offscreenonly")

var aplayer : ^player
new player, aplayer

var aplatform : flexible array 1 .. 1 of ^platform
new platform, aplatform (upper (aplatform))


loop
    player (aplayer).move
    player (aplayer).draw
    platform (aplatform (upper (aplatform))).drawplatform (50, 100, 50, 255)
    platform (aplatform (upper (aplatform))).detect
    View.Update
    cls
    Time.DelaySinceLast (10)
end loop

%MAKE A JUMPING GAME

class platform
    export all

    type aPlatform :
        record
            x1, x2, y, clr : int
        end record

    var pform : aPlatform


    proc drawplatform (X1, X2, Y, CLR : int)
        pform.x1 := X1 % RIGHT SIDE
        pform.x2 := X2 % LEFT SIDE
        pform.y := Y % HEIGHT
        pform.clr := CLR % COLOUR
        drawline (pform.x1, pform.y, pform.x2, pform.y, pform.clr)
    end drawplatform

end platform

var aplatform : flexible array 1 .. 1 of ^platform
new platform, aplatform (upper (aplatform))

class player
    import Input, aplatform, platform, Math
    export all

    const gravity := 2
    const radius := 5
    const movespeed := 5
    const jumpspeed := 20

    type aPlayer :
        record
            x, y, xsp, ysp : real
        end record

    var user : aPlayer
    user.xsp := 0
    user.ysp := 0
    user.x := maxx div 2
    user.y := 0
    var chars : array char of boolean
    var t1 := 0

    proc move
        Input.KeyDown (chars)
        if chars (KEY_UP_ARROW) and user.ysp < 1 and Time.Elapsed - t1 > 200 then  %JUMP
            t1 := Time.Elapsed
            user.ysp := jumpspeed
        end if
        if chars (KEY_LEFT_ARROW) then %MOVER LEFT
            user.xsp := -movespeed
        elsif chars (KEY_RIGHT_ARROW) then %MOVE RIGHT
            user.xsp := movespeed
        else
            user.xsp := 0
        end if

        %MOVE THE PLAYER
        user.ysp -= gravity
        user.x += user.xsp
        user.y += user.ysp

        %SET BOUNDERIES
        %RIGHT AND LEFT
        if user.x + radius > maxx then
            user.x := maxx - radius
        elsif user.x - radius < 0 then
            user.x := radius
        end if
        %UP AND DOWN
        if user.y + radius > maxy then
            user.y := maxy - radius
        elsif user.y - radius < 0 then
            user.y := radius
        end if
    end move

    proc draw
        drawoval (round (user.x), round (user.y), radius, radius, black)
    end draw

    proc detect
        for i : 1 .. (upper (aplatform)) %FOR EVERY PLATFROM
            if Math.DistancePointLine (user.x, (user.y - radius), platform (aplatform (i)).pform.x1, platform (aplatform (i)).pform.y, platform (aplatform (i)).pform.x2,
                    platform (aplatform (i)).pform.y) < 2.5 and user.ysp < 0 then
                user.y := platform (aplatform (i)).pform.y + radius
                user.ysp := 0
            end if
        end for
    end detect

end player

setscreen ("offscreenonly")

var aplayer : ^player
new player, aplayer

loop
    aplayer -> move
    aplayer -> draw
    aplatform (upper (aplatform)) -> drawplatform (50, 100, 50, 255)
    aplayer -> detect
    View.Update
    cls
    Time.DelaySinceLast (10)
end loop

        Text.Locate ( 1, 1 )
        put "(",user.x,",",user.y,")"