:ClrHome
:Output(3,2,"SKATEBOARDING ------------- ô ô"
:Output(7,2,"BY WUNDERDUCK"
:Pause
:3üA:0üX:0üY:0üZ:0üW:0üS:2üÁ:0üI
:Lbl 0:ClrHome
:If Y=8:Then
:int (8rand+1üZ:16üW:End
:If Y<1:Then
:int (8rand+1üX:16üY:End
:If X=4:5üX:If Z=4:3üZ
:Output(A,2,"O":Output(A+1,1,"-0-"
:If Aø4:Then
:Output(A+2,2,"0":Output(A+3,1,"/ )":End
:If I=7:Then
:Output(A+4,1,"---":Output(A+5,1,"ô ô"
:End:If A=4:Then
:Output(A+2,1,"/ )":3üA:End
:If Iø7:Then:Output(7,1,"---"
:Output(8,1,"ô ô":End
:Output(X,Y,"*":Y-1üY
:If Zø0:Then
:Output(Z,W,"*":W-1üW:End
:getKeyüK:If K=25:1üÁ
:If K=21 and Aù3:Then:7üI:1üÁ:End
:If Á=1:A-1üA:If A<1:0üÁ:If Á=0:A+1üA
:If Aù3:Then:2üÁ:0üI:End
:If K=34:Then:If Aù3:4üA:If I=7:0üI:End
:If K=22:Pause :S+1üS
:If (X=A or X=A+2) and Y=2 or ((I=7 and XùA+3 and X÷A+5) or (Iø7 and (Xù7 or X=A+1 or X=A+3))) and Y÷3 or (Z=A or Z=A+2) and W=2 or ((I=7 and ZùA+3 and Z÷A+5) or (Iø7 and (Zù7 or Z=A+1 or Z=A+3))) and W÷3
:Goto L:Goto 0:Lbl L:ClrHome
:Disp "YOU LOSE.","","FINAL SCORE:",S
mais aprèsl'avoir lancé, je vois "skateboard, by wunderduck", puis quand je fais entrée "erreur domaine" quand je fais "voir", ça me renvoir aux ":" ligne 21... help !!
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mer 14 Sep 2011, 18:17
Est-ce que tu pourrait au moins remplacer les carractères spéciaux s'il te plait (et utiliser la balise code), car de travailler là dessus, c'est franchement pas facile.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 15 Sep 2011, 7:11
C'est simple: les coordonnées de l'output qui précède les deux points sortent de l'écran donc ton erreur se situe sur les variables utilisées c'est-à-dire X ou Y. Regarde avant cette ligne si tu n'as pas fait d'erreurs.
