INCLUDE "constants.bas" MODE 1 X = 50: Y= 60 loop: DEFINE 0,7,VARPTR PRINCE_CLIMB_BITMAPS(ANIMATION_FRAME * 28) #CHRCOL1 = CLIMB_TURBAN_X_TABLE(ANIMATION_FRAME) #CHRCOL2 = CLIMB_ARMS_X_TABLE(ANIMATION_FRAME) #CHRCOL3 = CLIMB_SHOES_X_TABLE(ANIMATION_FRAME) #CHRCOL4 = 1 IF #FLIP <> 0 THEN #CHRCOL1 = -#CHRCOL1 #CHRCOL2 = -#CHRCOL2 #CHRCOL3 = -#CHRCOL3 #CHRCOL4 = -#CHRCOL4 REM ***************************************************************** REM * ALTER POSITION OF SPRITE SEGMENTS WHEN FACING OTHER DIRECTION * REM ***************************************************************** IF #CHRCOL1 < -20 THEN #CHRCOL1 = #CHRCOL1 - 8 IF #CHRCOL2 < -20 THEN #CHRCOL2 = #CHRCOL2 - 8 IF #CHRCOL3 < -20 THEN #CHRCOL3 = #CHRCOL3 - 8 IF #CHRCOL4 < -20 THEN #CHRCOL4 = #CHRCOL4 - 8 END IF #CHRCOL1 = #CHRCOL1 + X + VISIBLE #CHRCOL2 = #CHRCOL2 + X + VISIBLE #CHRCOL3 = #CHRCOL3 + X + VISIBLE #CHRCOL4 = #CHRCOL4 + X + VISIBLE OY = Y - CLIMB_FULL_OFFSET_Y_TABLE(ANIMATION_FRAME) PRINT AT 1,<2>ANIMATION_FRAME SPRITE 1, #CHRCOL2, OY + CLIMB_ARMS_Y_TABLE(ANIMATION_FRAME) + DOUBLEY + ZOOMY2 + #FLIP, SPR02 + SPR_ORANGE: REM ARMS SPRITE 2, #CHRCOL1, OY + 3 + CLIMB_TURBAN_Y_TABLE(ANIMATION_FRAME) + DOUBLEY + ZOOMY2 + #FLIP, SPR04 + SPR_RED: REM TURBAN / VEST SPRITE 3, #CHRCOL3, OY + 25 + ZOOMY2 + #FLIP, SPR06 + SPR_RED: REM SHOES SPRITE 4, #CHRCOL4, OY + 13 + DOUBLEY + ZOOMY2 + #FLIP, SPR00 + SPR_WHITE: REM PANTS FOR I2 = 0 TO 4 WAIT NEXT IF CONT1.UP THEN IF ANIMATION_FRAME < 16 THEN ANIMATION_FRAME = ANIMATION_FRAME + 1 IF CONT1.DOWN THEN IF ANIMATION_FRAME > 0 THEN ANIMATION_FRAME = ANIMATION_FRAME - 1 IF CONT1.LEFT THEN #FLIP = 0 IF CONT1.RIGHT THEN #FLIP = FLIPX GOTO loop CLIMB_ARMS_Y_TABLE: DATA 2,4,4,4,4,4, 8, 17, 17, 17, 18, 14, 13, 13, 7,7,7 CLIMB_ARMS_X_TABLE: DATA 0,0,-2,-2,-4,-5, -6+ZOOMX2, -7, -4, -3, -3, -5,-6,-6, -5,-2,-1 CLIMB_TURBAN_X_TABLE: DATA 1,2,1,0,-7+ZOOMX2,-8+ZOOMX2, -14+ZOOMX2, -16+ZOOMX2, -7+ZOOMX2, -5+ZOOMX2, -6, -8+ZOOMX2,-10+ZOOMX2,-10+ZOOMX2, -10+ZOOMX2,-2,-1 CLIMB_TURBAN_Y_TABLE: DATA 0,0,0,0,1,1, 4,9,11,10,11, 6,4,2, 0,1,1 CLIMB_SHOES_X_TABLE: DATA 0, 2, 2, 1, 2, 2, 2, 5, 6, 5, 5, 3,1,3, 3,2,2 CLIMB_FULL_OFFSET_Y_TABLE: DATA 0,3,5,7,10,11 , 15, 22, 23, 25, 26, 26, 26, 26, 26,26,26 PRINCE_CLIMB_BITMAPS: ' 126 bitmaps DATA $0000,$0000,$F0F0,$F0F0 DATA $E0F0,$F0E0,$F0F0,$60F0 DATA $C080,$40C0,$6040,$6060 DATA $3030,$0018,$0000,$0018 DATA $0000,$0000,$3830,$0038 DATA $0800,$F8D8,$C0F8,$0000 DATA $0000,$0000,$7030,$00E0 DATA $0000,$7800,$7C7C,$787C DATA $F8F8,$F8F8,$7878,$0070 DATA $8000,$C0C0,$4040,$786C DATA $0030,$0C00,$0000,$0000 DATA $0000,$6000,$7870,$4830 DATA $1808,$F8F8,$0000,$0000 DATA $0000,$2000,$6060,$00C0 DATA $0000,$F800,$F8F8,$F0F0 DATA $F0F0,$F0F0,$70F0,$6070 DATA $0000,$4000,$F8F0,$0008 DATA $0000,$1E06,$0000,$0000 DATA $0000,$7000,$38F8,$9030 DATA $F8F8,$80F0,$0000,$0000 DATA $0000,$0000,$6060,$00C0 DATA $0000,$7C00,$7C7C,$F8F8 DATA $F0F8,$F0F0,$F0F0,$00E0 DATA $0000,$0000,$0030,$E060 DATA $0180,$0C07,$0000,$0000 DATA $0000,$F070,$3078,$3830 DATA $7C7C,$6070,$0000,$0000 DATA $0000,$2000,$6070,$00C0 DATA $0000,$F838,$78F8,$7878 DATA $F070,$F0F0,$70F0,$0070 DATA $0000,$0000,$4000,$F8D0 DATA $2331,$0463,$0000,$0000 DATA $0000,$4000,$E0C0,$48D8 DATA $1818,$0018,$0000,$0000 DATA $0000,$6000,$E060,$0000 DATA $3020,$F070,$F8F8,$F0F0 DATA $70F0,$7070,$3078,$0000 DATA $0000,$0000,$0000,$4000 DATA $99D8,$3219,$0000,$0000 DATA $0000,$0000,$4000,$F0C0 DATA $48F8,$0808,$0000,$0000 DATA $0000,$7030,$00C0,$0000 DATA $1810,$7838,$F078,$F0F0 DATA $F0F0,$7070,$0070,$0000 DATA $0000,$0000,$0800,$6068 DATA $2000,$C060,$0000,$0000 DATA $0000,$0000,$0800,$1F1B DATA $011D,$0000,$0000,$0000 DATA $6000,$E070,$0000,$0000 DATA $0000,$0000,$0000,$F0E0 DATA $F0F0,$F8F0,$3C78,$001C DATA $0000,$4941,$1CD8,$0E06 DATA $703C,$0000,$0000,$0000 DATA $0000,$0000,$0000,$1B08 DATA $1819,$0200,$0000,$0000 DATA $0000,$4000,$E060,$0080 DATA $0000,$0000,$0000,$3C18 DATA $3C3C,$2C3C,$F860,$0CFA DATA $0000,$0206,$CC5A,$0606 DATA $381C,$0000,$0000,$0000 DATA $0000,$0000,$5000,$E0F0 DATA $30A0,$0010,$0000,$0000 DATA $C0C0,$3050,$0010,$0000 DATA $0000,$0000,$0F0E,$7E3F DATA $E0FC,$7CF8,$1C1C,$070F DATA $0301,$5000,$D0D0,$1810 DATA $1014,$6030,$0000,$0000 DATA $0000,$0000,$1000,$F070 DATA $2080,$2020,$0000,$0000 DATA $C000,$5CC0,$0C0C,$0008 DATA $0000,$0000,$0E00,$1F0F DATA $7E3F,$E8F8,$7AF6,$187C DATA $0703,$7002,$B0F0,$6030 DATA $6868,$4868,$0040,$0000 DATA $0000,$0000,$0000,$7703 DATA $E1E1,$0060,$0000,$0000 DATA $1808,$0008,$E060,$0000 DATA $3800,$3C3C,$FC7C,$E0F8 DATA $F8F0,$3878,$0000,$0000 DATA $0101,$D051,$3010,$3838 DATA $2C28,$2020,$0000,$0000 DATA $0000,$0000,$4800,$D8D0 DATA $9098,$0010,$0000,$0000 DATA $7020,$00E0,$0000,$0000 DATA $3C00,$7C3C,$F87C,$F0F0 DATA $F8F0,$F8F8,$00E0,$0000 DATA $D101,$10D1,$3030,$6030 DATA $2068,$0020,$0000,$0000 DATA $0000,$0000,$E040,$D8D8 DATA $1C58,$0010,$0000,$0000 DATA $7C0C,$00E0,$0000,$0000 DATA $7C3C,$787C,$F0F8,$78F0 DATA $7878,$0030,$0000,$0000 DATA $F1D1,$1032,$1010,$3030 DATA $1810,$0000,$0000,$0000 DATA $0000,$0000,$2000,$6C70 DATA $0C2C,$080C,$0008,$0000 DATA $7010,$00E0,$0000,$0000 DATA $3C18,$7C7C,$7878,$E0F8 DATA $7870,$183C,$0000,$0000 DATA $0000,$2000,$D0C0,$0C19 DATA $0406,$180C,$0000,$0000 DATA $0000,$0000,$2000,$7070 DATA $1420,$040E,$0000,$0000 DATA $E060,$0000,$0000,$0000 DATA $0800,$1858,$7038,$F8F0 DATA $70F8,$7070,$0000,$0000 DATA $60C0,$0010,$060C,$0606 DATA $0C04,$0018,$0000,$0000 DATA $F060,$30F8,$0010,$1228 DATA $3338,$0010,$0000,$0000 DATA $6000,$00E0,$0000,$0000 DATA $1000,$3010,$F0F0,$E0F0 DATA $F0F0,$40F0,$0000,$0000 DATA $70C0,$0800,$0C0C,$180C DATA $6030,$00C0,$0000,$0000 DATA $F870,$3878,$1000,$2424 DATA $6064,$0000,$0000,$0000 DATA $6020,$00E0,$0000,$0000