Space Manbow map.

Página 5/5
1 | 2 | 3 | 4 |

Por igal

Master (216)

Imagen del igal

18-01-2018, 09:42

@Manuel: Thank for help only, have some problèmes.

The théorical process of this engine it's:
10 DR = &H0
4700 Go to the ("DR") directory
4710 Copy"1":Gosub, Copy"2":Gosub, copy"3":Gosub:..etc...Copy"8":Gosub
4720 DR = DR + &H1 AND &HF : IF DR > 0 Then GOTO 4700
4730 go to other part of engine Smile

@Grauw: The screen 12 it's for mature public only lol

Por JohnHassink

Ambassador (5591)

Imagen del JohnHassink

18-01-2018, 10:32

@ igal: I love your scrolling tests! Especially that Out Zone stuff I found really amazing looking.

Por Wolverine_nl

Paragon (1159)

Imagen del Wolverine_nl

18-01-2018, 12:06

Thats looks very good indeed, wow!

Por igal

Master (216)

Imagen del igal

18-01-2018, 13:10

@Emanuel: Here it's an incomplete reduction of the listing only it's work perfectly.

4700 CALL CHDIR ("0")
4710 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
4720 PC=PC+1:IFPC<9THEN4710ELSEPC=1
4790 CALL CHDIR ("..")

4800 CALL CHDIR ("1")
4810 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
4820 PC=PC+1:IFPC<9THEN4810ELSEPC=1
4890 CALL CHDIR ("..")

4900 CALL CHDIR ("2")
4910 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
4920 PC=PC+1:IFPC<9THEN4910ELSEPC=1
4990 CALL CHDIR ("..")

5000 CALL CHDIR ("3")
5010 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
5020 PC=PC+1:IFPC<9THEN5010ELSEPC=1
5090 CALL CHDIR ("..")

5100 CALL CHDIR ("4")
5110 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
5120 PC=PC+1:IFPC<9THEN5110ELSEPC=1
5190 CALL CHDIR ("..")

5200 CALL CHDIR ("5")
5210 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
5220 PC=PC+1:IFPC<9THEN5210ELSEPC=1
5290 CALL CHDIR ("..")

5300 CALL CHDIR ("6")
5310 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
5320 PC=PC+1:IFPC<9THEN5310ELSEPC=1
5390 CALL CHDIR ("..")

5400 CALL CHDIR ("7")
5410 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
5420 PC=PC+1:IFPC<9THEN5410ELSEPC=1
5490 CALL CHDIR ("..")

5500 CALL CHDIR ("8")
5510 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
5520 PC=PC+1:IFPC<9THEN5510ELSEPC=1
5590 CALL CHDIR ("..")

5600 CALL CHDIR ("9")
5610 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
5620 PC=PC+1:IFPC<9THEN5610ELSEPC=1
5690 CALL CHDIR ("..")

5700 CALL CHDIR ("A")
5710 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
5720 PC=PC+1:IFPC<9THEN5710ELSEPC=1
5790 CALL CHDIR ("..")

5800 CALL CHDIR ("B")
5810 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
5820 PC=PC+1:IFPC<9THEN5810ELSEPC=1
5890 CALL CHDIR ("..")

5900 CALL CHDIR ("C")
5910 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
5920 PC=PC+1:IFPC<9THEN5910ELSEPC=1
5990 CALL CHDIR ("..")

6000 CALL CHDIR ("D")
6010 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
6020 PC=PC+1:IFPC<9THEN6010ELSEPC=1
6090 CALL CHDIR ("..")

6100 CALL CHDIR ("E")
6110 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
6120 PC=PC+1:IFPC<9THEN6110ELSEPC=1
6190 CALL CHDIR ("..")

6200 CALL CHDIR ("F")
6210 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
6220 PC=PC+1:IFPC<9THEN6210ELSEPC=1
6290 CALL CHDIR ("..")

Prerequisites: DR = -1: PC = 1
Warning: The DR (directory) progression it's in Hexadécimal 0 => F

10 DR=DR+&H1AND&HF: CALL CHDIR (" DR value")
20 COPY RIGHT$(STR$(PC),1)TO(VA,HA): ONS+1GOSUB 800,810,820,830,840,850,860,870,880
30  PC=PC+1 : IF PC<9 THEN 20 ELSE GOTO 40
40 PC= 1: CALL CHDIR ("..")
50  IF DR < &HF THEN GOTO 10 ELSE GOTO 60
60 END

