mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-26 15:29:55 +00:00
1221 lines
17 KiB
ArmAsm
1221 lines
17 KiB
ArmAsm
;================================
|
|
; do battle
|
|
;================================
|
|
|
|
do_battle:
|
|
|
|
lda #34
|
|
sta HERO_X
|
|
|
|
lda #0
|
|
sta HERO_STATE
|
|
sta MENU_STATE
|
|
sta MENU_POSITION
|
|
|
|
lda #3
|
|
sta HERO_LIMIT
|
|
|
|
jsr rotate_intro
|
|
|
|
lda #20
|
|
sta BATTLE_COUNT
|
|
|
|
|
|
;=============================
|
|
; Init Enemy
|
|
;=============================
|
|
|
|
jsr init_enemy
|
|
|
|
;==========================
|
|
; Draw background
|
|
|
|
;==========================
|
|
; Draw sky
|
|
|
|
ldx #0 ; blue from 0 .. 10
|
|
battle_sky_loop:
|
|
lda gr_offsets,X
|
|
sta GBASL
|
|
lda gr_offsets+1,X
|
|
clc
|
|
adc #$8 ; store to $C00
|
|
sta GBASH
|
|
|
|
lda #$66 ; COLOR_MEDIUMBLUE
|
|
ldy #0
|
|
battle_sky_inner:
|
|
sta (GBASL),Y
|
|
iny
|
|
cpy #40
|
|
bne battle_sky_inner
|
|
|
|
inx
|
|
inx
|
|
cpx #10
|
|
bne battle_sky_loop
|
|
|
|
|
|
; green from 10 .. 40
|
|
battle_ground_loop:
|
|
lda gr_offsets,X
|
|
sta GBASL
|
|
lda gr_offsets+1,X
|
|
clc
|
|
adc #$8 ; store to $C00
|
|
sta GBASH
|
|
|
|
lda #$CC ; COLOR_LIGHTGREEN
|
|
; FIXME: should be GROUNDCOLOR
|
|
ldy #0
|
|
battle_ground_inner:
|
|
sta (GBASL),Y
|
|
iny
|
|
cpy #40
|
|
bne battle_ground_inner
|
|
|
|
inx
|
|
inx
|
|
cpx #40
|
|
bne battle_ground_loop
|
|
|
|
; Draw some background images for variety?
|
|
|
|
; update bottom of screen
|
|
jsr draw_battle_bottom
|
|
|
|
main_battle_loop:
|
|
|
|
jsr gr_copy_to_current
|
|
|
|
;========================================
|
|
; draw our hero
|
|
;========================================
|
|
|
|
lda HERO_HP
|
|
beq battle_draw_hero_down
|
|
|
|
lda HERO_STATE
|
|
and #HERO_STATE_RUNNING
|
|
bne battle_draw_hero_running
|
|
|
|
jmp battle_draw_normal_hero
|
|
|
|
battle_draw_hero_down:
|
|
; grsim_put_sprite(tfv_defeat,ax-2,24);
|
|
|
|
lda HERO_X
|
|
sec
|
|
sbc #2
|
|
sta XPOS
|
|
lda #24
|
|
sta YPOS
|
|
|
|
lda #<tfv_defeat_sprite
|
|
sta INL
|
|
lda #>tfv_defeat_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
jmp battle_done_draw_hero
|
|
|
|
battle_draw_hero_running:
|
|
|
|
; grsim_put_sprite(tfv_stand_right,ax,20);
|
|
; grsim_put_sprite(tfv_walk_right,ax,20);
|
|
|
|
lda HERO_X
|
|
sta XPOS
|
|
lda #20
|
|
sta YPOS
|
|
|
|
lda BATTLE_COUNT
|
|
and #$8
|
|
beq battle_draw_running_walk
|
|
|
|
battle_draw_running_stand:
|
|
lda #<tfv_stand_right_sprite
|
|
sta INL
|
|
lda #>tfv_stand_right_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
jmp battle_done_draw_hero
|
|
|
|
battle_draw_running_walk:
|
|
lda #<tfv_walk_right_sprite
|
|
sta INL
|
|
lda #>tfv_walk_right_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
jmp battle_done_draw_hero
|
|
|
|
battle_draw_normal_hero:
|
|
; grsim_put_sprite(tfv_stand_left,ax,20);
|
|
|
|
lda #20
|
|
sta HERO_Y
|
|
|
|
jsr draw_hero_and_sword
|
|
|
|
battle_done_draw_hero:
|
|
|
|
;===========================
|
|
; draw enemy
|
|
;===========================
|
|
battle_draw_enemy:
|
|
|
|
; grsim_put_sprite(enemies[enemy_type].sprite,enemy_x,20);
|
|
|
|
lda ENEMY_X
|
|
sta XPOS
|
|
lda #20
|
|
sta YPOS
|
|
|
|
jsr draw_enemy
|
|
|
|
battle_done_draw_enemy:
|
|
|
|
;=======================================
|
|
; draw bottom status
|
|
|
|
jsr draw_battle_bottom
|
|
|
|
;=======================================
|
|
; page_flip
|
|
|
|
jsr page_flip
|
|
|
|
; pause if dead
|
|
|
|
; if (hp==0) {
|
|
; for(i=0;i<15;i++) usleep(100000);
|
|
; break;
|
|
; }
|
|
|
|
; delay for framerate
|
|
; usleep(100000);
|
|
|
|
;=======================
|
|
; handle keypresses
|
|
|
|
jsr get_keypress
|
|
sta LAST_KEY
|
|
cmp #'Q'
|
|
beq done_battle
|
|
|
|
;========================
|
|
; handle enemy attacks
|
|
|
|
lda ENEMY_COUNT
|
|
bne battle_no_enemy_attack
|
|
battle_start_enemy_attack:
|
|
|
|
; attack and decrement HP
|
|
jsr enemy_attack
|
|
|
|
; update limit count
|
|
; max out at 4
|
|
lda HERO_LIMIT
|
|
cmp #4
|
|
beq battle_no_inc_limit
|
|
|
|
inc HERO_LIMIT
|
|
battle_no_inc_limit:
|
|
|
|
; reset enemy time. FIXME: variable?
|
|
lda #50
|
|
sta ENEMY_COUNT
|
|
|
|
battle_no_enemy_attack:
|
|
dec ENEMY_COUNT
|
|
|
|
|
|
;===============================
|
|
; handle battle counter
|
|
update_battle_counter:
|
|
lda BATTLE_COUNT
|
|
cmp #64
|
|
bcc inc_battle_count ; blt
|
|
|
|
; battle timer expired, take action
|
|
|
|
; If running, escape
|
|
; TODO: randomly fail at running? */
|
|
lda HERO_STATE
|
|
and #HERO_STATE_RUNNING
|
|
beq battle_no_escape
|
|
|
|
; we bravely ran away
|
|
jmp done_battle
|
|
|
|
battle_no_escape:
|
|
|
|
; activate menu
|
|
|
|
lda MENU_STATE
|
|
cmp #MENU_NONE
|
|
bne menu_activated
|
|
|
|
; move to main menu
|
|
lda #MENU_MAIN
|
|
sta MENU_STATE
|
|
|
|
menu_activated:
|
|
|
|
jsr battle_menu_keypress
|
|
|
|
jmp done_battle_count
|
|
|
|
inc_battle_count:
|
|
inc BATTLE_COUNT
|
|
|
|
done_battle_count:
|
|
|
|
;========================
|
|
; check enemy defeated
|
|
|
|
lda ENEMY_HP
|
|
bne end_battle_loop
|
|
|
|
jsr victory_dance
|
|
jmp done_battle
|
|
|
|
|
|
end_battle_loop:
|
|
|
|
jmp main_battle_loop
|
|
|
|
done_battle:
|
|
|
|
jsr clear_bottoms
|
|
|
|
; running=0; ?
|
|
|
|
rts
|
|
|
|
; Metrocat (summon?)
|
|
|
|
; Environment: grass, beach, forest, ice
|
|
|
|
; Enemies: HP ATTACK WEAKNESS RESIST
|
|
; Killer Crab RND-32 PINCH MALAISE FIRE
|
|
; Plain Fish BUBBLE FIRE ICE
|
|
|
|
; Evil Tree RND-16 LEAVE FIRE ICE
|
|
; Wood Elf SING MALAISE BOLT
|
|
|
|
; Giant Bee RND-64 BUZZSAW ICE NONE
|
|
; Procrastinon RND-32 PUTOFF NONE MALAISE
|
|
|
|
; Ice Fish RND-32 AUGER FIRE ICE
|
|
; EvilPenguin WADDLE FIRE ICE
|
|
|
|
; Battle.
|
|
; Forest? Grassland? Artic? Ocean?
|
|
; ATTACK REST
|
|
; MAGIC LIMIT
|
|
; SUMMON RUN
|
|
;
|
|
; SUMMONS -> METROCAT VORTEXCN
|
|
; MAGIC -> HEAL FIRE
|
|
; ICE MALAISE
|
|
; BOLT
|
|
; LIMIT -> SLICE ZAP
|
|
; DROP
|
|
;
|
|
; 1 2 3
|
|
;0123456789012345678901234567890123456789|
|
|
;----------------------------------------|
|
|
; | HP LIMIT | -> FIGHT/LIMIT 21
|
|
;KILLER CRAB | DEATER 128/255 128 | ZAP 22
|
|
; | | REST 23
|
|
; | | RUN AWAY 24
|
|
;
|
|
;Sound effects?
|
|
;
|
|
;List hits
|
|
;
|
|
;****** ** **** **** ** ** ****** **** ****** ****** ******
|
|
;** ** **** ** ** ** ** ** ** ** ** ** ** **
|
|
;** ** ** **** **** ****** **** ****** ** ****** ******
|
|
;** ** ** ** ** ** ** ** ** ** ** ** **
|
|
;****** ****** ****** **** ** **** ****** ** ****** **
|
|
|
|
; Background depend on map location?
|
|
; Room for guinea pig in party?
|
|
|
|
; Attacks -> HIT, ZAP, HEAL, RUNAWAY
|
|
;#define MAGIC_NONE 0
|
|
;#define MAGIC_FIRE 1
|
|
;#define MAGIC_ICE 2
|
|
;#define MAGIC_MALAISE 4
|
|
;#define MAGIC_BOLT 8
|
|
;#define MAGIC_HEAL 16
|
|
|
|
; struct enemy_type {
|
|
; char *name;
|
|
; int hp_base,hp_mask;
|
|
; char *attack_name;
|
|
; int weakness,resist;
|
|
; unsigned char *sprite;
|
|
;};
|
|
|
|
|
|
;=============================
|
|
; Init Enemy
|
|
;=============================
|
|
init_enemy:
|
|
|
|
; select type
|
|
|
|
; random, with weight toward proper terrain
|
|
; 50% completely random, 50% terrain based?
|
|
|
|
; enemy_type=random_8()%0x7;
|
|
; enemy_hp=enemies[enemy_type].hp_base+
|
|
; (rand()&enemies[enemy_type].hp_mask);
|
|
|
|
lda #0 ; hardcode crab for now
|
|
sta ENEMY_TYPE
|
|
sta ENEMY_X
|
|
|
|
lda #$30 ; BCD
|
|
sta ENEMY_HP
|
|
|
|
lda #30
|
|
sta ENEMY_COUNT
|
|
|
|
lda #<killer_crab_sprite
|
|
sta draw_enemy_smc1+1
|
|
lda #>killer_crab_sprite
|
|
sta draw_enemy_smc2+1
|
|
|
|
rts
|
|
|
|
|
|
;static struct enemy_type enemies[9]={
|
|
; [0]= {
|
|
; .name="Killer Crab",
|
|
; .hp_base=50,
|
|
; .hp_mask=0x1f,
|
|
; .attack_name="Pinch",
|
|
; .weakness=MAGIC_MALAISE,
|
|
; .resist=MAGIC_FIRE,
|
|
; .sprite=killer_crab,
|
|
; },
|
|
; [1]= {
|
|
; .name="Plain Fish",
|
|
; .hp_base=10,
|
|
; .hp_mask=0x1f,
|
|
; .attack_name="Bubble",
|
|
; .weakness=MAGIC_FIRE,
|
|
; .resist=MAGIC_ICE,
|
|
; .sprite=plain_fish,
|
|
; },
|
|
; [2]= {
|
|
; .name="Evil Tree",
|
|
; .hp_base=10,
|
|
; .hp_mask=0x1f,
|
|
; .attack_name="Leaves",
|
|
; .weakness=MAGIC_FIRE,
|
|
; .resist=MAGIC_ICE,
|
|
; .sprite=evil_tree,
|
|
; },
|
|
; [3]= {
|
|
; .name="Wood Elf",
|
|
; .hp_base=10,
|
|
; .hp_mask=0x1f,
|
|
; .attack_name="Song",
|
|
; .weakness=MAGIC_MALAISE,
|
|
; .resist=MAGIC_BOLT|MAGIC_HEAL,
|
|
; .sprite=wood_elf,
|
|
; },
|
|
; [4]= {
|
|
; .name="Giant Bee",
|
|
; .hp_base=10,
|
|
; .hp_mask=0x1f,
|
|
; .attack_name="Buzzsaw",
|
|
; .weakness=MAGIC_ICE,
|
|
; .resist=MAGIC_NONE,
|
|
; .sprite=giant_bee,
|
|
; },
|
|
; [5]= {
|
|
; .name="Procrastinon",
|
|
; .hp_base=10,
|
|
; .hp_mask=0x1f,
|
|
; .attack_name="Putoff",
|
|
; .weakness=MAGIC_NONE,
|
|
; .resist=MAGIC_MALAISE,
|
|
; .sprite=procrastinon,
|
|
; },
|
|
; [6]= {
|
|
; .name="Ice Fish",
|
|
; .hp_base=10,
|
|
; .hp_mask=0x1f,
|
|
; .attack_name="Auger",
|
|
; .weakness=MAGIC_FIRE,
|
|
; .resist=MAGIC_ICE,
|
|
; .sprite=ice_fish,
|
|
; },
|
|
; [7]= {
|
|
; .name="Evil Penguin",
|
|
; .hp_base=10,
|
|
; .hp_mask=0x1f,
|
|
; .attack_name="Waddle",
|
|
; .weakness=MAGIC_FIRE,
|
|
; .resist=MAGIC_ICE,
|
|
; .sprite=evil_penguin,
|
|
; },
|
|
; [8]= {
|
|
; .name="Act.Principl",
|
|
; .hp_base=10,
|
|
; .hp_mask=0x1f,
|
|
; .attack_name="BIRDIE",
|
|
; .weakness=MAGIC_NONE,
|
|
; .resist=MAGIC_ICE|MAGIC_FIRE,
|
|
; .sprite=roboknee1,
|
|
; },
|
|
;};
|
|
|
|
|
|
;===========================
|
|
; gr put num
|
|
;===========================
|
|
; damage in DAMAGE_VAL (BCD)
|
|
; location in XPOS,YPOS
|
|
|
|
gr_put_num:
|
|
|
|
|
|
; digit=number/100;
|
|
; if ((digit) && (digit<10)) {
|
|
; grsim_put_sprite(numbers[digit],xt,yy);
|
|
; xt+=4;
|
|
; }
|
|
; hundreds=digit;
|
|
; left=number%100;
|
|
|
|
gr_put_num_tens:
|
|
; print tens digit
|
|
lda DAMAGE_VAL
|
|
lsr
|
|
lsr
|
|
lsr
|
|
lsr
|
|
|
|
; leading zero suppression
|
|
beq gr_put_num_ones
|
|
|
|
asl
|
|
tay
|
|
lda number_sprites,Y
|
|
sta INL
|
|
lda number_sprites+1,Y
|
|
sta INH
|
|
|
|
jsr put_sprite_crop
|
|
|
|
; point to next
|
|
lda XPOS
|
|
clc
|
|
adc #4
|
|
sta XPOS
|
|
|
|
gr_put_num_ones:
|
|
|
|
; print tens digit
|
|
lda DAMAGE_VAL
|
|
and #$f
|
|
|
|
asl
|
|
tay
|
|
lda number_sprites,Y
|
|
sta INL
|
|
lda number_sprites+1,Y
|
|
sta INH
|
|
|
|
jsr put_sprite_crop
|
|
|
|
rts
|
|
|
|
;
|
|
; ATTACK SKIP
|
|
; MAGIC LIMIT
|
|
; SUMMON ESCAPE
|
|
;
|
|
; SUMMONS -> METROCAT VORTEXCN
|
|
; MAGIC -> HEAL FIRE
|
|
; ICE MALAISE
|
|
; BOLT
|
|
; LIMIT -> SLICE ZAP
|
|
; DROP
|
|
;
|
|
; State Machine
|
|
;
|
|
; time
|
|
; BOTTOM -------> MAIN_MENU ----->ATTACK
|
|
; ------->SKIP
|
|
; ------->MAGIC_MENU
|
|
; ------->LIMIT_MENU
|
|
; ------->SUMMON_MENU
|
|
; ------->ESCAPE
|
|
;
|
|
;
|
|
|
|
; static int enemy_attacking=0;
|
|
|
|
|
|
|
|
|
|
|
|
;=========================
|
|
; damage enemy
|
|
;=========================
|
|
; amount to damage in DAMAGE_VAL
|
|
damage_enemy:
|
|
lda DAMAGE_VAL
|
|
cmp ENEMY_HP
|
|
bcs damage_enemy_too_much ; bge
|
|
|
|
; enemy hp is BCD
|
|
sed
|
|
|
|
sec
|
|
lda ENEMY_HP
|
|
sbc DAMAGE_VAL
|
|
|
|
cld
|
|
|
|
jmp damage_enemy_update
|
|
|
|
damage_enemy_too_much:
|
|
lda #0
|
|
|
|
damage_enemy_update:
|
|
sta ENEMY_HP
|
|
|
|
rts
|
|
|
|
;===================
|
|
; heal self
|
|
;===================
|
|
; heal amount in DAMAGE_VAL (yes, I know)
|
|
|
|
heal_self:
|
|
clc
|
|
lda HERO_HP
|
|
adc DAMAGE_VAL
|
|
|
|
; check if HP went down, if so we wrapped
|
|
|
|
cmp HERO_HP
|
|
bcc heal_self_max ; blt
|
|
bcs heal_self_update
|
|
|
|
heal_self_max:
|
|
lda HERO_HP_MAX
|
|
|
|
heal_self_update:
|
|
sta HERO_HP
|
|
|
|
rts
|
|
|
|
;========================
|
|
; damage TFV
|
|
;========================
|
|
; value in DAMAGE_VAL
|
|
damage_tfv:
|
|
lda DAMAGE_VAL
|
|
cmp HERO_HP
|
|
bcs damage_hero_too_much ; bge
|
|
|
|
sec
|
|
lda HERO_HP
|
|
sbc DAMAGE_VAL
|
|
jmp damage_hero_update
|
|
|
|
damage_hero_too_much:
|
|
lda #0
|
|
|
|
damage_hero_update:
|
|
sta HERO_HP
|
|
|
|
rts
|
|
|
|
|
|
;=========================
|
|
; attack
|
|
;=========================
|
|
attack:
|
|
lda #34
|
|
sta HERO_X
|
|
|
|
lda #$10
|
|
sta DAMAGE_VAL
|
|
|
|
attack_loop:
|
|
|
|
; copy over background
|
|
|
|
jsr gr_copy_to_current
|
|
|
|
; draw hero
|
|
|
|
lda #20
|
|
sta YPOS
|
|
|
|
lda HERO_X
|
|
sta XPOS
|
|
|
|
lsr
|
|
bcc attack_draw_walk
|
|
|
|
attack_draw_stand:
|
|
lda #<tfv_stand_left_sprite
|
|
sta INL
|
|
lda #>tfv_stand_left_sprite
|
|
jmp attack_actually_draw
|
|
|
|
attack_draw_walk:
|
|
lda #<tfv_walk_left_sprite
|
|
sta INL
|
|
lda #>tfv_walk_left_sprite
|
|
|
|
attack_actually_draw:
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
|
|
;=========================
|
|
; draw sword
|
|
|
|
lda HERO_X
|
|
sec
|
|
sbc #5
|
|
sta XPOS
|
|
; ypos already 20?
|
|
|
|
lda #<tfv_led_sword_sprite
|
|
sta INL
|
|
lda #>tfv_led_sword_sprite
|
|
sta INH
|
|
|
|
jsr put_sprite_crop
|
|
|
|
|
|
;=========================
|
|
; draw enemy
|
|
|
|
lda ENEMY_X
|
|
sta XPOS
|
|
; ypos already 20?
|
|
|
|
jsr draw_enemy
|
|
|
|
;===========================
|
|
; draw battle bottom
|
|
|
|
jsr draw_battle_bottom
|
|
|
|
;===========================
|
|
; page flip
|
|
|
|
jsr page_flip
|
|
|
|
dec HERO_X
|
|
lda HERO_X
|
|
cmp #10 ; repeat until 10
|
|
bne attack_loop
|
|
|
|
;======================
|
|
; attack done
|
|
|
|
;===================
|
|
; damage the enemy
|
|
|
|
jsr damage_enemy
|
|
|
|
; display damage
|
|
|
|
lda #2
|
|
sta XPOS
|
|
lda #10
|
|
sta YPOS
|
|
jsr gr_put_num
|
|
|
|
;===================
|
|
; page flip
|
|
|
|
jsr page_flip
|
|
|
|
; delay
|
|
lda #255
|
|
jsr WAIT
|
|
|
|
; restore X value
|
|
lda #34
|
|
sta HERO_X
|
|
|
|
rts
|
|
|
|
|
|
;===============================
|
|
; enemy attack
|
|
;===============================
|
|
enemy_attack:
|
|
|
|
; int ax=enemy_x;
|
|
; int damage=10;
|
|
|
|
; enemy_attacking=1;
|
|
|
|
; while(ax<30) {
|
|
|
|
; put attack name on
|
|
; occasionally attack with that enemy's power?
|
|
; occasionally heal self?
|
|
|
|
; gr_copy_to_current(0xc00);
|
|
|
|
; draw first so behind enemy
|
|
; grsim_put_sprite(tfv_stand_left,tfv_x,20);
|
|
; grsim_put_sprite(tfv_led_sword,tfv_x-5,20);
|
|
|
|
; if (ax&1) {
|
|
; grsim_put_sprite(enemies[enemy_type].sprite,ax,20);
|
|
; }
|
|
; else {
|
|
; grsim_put_sprite(enemies[enemy_type].sprite,ax,20);
|
|
; }
|
|
|
|
; draw_battle_bottom(enemy_type);
|
|
|
|
; page_flip();
|
|
|
|
; ax+=1;
|
|
|
|
; usleep(20000);
|
|
; }
|
|
; enemy_attacking=0;
|
|
|
|
; damage_tfv(damage);
|
|
; gr_put_num(25,10,damage);
|
|
; draw_battle_bottom(enemy_type);
|
|
|
|
; page_flip();
|
|
; usleep(250000);
|
|
|
|
; return damage;
|
|
;}
|
|
|
|
rts
|
|
|
|
|
|
victory_string:
|
|
.byte 13,21,"EXPERIENCE +2",0
|
|
.byte 16,22,"MONEY +1",0
|
|
|
|
|
|
;====================================
|
|
; victory dance
|
|
;====================================
|
|
|
|
victory_dance:
|
|
|
|
lda #34
|
|
sta HERO_X
|
|
lda #20
|
|
sta HERO_Y
|
|
|
|
; update XP and money
|
|
|
|
inc HERO_XP
|
|
inc HERO_XP
|
|
|
|
inc HERO_MONEY
|
|
|
|
|
|
ldx #25
|
|
stx ANIMATE_LOOP
|
|
victory_dance_loop:
|
|
|
|
jsr gr_copy_to_current
|
|
|
|
jsr clear_bottom
|
|
|
|
lda #<victory_string
|
|
sta OUTL
|
|
lda #>victory_string
|
|
sta OUTH
|
|
jsr move_and_print
|
|
jsr move_and_print
|
|
|
|
txa
|
|
and #1
|
|
beq victory_wave
|
|
|
|
victory_stand:
|
|
|
|
jsr draw_hero_and_sword
|
|
jmp victory_draw_done
|
|
|
|
victory_wave:
|
|
|
|
jsr draw_hero_victory
|
|
|
|
victory_draw_done:
|
|
|
|
jsr page_flip
|
|
|
|
|
|
; delay
|
|
lda #255
|
|
jsr WAIT
|
|
|
|
dec ANIMATE_LOOP
|
|
bne victory_dance_loop
|
|
|
|
rts
|
|
|
|
;===========================
|
|
; magic attack
|
|
;===========================
|
|
|
|
magic_attack:
|
|
|
|
lda #34
|
|
sta HERO_X
|
|
|
|
lda #$15
|
|
sta DAMAGE_VAL
|
|
|
|
lda MENU_POSITION
|
|
cmp #MENU_MAGIC_HEAL
|
|
beq do_magic_heal
|
|
cmp #MENU_MAGIC_FIRE
|
|
beq do_magic_fire
|
|
cmp #MENU_MAGIC_ICE
|
|
beq do_magic_ice
|
|
cmp #MENU_MAGIC_BOLT
|
|
beq do_magic_bolt
|
|
cmp #MENU_MAGIC_MALAISE
|
|
beq do_magic_malaise
|
|
|
|
do_magic_heal: ; MENU_MAGIC_HEAL
|
|
lda #33
|
|
sta MAGIC_X
|
|
lda #20
|
|
sta MAGIC_Y
|
|
|
|
jmp done_magic_setup
|
|
|
|
do_magic_fire: ; MENU_MAGIC_FIRE
|
|
lda #2
|
|
sta MAGIC_X
|
|
lda #20
|
|
sta MAGIC_Y
|
|
|
|
jmp done_magic_setup
|
|
|
|
do_magic_ice: ; MENU_MAGIC_ICE
|
|
lda #2
|
|
sta MAGIC_X
|
|
lda #20
|
|
sta MAGIC_Y
|
|
|
|
jmp done_magic_setup
|
|
|
|
do_magic_bolt: ; MENU_MAGIC_BOLT
|
|
lda #2
|
|
sta MAGIC_X
|
|
lda #20
|
|
sta MAGIC_Y
|
|
|
|
jmp done_magic_setup
|
|
|
|
do_magic_malaise: ; MENU_MAGIC_MALAISE
|
|
lda #2
|
|
sta MAGIC_X
|
|
lda #20
|
|
sta MAGIC_Y
|
|
|
|
jmp done_magic_setup
|
|
|
|
done_magic_setup:
|
|
|
|
|
|
|
|
;=========================================
|
|
; cast the magic
|
|
; FIXME: damage based on weakness of enemy
|
|
; FIXME: disallow if not enough MP
|
|
|
|
cast_the_magic:
|
|
|
|
lda MENU_POSITION
|
|
sta MAGIC_TYPE
|
|
|
|
lda #10
|
|
sta ANIMATE_LOOP
|
|
|
|
cast_magic_loop:
|
|
jsr gr_copy_to_current
|
|
|
|
; sprite with hands up
|
|
|
|
lda HERO_X
|
|
sta XPOS
|
|
lda #20
|
|
sta YPOS
|
|
|
|
lda #<tfv_victory_sprite
|
|
sta INL
|
|
lda #>tfv_victory_sprite
|
|
sta INH
|
|
|
|
jsr put_sprite_crop
|
|
|
|
; draw enemy
|
|
lda ENEMY_X
|
|
sta XPOS
|
|
lda #20
|
|
sta YPOS
|
|
jsr draw_enemy
|
|
|
|
|
|
jsr draw_battle_bottom
|
|
|
|
jsr page_flip
|
|
|
|
; delay a bit
|
|
lda #50
|
|
jsr WAIT
|
|
|
|
dec ANIMATE_LOOP
|
|
bne cast_magic_loop
|
|
|
|
|
|
;========================
|
|
; Actually do the magic
|
|
|
|
lda #20
|
|
sta ANIMATE_LOOP
|
|
magic_happens_loop:
|
|
|
|
jsr gr_copy_to_current
|
|
|
|
; draw enemy
|
|
lda ENEMY_X
|
|
sta XPOS
|
|
lda #20
|
|
sta YPOS
|
|
jsr draw_enemy
|
|
|
|
; draw hero
|
|
lda #34
|
|
sta HERO_X
|
|
lda #20
|
|
sta HERO_Y
|
|
jsr draw_hero_and_sword
|
|
|
|
lda ANIMATE_LOOP
|
|
and #$1
|
|
clc
|
|
adc MAGIC_X
|
|
sta XPOS
|
|
|
|
lda MAGIC_Y
|
|
sta YPOS
|
|
|
|
lda MAGIC_TYPE
|
|
asl
|
|
tay
|
|
lda magic_sprites,Y
|
|
sta INL
|
|
lda magic_sprites+1,Y
|
|
sta INH
|
|
|
|
jsr put_sprite_crop
|
|
|
|
jsr draw_battle_bottom
|
|
|
|
jsr page_flip
|
|
|
|
; delay a bit
|
|
lda #50
|
|
jsr WAIT
|
|
|
|
dec ANIMATE_LOOP
|
|
bne magic_happens_loop
|
|
|
|
|
|
;=============================
|
|
|
|
|
|
; decrease magic points
|
|
; mp-=5;
|
|
|
|
jsr gr_copy_to_current
|
|
|
|
|
|
; draw hero
|
|
lda #34
|
|
sta HERO_X
|
|
lda #20
|
|
sta HERO_Y
|
|
jsr draw_hero_and_sword
|
|
|
|
; draw enemy
|
|
lda ENEMY_X
|
|
sta XPOS
|
|
lda #20
|
|
sta YPOS
|
|
jsr draw_enemy
|
|
|
|
lda MAGIC_TYPE
|
|
cmp #MENU_MAGIC_HEAL
|
|
beq was_heal_magic
|
|
|
|
jsr damage_enemy
|
|
lda #2
|
|
sta XPOS
|
|
lda #10
|
|
sta YPOS
|
|
jsr gr_put_num
|
|
jmp done_magic_damage
|
|
|
|
was_heal_magic:
|
|
jsr heal_self
|
|
done_magic_damage:
|
|
|
|
jsr draw_battle_bottom
|
|
|
|
jsr page_flip
|
|
|
|
; wait 2s
|
|
ldx #200
|
|
jsr long_wait
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
;=============================
|
|
; done attack
|
|
;=============================
|
|
|
|
done_attack:
|
|
lda #0
|
|
sta BATTLE_COUNT
|
|
|
|
lda #MENU_NONE
|
|
sta MENU_STATE
|
|
|
|
rts
|
|
|
|
|
|
|
|
;================================
|
|
; draw enemy
|
|
; relies on self-modifying code
|
|
; position in XPOS,YPOS
|
|
|
|
draw_enemy:
|
|
|
|
draw_enemy_smc1:
|
|
lda #$a5
|
|
sta INL
|
|
draw_enemy_smc2:
|
|
lda #$a5
|
|
|
|
battle_actual_draw_enemy:
|
|
sta INH
|
|
jmp put_sprite_crop ; tail call
|
|
|
|
|
|
|
|
;============================
|
|
; draw hero victory
|
|
;============================
|
|
; draws at HERO_X,HERO_Y
|
|
|
|
draw_hero_victory:
|
|
lda HERO_X
|
|
sta XPOS
|
|
lda HERO_Y
|
|
sta YPOS
|
|
|
|
lda #<tfv_victory_sprite
|
|
sta INL
|
|
lda #>tfv_victory_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
|
|
lda HERO_X
|
|
sec
|
|
sbc #2
|
|
sta XPOS
|
|
lda #14
|
|
sta YPOS
|
|
|
|
lda #<tfv_led_sword_sprite
|
|
sta INL
|
|
lda #>tfv_led_sword_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
|
|
rts
|
|
|
|
|
|
;============================
|
|
; draw hero and sword
|
|
;============================
|
|
; draws at HERO_X,HERO_Y
|
|
|
|
draw_hero_and_sword:
|
|
|
|
lda HERO_X
|
|
sta XPOS
|
|
lda HERO_Y
|
|
sta YPOS
|
|
|
|
lda #<tfv_stand_left_sprite
|
|
sta INL
|
|
lda #>tfv_stand_left_sprite
|
|
sta INH
|
|
|
|
jsr put_sprite_crop
|
|
|
|
; grsim_put_sprite(tfv_led_sword,ax-5,20);
|
|
lda HERO_X
|
|
sec
|
|
sbc #5
|
|
sta XPOS
|
|
lda HERO_Y
|
|
sta YPOS
|
|
|
|
lda #<tfv_led_sword_sprite
|
|
sta INL
|
|
lda #>tfv_led_sword_sprite
|
|
sta INH
|
|
jsr put_sprite_crop
|
|
|
|
rts
|
|
|
|
|
|
;=====================
|
|
;=====================
|
|
; long(er) wait
|
|
; waits approximately 10ms * X
|
|
;=====================
|
|
;=====================
|
|
long_wait:
|
|
lda #64
|
|
jsr WAIT ; delay 1/2(26+27A+5A^2) us, 11,117
|
|
dex
|
|
bne long_wait
|
|
rts
|
|
|
|
|
|
|
|
|