0 Members and 1 Guest are viewing this topic.
Pt-On(X,Y,Pic12)r
Pt-On(64,0,Pic11)Pt-On(72,0,Pic12)Pt-On(64,8,Pic13)Pt-On(72,8,Pic14)StorePic Pt-On(80,0,Pic08)Pt-On(80,8,Pic09)Pt-On(88,8,Pic10)StorePic ...DispGraphr
Seulement le début. Pour savoir la longueur je crois qu'il faut vérifier où est le zéro après la chaine et soustraire la position du 0, qui est un délimiteur, et le début de la chaine, et ça te donne la longeur.
"plop ""world"=>Str1Disp Str-5
Salut, est-il possible de créer une liste ou une matrice ? Si oui comment ?
:!If EXP1:.Code:ElseIf EXP2:.Code:End
:If EXP1=0:.Code:ElseIf EXP2:.Code:End
Est ce que c'est normal que maintenant (dans la version 0.4.5 seulement), lors de la compilation le code suivant ne soit pas compilé (plante) :Code: [Select]:!If EXP1:.Code:ElseIf EXP2:.Code:EndJe suis obligé de faire :Code: [Select]:If EXP1=0:.Code:ElseIf EXP2:.Code:End
:.PERSO::.DATA:[{sprite du perso}]→Pic1:[{sprite du mur}]→Pic2::Lbl A1→M+31→Y+15→X:Repeat getKey(15):If getKey(2):sub(COG):ClrDraw:End:If getKey(3):sub(COD):ClrDraw:End:If getKey(1):sub(COB):ClrDraw:End:If getKey(4):sub(COH):ClrDraw:End:sub(MAP):Pt-On(X,Y,Pic1+(E*8)):DispGraphr:End:Goto Z:Lbl MAP:If M=1:For(A,0,11):Pt-On(A*8,0,Pic2):If (A≠4) and (A≠5):Pt-On(A*8,56,Pic2):End:End:For(A,1,7):Pt-On(0,A*8,Pic2):Pt-On(88,A*8,Pic2):End:End:Return:Lbl COG:0→B:For(A,0,7):!If Pxl-Test(X-1,Y+A):B+1→B:If B=8:X-1→X:End:End:End:Return:Lbl COD:0→B:For(A,0,7):!If Pxl-Test(X+9,Y+A):B+1→B:If B=8:X+1→X:End:End:End:Return:Lbl COB:0→B:For(A,0,7):!If Pxl-Test(X+A,Y+9):B+1→B:If B=8:Y+1→Y:End:End:End:Return:Lbl COH:0→B:For(A,0,7):!If Pxl-Test(X+A,Y-1):B+1→B:If B=8:Y-1→Y:End:End:End:Return:Lbl Z:ClrDraw:ClrDrawr:DispGraph