;============================================== ; DisplayCave- Displays cave on graph buffer ;============================================== ;Commented out due to a better one above ;displaycave: ; jp drawmap ; ;Clear screen ; bcall(_cleargbuf) ; ;load inital stuff ; ld hl,caveram ; ;smaller&faster way to store 0 into a: ; xor a ; ld e,0 ; ;Start a loop: ;disploop1: ; ;Get tile value from caveram+value ; ld c,(hl) ; ;multiply by 8 ; sla c ; sla c ; sla c ; ;add to sprites (in ix) ; ld b,0 ; ld ix,(spritepoint) ; add ix,bc ; ;push stuff ; push af ; push de ; push hl ; ;load coords ; ld l,e ;Y position ; ld b,8 ;Size is 8 ; ;call the sprite thingy ; call ionPutSprite ; ;pop stuff ; pop hl ; pop de ; pop af ; ;Increase get tile offset ; inc hl ; ;add 8 to X ; add a,8 ; ;At right edge? ; cp 96 ; ;Go back ; jr nz,disploop1 ; ;otherwise... ; ;add 8 to Y ; ld a,e ; add a,8 ; ;at bottom? ; cp 64 ; ret z ; ld e,a ; xor a ; jr disploop1 ;CODE COMMENTED OUT /* ; ;;=========================================== ;; BrowseAround- Walk around panning rooms ;;=========================================== ;BrowseAround: ; ;Decompess Cave ; call decompcave ; ;Display Cave ; call displaycave ; ;Draw Screen ; call ionFastCopy ;brKeyLoop: ; ;Get Key ; call waitkey ; ; ;Down? ; cp GDown ; jr z,brMoveDown ; ;Up? ; cp GLeft ; jr z,brMoveLeft ; ;Left? ; cp GRight ; jr z,brMoveRight ; ;Right? ; cp GUp ; jr z,brMoveUp ; ;Clear? ; cp GClear ; ret z ; jr brkeyloop ;brMoveDown: ; ld a,(row) ; inc a ; ld (row),a ; jr BrowseAround ;brMoveUp: ; ld a,(row) ; dec a ; ld (row),a ; jr BrowseAround ;brMoveLeft: ; ld a,(col) ; dec a ; ld (col),a ; jr BrowseAround ;brMoveRight: ; ld a,(col) ; inc a ; ld (col),a ; jr BrowseAround ; */