- Code: Tout sélectionner
Lbl X
EffÉcran
DelVar PDelVar YDelVar ZDelVar SDelVar MDelVar ADelVar T
14→X
5000→V
Menu("TROUVE LE NOMBRE","NORMAL(0-5000)",1,"VIES LIMITEES",2,"PERSONALISE",3,"QUITTER",θ
Lbl 3
2→T
Disp "NOMBRE MAXIMUM?"
Input "",V
Menu("VIES","VIES ILLIMITEES",1,"VIES PERSO",B
Lbl 2
1→T
Lbl B
EffÉcran
Disp "NOMBRE DE VIES
Input "",X
X→A
Lbl 1
nbrAléatEnt(0,V→Z
EffÉcran
Disp "QUEL EST LE NOMBRE?
Input "",Y
While Y≠Z
If Y<Z
Disp "TROP PETIT!
If Y>Z
Disp "TROP GRAND!
S+1→S
If S=A et (Y>Z ou Y<Z)
Then
EffÉcran
Output(5,9,"GAME OVER
1→P
Goto A
End
Input "",Y
End
If Y=Z
Then
EffÉcran
Output(4,7,"TU AS GAGNE EN
Output(5,10,S+1
Output(5,13,"COUPS
End
Lbl A
If S≥⌊NMBR(1) et non(T
Then
Output(7,7,"HIGH SCORE:
Output(7,19,⌊NMBR(1
Goto Z
End
If S<⌊NMBR(1) et non(T
Then
Output(7,6,"NOUVEAU RECORD:
S+1→⌊NMBR(1
Output(7,21,⌊NMBR(1
Goto Z
End
If S≥⌊NMBR(2) ou P=1 et T=1
Then
Output(7,7,"RECORD:
Output(7,19,⌊NMBR(2
Goto Z
End
If S<⌊NMBR(2) et T=1 et non(P
Then
Output(7,6,"NOUVEAU RECORD:
S+1→⌊NMBR(2
Output(7,21,⌊NMBR(2
Goto Z
End
If S≥⌊NMBR(3) ou P=1 et T=2
Then
Output(7,7,"RECORD:
Output(7,19,⌊NMBR(3
Goto Z
End
If S<⌊NMBR(3) et T=2 et non(P
Then
Output(7,6,"NOUVEAU RECORD:
S+1→⌊NMBR(3
Output(7,21,⌊NMBR(3
End
Lbl Z
Pause
Goto X
Lbl θ
EffÉcran
Fin
*petit édit