Bu kadar komplike bir kod ortaya çıkmasının sebebi başlangıç noktası olarak BASIC'deki `ON GOTO` deyimini almış olmam. ON GOTO ile yazacağım basic rutinin ASM'ye çevirmeye çalıştım.
Witchdoctor'un söylediği mantıktan yola çıkınca aşağıdaki sonuca ulaştım. İlk örnekte STATE'i sürekli arttırdığım için animasyon doğru çalışmayacaktı. En iyisi kodu loop'tan çıkarmak olduğunu düşündüm. Ana döngü başka bir yerlerde STATE değerini güncelleyip buraya dallanıyor diye düşündüm.
STATE = $02 ;current animation case (like jump,hit,run etc.)
FRAME = $03 ;current frame within the case
SPRITE_POINTER = SCREEN_MEM+$03f8
spriteAnimation:
;increase animation frame
inc FRAME ;increase animation frame
ldx STATE ;and compare with frameCount
lda frameCount,x ;for this state
cmp FRAME
bne +
lda #$00
sta FRAME
+
;calculate sprite pointer
lda frameInit,x ;calculate sprite pointer to use
clc ;frameInit + FRAME
adc FRAME ;
sta SPRITE_PONITER ;set animation frame
rts
frameCount:
!by 3,1 ;number of frames for each animation case
frameInit:
!by 0,3 ;beginning frame for each animation case
Hak geçmemesi için ilk örneği de benzer şekilde güncelledim. Eğer rutinimiz sadece animasyon karelerini oynatacaksa witchdoctor'un alternatifi çok daha temiz bir çözüm oldu. Ancak orjinal kod da ortalığı fazla karıştırmadan araya kod eklemeye müsait. Daha esnek. İlerde duruma göre ikisini de kullanabilirim.
STATE = $02 ;current animation case (like jump,hit,run etc.)
FRAME = $03 ;current frame within the case
SPRITE_POINTER = SCREEN_MEM+$03f8
spriteAnimation:
lda STATE ;load state
asl ;mulitply by 2
tax ;and jump to this adress
jmp (JUMP_TABLE,X)
rts
;animation frames for each state
state1:
ldx FRAME ;animation state 1 has three frames
lda SPRITE_POINTERS_TB,X
sta SPRITE_POINTER
lda FRAME ;increase
adc #$01 ;animation
and #$03 ;frame
sta FRAME ;index
jmp return
state:
lda #$03 ;animation state 2 has only one frame
sta SPRITE_POINTER
jmp return
* = JUMP_TABLE
!by >state1,<state1,>state1,<state2
* = SPRITE_PONITERS_TB
!by = 0,1,2,3