@JohnHassink: it's just a bmp2msx conversion and i make a little program for to prepare snippets to display on the screen by Bload "snatches", s without needing coordinates or special features, just Bload "snatches", s

Have you see the "Vram Flash Pipline"?
https://www.youtube.com/watch?v=9IwbPFjOOAE
It's a copy screen in the fly with an MSX 8280. The images are numérised on the fly and scrolled with a big speed :)
It's work also in screen 5 and 7 wee need to calibrate the color panel.
The color choice it's automatic with screen 8

Por Manuel

Ascended (18254)

Imagen del Manuel

19-01-2018, 00:00

igal, why not use FOR loops? Much easier than controlling loops yourself really...

4690 FOR DR=0 to 15 
4700 CALL CHDIR (HEX$(DR))
4705 FOR PC=1 TO 8
4710 COPY RIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
4720 NEXT PC
4790 CALL CHDIR ("..")
4800 NEXT DR

(mostly untested, but you get the point I hope.) Looks like I forgot the NEXT DR last time... and using HEX$ is a bit easier than what I did last time too.

Por gdx

Enlighted (4828)

Imagen del gdx

19-01-2018, 00:40

Probably because it's faster without FOR loops. Otherwise he can the following loop that is a bit faster.

4690 FOR DR=0 to 15 
4700 CALL CHDIR (HEX$(DR))
4705 FOR PC=1 TO 8
4710 COPY HEX$(PC)TO(VA,HA):ONS+1GOSUB 800,810,820,830,840,850,860,870,880
4720 NEXT PC
4790 CALL CHDIR ("..")
4800 NEXT DR

Por Wolverine_nl

Paragon (1159)

Imagen del Wolverine_nl

19-01-2018, 09:22

If you can avoid loops, you should, but I agree on the part about it being really lotsa work doing it without. Lot of work probably solved with a notepad on a PC and copy pasting and only changing values, still allot of work.

Por igal

Master (216)

Imagen del igal

19-01-2018, 13:42

Thank you all Smile
The solution of Gdx work perfectly Smile
This is my new listing with the continuation of my program Smile

50 CD=-1: ' prerequisite because the first directory is called ZERO
4700 CD=CD+1:CALL CHDIR(HEX$(CD))
4710 COPY RIGHT$(STR$(PC),1)TO(VA,HA)
4715 ONS+1GOSUB 800,810,820,830,840,850,860,870,880
4720 PC=PC+1:IFPC<9THEN4710ELSEPC=1
4790 CALL CHDIR (".."):IFCD<&HFTHEN4700
5000 CD=-1:' The program can continue and if i want go to à directory, the first it's ZERO 

@Manuel: Thank tou very much for yor help Smile

Por Manuel

Ascended (18254)

Imagen del Manuel

19-01-2018, 19:04

Still avoiding FOR loops, igal? Why? Is it slower??

Por igal

Master (216)

Imagen del igal

26-01-2018, 10:57

Hi Manuel. Sorry to answer that now.
I have the impression that IF..THEN is a little faster but above all, I can better reshape the lisiting by viewing IF THEN that FORx ...

Thank you all for your precious help (^_^)

Here is the listing as I put it back flat.
Nb: The redundancy of lines 1000 to 2580 is voluntary since I planned to integrate a change of direction of the scrolling with a set of adventure games.
The Lines 2600 to 2750 should not be reduced either because I have to add specific behaviors that change every 256 pixels (ie all pages).

