Bey Application

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

    (let screen (sfWindowInit 1000 700 "Bey Application"))
    (sfWindowSetFPS 60)

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

    #Texte de bienvenue
    (let charg (sfMakeText font "Chargement." 50 [255 255 255]))
    (sfSetPos charg (/ (- 1000 (sfWidth charg)) 2) (/ (- 700 (sfHeight charg)) 2))
    (mut compteur 0)

    (let txtacceuil (sfMakeText font "Ici tu vas trouver plein de chose les actualites, les jeux roblox avec une description et des choses arrivent prochainement ;)" 18 [29 29 29]))
    (sfSetPos txtacceuil 75 250)

    (let txtsp1 (sfMakeText font "Mes jeux roblox en developpement : Special Simulator" 19 [29 29 29]))
    (let txtsp2 (sfMakeText font "Le but du jeu est de faire les quetes pour deverouillez des sortileges pour vous defendres et attaquer ! Soyez un des meilleurs sorciers du jeu !" 17 [29 29 29]))
    (sfSetPos txtsp1 75 325)
    (sfSetPos txtsp2 75 370)

    (let txtactu1 (sfMakeText font "Je suis en train constament d'apprendre un langage du nom de Arkscript et je fais une serie sur youtube ^^" 19 [29 29 29]))
    (let txtactu2 (sfMakeText font "L'application aura des mise a jour gigantesque vue ce que l'equipe reserve au langage Arkscript !" 19 [29 29 29]))
    (let txtactu3 (sfMakeText font "Je compte aussi faire une petite surprise pour vous même si je sais pas comment m'y prendre, peut etre pas sur cette application" 19 [29 29 29]))
    (let txtactu4 (sfMakeText font "Je vous dis a tres bientot pour une prochaine mise a jour !" 19 [29 29 29]))
    (sfSetPos txtactu1 75 325)
    (sfSetPos txtactu2 75 370)
    (sfSetPos txtactu3 75 425)
    (sfSetPos txtactu4 75 470)


    (let titleacceuil (sfMakeText font "Bienvenue sur Bey Application !" 22 [0 0 0]))
    (sfSetPos titleacceuil 400 100)

    (let titlerbx (sfMakeText font "Bienvenue dans les Jeux Roblox !" 22 [0 0 0]))
    (sfSetPos titlerbx 400 100)

    (let titleactu (sfMakeText font "Bienvenue dans les actualite !" 22 [0 0 0]))
    (sfSetPos titleactu 400 100)



    (let actu (sfMakeText font "Actualiter(r)" 30 [237 28 36]))
    (sfSetPos actu 295 0)

    (let rbxgame (sfMakeText font "Jeux Roblox(e)" 30 [132 0 0]))
    (sfSetPos rbxgame 140 0)

    (let acceuil (sfMakeText font "Acceuil(z)" 30 [24 89 241]))
    (sfSetPos acceuil 25 0)


    #Variables autres
    (let starttime (time))
    (mut touche1 false) # Acceuil
    (mut touche2 false) #Roblox
    (mut touche3 false) #Actu

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

    (while (sfWindowIsOpen) {
        (mut event (sfPollEvent))
        (switch event [
            [(sfEvent "quit") '(sfWindowClose)]
            [(sfEvent "keyup" "z") '(set touche1 false)]
            [(sfEvent "keydown" "z") '(set touche1 true)]
            [(sfEvent "keyup" "e") '(set touche2 false)]
            [(sfEvent "keydown" "e") '(set touche2 true)]
            [(sfEvent "keyup" "r") '(set touche3 false)]
            [(sfEvent "keydown" "r") '(set touche3 true)]
        ])

        (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 acceuil)
            (sfDraw rbxgame)
            (sfDraw actu)
        }
        )

        (if touche1
        {
            (sfDraw titleacceuil)
            (sfDraw txtacceuil)
        }
        ())

        (if touche2
        {
            (sfDraw titlerbx)
            (sfDraw txtsp1)
            (sfDraw txtsp2)
        }
        ())

        (if touche3
        {
            (sfDraw titleactu)
            (sfDraw txtactu1)
            (sfDraw txtactu2)
            (sfDraw txtactu3)
            (sfDraw txtactu4)
        }
        ())

        (sfWindowDisplay)
    })
}