Poster un nouveau sujet Poster une réponse <<   Page: , 2  
besion d'aide
Auteur Message
Le Noob
Invité
Posté le : Dim 24 Oct 2010, 22:45   Citer 

voila le programme en question:


Code
:5üH:5üF
:0üXmin
:0üYmin
:94üXmax
:62üYmax
:ClrDraw
:CoordOff
:AxesOff
:For(A,0,25
:Text(A,33,"FENCING"
:End
:For(A,6,40
:Text(31,A,"TWO"
:Text(31,A-6,"      "
:End
:Text(56,22,"BY TRAVIS MAYS"
:Circle(46,31,20
:Line(0,94,64,0
:For(A,0,60
:End
:Line(64,62,24,0
:For(A,0,80
:End
:1üA:14üB:1üC:1üD
:Lbl J
:Menu("++FENCING TWO+++","EASY",E,"MEDIUM",5,"HARD",F,"INSTRUCTIONS",G," ",K
:
:Lbl E:2üF:Goto 5:Lbl F:9üF:Goto 5
:
:Lbl 5
:0üZ
:Output(7,1,"----------------"
:Output(1,1,H
:Output(1,16,F
:If C=2:Output(8,1,"BLOCK"
:If D=2:Output(8,12,"BLOCK"
:Output(3,A,"  !":Output(4,A,"O !":Output(5,A,"O-I":Output(6,A,"I"
:Output(3,B,"!":Output(4,B,"! Á":Output(5,B,"I-Á":Output(6,B,"  I"
:getKeyüÁ
:If Á=24:(A-1)üA:If Á=26:(A+1)üA:If Á=11:Goto 9
:If Á=21:2üC
:If Áø21:1üC
:
:If A<1:1üA
:If (A+2)=B
:Goto A
:If (A+3)=B:Goto 7
:
:1üD
:int (3rand)üÁ
:If Á=0:(B-1)üB
:If Á=1:(B+1)üB
:If B>14:(B-1)üB:ClrHome:Goto 5
:
:Lbl 9
:(Z+1)üZ
:If Z<3:Then
:Output(5,A+2," ":Output(4,A+2," ":Output(3,A+2," "
:Output(5,A,"OI":Output(4,A,"O!":Output(3,A," !":End
:If Zù3 and Z<6:Then
:Output(4,A+1," ":Output(3,A+1," ":Output(5,A,"OH--":End
:If Z=6:Goto D
:Goto 9
:Lbl D
:If (A+3)=B and Dø2:Then:Goto C:End
:If D=2:Then:ClrHome:Goto 5:End
:ClrHome:Goto 5:End
:
:Lbl 7
:int (3rand)üÁ
:If Á=0:Then:1üD:Goto 5:End
:If Á=1:Goto A
:If Á=2:Then:2üD:Goto 5:End
:Lbl A
:(Z+1)üZ
:Output(3,B," !":Output(4,B," !":Output(5,B," I":If Z=3:Then
:Output(3,B,"  ":Output(4,B,"  ":Output(5,B-1,"--H":Else:Goto A:End
:If Cø2:Then:(H-1)üH:Goto B:End
:If C=2:Goto 5
:
:Lbl B
:Output(3,A+2," ":Output(4,A+2," ":If H<1:Goto Z:Pause
:1üA:14üB:Goto 5
:Lbl C
:Output(3,B," "
:Output(4,B," "
:(F-1)üF
:If F<1:Then:Pause :Goto I:Else
:1üA:14üB:Goto 5:End
:
:Lbl Z
:ClrHome
:Disp "YOU'RE DEAD":Pause :Stop
:
:Lbl I
:ClrHome
:Output(4,7,"YOU":Output(5,7,"WIN":Pause
:Output(8,2,"(WANNA COOKIE?)"
:Stop
:
:Lbl K
:ClrHome:ClrDraw:7üA:2üB
:Output(4,7,"CRAP":Output(5,7,"GAME"
:Pause :ClrHome
:Disp "CURSER KEYS MOVE"
:Disp "YOU. 2ND  SHOOTS"
:Disp "HITPOINTS ARE AT"
:Disp "THE TOP AND AMMO"
:Disp "IS AT THE BOTTOM"
:Pause :ClrHome
:10üÁ
:Lbl 1
:AüC:BüD
:Output(A,1,">"
:Output(B,16,"<":Output(1,1,H
:Output(1,16,F
:Output(8,1,Á
:getKeyüZ
:If Z=25:(A-1)üA:If Z=34:(A+1)üA:If Z=21:Goto 2
:
:If A<2:2üA
:If A>7:7üA
:int (2rand)üZ
:If Z=0:(B-1)üB
:If Z=1:(B+1)üB
:If B<2:2üB
:If B>7:7üB
:If B=A:Then
:int (2rand)üZ
:If Z=0:Goto 3
:If Z=1:Goto 4:End:Lbl 4
:Output(C,1," "
:Output(D,16," ":Goto 1
:Lbl 3
:ClrHome
:Output(1,1,H
:Output(1,16,F
:Output(8,1,Á
:Output(A,1,">"
:Output(B,16,"<":Output(B,2,"<-":Pause :ClrHome
:(H-1)üH
:If H<1:Goto Z
:8üA:1üB
:Goto 1
:
:Lbl 2
:If Á<1:Goto 1
:ClrHome
:Output(1,1,H
:Output(1,16,F
:Output(8,1,Á
:Output(A,1,">"
:Output(B,16,"<":For(Z,4,14
:Output(A,Z,"->":Output(A,(Z-2),"  ":End
:Pause :ClrHome
:If A=B:Then:(Á-1)üÁ:(F-1)üF:If F<1:Stop:End
:If AøB:Then:(Á-1)üÁ:Goto 1:End
:Goto 1
:Lbl G
:ClrDraw
:Text(0,0,"THE  Y=  KEY  SWINGS  SWORD."
:Text(6,0,"THE  2ND  KEY  BLOCKS."
:Text(12,0,"MOVE  WITH  THE ARROW  KEYS."
:Pause :ClrDraw
:Goto J



  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 25 Oct 2010, 1:47   Citer 

Les seules endroits qui peuvent te faire planter la calto sont au niveau du redimensionnement du graph (cad de 0->Xmin à 62->Ymax) et dans For(A,0,25.
Regarde si tu n'as pas fait d'erreur dans ces parties et n'oublie pas le End après ton text.

Je te rappel au cas où que quand tu vois des minuscules, c'est des fonctions et pas un enchainement de lettre.

Sangohan38

 Adresse email Haut de page Bas de page 
 
Le Noob
Invité
Posté le : Lun 25 Oct 2010, 13:14   Citer 

je sais, tout est juste mais ca me met le curseur apres le deusieme traimat de "FENCING", même si je place quelque chose apres quand je met voir erreur

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 28 Oct 2010, 21:42   Citer 

Tu as dit plus tôt que c'était une erreur syntaxe, alors les valeurs ne sont pas en cause. Verrifie l'enchaînement des virgules etc.
Au pire supprimme toutes ces lignes :

Code
:For(A,0,25
:Text(A,33,"FENCING"
:End
:For(A,6,40
:Text(31,A,"TWO"
:Text(31,A-6,"      "
:End



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Le Noob
Invité
Posté le : Mer 17 Nov 2010, 16:47   Citer 

J'ai fais comme t'as dis et ça fait "ERR:DIM INVALIDE" après:
Code
Texte(56,22,"BY TRAVIS MAY"

cry.gif

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
darkmory
Avatar

Autorisation : Membre
Nb de messages : 131
Inscrit le : Jeu 07 Jan 2010, 22:13
Posté le : Mer 17 Nov 2010, 18:54   Citer 

ca veut dire que ton texte sort de l'écran et du coup il peut pas l'afficher
essaye de l'écrire dans un prog bidon mais avec 1,1 en coordonnées puis regarde combien de pixel sa fait et après tu modifie le prog fence en fonction

----------------------
chuck norris peut jouer au tout dernier prince of persia sur une calto
chuck norris peut ecrire tres vite et tres bien avec une psp
Cours de programmation via le fofo ici
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse <<   Page: , 2  





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink