Bon voilà, hier soir je me suis lancer dans la construiction d'un RPG basic, mais une fois tester l'écran (pendant le jeu) ne fait que de clinioter, je me suis demander pourquoi et est re-vérifier le programme de fonte en comble sans succer : ni de ClrHome répèter a l'aide d'une boucle ni de ClrDraw. Donc je me suis résigner a vous possez la question : où mon programme a-t-il un problême ?
Voilà les 2 principal partit de mon jeux :
prgmJESSY :
ClrHome
ClrDraw
CoordOff
AxesOff
Text(7,7,"PROGRAMMER PAR:")
Text(14,10,"PIERRE RAIMBAULT")
Pause
ClrDraw
RecallPic 1
Pause
ClrDraw
Lbl 4
Menu("LVDJ","COMMENCER",1,"AIDE",2,"QUITTER",3)
Lbl 1
ClrHome
ClrDraw
prgmMAP1
Lbl 2
1üYmin
94üYmax
1üXmin
62üXmax
Horizontal 1
Horizontal 94
Vertical 1
Vertical 62
Text(7,7,"POUR VOUS DEPLACER")
Text(14,7,"HAUT, BAS,")
Text(21,7,"GAUCHE ET DROITE.")
Pause
ClrDraw
Horizontal 1
Horizontal 94
Vertical 1
Vertical 62
Text(7,7,"VALIDER :")
Text(14,7,"ENTER")
Pause
ClrDraw
ClrHome
Goto 4
Lbl 3
ClrDraw
ClrHome
Stop
prgmMAP1 :
5üY:8üX
YüB:XüA
Lbl 0
getKeyüK
If K=24:X-1üX
If K=25:Y-1üY
If K=26:X+1üX
If K=34:Y+1üY
Output(B,A," "
Output(Y,X,"8"
If Y=1
Y+1üY
If X=1
X+1üX
If X=16
X-1üX
Output(1,1,"X")
Output(1,2,"H")
Output(1,3,"H")
Output(1,4,"H")
Output(1,5,"H")
Output(1,6,"H")
Output(1,7,"H")
Output(1,8,"H")
Output(1,9,"H")
Output(1,10,"H")
Output(1,11,"H")
Output(1,12,"H")
Output(1,13,"H")
Output(1,14,"H")
Output(1,15,"H")
Output(1,16,"X")
Output(2,1,"H")
Output(3,1,"H")
Output(4,1,"H")
Output(5,1,"H")
Output(6,1,"H")
Output(7,1,"H")
Output(8,1,"H")
Output(2,16,"H")
Output(3,16,"H")
Output(4,16,"H")
Output(5,16,"H")
Output(6,16,"H")
Output(7,16,"H")
Output(8,16,"H")
Pxl-On(7,7)
Pxl-On(8,7)
Pxl-On(9,7)
Pxl-On(10,7)
Pxl-On(11,7)
Pxl-On(12,7)
Pxl-On(7,8)
Pxl-On(9,8)
Pxl-On(12,8)
Pxl-On(7,9)
Pxl-On(9,9)
Pxl-On(12,9)
Pxl-On(7,10)
Pxl-On(8,10)
Pxl-On(9,10)
Pxl-On(10,10)
Pxl-On(11,10)
Pxl-On(12,10)
Output(3,5,"0")
Goto 0
If Y=3:X=5
prgmPRGM
Text(20,7,"BIG PIG ALUT JESSY,")
Text(27,7,"TU VAS TE BALLADER ?")
Pause
ClrDraw
prgmPRGM
Text(20,7,"JESSY : OUAIS,")
Text(27,7,"MAIS CA TE RAGARDE PAS.")
Pause
If Kø45
Goto 0
Bon voilà mais il y a des caractère que le forum n'accèpte pas, j'éspère que ça ne vous gènera pas pour lire.
Merci d'avoir pris le temp de lire mon prog, sinon dites moi d'où viens le problème si vous l'avez trouver...
PS : il reste une partie du programme que je n'ai pas mis par soucis de place. Mais elle n'est pas importante (c'est le programme PRGM)