0        GOTO 10010:'teste ok
1 S=STICK(0):VA=VA+2:SETSCROLLVA:VDP(24)=(VDP(24)+DR+DR*(HS=VDP(24)))AND255:RETURN
2 S=STICK(0):VA=VA+2:SETSCROLLVA:VDP(24)=(VDP(24)+DR+DR*(HS=VDP(24)))AND255:Y=Y-4:PUTSPRITE0,(X,Y),15,0:RETURN
3 S=STICK(0):VA=VA+2:SETSCROLLVA:VDP(24)=(VDP(24)+DR+DR*(HS=VDP(24)))AND255:Y=Y-4:X=X+4:PUTSPRITE0,(X,Y),15,0:RETURN
4 S=STICK(0):VA=VA+2:SETSCROLLVA:VDP(24)=(VDP(24)+DR+DR*(HS=VDP(24)))AND255:X=X+4:PUTSPRITE0,(X,Y),15,0:RETURN
5 S=STICK(0):VA=VA+2:SETSCROLLVA:VDP(24)=(VDP(24)+DR+DR*(HS=VDP(24)))AND255:Y=Y+4:X=X+4:PUTSPRITE0,(X,Y),15,0:RETURN
6 S=STICK(0):VA=VA+2:SETSCROLLVA:VDP(24)=(VDP(24)+DR+DR*(HS=VDP(24)))AND255:Y=Y+4:PUTSPRITE0,(X,Y),15,0:RETURN
7 S=STICK(0):VA=VA+2:SETSCROLLVA:VDP(24)=(VDP(24)+DR+DR*(HS=VDP(24)))AND255:Y=Y+4:X=X-4:PUTSPRITE0,(X,Y),15,0:RETURN
8 S=STICK(0):VA=VA+2:SETSCROLLVA:VDP(24)=(VDP(24)+DR+DR*(HS=VDP(24)))AND255:X=X-4:PUTSPRITE0,(X,Y),15,0:RETURN
9 S=STICK(0):VA=VA+2:SETSCROLLVA:VDP(24)=(VDP(24)+DR+DR*(HS=VDP(24)))AND255:X=X-4:Y=Y-4:PUTSPRITE0,(X,Y),15,0:RETURN
11 'prérequis
12  _CHDIR("E:\STAGE10"):CD=1:VA=0:HA=12:GOTO1000
900 'Boucle du moteur
1000 _CHDIR(CHR$(65+CD))
1010 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1020 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1030 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1040 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1050 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1060 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1070 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1080 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1090 PC=0
1100 _CHDIR(CHR$(65+CD))
1110 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1120 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1130 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1140 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1150 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1160 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1170 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1180 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1190 PC=0
1200 _CHDIR(CHR$(65+CD))
1210 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1220 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1230 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1240 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1250 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1260 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1270 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1280 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1290 PC=0
1300 _CHDIR(CHR$(65+CD))
1310 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1320 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1330 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1340 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1350 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1360 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1370 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1380 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1390 PC=0
1400 _CHDIR(CHR$(65+CD))
1410 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1420 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1430 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1440 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1450 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1460 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1470 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1480 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1490 PC=0
1500 _CHDIR(CHR$(65+CD))
1510 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1520 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1530 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1540 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1550 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1560 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1570 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1580 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1590 PC=0
1600 _CHDIR(CHR$(65+CD))
1610 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1620 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1630 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1640 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1650 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1660 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1670 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1680 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1690 PC=0
1700 _CHDIR(CHR$(65+CD))
1710 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1720 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1730 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1740 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1750 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1760 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1770 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1780 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1790 PC=0
1800 _CHDIR(CHR$(65+CD))
1810 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1820 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1830 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1840 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1850 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1860 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1870 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1880 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1890 PC=0
1900 _CHDIR(CHR$(65+CD))
1910 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1920 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1930 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1940 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1950 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1960 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1970 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1980 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
1990 PC=0
2000 _CHDIR(CHR$(65+CD))
2010 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2020 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2030 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2040 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2050 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2060 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2070 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2080 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2090 PC=0
2100 _CHDIR(CHR$(65+CD))
2110 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2120 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2130 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2140 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2150 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2160 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2170 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2180 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2190 PC=0
2200 _CHDIR(CHR$(65+CD))
2210 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2220 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2230 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2240 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2250 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2260 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2270 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2280 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2290 PC=0
2300 _CHDIR(CHR$(65+CD))
2310 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2320 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2330 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2340 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2350 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2360 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2370 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2380 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2390 PC=0
2400 _CHDIR(CHR$(65+CD))
2410 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2420 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2430 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2440 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2450 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2460 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2470 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2480 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2490 PC=0
2500 _CHDIR(CHR$(65+CD))
2510 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2520 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2530 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2540 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2550 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2560 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2570 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2580 PC=PC+1:COPYRIGHT$(STR$(PC),1)TO(VA,HA):ONS+1GOSUB1,2,3,4,5,6,7,8,9
2590 PC=0
2599 CD=CD+1:VA=0:_CHDIR("E:\STAGE10"):IFCD=16THENCD=0
2600 IF CD=0THENHA=-20:DR=2:HS=0:GOTO1000
2610 IF CD=1THENHA=12:GOTO1000
2620 IF CD=2THENHA=12:GOTO1000
2630 IF CD=3THENHA=12:GOTO1000
2640 IF CD=4THENHA=12:GOTO1000
2650 IF CD=5THENHA=12:GOTO1000
2660 IF CD=6THENHA=48:GOTO1000
2670 IF CD=7THENHA=48:GOTO1000
2680 IF CD=8THENHA=48:GOTO1000
2690 IF CD=9THENHA=48:GOTO1000
2700 IF CD=10THENHA=48:GOTO1000
2710 IF CD=11THENHA=48:GOTO1000
2720 IF CD=12THENHA=2:GOTO1000
2730 IF CD=13THENHA=-20:DR=-2:HS=64:GOTO1000
2740 IF CD=14THENHA=-20:GOTO1000
2750 IF CD=15THENHA=-20:GOTO1000

