La Place des Développeurs [RESOLU] VDP(27) le Scrolling hardware Horizontal Comment alimenter de nouveaux décors VDP (27)?
Mmmmm Jipe j'crois que ma version sera plus rapide... Tu as 3 fonctions RIGHT$, STR$ et LEN... 
Après ça doit se jouer à pas grand chose...mais quand même !
Après ça doit se jouer à pas grand chose...mais quand même !
ericb59 :
Mmmmm Jipe j'crois que ma version sera plus rapide... Tu as 3 fonctions RIGHT$, STR$ et LEN...
Après ça doit se jouer à pas grand chose...mais quand même !
Après ça doit se jouer à pas grand chose...mais quand même !
Moi je n'ai qu'une seule fonction $ ...
Qui dit mieux ?
Code :
Edité par
Metalion
Le 17/12/2015 à 09h22
120 COPY CHR$(48+A) TO (VA,0):VA=VA+2:SETSCROLL VA
MSX1: Daewoo DPC-200 / Yamaha CX5M
MSX2: Sony HB-F9P
MSXVR
Vidéo: V9990 (GFX-9)
Audio: MSX-Music (FM-PAC) / MSX-Audio (Audiowave) / OPL4 (Monster Sound FM Blaster) / OPNB (Neotron)
Merci de participer
@Eric: En fait je cherche "Seulement le moyen de remplacer les noms propres des fichiers 1,2,3 etc) par des Variables.
J'ai encore pas mal de choses à intégrer des les formules et pour le coup, je ne cherche pas à ce qu'elle soit optimale mais reste ouverte.
Idéalement, garder les "nivellements" dans mon approche est plus pratique puisque cela me permet de continuer dans ma vision globale.
Cela ne veut pas dire que je resterai ainsi, mais pour le moment l'approche de Jipe colle mieux aux nivellement graduels que je veux garder
(Je garde toutes vos idées sous le coude
)
@ Jipe: Avec ta méthode, j'obtiens instantanément => [ILLEGAL FONCTION CALL IN 445]
Pour rappel:
Une idée ?
Edit: @Métalion: J'ai un [FILE NOT FOUND] instantanément
@Eric: En fait je cherche "Seulement le moyen de remplacer les noms propres des fichiers 1,2,3 etc) par des Variables.
J'ai encore pas mal de choses à intégrer des les formules et pour le coup, je ne cherche pas à ce qu'elle soit optimale mais reste ouverte.
Idéalement, garder les "nivellements" dans mon approche est plus pratique puisque cela me permet de continuer dans ma vision globale.
Cela ne veut pas dire que je resterai ainsi, mais pour le moment l'approche de Jipe colle mieux aux nivellement graduels que je veux garder
(Je garde toutes vos idées sous le coude
)@ Jipe: Avec ta méthode, j'obtiens instantanément => [ILLEGAL FONCTION CALL IN 445]
Pour rappel:
Code TEXT :
444 FOR I=1TO8 445 A$=RIGHT$(STR$(I),LEN(A$)-1) 446 COPY A$ TO(VA,0):VA=VA+2:SETSCROLLVA 447 GOSUB 800 448 NEXT I
Une idée ?
Edit: @Métalion: J'ai un [FILE NOT FOUND] instantanément
Code TEXT :
Edité par
igal
Le 17/12/2015 à 10h10
120 COPY CHR$(48+A) TO (VA,0):VA=VA+2:SETSCROLL VA
Metalion :
[quote=ericb59]
Code :
120 COPY CHR$(48+A) TO (VA,0):VA=VA+2:SETSCROLL VA
haaaa ! pas con !
Quand je le dis que Metalion est trop fort !
igal :
Edit: @Métalion: J'ai un [FILE NOT FOUND] instantanément
Edit: @Métalion: J'ai un [FILE NOT FOUND] instantanément
Code TEXT :
120 COPY CHR$(48+A) TO (VA,0):VA=VA+2:SETSCROLL VA
essaie comme ça :
Code TEXT :
120 a$=CHR$(48+A):copy a$ TO (VA,0):VA=VA+2:SETSCROLL VA
Salut à tous.
Merci pour votre aide
Je manque de temps pour me pencher sur le sujet pour le moment
voici l'image du Disque Dur E: exploitable directement sur votre MSX compatible 2+
http://dl.free.fr/uRY7Kq8f0
Voici deux listings:
Le premier "OUTZ05.ASC" fait Scroller de Droite vers la Gauche. Autrement dit, le héro se déplace vers la droite.
Le second "OUTZ06.ASC" fait scroller de Gauche vers la Droite. Autrement dit, le héro se déplace vers la gauche.
scroll de Droite vers la Gauche "OUTZ05.asc"
Scroll de Gauche vers la Droite "OUTZ06.ASC"
Merci pour votre aide
Je manque de temps pour me pencher sur le sujet pour le moment
voici l'image du Disque Dur E: exploitable directement sur votre MSX compatible 2+
http://dl.free.fr/uRY7Kq8f0
Voici deux listings:
Le premier "OUTZ05.ASC" fait Scroller de Droite vers la Gauche. Autrement dit, le héro se déplace vers la droite.
Le second "OUTZ06.ASC" fait scroller de Gauche vers la Droite. Autrement dit, le héro se déplace vers la gauche.
scroll de Droite vers la Gauche "OUTZ05.asc"
Code TEXT :
0 'SAVE"OUTZ05.asc",A
2 'PLAYER DE BRIBES VERICALES[(191 X 2,4,8 et 16)
8 'Mode graphique
9 SCREEN 10:'COLOR1,1,0
12 'deplace l'écran verticalement
13 'VDP(24)=VDP(24)+212:VDP(9)=VDP(9)OR2
18 DEFINT A-Z:SETPAGE1,0:CLS:SETPAGE0,1:CLS
21 'Chargement intro/demo
25 SETPAGE0,1:BLOAD"INTRO.SCA",S:COLOR=RESTORE:SETPAGE1,0
26 IF INKEY$=""THEN26
27 'Chargement de la Page Alpha
28 CALL CHDIR("STAGE1")
29 CALL CHDIR("0")
30 BLOAD"ALPHA.SCA",S:COLOR = RESTORE:SETPAGE0,0
35 'retour au repertoire des Pages
37 CALL CHDIR("..")
40 'initialisation des variables hero
45 X=100:Y=100:C=0
60 'VARIABLE DU SCROLL
61 R=0:'Scroll Vertical
62 VA=256:'Scroll Horizontal
63 VB=256:'Scroll Horizontal
67 VC=256:'Scroll a reculons
68 I=&HF:'Repertoire Zero
69 II=&HF:'Sous repertoire Zero
70 S=STICK(0)
398 'Scroll vers la Gauche
399 'Choix du repertoire des pages
400 IF I=&HFTHEN CALL CHDIR ("F"):I=&HE:GOTO 420
401 IF I=&HETHEN CALL CHDIR ("E"):I=&HD:GOTO 420
402 IF I=&HDTHEN CALL CHDIR ("D"):I=&HC:GOTO 420
403 IF I=&HCTHEN CALL CHDIR ("C"):I=&HB:GOTO 420
404 IF I=&HBTHEN CALL CHDIR ("B"):I=&HA:GOTO 420
405 IF I=&HATHEN CALL CHDIR ("A"):I=&H9:GOTO 420
406 IF I=&H9THEN CALL CHDIR ("9"):I=&H8:GOTO 420
407 IF I=&H8THEN CALL CHDIR ("8"):I=&H7:GOTO 420
408 IF I=&H7THEN CALL CHDIR ("7"):I=&H6:GOTO 420
409 IF I=&H6THEN CALL CHDIR ("6"):I=&H5:GOTO 420
410 IF I=&H5THEN CALL CHDIR ("5"):I=&H4:GOTO 420
411 IF I=&H4THEN CALL CHDIR ("4"):I=&H3:GOTO 420
412 IF I=&H3THEN CALL CHDIR ("3"):I=&H2:GOTO 420
413 IF I=&H2THEN CALL CHDIR ("2"):I=&H1:GOTO 420
414 IF I=&H1THEN CALL CHDIR ("1"):I=&H0:GOTO 420
415 IF I=&H0THENI=&HF:GOTO400:'CALL CHDIR ("0"):I=&HF:GOTO 420
419 'choix du repertoire des bribes
420 IF II=&HFTHEN CALL CHDIR ("F"):II=&HE:GOTO 440
421 IF II=&HETHEN CALL CHDIR ("E"):II=&HD:GOTO 440
422 IF II=&HDTHEN CALL CHDIR ("D"):II=&HC:GOTO 440
423 IF II=&HCTHEN CALL CHDIR ("C"):II=&HB:GOTO 440
424 IF II=&HBTHEN CALL CHDIR ("B"):II=&HA:GOTO 440
425 IF II=&HATHEN CALL CHDIR ("A"):II=&H9:GOTO 440
426 IF II=&H9THEN CALL CHDIR ("9"):II=&H8:GOTO 440
427 IF II=&H8THEN CALL CHDIR ("8"):II=&H7:GOTO 440
428 IF II=&H7THEN CALL CHDIR ("7"):II=&H6:GOTO 440
429 IF II=&H6THEN CALL CHDIR ("6"):II=&H5:GOTO 440
430 IF II=&H5THEN CALL CHDIR ("5"):II=&H4:GOTO 440
431 IF II=&H4THEN CALL CHDIR ("4"):II=&H3:GOTO 440
432 IF II=&H3THEN CALL CHDIR ("3"):II=&H2:GOTO 440
433 IF II=&H2THEN CALL CHDIR ("2"):II=&H1:GOTO 440
434 IF II=&H1THEN CALL CHDIR ("1"):II=&H0:GOTO 440
435 IF II=&H0THEN CALL CHDIR ("0"):II=&HF:GOTO 440
439 'Chargement des bribes 2 Pixels
440 'GOTO540:GOTO 640
442 '
444 SETSCROLLVA
445 VA=VA-2
446 COPY"8"TO(VA,0)
447 GOSUB800
450 '
452 SETSCROLLVA
453 VA=VA-2
454 COPY"7"TO(VA,0)
455 GOSUB800
462 '
464 SETSCROLLVA
465 VA=VA-2
466 COPY"6"TO(VA,0)
467 GOSUB800
470 '
472 SETSCROLLVA
473 VA=VA-2
474 COPY"4"TO(VA,0)
475 GOSUB800
480 '
482 SETSCROLLVA
483 VA=VA-2
484 COPY"4"TO(VA,0)
485 GOSUB800
488 '
490 SETSCROLLVA
491 VA=VA-2
492 COPY"3"TO(VA,0)
493 GOSUB800
498 '
499 SETSCROLLVA
500 VA=VA-2
501 COPY"2"TO (VA,0)
502 GOSUB800
504 '
506 SETSCROLLVA
507 VA=VA-2
508 COPY"1"TO (VA,0)
509 GOSUB800
510 CALL CHDIR ("..")
516 IFVA=0THENVA=256:CALL CHDIR(".."):GOTO400
518 GOTO420
539 'Chargement des bribes 4 Pixels
540 '
542 '
544 SETSCROLLVBAND255:VB=VB-4:COPY"17"TO(VB,0)
546 GOSUB800
548 '
550 SETSCROLLVBAND255:VB=VB-4:COPY"15"TO(VB,0)
552 GOSUB800
554 '
556 SETSCROLLVBAND255:VB=VB-4:COPY"13"TO(VB,0)
558 GOSUB800
560 '
562 SETSCROLLVBAND255:VB=VB-4:COPY"11"TO(VB,0)
564 GOSUB800
566 CALL CHDIR ("..")
568 IFVB=0THENVB=256:CALL CHDIR(".."):GOTO400
570 GOTO420
639 'Chargement des Bribes 8 Pixels
640 '
642 '
644 SETSCROLLVC:VC=VC-8:COPY"115"TO (VC,0)
646 GOSUB800
648 '
650 SETSCROLLVC:VC=VC-8:COPY"111"TO (VC,0)
652 GOSUB800
654 CALL CHDIR ("..")
656 IFVC=0THENVC=256:CALL CHDIR(".."):GOTO400
658 GOTO420
800 S=STICK(0):ONS+1 GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,1800
1000 'STATIQUE****************
1010 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1050
1020 COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET
1022 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1030 RETURN
1050 COPY(C,D)-(C+58,D+45),3TO(X,Y),0,TPSET:C=C+59:IFC=177THENC=0
1052 COPY(X,Y)-(X+58,Y+45),1TO(X,Y),0
1060 RETURN
1099 SCREEN0:COLOR1,35:PRINT"STATIQUE ECHEC
1100 'SAUT********************
1110 VDP(24)=VDP(24)-1AND255:IFSTRIG(0)THEN1150
1120 'Y=Y-64AND255:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET
1122 'COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1130 'Y=Y+16AND255:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET
1132 'COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1140 RETURN
1150 Y=Y-64AND255:COPY(C,D)-(C+58,D+45),3TO(X,Y),0,TPSET:C=C+59:IFC=177THENC=0
1152 COPY(X,Y)-(X+58,Y+45),1TO(X,Y),0
1160 Y=Y+32AND255:COPY(C,D)-(C+58,D+45),3TO(X,Y),0,TPSET:C=C+59:IFC=177THENC=0
1162 COPY(X,Y)-(X+58,Y+45),1TO(X,Y),0
1170 RETURN
1199 SCREEN0:COLOR1,35:PRINT"SAUT ECHEC
1200 'SAUT DROITE**************
1210 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1250
1220 X=X+32:Y=Y-64:B=0:D=92:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1222 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1230 X=X+32:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1232 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1240 Y=Y+16:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1242 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1245 RETURN
1250 X=X+32:Y=Y-64:B=0:D=92:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1252 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1260 X=X+32:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1262 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),1
1270 Y=Y+16:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1272 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1280 RETURN
1299 SCREEN0:COLOR1,35:PRINT"SAUT DROITE ECHEC
1300 'DROITE******************
1310 RETURN:IFSTRIG(0)THEN1350
1320 X=X+20:B=0:D=92:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1322 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1330 RETURN
1350 X=X+20:B=0:D=92:COPY(C,D)-(C+58,D+45),3TO(X,Y),0,TPSET:C=C+59:IFC=177THENC=0
1352 COPY(X,Y)-(X+58,Y+45),1TO(X,Y),0
1360 RETURN
1399 SCREEN0:COLOR1,35:PRINT"DROITE ECHEC
1400 'CHUTE DROITE************
1410 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1350
1420 X=X+32:Y=Y+32:B=0:D=92:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1422 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1430 RETURN
1450 X=X+32:Y=Y+32:B=0:D=92:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1452 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1460 RETURN
1499 SCREEN0:COLOR1,35:PRINT"CHUTE DROITE ECHEC
1500 'CHUTE******************
1510 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1550
1520 Y=Y+32AND255:B=B:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1522 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1530 RETURN
1550 Y=Y+32AND255:B=B:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1552 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1560 RETURN
1599 SCREEN0:COLOR1,35:PRINT"CHUTE ECHEC
1600 'CHUTE GAUCHE************
1610 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1650
1620 X=X-32:Y=Y+32:B=46:D=138:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1622 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1630 RETURN
1650 X=X-32:Y=Y+32:B=46:D=138:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1652 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1660 RETURN
1699 SCREEN0:COLOR1,35:PRINT"CHUTE GAUCHE ECHEC
1700 'GAUCHE******************
1710 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1750
1720 X=X-20:B=46:D=138:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1722 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1730 RETURN
1750 X=X-20:B=46:D=138:COPY(C,D)-(C+58,D+45),3TO(X,Y),0,TPSET:C=C+59:IFC=177THENC=0
1752 COPY(X,Y)-(X+58,Y+45),1TO(X,Y),0
1760 RETURN
1799 SCREEN0:COLOR1,35:PRINT"GAUCHE ECHEC
1800 'SAUT GAUCHE**************
1810 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1850
1820 X=X-32:Y=Y-64:B=46:D=138:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1822 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1830 X=X-32:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1832 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1840 Y=Y+16:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1842 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1845 RETURN
1850 X=X-32:Y=Y-64:B=46:D=138:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1852 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1860 X=X-32:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1862 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1870 Y=Y+16:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1872 CY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0,
1880 RETURN
1899 SCREEN0:COLOR1,35:PRINT"SAUT GAUCHE ECHEC
Scroll de Gauche vers la Droite "OUTZ06.ASC"
Code TEXT :
0 'SAVE"OUTZ06.asc",A
2 'PLAYER DE BRIBES VERICALES[(191 X 2,4,8 et 16)
8 'Mode graphique
9 SCREEN 10:'COLOR1,1,0
12 'deplace l'écran verticalement
13 'VDP(24)=VDP(24)+212:VDP(9)=VDP(9)OR2
18 DEFINT A-Z:SETPAGE1,0:CLS:SETPAGE0,1:CLS
21 'Chargement intro/demo
25 SETPAGE0,1:BLOAD"INTRO.SCA",S:COLOR=RESTORE:SETPAGE1,0
26 IF INKEY$=""THEN26
27 'Chargement de la Page Alpha
28 CALL CHDIR("STAGE1")
29 CALL CHDIR("0")
30 BLOAD"ALPHA.SCA",S:COLOR = RESTORE:SETPAGE0,0
35 'retour au repertoire des Pages
37 CALL CHDIR("..")
40 'initialisation des variables hero
45 X=100:Y=100:C=0
60 'VARIABLE DU SCROLL
61 R=0:'Scroll Vertical
62 VA=0:'Scroll a reculons
63 VB=0:'Scroll a reculons
67 VC=0:'Scroll a reculons
68 I=&H0:'Repertoire Zero
69 II=&H0:'Sous repertoire Zero
70 S=STICK(0)
398 'Scroll vers la Droite
399 'Choix du repertoire des pages
400 IF I=&H0THENI=I+1AND&HF:GOTO401:'CALL CHDIR ("0"):I=I+1AND&HF:GOTO 420
401 IF I=&H1THEN CALL CHDIR ("1"):I=I+1AND&HF:GOTO 420
402 IF I=&H2THEN CALL CHDIR ("2"):I=I+1AND&HF:GOTO 420
403 IF I=&H3THEN CALL CHDIR ("3"):I=I+1AND&HF:GOTO 420
404 IF I=&H4THEN CALL CHDIR ("4"):I=I+1AND&HF:GOTO 420
405 IF I=&H5THEN CALL CHDIR ("5"):I=I+1AND&HF:GOTO 420
406 IF I=&H6THEN CALL CHDIR ("6"):I=I+1AND&HF:GOTO 420
407 IF I=&H7THEN CALL CHDIR ("7"):I=I+1AND&HF:GOTO 420
408 IF I=&H8THEN CALL CHDIR ("8"):I=I+1AND&HF:GOTO 420
409 IF I=&H9THEN CALL CHDIR ("9"):I=I+1AND&HF:GOTO 420
410 IF I=&HATHEN CALL CHDIR ("A"):I=I+1AND&HF:GOTO 420
411 IF I=&HBTHEN CALL CHDIR ("B"):I=I+1AND&HF:GOTO 420
412 IF I=&HCTHEN CALL CHDIR ("C"):I=I+1AND&HF:GOTO 420
413 IF I=&HDTHEN CALL CHDIR ("D"):I=I+1AND&HF:GOTO 420
414 IF I=&HETHEN CALL CHDIR ("E"):I=I+1AND&HF:GOTO 420
415 IF I=&HFTHEN CALL CHDIR ("F"):I=I+1AND&HF:GOTO 420
419 'choix du repertoire des bribes
420 IF II=&H0THEN CALL CHDIR ("0"):II=II+1AND&HF:GOTO 440
421 IF II=&H1THEN CALL CHDIR ("1"):II=II+1AND&HF:GOTO 440
422 IF II=&H2THEN CALL CHDIR ("2"):II=II+1AND&HF:GOTO 440
423 IF II=&H3THEN CALL CHDIR ("3"):II=II+1AND&HF:GOTO 440
424 IF II=&H4THEN CALL CHDIR ("4"):II=II+1AND&HF:GOTO 440
425 IF II=&H5THEN CALL CHDIR ("5"):II=II+1AND&HF:GOTO 440
426 IF II=&H6THEN CALL CHDIR ("6"):II=II+1AND&HF:GOTO 440
427 IF II=&H7THEN CALL CHDIR ("7"):II=II+1AND&HF:GOTO 440
428 IF II=&H8THEN CALL CHDIR ("8"):II=II+1AND&HF:GOTO 440
429 IF II=&H9THEN CALL CHDIR ("9"):II=II+1AND&HF:GOTO 440
430 IF II=&HATHEN CALL CHDIR ("A"):II=II+1AND&HF:GOTO 440
431 IF II=&HBTHEN CALL CHDIR ("B"):II=II+1AND&HF:GOTO 440
432 IF II=&HCTHEN CALL CHDIR ("C"):II=II+1AND&HF:GOTO 440
433 IF II=&HDTHEN CALL CHDIR ("D"):II=II+1AND&HF:GOTO 440
434 IF II=&HETHEN CALL CHDIR ("E"):II=II+1AND&HF:GOTO 440
435 IF II=&HFTHEN CALL CHDIR ("F"):II=II+1AND&HF:GOTO 440
439 'Chargement des bribes 2 Pixels
440 'GOTO 540:GOTO640
442 '
444 COPY"1"TO(VA,0)
445 VA=VA+2
446 SETSCROLLVA
447 GOSUB800
450 '
452 COPY"2"TO(VA,0)
453 VA=VA+2
454 SETSCROLLVA
455 GOSUB800
462 '
464 COPY"3"TO(VA,0)
465 VA=VA+2
466 SETSCROLLVA
467 GOSUB800
470 '
472 COPY"4"TO(VA,0)
473 VA=VA+2
474 SETSCROLLVA
475 GOSUB800
480 '
482 COPY"5"TO(VA,0)
483 VA=VA+2
484 SETSCROLLVA
485 GOSUB800
488 '
490 COPY"6"TO(VA,0)
491 VA=VA+2
492 SETSCROLLVA
493 GOSUB800
498 '
499 COPY"7"TO(VA,0)
500 VA=VA+2
501 SETSCROLLVA
502 GOSUB800
504 '
506 COPY"8"TO(VA,0)
507 VA=VA+2
508 SETSCROLLVA
509 GOSUB800
510 CALL CHDIR ("..")
516 IFVA=256THENVA=0:CALL CHDIR(".."):GOTO400
518 GOTO420
539 'Chargement des bribes 4 Pixels
540 '
542 '
544 COPY"11"TO(VB,0):VB=VB+4:SETSCROLLVB
546 GOSUB800
548 '
550 COPY"13"TO(VB,0):VB=VB+4:SETSCROLLVB
552 GOSUB800
554 '
556 COPY"15"TO(VB,0):VB=VB+4:SETSCROLLVB
558 GOSUB800
560 '
562 COPY"17"TO(VB,0):VB=VB+4:SETSCROLLVB
564 GOSUB800
566 CALL CHDIR ("..")
568 IFVB=256THENVB=0:CALL CHDIR(".."):GOTO400
570 GOTO420
639 'Chargement des Bribes 8 Pixels
640 '
642 '
644 COPY"111"TO(VC,0):VC=VC+8:SETSCROLLVC
646 GOSUB800
648 '
650 COPY"115"TO(VC,0):VC=VC+8:SETSCROLLVC
652 GOSUB800
654 CALL CHDIR ("..")
656 IFVC=256THENVC=0:CALL CHDIR(".."):GOTO400
658 GOTO420
800 S=STICK(0):ONS+1 GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,1800
1000 'STATIQUE****************
1010 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1050
1020 COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET
1022 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1030 RETURN
1050 COPY(C,D)-(C+58,D+45),3TO(X,Y),0,TPSET:C=C+59:IFC=177THENC=0
1052 COPY(X,Y)-(X+58,Y+45),1TO(X,Y),0
1060 RETURN
1099 SCREEN0:COLOR1,35:PRINT"STATIQUE ECHEC
1100 'SAUT********************
1110 VDP(24)=VDP(24)-1AND255:IFSTRIG(0)THEN1150
1120 'Y=Y-64AND255:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET
1122 'COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1130 'Y=Y+16AND255:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET
1132 'COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1140 RETURN
1150 Y=Y-64AND255:COPY(C,D)-(C+58,D+45),3TO(X,Y),0,TPSET:C=C+59:IFC=177THENC=0
1152 COPY(X,Y)-(X+58,Y+45),1TO(X,Y),0
1160 Y=Y+32AND255:COPY(C,D)-(C+58,D+45),3TO(X,Y),0,TPSET:C=C+59:IFC=177THENC=0
1162 COPY(X,Y)-(X+58,Y+45),1TO(X,Y),0
1170 RETURN
1199 SCREEN0:COLOR1,35:PRINT"SAUT ECHEC
1200 'SAUT DROITE**************
1210 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1250
1220 X=X+32:Y=Y-64:B=0:D=92:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1222 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1230 X=X+32:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1232 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1240 Y=Y+16:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1242 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1245 RETURN
1250 X=X+32:Y=Y-64:B=0:D=92:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1252 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1260 X=X+32:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1262 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),1
1270 Y=Y+16:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1272 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1280 RETURN
1299 SCREEN0:COLOR1,35:PRINT"SAUT DROITE ECHEC
1300 'DROITE******************
1310 RETURN:IFSTRIG(0)THEN1350
1320 X=X+20:B=0:D=92:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1322 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1330 RETURN
1350 X=X+20:B=0:D=92:COPY(C,D)-(C+58,D+45),3TO(X,Y),0,TPSET:C=C+59:IFC=177THENC=0
1352 COPY(X,Y)-(X+58,Y+45),1TO(X,Y),0
1360 RETURN
1399 SCREEN0:COLOR1,35:PRINT"DROITE ECHEC
1400 'CHUTE DROITE************
1410 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1350
1420 X=X+32:Y=Y+32:B=0:D=92:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1422 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1430 RETURN
1450 X=X+32:Y=Y+32:B=0:D=92:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1452 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1460 RETURN
1499 SCREEN0:COLOR1,35:PRINT"CHUTE DROITE ECHEC
1500 'CHUTE******************
1510 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1550
1520 Y=Y+32AND255:B=B:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1522 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1530 RETURN
1550 Y=Y+32AND255:B=B:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1552 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1560 RETURN
1599 SCREEN0:COLOR1,35:PRINT"CHUTE ECHEC
1600 'CHUTE GAUCHE************
1610 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1650
1620 X=X-32:Y=Y+32:B=46:D=138:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1622 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1630 RETURN
1650 X=X-32:Y=Y+32:B=46:D=138:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1652 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1660 RETURN
1699 SCREEN0:COLOR1,35:PRINT"CHUTE GAUCHE ECHEC
1700 'GAUCHE******************
1710 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1750
1720 X=X-20:B=46:D=138:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1722 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1730 RETURN
1750 X=X-20:B=46:D=138:COPY(C,D)-(C+58,D+45),3TO(X,Y),0,TPSET:C=C+59:IFC=177THENC=0
1752 COPY(X,Y)-(X+58,Y+45),1TO(X,Y),0
1760 RETURN
1799 SCREEN0:COLOR1,35:PRINT"GAUCHE ECHEC
1800 'SAUT GAUCHE**************
1810 RETURN:VDP(24)=VDP(24)-RAND255:IFSTRIG(0)THEN1850
1820 X=X-32:Y=Y-64:B=46:D=138:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1822 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1830 X=X-32:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1832 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1840 Y=Y+16:COPY(A,B)-(A+39,B+45),3TO(X,Y),0,TPSET:A=(A+40)MOD160
1842 COPY(X,Y)-(X+39,Y+45),1TO(X,Y),0
1845 RETURN
1850 X=X-32:Y=Y-64:B=46:D=138:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1852 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1860 X=X-32:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1862 COPY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0
1870 Y=Y+16:COPY(C,D)-(C+58,D+45),3TO(X-59,Y),0,TPSET:C=C+59:IFC=177THENC=0
1872 CY(X,Y)-(X+58,Y+45),1TO(X-59,Y),0,
1880 RETURN
1899 SCREEN0:COLOR1,35:PRINT"SAUT GAUCHE ECHEC
Un avant gout de mon casse tête chinois bientôt opérationnel 
Code TEXT :
Edité par
igal
Le 12/01/2016 à 19h24
0 'SAVE"DEBUG13.asc",A
2 'PLAYER DE BRIBES VERICALES[(191 X 2,4,8 et 16)
8 'Mode graphique
9 SCREEN 10:'COLOR1,1,0
12 'deplace l'écran verticalement
13 'VDP(24)=VDP(24)+212:VDP(9)=VDP(9)OR2
18 DEFINT A-Z:SETPAGE1,0:CLS:SETPAGE0,1:CLS
21 'Chargement intro/demo
25 SETPAGE0,1:BLOAD"INTRO.SCA",S:COLOR=RESTORE:SETPAGE1,0
26 IF INKEY$=""THEN26
27 'Chargement de la Page Alpha
28 CALL CHDIR("STAGE1")
29 'CALL CHDIR("0")
30 BLOAD"ALPHA.SCA",S:COLOR = RESTORE:SETPAGE0,0
35 'retour au repertoire des Pages
37 'CALL CHDIR("..")
40 'initialisation des variables hero
45 X=100:Y=100:C=0
79 'CONDITIONS PRIMA X8**************
80 S=STICK(0):ONS+1 GOSUB 100,110,120,130,140,150,160,170,180:GOTO80
99 '
100 'DIRECTION STATIQUE*************
102 RETURN
104 '
110 'DIRECTION HAUT X8**************
112 RETURN
114 '
120 'DIRECTION HAUT DROITE X8*******
122 RETURN
124 '
130 'DIRECTION DROITE X8************
131 VA=0:'Scroll de droite a Droite
132 VB=0:'Scroll de droite a Droite
133 VD=0:'Scroll de droite a droite
134 I=&H1:'Repertoire Prima
135 II=&H1:'Repertoire des Bribes Prima
136 CALLCHDIR("0"):CALLCHDIR("0"):'Condition Proima droite
137 GOTO 1300:'Vers moteur X8 Droite
138 '
140 'DIRECTION BAS DROITE X8********
142 RETURN
144 '
150 'DIRECTION BAS X8***************
152 RETURN
154 '
160 'DIRECTION BAS GAUCHE X8********
162 RETURN
164 '
170 'DIRECTION GAUCHE X8************
171 VA=256:'Scroll de droite a gauche
172 VB=256:'Scroll de droite a gauche
173 VG=256:'Scroll de droite a gauche
174 II=&HE:'Repertoire des Bribes Prima
175 I=&HE:'Repertoire Prima
176 CALLCHDIR("F"):CALLCHDIR("F"):'Condition Prima Gauche
177 GOTO 1320:'Vers moteur X8 Gauche
178 '
180 'DIRECTION GAUCHE HAUT X8*******
182 RETURN
184 SCREEN 0:PRINT"SORTIE 184
185 '
1300 'DIRECTION DROITE ET GAUCHE************
-10310 CALLCHDIR("0"):'SCROLL VERS LA DROITE
-10320 S=STICK(0):ONS+1GOSUB100,110,120,10324,140,150,160,10322,180:GOTO10320
-10322 I=I+1AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("F"):GOTO1324
-10324 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10330 S=STICK(0):ONS+1GOSUB100,110,120,10334,140,150,160,10332,180:GOTO10330
-10332 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("F"):GOTO1334
-10334 VD=VD+8AND255:COPY"115"TO(VG,0):SETSCROLLVD
-10350 CALL CHDIR ("..")
-1310 CALLCHDIR("F"):'SCROLL VERS LA GAUCHE
-1320 S=STICK(0):ONS+1GOSUB100,110,120,1322,140,150,160,1324,180:GOTO1320
-1322 I=I-1AND&HF:GOSUB20300:VD=VG-256AND255:CALLCHDIR("0"):GOTO10324
-1324 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1330 S=STICK(0):ONS+1GOSUB100,110,120,1332,140,150,160,1334,180:GOTO1330
-1332 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("0")GOTO10334
-1334 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1350 CALL CHDIR ("..")
-10360 CALLCHDIR("1"):'SCROLL VERS LA DROITE
-10370 S=STICK(0):ONS+1GOSUB100,110,120,10374,140,150,160,10372,180:GOTO10370
-10372 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("E"):GOTO1374
-10374 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10380 S=STICK(0):ONS+1GOSUB100,110,120,10384,140,150,160,10382,180:GOTO10380
-10382 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("E"):GOTO1384
-10384 VD=VD+8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-10400 CALL CHDIR ("..")
-1360 CALLCHDIR("E"):'SCROLL VERS LA GAUCHE
-1370 S=STICK(0):ONS+1GOSUB100,110,120,1372,140,150,160,1374,180:GOTO1370
-1372 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("1"):GOTO10374
-1374 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1380 S=STICK(0):ONS+1GOSUB100,110,120,1382,140,150,160,1384,180:GOTO1380
-1382 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("1"):GOTO10384
-1384 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1400 CALL CHDIR ("..")
-10410 CALLCHDIR("2"):'SCROLL VERS LA DROITE
-10420 S=STICK(0):ONS+1GOSUB100,110,120,10424,140,150,160,10422,180:GOTO10420
-10422 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("D"):GOTO1424
-10424 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10430 S=STICK(0):ONS+1GOSUB100,110,120,10434,140,150,160,10432,180:GOTO10430
-10432 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("D"):GOTO1434
-10434 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
-10450 CALL CHDIR ("..")
-1410 CALLCHDIR("D"):'SCROLL VERS LA GAUCHE
-1420 S=STICK(0):ONS+1GOSUB100,110,120,1422,140,150,160,1424,180:GOTO1420
-1422 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("2"):GOTO10424
-1424 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1430 S=STICK(0):ONS+1GOSUB100,110,120,1432,140,150,160,1434,180:GOTO1430
-1432 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("2"):GOTO10434
-1434 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1450 CALL CHDIR ("..")
-10460 CALLCHDIR("3"):'SCROLL VERS LA DROITE
-10470 S=STICK(0):ONS+1GOSUB100,110,120,10474,140,150,160,10472,180:GOTO10470
-10472 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("C"):GOTO1474
-10474 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10480 S=STICK(0):ONS+1GOSUB100,110,120,10484,140,150,160,10482,180:GOTO10480
-10482 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("C"):GOTO1484
-10484 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
-10500 CALL CHDIR ("..")
-1460 CALLCHDIR("C"):'SCROLL VERS LA GAUCHE
-1470 S=STICK(0):ONS+1GOSUB100,110,120,1472,140,150,160,1474,180:GOTO1470
-1472 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("3"):GOTO10474
-1474 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1480 S=STICK(0):ONS+1GOSUB 100,110,120,1482,140,150,160,1484,180:GOTO1480
-1482 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("3"):GOTO10484
-1484 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1500 CALLCHDIR("..")
-10510 CALLCHDIR("4"):'SCROLL VERS LA DROITE
-10520 S=STICK(0):ONS+1GOSUB100,110,120,10524,140,150,160,10522,180:GOTO10520
-10522 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("B"):GOTO1524
-10524 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10530 S=STICK(0):ONS+1GOSUB100,110,120,10534,140,150,160,10332,180:GOTO10530
-10532 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("B"):GOTO1534
-10534 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
-10550 CALL CHDIR ("..")
-1510 CALLCHDIR("B"):'SCROLL VERS LA GAUCHE
-1520 S=STICK(0):ONS+1GOSUB100,110,120,1522,140,150,160,1524,180:GOTO1520
-1522 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("4"):GOTO10524
-1524 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1530 S=STICK(0):ONS+1GOSUB100,110,120,1532,140,150,160,1534,180:GOTO1530
-1532 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("4"):GOTO10534
-1534 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1550 CALLCHDIR("..")
-10560 CALLCHDIR("5"):'SCROLL VERS LA DROITE
-10570 S=STICK(0):ONS+1GOSUB100,110,120,10574,140,150,160,10572,180:GOTO10570
-10572 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("A"):GOTO1574
-10574 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10580 S=STICK(0):ONS+1GOSUB100,110,120,10584,140,150,160,10582,180:GOTO10580
-10582 VG=VD+255AND255:CALLCHDIR(".."):CALLCHDIR("A"):GOTO1584
-10584 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
-10600 CALL CHDIR ("..")
-1560 CALLCHDIR("A"):'SCROLL VERS LA GAUCHE
-1570 S=STICK(0):ONS+1GOSUB100,110,120,1572,140,150,160,1574,180:GOTO1570
-1572 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("5"):GOTO10574
-1574 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1580 S=STICK(0):ONS+1GOSUB 100,110,120,1582,140,150,160,1584,180:GOTO1580
-1582 VG=VD-256AND255:CALLCHDIR(".."):CALLCHDIR("5"):GOTO10584
-1584 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1600 CALLCHDIR("..")
-10610 CALLCHDIR("6"):'SCROLL VERS LA DROITE
-10620 S=STICK(0):ONS+1GOSUB100,110,120,10624,140,150,160,10622,180:GOTO10620
-10622 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("9"):GOTO1624
-10624 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10630 S=STICK(0):ONS+1GOSUB100,110,120,10634,140,150,160,10632,180:GOTO10630
-10632 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("9"):GOTO1634
-10634 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
-10650 CALL CHDIR ("..")
-1610 CALLCHDIR("9"):'SCROLL VERS LA GAUCHE
-1620 S=STICK(0):ONS+1GOSUB100,110,120,1622,140,150,160,1624,180:GOTO1620
-1622 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("6"):GOTO10624
-1624 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1630 S=STICK(0):ONS+1GOSUB 100,110,120,1632,140,150,160,1634,180:GOTO1630
-1632 VG=VD-256AND255:CALLCHDIR(".."):CALLCHDIR("6"):GOTO10634
-1634 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1650 CALLCHDIR("..")
-10660 CALLCHDIR("7"):'SCROLL VERS LA DROITE
-10670 S=STICK(0):ONS+1GOSUB100,110,120,10674,140,150,160,10672,180:GOTO10670
-10672 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("8"):GOTO1674
-10674 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10680 S=STICK(0):ONS+1GOSUB100,110,120,10684,140,150,160,10682,180:GOTO10680
-10682 VG=VD-256AND255:CALLCHDIR(".."):CALLCHDIR("8"):GOTO1684
-10684 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
-10700 CALL CHDIR("..")
-1660 CALLCHDIR("8"):'SCROLL VERS LA GAUCHE
-1670 S=STICK(0):ONS+1GOSUB100,110,120,1672,140,150,160,1674,180:GOTO1670
-1672 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("7"):GOTO10674
-1674 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1680 S=STICK(0):ONS+1GOSUB 100,110,120,1682,140,150,160,1684,180:GOTO1680
-1682 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("7"):GOTO10684
-1684 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1700 CALLCHDIR("..")
-10710 CALLCHDIR("8"):'SCROLL VERS LA DROITE
-10720 S=STICK(0):ONS+1GOSUB100,110,120,10724,140,150,160,10722,180:GOTO10720
-10722 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("7"):GOTO1724
-10724 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10730 S=STICK(0):ONS+1GOSUB100,110,120,10734,140,150,160,10732,180:GOTO10730
-10732 VG=VD-256AND255:CALLCHDIR(".."):CALLCHDIR("7"):GOTO1734
-10734 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
-10750 CALL CHDIR ("..")
-1710 CALLCHDIR("7"):'SCROLL VERS LA GAUCHE
-1720 S=STICK(0):ONS+1GOSUB100,110,120,1722,140,150,160,1724,180:GOTO1720
-1722 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("8"):GOTO10724
-1724 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1730 S=STICK(0):ONS+1GOSUB 100,110,120,1732,140,150,160,1734,180:GOTO1730
-1732 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("8"):GOTO10734
-1734 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1750 CALLCHDIR("..")
-10760 CALLCHDIR("9"):'SCROLL VERS LA DROITE
-10770 S=STICK(0):ONS+1GOSUB100,110,120,10774,140,150,160,10772,180:GOTO10770
-10772 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("6"):GOTO1774
-10774 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10780 S=STICK(0):ONS+1GOSUB100,110,120,10784,140,150,160,10782,180:GOTO10780
-10782 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("6"):GOTO1784
-10784 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
-10800 CALL CHDIR ("..")
-1760 CALLCHDIR("6"):'SCROLL VERS LA GAUCHE
-1770 S=STICK(0):ONS+1GOSUB100,110,120,1772,140,150,160,1774,180:GOTO1770
-1772 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("9"):GOTO10774
-1774 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1780 S=STICK(0):ONS+1GOSUB 100,110,120,1782,140,150,160,1784,180:GOTO1780
-1782 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("9"):GOTO10784
-1784 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1800 CALLCHDIR("..")
-10810 CALLCHDIR("A"):'SCROLL VERS LA DROITE
-10820 S=STICK(0):ONS+1GOSUB100,110,120,10824,140,150,160,10822,180:GOTO10820
-10822 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("5"):GOTO1824
-10824 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
-10830 S=STICK(0):ONS+1GOSUB100,110,120,10334,140,150,160,10832,180:GOTO10830
-10832 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("5"):GOTO1834
-10834 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
-10850 CALL CHDIR ("..")
-1810 CALLCHDIR("5"):'SCROLL VERS LA GAUCHE
-1820 S=STICK(0):ONS+1GOSUB100,110,120,1822,140,150,160,1824,180:GOTO1820
-1822 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("A"):GOTO10824
-1824 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
-1830 S=STICK(0):ONS+1GOSUB 100,110,120,1832,140,150,160,1834,180:GOTO1830
-1832 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("A"):GOTO10834
-1834 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
-1850 CALLCHDIR("..")
*10860 CALLCHDIR("B"):'SCROLL VERS LA DROITE
*10870 S=STICK(0):ONS+1GOSUB100,110,120,10374,140,150,160,10372,180:GOTO10370
*10872 VG=VD-8AND255:CALLCHDIR(".."):CALLCHDIR("4"):GOTO2074
*10874 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
*10880 S=STICK(0):ONS+1GOSUB100,110,120,10334,140,150,160,10332,180:GOTO10380
*10882 VG=VD-8AND255:CALLCHDIR(".."):CALLCHDIR("4"):GOTO2084
*10884 VD=VD+8AND255:COPY"115"TO(VG,0):SETSCROLLVG
*10900 CALL CHDIR ("..")
1860 CALLCHDIR("4"):'SCROLL VERS LA GAUCHE
1870 S=STICK(0):ONS+1GOSUB100,110,120,10874,140,150,160,1874,180:GOTO1870
1872 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("B"):GOTO10774
1874 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
1880 S=STICK(0):ONS+1GOSUB 100,110,120,10884,140,150,160,1884,180:GOTO1880
1882 VD=VG-256AND255:CALLCHDIR(".."):CALLCHDIR("B"):GOTO10784
1884 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
1900 CALLCHDIR("..")
1910 CALLCHDIR("3")
1920 S=STICK(0):ONS+1GOSUB100,110,120,10924,140,150,160,1924,180:GOTO1920
1924 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
1930 S=STICK(0):ONS+1GOSUB 100,110,120,10934,140,150,160,1934,180:GOTO1930
1934 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
1950 CALLCHDIR("..")
1960 CALLCHDIR("2")
1970 S=STICK(0):ONS+1GOSUB100,110,120,10974,140,150,160,1974,180:GOTO1970
1974 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
1980 S=STICK(0):ONS+1GOSUB 100,110,120,10984,140,150,160,1984,180:GOTO1980
1984 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
2000 CALLCHDIR("..")
2010 CALLCHDIR("1")
2020 S=STICK(0):ONS+1GOSUB100,110,120,20024,140,150,160,2024,180:GOTO2020
2024 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
2030 S=STICK(0):ONS+1GOSUB 100,110,120,20034,140,150,160,2034,180:GOTO2030
2034 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
2050 CALLCHDIR("..")
2060 CALLCHDIR("0")
2070 S=STICK(0):ONS+1GOSUB100,110,120,20074,140,150,160,2074,180:GOTO2070
2072 VD=VG-256AND255:I=I-1AND&HF:GOSUB20300:CALLCHDIR("?"):GOTO????
2074 VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG
2080 S=STICK(0):ONS+1GOSUB 100,110,120,20084,140,150,160,2084,180:GOTO2080
2082 VD=VG-256AND255:I=I-1AND&HF:GOSUB20300:CALLCHDIR("?"):GOTO????
2084 VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG
2100 CALLCHDIR(".."):CALLCHDIR("..")
2580 'choix DU repertoire DES repertoires de Bribes
2582 IF I=&HFTHENCALLCHDIR("F"):I=&HE:GOTO1310
2584 IF I=&HETHENCALLCHDIR("E"):I=&HD:GOTO1310
2586 IF I=&HDTHENCALLCHDIR("D"):I=&HC:GOTO1310
2588 IF I=&HCTHENCALLCHDIR("C"):I=&HB:GOTO1310
2590 IF I=&HBTHENCALLCHDIR("B"):I=&HA:GOTO1310
2592 IF I=&HATHENCALLCHDIR("A"):I=&H9:GOTO1310
2594 IF I=&H9THENCALLCHDIR("9"):I=&H8:GOTO1310
2596 IF I=&H8THENCALLCHDIR("8"):I=&H7:GOTO1310
2598 IF I=&H7THENCALLCHDIR("7"):I=&H6:GOTO1310
2600 IF I=&H6THENCALLCHDIR("6"):I=&H5:GOTO1310
2602 IF I=&H5THENCALLCHDIR("5"):I=&H4:GOTO1310
2604 IF I=&H4THENCALLCHDIR("4"):I=&H3:GOTO1310
2606 IF I=&H3THENCALLCHDIR("3"):I=&H2:GOTO1310
2608 IF I=&H2THENCALLCHDIR("2"):I=&H1:GOTO1310
2610 IF I=&H1THENCALLCHDIR("1"):I=&H0:GOTO1310
2612 IF I=&H0THENCALLCHDIR("0"):I=&HF:GOTO1310
2613 '
13000 'DIRECTION DROITE X8************
*10910 CALLCHDIR("C")
*10920 S=STICK(0):ONS+1GOSUB100,110,120,10424,140,150,160,10422,180:GOTO10420
*10922 VG=VD-8AND255:CALLCHDIR(".."):CALLCHDIR("1"):GOTO2024
*10924 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
*10930 S=STICK(0):ONS+1GOSUB100,110,120,10334,140,150,160,10332,180:GOTO10430
*10932 VG=VD-8AND255:CALLCHDIR(".."):CALLCHDIR("0"):GOTO2034
*10934 VD=VD+8AND255:COPY"115"TO(VG,0):SETSCROLLVG
*10950 CALL CHDIR ("..")
*10960 CALLCHDIR("D")
*10970 S=STICK(0):ONS+1GOSUB100,110,120,10424,140,150,160,10422,180:GOTO10420
*10972 VG=VD-8AND255:CALLCHDIR(".."):CALLCHDIR("1"):GOTO2024
*10974 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
*10980 S=STICK(0):ONS+1GOSUB100,110,120,10334,140,150,160,10332,180:GOTO10430
*10982 VG=VD-8AND255:CALLCHDIR(".."):CALLCHDIR("0"):GOTO2034
*10984 VD=VD+8AND255:COPY"115"TO(VG,0):SETSCROLLVG
*11000 CALL CHDIR ("..")
*11010 CALLCHDIR("E")
*11020 S=STICK(0):ONS+1GOSUB100,110,120,10374,140,150,160,10372,180:GOTO11020
*11022 VG=VD-8AND255:CALLCHDIR(".."):CALLCHDIR("0"):GOTO2074
*11024 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
*11030 S=STICK(0):ONS+1GOSUB100,110,120,10334,140,150,160,10332,180:GOTO11030
*11032 VG=VD-8AND255:CALLCHDIR(".."):CALLCHDIR("0"):GOTO2084
11034 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
11050 CALL CHDIR ("..")
11110 CALLCHDIR("F")
11120 S=STICK(0):ONS+1GOSUB100,110,120,11124,140,150,160,11122,180:GOTO11120
11022 VG=VD+256AND255:CALLCHDIR(".."):CALLCHDIR("1"):GOTO2024
11124 VD=VD+8AND255:COPY"111"TO(VD,0):SETSCROLLVD
11130 S=STICK(0):ONS+1GOSUB100,110,120,11334,140,150,160,11332,180:GOTO11130
11132 VG=VD-8AND255:CALLCHDIR(".."):CALLCHDIR("0"):GOTO2034
11134 VD=VD+8AND255:COPY"115"TO(VD,0):SETSCROLLVD
11150 CALL CHDIR ("..")
*2580 'choix DU repertoire DES repertoires de Bribes
*2582 IF I=&HFTHENCALLCHDIR("F"):I=&HE:GOTO1310
*2584 IF I=&HETHENCALLCHDIR("E"):I=&HD:GOTO1310
*2586 IF I=&HDTHENCALLCHDIR("D"):I=&HC:GOTO1310
*2588 IF I=&HCTHENCALLCHDIR("C"):I=&HB:GOTO1310
*2590 IF I=&HBTHENCALLCHDIR("B"):I=&HA:GOTO1310
*2592 IF I=&HATHENCALLCHDIR("A"):I=&H9:GOTO1310
*2594 IF I=&H9THENCALLCHDIR("9"):I=&H8:GOTO1310
*2596 IF I=&H8THENCALLCHDIR("8"):I=&H7:GOTO1310
*2598 IF I=&H7THENCALLCHDIR("7"):I=&H6:GOTO1310
*2600 IF I=&H6THENCALLCHDIR("6"):I=&H5:GOTO1310
*2602 IF I=&H5THENCALLCHDIR("5"):I=&H4:GOTO1310
*2604 IF I=&H4THENCALLCHDIR("4"):I=&H3:GOTO1310
*2606 IF I=&H3THENCALLCHDIR("3"):I=&H2:GOTO1310
*2608 IF I=&H2THENCALLCHDIR("2"):I=&H1:GOTO1310
*2610 IF I=&H1THENCALLCHDIR("1"):I=&H0:GOTO1310
*2612 IF I=&H0THENCALLCHDIR("0"):I=&HF:GOTO1310
*2613 '
20299 'Ouverture des Repertoires de répertoires
20300 IFI=&H0THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("0"):RETURN
20301 IFI=&H1THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("1"):RETURN
20302 IFI=&H2THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("2"):RETURN
20303 IFI=&H3THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("3"):RETURN
20304 IFI=&H4THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("4"):RETURN
20305 IFI=&H5THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("5"):RETURN
20306 IFI=&H6THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("6"):RETURN
20307 IFI=&H7THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("7"):RETURN
20308 IFI=&H8THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("8"):RETURN
20309 IFI=&H9THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("9"):RETURN
20310 IFI=&HATHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("A"):RETURN
20311 IFI=&HBTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("B"):RETURN
20312 IFI=&HCTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("C"):RETURN
20313 IFI=&HDTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("D"):RETURN
20314 IFI=&HETHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("E"):RETURN
20315 IFI=&HFTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("F"):RETURN
10331 'Passerelle d'inversion des bribes natives Gauche vers la Droite
10332 II=II+1AND&HF:GOTO1332
10334 II=II+1AND&HF:GOTO1334
10336 II=II+1AND&HF:GOTO1336
10338 II=II+1AND&HF:GOTO1338
10340 II=II+1AND&HF:GOTO1340
10342 II=II+1AND&HF:GOTO1342
10344 II=II+1AND&HF:GOTO1344
10346 II=II+1AND&HF:GOTO1346
10348 II=II+1AND&HF:GOTO1348
10350 II=II+1AND&HF:GOTO1350
10352 II=II+1AND&HF:GOTO1352
10354 II=II+1AND&HF:GOTO1354
10356 II=II+1AND&HF:GOTO1356
10358 II=II+1AND&HF:GOTO1358
10360 II=II+1AND&HF:GOTO1360
10362 II=II+1AND&HF:GOTO1362
10381 'Passerelle d'inversion des bribes natives Droite vers la Gauche
10382 II=II+15AND&hF:GOTO1382
10384 II=II+15AND&HF:GOTO1384
10386 II=II+15AND&HF:GOTO1386
10388 II=II+15AND&HF:GOTO1388
10390 II=II+15AND&HF:GOTO1390
10392 II=II+15AND&HF:GOTO1392
10394 II=II+15AND&HF:GOTO1394
10396 II=II+15AND&HF:GOTO1396
10398 II=II+15AND&HF:GOTO1398
10400 II=II+15AND&HF:GOTO1400
10402 II=II+15AND&HF:GOTO1402
10404 II=II+15AND&HF:GOTO1404
10406 II=II+15AND&HF:GOTO1406
10408 II=II+15AND&HF:GOTO1408
10410 II=II+15AND&HF:GOTO1410
10412 II=II+15AND&HF:GOTO1412
10499 'Passerelle d'inversion des bribes 31 et 32 natives Droite vers la Gauche
10504 II=II+15AND&HF:GOTO1504
10514 II=II+15AND&HF:I=I+15AND&HF:GOTO1581
En attendant de remettre les mains dans mon moteur de bribes verticales, que diriez vous d'un scroll en SCREEN7 avec du compositing en arrière plan
(Fait entre deux tomates lol)
Une dédicace à notre ami TurboSeb grand Fan du compositing sur sony évidemment...
https://www.youtube.com/watch?v=iM1EdJLL_OE
Voivi la source arcade:
Vous pouvez utiliser le mode graphique [VDP Seumlement] ou encore [VDP+Superimpose]
Pour utiliser le mode Compositing, Modifiez les lignes 20 et 30 de CALPHA.SC7 et CBETA.SC7 en ALPHA.SC7 et BETA.SC7.
Le "Fond Bleu" figurant des montagnes est dans le disque et se nomme CSTAGE1.BMP
Il suffit de désigner cette image comme fond vidéo de votre source vidéo ou caméra virtuelle.
Pour éliminer les tremblements sur BluMSx, activer le mode => DE-ENTERLACE en faisant d'abord apparaitre le tableau de bord [VIDEO] en lieu et place du tableau de bord [STATUT] ou [CONTROL]
Voici le Disque: Plsu de place sur mon compte MsxVillage
Edité par
igal
Le 18/01/2016 à 17h34
(Fait entre deux tomates lol)
Une dédicace à notre ami TurboSeb grand Fan du compositing sur sony évidemment...
https://www.youtube.com/watch?v=iM1EdJLL_OE
Voivi la source arcade:
Vous pouvez utiliser le mode graphique [VDP Seumlement] ou encore [VDP+Superimpose]
Pour utiliser le mode Compositing, Modifiez les lignes 20 et 30 de CALPHA.SC7 et CBETA.SC7 en ALPHA.SC7 et BETA.SC7.
Le "Fond Bleu" figurant des montagnes est dans le disque et se nomme CSTAGE1.BMP
Il suffit de désigner cette image comme fond vidéo de votre source vidéo ou caméra virtuelle.
Pour éliminer les tremblements sur BluMSx, activer le mode => DE-ENTERLACE en faisant d'abord apparaitre le tableau de bord [VIDEO] en lieu et place du tableau de bord [STATUT] ou [CONTROL]
Code TEXT :
0 'SAVE"CAVE7V01.asc",A 10 SCREEN7:COLOR0,0,1 20 SETPAGE0,0:BLOAD"CALPHA.sc7",S:COLOR=RESTORE 30 SETPAGE1,1:BLOAD"CBETA.SC7",S:COLOR=(0,0,0,0) 40 SETPAGE0,0 50 VA=0:B=1:VDP(10)=28 60 COPY(A,0)-(B,191),1TO(A,0),0 70 VA=VA+1:A=A+2:B=B+2:IFVA=256THEN100 80 SETSCROLLVA 90 GOTO60 100 GOTO100
Voici le Disque: Plsu de place sur mon compte MsxVillage
Edité par
igal
Le 18/01/2016 à 17h34
Merci Eric.
J'ai préparé les mappes de tous les stages de ce jeu qui tiennent sur 1024X212 que j'ai réparti sur 2 pages en SCREEN 6.
Je voulais "encapsuler" les deux images dans une seule image entrelacée, mais j'ai pas vraiment compris comment faire.
J'ai essayé de modifié le petit programme de GDX mais je trouve pas les bons paramètres
J'ai préparé les mappes de tous les stages de ce jeu qui tiennent sur 1024X212 que j'ai réparti sur 2 pages en SCREEN 6.
Je voulais "encapsuler" les deux images dans une seule image entrelacée, mais j'ai pas vraiment compris comment faire.
J'ai essayé de modifié le petit programme de GDX mais je trouve pas les bons paramètres
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie