46Fermer
Hoshi_Le 21/05/2007 à 13:38
Voila je vous post le début du prgm et je vous envois la suite dés que je l'ai écrite sur l'ordi ^^
Si vous repérez des bug n'hésitez pas à me le dire ^^


:Clrhome:fix 0
:Clrhome
:17->Dim(L1)
:15->T
:0->Z
:1->G
:0->V
:0->W
:2->R
:5->A
:1->B
:0->D
:3->E
:4->H
:6->P
:0->J
:0->X
:Clrhome
:for(Y,5,16)
:Output(4,5,"Race 1.0"
:Output(4,4," "
:for(C,1,100)
:End
:End
:For(O,1,200)
:End
:Clrhome
:Output(4,1,"Press graph for"
:Output(5,1,"Help screen"
:Output(8,1,"Press enter..."
:Pause
:Clrhome
:Output(4,1,"Last score:"
:Output(4,12,S
:Output(8,1,"Press enter..."
:Pause
:0->S
:Clrhome
:Output(4,1,"Best score:"
:Output(4,12,Théta (c'est le symbol aprés le Z quand on utilise la commande Alpha)
:Output(8,1,"Press enter..."
:Pause
:Clrhome
:
:15->I
:15->Q
:15->F
:Output(1,2,"OFF"
:Lbl X
:While 1
:
:If J (n'est pas églal à) 1 and R>2:Then:2->R:End
:If S>50 and S<100:Then:14->T:1->G:End (c'est pour augmenter la vitesse à laquelle augmete le score et la difficulté du jeu)
: ... (Il y a plusieur autres lignes comme celle du dessus alors je passe directement à celle aprés car seul les valeurs changes)
:If v<0:Then:0->W:0->V:Output(1,2,"OFF":End
:
:If W (n'est pas églal à) 1: Then:V+0.1->V:End
:
:If V>100:Then:100->V:End
:Ouput(2,1,"----------------"
:Ouput(7,1,"----------------"
:
:Output(E,F," "
:Output(H,I," "
:Output(P,Q," "
:
:I-1->I
:
:If I<1:Then:randint(3,6)->H:End
:If I<1:Then:T->I:End
:
:Q-1->Q
:
:If Q<1:Then:randint(3,6)->P:End
:If Q<1:Then:T->Q:End:
:
:F-1->F
:
:If F<1:Then:randint(3,6)->E:End
:If F<1:Then:T->F:End
:
:Output(P,Q,"X")
:Output(E,F,"X")
:Output(H,I,"X")
:Output(8,13," ")
:Output(8,10,"Dep")
:Output(8,13,R)
:Output(1,12," ")
:Output(1,6,"score")
:Output(1,12,S)
:Output(8,1," ")
:Output(8,1,"ENE:")
:Output(8,5,V)
:Output(A,B,">")
:
:Getkey->K
:
:If K=25:Then:A-1->A:Output(A+1,B," ":If X (n'est pas églal à) 1: Then:R-1->R:End:End
:If R=-1:Then:A+1->A:R+1->R:End
:If K=34:Then:A+1->A:Output(A+1,B," ":If X (n'est pas églal à) 1: Then:R-1->R:End:End
:If R=-1:Then:A-1->A:R+1->R:End
:If A<3:Then:3->A:End
:If B<1:Then:1->B:End
:If A>6:Then:6->A:End