Hello,
With this routine in code machine, I can move the sprites to high speed, but I
can not manage the collisions with the basic command SPRITE ON:ON SPRITE GOSUB
because doesn't work and I can not use the cordinates x,y with conditions IF...
.THEN.... also it doesn't work.
How can I do?? Can you help me?
Bye
Andrea
10 DATA C3,04,D7,3A,9F,FD,D6,C3
20 DATA C8,21,9F,FD,11,AC,D7,01
30 DATA 05,00,ED,B0,F3,3E,C3,32
40 DATA 9F,FD,21,FA,D6,22,A0,FD
50 DATA FB,C9,3A,4A,D7,A7,C4,04
60 DATA D7,C3,AC,D7,F3,2A,28,F9
70 DATA 06,20,11,4B,D7,C5,1A,A7
80 DATA 28,2C,CD,50,00,F3,E3,E3
90 DATA DB,98,47,E3,E3,DB,98,4F
100 DATA CD,53,00,F3,E3,E3,13,1A
110 DATA 80,FE,D0,20,03,47,1A,80
120 DATA E3,E3,D3,98,13,1A,81,E3
130 DATA E3,D3,98,13,18,03,13,13
140 DATA 13,23,23,23,23,C1,10,C5
150 DATA FB,C9,00,00,00,00,00,00
160 DATA 00,00,00,00,00,00,00,00
170 DATA 00,00,00,00,00,00,00,00
180 DATA 00,00,00,00,00,00,00,00
190 DATA 00,00,00,00,00,00,00,00
200 DATA 00,00,00,00,00,00,00,00
210 DATA 00,00,00,00,00,00,00,00
220 DATA 00,00,00,00,00,00,00,00
230 DATA 00,00,00,00,00,00,00,00
240 DATA 00,00,00,00,00,00,00,00
250 DATA 00,00,00,00,00,00,00,00
260 DATA 00,00,00,00,00,00,00,00
270 DATA 00,00,00,00
280 DATA 15140
290 REM LOADER L/M
300 CLEAR 200,54999!:RESTORE10
310 FOR X=55000! TO 55211!
320 READA$:Y=VAL("&H"+A$)
330 POKE X,Y:CK=CK+Y
340 NEXT X
350 READX:IFX<>CKTHENBEEP:PRINT"ERRORE NEI DATA: RICONTROLLA!":LIST 10-280:END
360 DEFINTA-Z:SCREEN1,2:WIDTH30:KEYOFF:CLS
370 PRINT"SAM"
380 REM PREPARA GLI SPRITE
390 CP=PEEK(&HF920)+256*PEEK(&HF921)
400 FOR X=1 TO 31
430 FOR X=0 TO 31
440 SPRITE$(X)=STRING$(32,255)
450 NEXT
460 PUTSPRITE1,(10,10),15,0:PUTSPRITE2,(200,10),8,0:PUTSPRITE0,(100,170),4,0
470 POKE55115!,1:POKE55118!,1:POKE55121!,1
480 POKE55117!,0:POKE55120!,1:POKE55123!,255
490 'POKE55114!,1:A=USR9(0):REM AUTOMOVE SPRITES
500 SPRITEON:ON SPRITE GOSUB580
510 D=STICK(0)ORSTICK(1)
520 IFD=1THENPOKE55116!,255:POKE55117!,0
530 IFD=3THENPOKE55116!,0:POKE55117!,1
540 IFD=5THENPOKE55116!,1:POKE55117!,0
550 IFD=7THENPOKE55116!,0:POKE55117!,255
560 A=USR9(0):POKE55114!,0:REM MANUAL MOVE
570 GOTO500
580 PLAY"V15L64ABCCBA":RETURN
[Se han eliminado los trozos de este mensaje que no contenían texto]