10010    'SAVE"SPMA0044.asc",A

10020 'PLAYER DE BRIBES VERICALES

10030 'Mode graphique
10040 DEFINT A-Z:SCREEN 5:COLOR1,1,0:SETADJUST(-2,8)

10050 'Chargement de la Page Alpha
10060 CALL CHDIR("STAGE10")
10070 BLOAD"0.SC5",S:COLOR = RESTORE
10080 SET PAGE 0,2:BLOAD"COMPLET.sc5",S:SETPAGE0,0
10090 VDP(10)=0:VDP(10)=VDP(10)AND2

10092 'VARIABLE DU HERO
10095 X=127:Y=145:PUTSPRITE0,(X,Y),15,0:'VA=0:CD=0:CV=0:PC=0

10097 'Premier input
10099 ONS+1GOTO 10100,10110,10120,10130,10140,10150,10160,10170,10180:GOTO10099
10100 S=STICK(0):GOTO10099
10110 S=STICK(0):Y=Y-4:PUTSPRITE0,(X,Y),15,0:GOTO10099
10120 VA=0:HA=0:HS=0:I=&H1:CALL CHDIR ("Z"):GOTO10300
10130 GOTO10300
10140 VA=0:HA=0:HS=0:I=&H1:CALL CHDIR ("Z"):GOTO10300
10150 S=STICK(0):Y=Y+4:PUTSPRITE0,(X,Y),15,0:GOTO10099
10160 VA=0:HA=0:HS=0:I=&HF:CALL CHDIR ("P"):GOTO11300
10170 VA=0:HA=0:HS=0:I=&HF:CALL CHDIR ("P"):GOTO11300
10180 VA=0:HA=0:HS=0:I=&HF:CALL CHDIR ("P"):GOTO11300
10300 GOTO 11:'Saut primaire

Here is the chip generator that allows to create the decorations to scroller:

