BeyCube Application

{
    (import "sfml.arkm")
    (import "Switch.ark")
    #(import "Functional/Exceptions.ark")

    (let screen (sfWindowInit 1300 600 "BeyCube Game"))
    (sfWindowSetFPS 60)

    (let font (sfLoadFont "fonts/police.ttf"))



    #Variable
    (mut compteur 0)

    (mut score 0)

    (mut speed 6)

    (mut up false)
    (mut left false)
    (mut down false)
    (mut right false)

    (mut x 50)
    (mut y 50)

    #Textes
    (let charg (sfMakeText font "Chargement." 50 [255 255 255]))
    (sfSetPos charg (/ (- 1300 (sfWidth charg)) 2) (/ (- 600 (sfHeight charg)) 2))

    (let tab (sfMakeText font "Score: Non" 28 [255 255 255]))
    (sfSetPos tab (/ (- 1080 (sfWidth tab)) 2) 120)
    (sfSetText tab (+ "Score: " (toString score)))


    #Image
    (let starttime (time))
    (let background (sfLoadSprite "img/background.png"))
    (let perso (sfLoadSprite "img/perso.png"))

    (let sprite (fun () {
        (let move (fun (direction posX posY) {
            (switch direction [
               ["up" '{(sfSetPos perso posX posY) (set y (- y speed))}]
               ["down" '{(sfSetPos perso posX posY) (set y (+ y speed))}]
               ["right" '{(sfSetPos perso posX posY) (set x (+ x speed))}]
               ["left" '{(sfSetPos perso posX posY) (set x (- x speed))}]
            ])
        }))

        (fun (&move) ())
    }))

    (let object (sprite))

    (while (sfWindowIsOpen) {
        (mut event (sfPollEvent))
        (switch event [
            [(sfEvent "quit") '(sfWindowClose)]

            [(sfEvent "keydown" "right") '(set right true)]
            [(sfEvent "keydown" "left") '(set left true)]
            [(sfEvent "keydown" "up") '(set up true)]
            [(sfEvent "keydown" "down") '(set down true)]

            [(sfEvent "keyup" "right") '(set right false)]
            [(sfEvent "keyup" "left") '(set left false)]
            [(sfEvent "keyup" "up") '(set up false)]
            [(sfEvent "keyup" "down") '(set down false)]

        ])

        (mut diff (- (time) starttime))

        (sfWindowClear 0 0 0)
        (if (< diff (* 3 3))
        {
          (switch (mod (floor diff) 3) [
             [0 '(sfSetText charg "Chargement.")]
             [1 '(sfSetText charg "Chargement..")]
             [2 '{(sfSetText charg "Chargement...")}]
          ])
          (sfDraw charg)

        }
        {
            (sfDraw background)
            (sfDraw perso)
            (sfDraw tab)
        }
        )

        (if right (object.move "right" (+ x speed) y) ())
        (if left (object.move "left" (- x speed) y) ())
        (if up (object.move "up" x (- y speed)) ())
        (if down (object.move "down" x (+ y speed)) ())

        (sfWindowDisplay)
    })
}