0 Members and 2 Guests are viewing this topic.
0->I[xxx]->Pic0[xxx].the two sprites are the same!!While(xxx)I=I+1%8Pt-On(0,0,Pic0+I)End
I ust added something, you just have to make two same sprites
May we take a look at it's source? THat could be VERY useful!
.dw $C0DE; Scroll down .dw scrlDEnd .db 00111111b .db 0FEh, 0 .db 0 .db 1 rorg 0 ld e, 7 ld d, 0 add hl, de ld e, (hl) ld b, 7LoopD: dec hl ld a, (hl) inc hl ld (hl), a dec hl djnz LoopD ld a, e ld (hl), ascrlDEnd:; Scroll left .dw scrlLEnd .db 00111111b .db 0FDh, 0 .db 0 .db 1 rorg 0 push hl ld b, 8LoopL: rlc (hl) inc hl djnz LoopL pop hlscrlLEnd:; Scroll right .dw scrlREnd .db 00111111b .db 0FCh, 0 .db 0 .db 1 rorg 0 push hl ld b, 8LoopR: rrc (hl) inc hl djnz LoopR pop hlscrlREnd:; Scroll up .dw scrlUEnd .db 00111111b .db 0BBh, 5Ah .db 0 .db 1 rorg 0 push hl ld e, (hl) ld b, 7LoopU: inc hl ld a, (hl) dec hl ld (hl), a inc hl djnz LoopU ld a, e ld (hl), a pop hlscrlUEnd:; Screen on .dw scrOnEnd .db 00111111b .db 05h, 0 .db 0 .db 1 rorg 0 ld a, 3 out (10h), ascrOnEnd:; Screen off .dw scrOffEnd .db 00111111b .db 0BBh, 5Bh .db 0 .db 1 rorg 0 ld a, 2 out (10h), ascrOffEnd: .dw 0 .dw 01FCh .db 11 .db "ScrollDown(" .dw 01FAh .db 11 .db "ScrollLeft(" .dw 01F8h .db 12 .db "ScrollRight(" .dw 045Eh .db 9 .db "ScrollUp(" .dw 0Ah .db 8 .db "ScreenOn" .dw 0460h .db 9 .db "ScreenOff"
Scroll*direction*(Pic1Scrolls the content of Pic1 one pixel in the given direction and re-stores it to Pic1