10 'SAVE"GENSYL2P.ASC",A
20 'generateur de bribes d'images 128 X 2 verticales. 
22 'generateur par copy de bribes verticales.
30 ' Mode Graphique utilisé
32 VDP(10)=0: SCREEN 5
70 '
71 SETPAGE 0,0: CLS
73 CALL CHDIR ("STAGE10")
74 'BLOAD"0.SC5",S:COLOR=RESTORE:VDP(10)=VDP(10)AND2
76 '
78  BLOAD"P.sc5",S:COLOR=RESTORE:VDP(10)=VDP(10)AND280 'GOTO80
81 A=0:'debut de copy
89 Z=179:'fin de copy
90 'Creer repertoires de A a P et y générer 8 bribes.
100 CALL MKDIR ("P"):CALL CHDIR ("P")
101 COPY(0,A)-(1,Z),0TO"1"
102 COPY(2,A)-(3,Z),0TO"2"
103 COPY(4,A)-(5,Z),0TO"3"
104 COPY(6,A)-(7,Z),0TO"4"
105 COPY(8,A)-(9,Z),0TO"5"
106 COPY(10,A)-(11,Z),0TO"6"
107 COPY(12,A)-(13,Z),0TO"7"
108 COPY(14,A)-(15,Z),0TO"8"
109 'CALL CHDIR ("..")
110 CALL MKDIR ("P"):CALL CHDIR ("P")
111 COPY(16,A)-(17,Z),0 TO "1"
112 COPY(18,A)-(19,Z),0 TO "2"
113 COPY(20,A)-(21,Z),0 TO "3"
114 COPY(22,A)-(23,Z),0 TO "4"
115 COPY(24,A)-(25,Z),0 TO "5"
116 COPY(26,A)-(27,Z),0 TO "6"
117 COPY(28,A)-(29,Z),0 TO "7"
118 COPY(30,A)-(31,Z),0 TO "8"
119 'CALL CHDIR ("..")
120 CALL MKDIR ("P"):CALL CHDIR ("P")
121 COPY(32,A)-(33,Z),0 TO "1"
122 COPY(34,A)-(35,Z),0 TO "2"
123 COPY(36,A)-(37,Z),0 TO "3"
124 COPY(38,A)-(39,Z),0 TO "4"
125 COPY(40,A)-(41,Z),0 TO "5"
126 COPY(42,A)-(43,Z),0 TO "6"
127 COPY(44,A)-(45,Z),0 TO "7"
128 COPY(46,A)-(47,Z),0 TO "8"
129 'CALL CHDIR ("..")
130 CALL MKDIR ("P"):CALL CHDIR ("P")
131 COPY(48,A)-(49,Z),0 TO "1"
132 COPY(50,A)-(51,Z),0 TO "2"
133 COPY(52,A)-(53,Z),0 TO "3"
134 COPY(54,A)-(55,Z),0 TO "4"
135 COPY(56,A)-(57,Z),0 TO "5"
136 COPY(58,A)-(59,Z),0 TO "6"
137 COPY(60,A)-(61,Z),0 TO "7"
138 COPY(62,A)-(63,Z),0 TO "8"
139 'CALL CHDIR ("..")
140 CALL MKDIR ("P"):CALL CHDIR ("P")
141 COPY(64,A)-(65,Z),0 TO "1"
142 COPY(66,A)-(67,Z),0 TO "2"
143 COPY(68,A)-(69,Z),0 TO "3"
144 COPY(70,A)-(71,Z),0 TO "4"
145 COPY(72,A)-(73,Z),0 TO "5"
146 COPY(74,A)-(75,Z),0 TO "6"
147 COPY(76,A)-(77,Z),0 TO "7"
148 COPY(78,A)-(79,Z),0 TO "8"
149 'CALL CHDIR ("..")
150 CALL MKDIR ("P"):CALL CHDIR ("P")
151 COPY(80,A)-(81,Z),0 TO "1"
152 COPY(82,A)-(83,Z),0 TO "2"
153 COPY(84,A)-(85,Z),0 TO "3"
154 COPY(86,A)-(87,Z),0 TO "4"
155 COPY(88,A)-(89,Z),0 TO "5"
156 COPY(90,A)-(91,Z),0 TO "6"
157 COPY(92,A)-(93,Z),0 TO "7"
158 COPY(94,A)-(95,Z),0 TO "8"
159 'CALL CHDIR ("..")
160 CALL MKDIR ("P"):CALL CHDIR ("P")
161 COPY(96,A)-(97,Z),0 TO "1"
162 COPY(98,A)-(99,Z),0 TO "2"
163 COPY(100,A)-(101,Z),0 TO "3"
164 COPY(102,A)-(103,Z),0 TO "4"
165 COPY(104,A)-(105,Z),0 TO "5"
166 COPY(106,A)-(107,Z),0 TO "6"
167 COPY(108,A)-(109,Z),0 TO "7"
168 COPY(110,A)-(111,Z),0 TO "8"
169 'CALL CHDIR ("..")
170 CALL MKDIR ("P"):CALL CHDIR ("P")
171 COPY(112,A)-(113,Z),0 TO "1"
172 COPY(114,A)-(115,Z),0 TO "2"
173 COPY(116,A)-(117,Z),0 TO "3"
174 COPY(118,A)-(119,Z),0 TO "4"
175 COPY(120,A)-(121,Z),0 TO "5"
176 COPY(122,A)-(123,Z),0 TO "6"
177 COPY(124,A)-(125,Z),0 TO "7"
178 COPY(126,A)-(127,Z),0 TO "8"
179 'CALL CHDIR ("..")
180 CALL MKDIR ("P"):CALL CHDIR ("P")
181 COPY(128,A)-(129,Z),0 TO "1"
182 COPY(130,A)-(131,Z),0 TO "2"
183 COPY(132,A)-(133,Z),0 TO "3"
184 COPY(134,A)-(135,Z),0 TO "4"
185 COPY(136,A)-(137,Z),0 TO "5"
186 COPY(138,A)-(139,Z),0 TO "6"
187 COPY(140,A)-(141,Z),0 TO "7"
188 COPY(142,A)-(143,Z),0 TO "8"
189 'CALL CHDIR ("..")
190 CALL MKDIR ("P"):CALL CHDIR ("P")
191 COPY(144,A)-(145,Z),0 TO "1"
192 COPY(146,A)-(147,Z),0 TO "2"
193 COPY(148,A)-(149,Z),0 TO "3"
194 COPY(150,A)-(151,Z),0 TO "4"
195 COPY(152,A)-(153,Z),0 TO "5"
196 COPY(154,A)-(155,Z),0 TO "6"
197 COPY(156,A)-(157,Z),0 TO "7"
198 COPY(158,A)-(159,Z),0 TO "8"
199 'CALL CHDIR ("..")
200 CALL MKDIR ("P"):CALL CHDIR ("P")
201 COPY(160,A)-(161,Z),0 TO "1"
202 COPY(162,A)-(163,Z),0 TO "2"
203 COPY(164,A)-(165,Z),0 TO "3"
204 COPY(166,A)-(167,Z),0 TO "4"
205 COPY(168,A)-(169,Z),0 TO "5"
206 COPY(170,A)-(171,Z),0 TO "6"
207 COPY(172,A)-(173,Z),0 TO "7"
208 COPY(174,A)-(175,Z),0 TO "8"
209 'CALL CHDIR ("..")
210 CALL MKDIR ("P"):CALL CHDIR ("P")
211 COPY(176,A)-(177,Z),0 TO "1"
212 COPY(178,A)-(179,Z),0 TO "2"
213 COPY(180,A)-(181,Z),0 TO "3"
214 COPY(182,A)-(183,Z),0 TO "4"
215 COPY(184,A)-(185,Z),0 TO "5"
216 COPY(186,A)-(187,Z),0 TO "6"
217 COPY(188,A)-(189,Z),0 TO "7"
218 COPY(190,A)-(191,Z),0 TO "8"
219 'CALL CHDIR ("..")
220 CALL MKDIR ("P"):CALL CHDIR ("P")
221 COPY(192,A)-(193,Z),0 TO "1"
222 COPY(194,A)-(195,Z),0 TO "2"
223 COPY(196,A)-(197,Z),0 TO "3"
224 COPY(198,A)-(199,Z),0 TO "4"
225 COPY(200,A)-(201,Z),0 TO "5"
226 COPY(202,A)-(203,Z),0 TO "6"
227 COPY(204,A)-(205,Z),0 TO "7"
228 COPY(206,A)-(207,Z),0 TO "8"
229 'CALL CHDIR ("..")
230 CALL MKDIR ("P"):CALL CHDIR ("P")
231 COPY(208,A)-(209,Z),0 TO "1"
232 COPY(210,A)-(211,Z),0 TO "2"
233 COPY(212,A)-(213,Z),0 TO "3"
234 COPY(214,A)-(215,Z),0 TO "4"
235 COPY(216,A)-(217,Z),0 TO "5"
236 COPY(218,A)-(219,Z),0 TO "6"
237 COPY(220,A)-(221,Z),0 TO "7"
238 COPY(222,A)-(223,Z),0 TO "8"
239 'CALL CHDIR ("..")
240 CALL MKDIR ("P"):CALL CHDIR ("P")
241 COPY(224,A)-(225,Z),0 TO "1"
242 COPY(226,A)-(227,Z),0 TO "2"
243 COPY(228,A)-(229,Z),0 TO "3"
244 COPY(230,A)-(231,Z),0 TO "4"
245 COPY(232,A)-(233,Z),0 TO "5"
246 COPY(234,A)-(235,Z),0 TO "6"
247 COPY(236,A)-(237,Z),0 TO "7"
248 COPY(238,A)-(239,Z),0 TO "8"
249 'CALL CHDIR ("..")
250 CALL MKDIR ("P"):CALL CHDIR ("P")
251 COPY(240,A)-(241,Z),0 TO "1"
252 COPY(242,A)-(243,Z),0 TO "2"
253 COPY(244,A)-(245,Z),0 TO "3"
254 COPY(246,A)-(247,Z),0 TO "4"
255 COPY(248,A)-(249,Z),0 TO "5"
256 COPY(250,A)-(251,Z),0 TO "6"
257 COPY(252,A)-(253,Z),0 TO "7"
258 COPY(254,A)-(255,Z),0 TO "8"
259 'CALL CHDIR ("..")
300 'CALL CHDIR (".."):CALL CHDIR ("..")
302 CALL CHDIR ("E:")
Página 5/5
1 | 2 | 3 | 4 |