Chose dite chose faite
Un petit jeu sympa à mettre sur votre calculette(uniquement les TI) qui consiste a eviter des vaisseaux qui vous foncent dessus.
Code:
:Lbl 0
:2=>dim(listeRAC) // liste correspond au petit L dans la section listes de votre calculette
:Pleinecr
:Flottant
:Effecr
:Output(1,1,"***U.F.O.RACE***
:Output(2,1,"**************** //16X *
:Output(8,1,"SCORE:
:Output(8,10,listeRAC(1)
:Pause
:Lbl 1
:Effecr
:Disp "","","","","","",""
:1=>A
:1=>B
:1=>C
:1=>D
:1=>E
:8=>P
:0=>S
:Repeat P≥A et P≤A+1
:S+1=>S
:P=>Q
:codeTouche=>θ
:If (θ=24)(P≠1) ou (θ=26)(P≠1)
:(θ-25)+P=>P
:Output(3,P,"V"
:B=>A
:C=>B
:D=>C
:E=>D
:entAleat(1,15)=>E
:Output(7,E,"^^
:If θ=105
:Pause
:Disp""
:End
:Lbl X
:(S/5.65)=>U
:arrondi(U,O)=>S
:S-U=>V
:abs(V)=>V
:Disp "Score:
:partEnt((S/60)=>M
:S-60M=>S
:Output(7,15,partEnt((Vx100)
:Output(7,11,S
:Output(7,13,"S"
:If M≠0
:Then
:Output(7,7,M
:Output(7,9,"M"
:End
:If listeRAC(1)≤(Mx60+S+V)
:Mx60+S+V=>listeRAC(1)
:Pause
:Goto 0
A+