List stats_joueur
Str nom_joueur
Var xp
Var x(X), y(Y)
Var key
Var play
Mat map
x = 11
y = 4
play = 1 #true
While(play)
key = Getkey()
If key == KEY_EXIT Then play = 0 IfEnd
WhileEnd