|
|
@@ -0,0 +1,4724 @@
|
|
|
+ rem ' Ature Adventure
|
|
|
+ rem ' Copyright beoran@rubyforge.org 2009, 2010.
|
|
|
+ rem ' May be distributed under the Zlib License. No warranty, use at your own risk.
|
|
|
+
|
|
|
+; Modified for 7800Basic by Karl Garrison (kgarrison@pobox.com)
|
|
|
+; Add some 7800Basic configuration options
|
|
|
+ set zoneheight 16
|
|
|
+ set basepath gfx
|
|
|
+ set romsize 48k
|
|
|
+ displaymode 160A
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Commonly used NTSC Colors
|
|
|
+ const black=0
|
|
|
+ const gray=6
|
|
|
+ const white=14
|
|
|
+ const yellow=30
|
|
|
+
|
|
|
+ const brown=32
|
|
|
+ const orange=32
|
|
|
+ const blue=144
|
|
|
+ const skyblue=174
|
|
|
+ const green=192
|
|
|
+ const darkgreen=191
|
|
|
+ const riverblue=170
|
|
|
+ rem ' XXX: there is a bug in the ompiler (or my patches to it)
|
|
|
+ rem ' some of my consants like the one below are translated in stead
|
|
|
+ rem ' like a dim statement: eg const turfy=218 -> dim turfy=218
|
|
|
+ rem ' a workaround seem to be to reorder the constants a bit
|
|
|
+ rem ' or to remove a few of them, but this only bugs out other constants :p
|
|
|
+ rem ' so I replaced some constants by their values, and use the cpp
|
|
|
+ rem ' preprocessor in stead.
|
|
|
+; #define seablue 144
|
|
|
+ const seablue = 144
|
|
|
+ const red = 64
|
|
|
+ const pink = 78
|
|
|
+ const skin = 254
|
|
|
+ const sand = 230
|
|
|
+ const turfy = 218
|
|
|
+ rem ' const ochre=16
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Playfield dimensions
|
|
|
+ const field_left=17
|
|
|
+ const field_left_enter=18
|
|
|
+ const field_right=$88
|
|
|
+ const field_right_enter=$87
|
|
|
+ const field_top=10
|
|
|
+ const field_top_enter=11
|
|
|
+ const field_bottom=90
|
|
|
+ const field_bottom_enter=89
|
|
|
+ const field_hcenter=61
|
|
|
+ const field_vcenter=44
|
|
|
+
|
|
|
+ rem ' Note definitions and length const music_voice=12
|
|
|
+ rem const note_c4=30
|
|
|
+ rem const note_d4=27
|
|
|
+ rem const note_e4=24
|
|
|
+ rem const note_f4=23
|
|
|
+ rem const note_g4=20
|
|
|
+ rem const note_a4=18
|
|
|
+ rem const note_b4=16
|
|
|
+ rem const note_c5=15
|
|
|
+ rem const note_none=0
|
|
|
+ rem const note_full=60
|
|
|
+ rem const note_half=30
|
|
|
+ rem const note_quarter=15
|
|
|
+ rem const note_fullrest=58
|
|
|
+ rem const note_halfrest=28
|
|
|
+ rem const note_quarterest=13
|
|
|
+ rem const note_ndot=2
|
|
|
+
|
|
|
+
|
|
|
+ rem ' An object will be positioned at 255 to hide it
|
|
|
+ const nowhere=255
|
|
|
+
|
|
|
+ rem 'Timer ticks per second, 60 for NTSC
|
|
|
+ const ticks_per_second=60
|
|
|
+
|
|
|
+ rem 'Score, split up in individual digits
|
|
|
+ dim sc0=score
|
|
|
+ dim sc1=score+1
|
|
|
+ dim sc2=score+2
|
|
|
+
|
|
|
+ rem 'Initial values
|
|
|
+ rem 'Normal start
|
|
|
+ const room_start=49
|
|
|
+ rem '49
|
|
|
+ rem 'On the east side of the river
|
|
|
+ rem 'const room_start=4
|
|
|
+
|
|
|
+ const hero_start_x=75
|
|
|
+ const hero_start_y=75
|
|
|
+ const item_start_x=60
|
|
|
+ const item_start_y=40
|
|
|
+ const item_start_hp=1
|
|
|
+ const hero_base_hp=11
|
|
|
+ const hero_high=8
|
|
|
+ const hero_half_high=4
|
|
|
+ const hero_feet_high=4
|
|
|
+ const hero_wide=8
|
|
|
+ const hero_half_wide=4
|
|
|
+ rem 'Hero's position, speed and room
|
|
|
+ dim hero_x=player0x
|
|
|
+ dim hero_y=player0y
|
|
|
+
|
|
|
+ dim hero_oldx=v
|
|
|
+ dim hero_oldy=w
|
|
|
+ rem 'Flags:
|
|
|
+ dim hero_flags=g
|
|
|
+ rem 'hero_flags{0} -> facing north
|
|
|
+ rem 'hero_flags{1} -> facing east
|
|
|
+ rem 'hero_flags{2} -> facing south
|
|
|
+ rem 'hero_flags{3} -> facing west
|
|
|
+ rem 'hero_flags{4} -> set when attacking is allowed, blocked when not
|
|
|
+ dim hero_items=q
|
|
|
+ rem 'hero_items{0} -> Key Leaf 1
|
|
|
+ rem 'hero_items{1} -> Key Leaf 2
|
|
|
+ rem 'hero_items{2} -> Key Leaf 3
|
|
|
+ rem 'hero_items{3} -> Numen Shield
|
|
|
+ rem 'hero_items{4} -> Numen Armor
|
|
|
+ rem 'hero_items{5} -> Numen Sword
|
|
|
+ rem 'hero_items{6} -> Heal Book
|
|
|
+ rem 'hero_items{7} -> Strike Book
|
|
|
+ dim hero_room=r
|
|
|
+; dim hero_hp=statusbarlength
|
|
|
+ dim hero_mp=o
|
|
|
+ dim hero_next=k
|
|
|
+ dim hero_level=l
|
|
|
+ rem 'Quest flags contain important achievments of Signe.
|
|
|
+ dim quest_flags=h
|
|
|
+ rem 'quest_flags{0} -> Defeated Ikaza
|
|
|
+ rem 'quest_flags{1} -> Flipped Switch 1
|
|
|
+ rem 'quest_flags{2} -> Flipped Switch 2
|
|
|
+ rem 'quest_flags{3} -> Flipped Switch 3
|
|
|
+ rem 'quest_flags{4} -> Flipped Switch 4
|
|
|
+ rem 'quest_flags{5} -> Flipped Switch 5
|
|
|
+ rem 'quest_flags{6} -> Flipped Switch 6
|
|
|
+ rem 'quest_flags{7} -> Flipped Switch 7
|
|
|
+
|
|
|
+ rem 'Other flags: Reserved for future extension
|
|
|
+ rem 'quest_flags{1} -> Defeated Armor Boss
|
|
|
+ rem 'quest_flags{2} -> Defeated Sword Boss
|
|
|
+ rem 'quest_flags{3} -> Defeated
|
|
|
+ rem 'quest_flags{0} -> Defeated Leaf Boss 1
|
|
|
+ rem 'quest_flags{1} -> Defeated Leaf Boss 2
|
|
|
+ rem 'quest_flags{2} -> Defeated Leaf Boss 3
|
|
|
+ rem 'status bar color in Z, which si otherwise used for debugging
|
|
|
+ rem ' Can't sue changes top platfield row color somehow. :p
|
|
|
+ rem ' dim statusbarcolor=z
|
|
|
+
|
|
|
+ const strike_cost=1
|
|
|
+ const last_monster=32
|
|
|
+
|
|
|
+ const hero_speed=1
|
|
|
+ const hero_speed_negative=#-1
|
|
|
+
|
|
|
+ rem item/monster position speed and kind
|
|
|
+ dim item_x=player1x
|
|
|
+ dim item_y=player1y
|
|
|
+ dim item_kind=s
|
|
|
+ dim item_hp=i
|
|
|
+ dim item_oldx=t
|
|
|
+ dim item_oldy=u
|
|
|
+ rem 'Active item flags:
|
|
|
+ dim item_flags=f
|
|
|
+ rem 'item_flags{0} -> Monster missile flies north
|
|
|
+ rem 'item_flags{1} -> Monster missile flies east
|
|
|
+ rem 'item_flags{2} -> Monster missile flies south
|
|
|
+ rem 'item_flags{3} -> Monster missile flies west
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Game timer. Controls animation. Keeps on ticking, by overflow.
|
|
|
+ dim game_timer=e
|
|
|
+ const timer_loop=128
|
|
|
+ const timer_second=60
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Item and monster kinds.
|
|
|
+ rem 'Monster kind is divided as follows: the 6 bits record the looks
|
|
|
+ rem 'and the 'index' for data tables of the monster or item
|
|
|
+ rem 'The high 2 bits are used for 2 flag variables:
|
|
|
+ rem 'If item_kind{7} is set it's an immobile item, otherwise, a monster
|
|
|
+ rem '6 is yet to be determined
|
|
|
+ const item_kind_mask=%00111111
|
|
|
+ const is_item_mask=%10000000
|
|
|
+ const item_none=%10000000
|
|
|
+ const monster_slime=1
|
|
|
+ const monster_crab=2
|
|
|
+ const monster_bat=3
|
|
|
+ const monster_scorpio=4
|
|
|
+ rem 'The famous rabid rabbit ^_^
|
|
|
+ const monster_rabid=5
|
|
|
+ const monster_spider=6
|
|
|
+ const monster_snake=7
|
|
|
+ const monster_fish=8
|
|
|
+ const monster_lion=9
|
|
|
+ const monster_wolf=10
|
|
|
+ const monster_grunt=11
|
|
|
+ const monster_archer=12
|
|
|
+ const monster_knight=13
|
|
|
+ const monster_cannon=14
|
|
|
+ const monster_zombie=15
|
|
|
+ const monster_skeleton=16
|
|
|
+ const monster_ghost=17
|
|
|
+ const monster_mage=18
|
|
|
+ const monster_flower=19
|
|
|
+ const monster_treant=20
|
|
|
+ const monster_mushroom=21
|
|
|
+ const monster_book=22
|
|
|
+ const monster_sword=23
|
|
|
+ rem 'Monster curse blocks the way in rooms. It's invulnerable,
|
|
|
+ rem 'but can be removed by game events.
|
|
|
+ const monster_curse=24
|
|
|
+ const monster_first_boss=25
|
|
|
+ const monster_leaf1_boss=25
|
|
|
+ const monster_leaf2_boss=26
|
|
|
+ const monster_leaf3_boss=27
|
|
|
+ const monster_armor_boss=28
|
|
|
+ rem 'Boss that guards the Numen Sword
|
|
|
+ const monster_sword_boss=29
|
|
|
+ rem 'Boss that guards the Strike book
|
|
|
+ const monster_strike_boss=30
|
|
|
+ const monster_ikaza=31
|
|
|
+
|
|
|
+ const item_inventory_mask=160
|
|
|
+ const item_leaf1=160
|
|
|
+ const item_leaf2=161
|
|
|
+ const item_leaf3=162
|
|
|
+ const item_armor=163
|
|
|
+ const item_shield=164
|
|
|
+ const item_sword=165
|
|
|
+ const item_bookheal=166
|
|
|
+ const item_bookstrike=167
|
|
|
+ const item_healhp=168
|
|
|
+ const item_healmp=169
|
|
|
+ const item_healallhp=170
|
|
|
+ const item_healallmp=171
|
|
|
+ const item_first_switch=172
|
|
|
+ const item_switch_on=7
|
|
|
+ const item_switch1=172
|
|
|
+ const item_switch2=173
|
|
|
+ const item_switch3=174
|
|
|
+ const item_switch4=175
|
|
|
+ const item_switch5=176
|
|
|
+ const item_switch6=177
|
|
|
+ const item_switch7=178
|
|
|
+ const item_last_switch=178
|
|
|
+ const item_first_switch_on=179
|
|
|
+ const item_switch1_on=179
|
|
|
+ const item_switch2_on=180
|
|
|
+ const item_switch3_on=181
|
|
|
+ const item_switch4_on=182
|
|
|
+ const item_switch5_on=183
|
|
|
+ const item_switch6_on=184
|
|
|
+ const item_switch7_on=185
|
|
|
+ const item_last_switch_on=182
|
|
|
+ const item_victory=191
|
|
|
+ const monster_normal=0
|
|
|
+ rem 'Bit 0 in monster flags
|
|
|
+ const monster_shoots=1
|
|
|
+ rem 'Bit 1 in monster flags
|
|
|
+ const monster_randomwalk=2
|
|
|
+ rem 'Bit 2 in monster flags
|
|
|
+ const monster_aggressive=4
|
|
|
+ rem 'Bit 3 in monster flags
|
|
|
+ const monster_static=8
|
|
|
+ rem 'Bit 4 in monster flags
|
|
|
+ const monster_alwaysdrop=16
|
|
|
+ rem 'Bit 5 in monster flags
|
|
|
+ const monster_nowalls=32
|
|
|
+ rem 'Bit 6 in monster flags
|
|
|
+ const monster_huge=64
|
|
|
+ rem 'Bit 7 in monster flags. Will triple if huge is also set
|
|
|
+ rem 'Currently, double nor triple doesn't work well with the AI
|
|
|
+ const monster_double=128
|
|
|
+ const monster_boss_info=monster_alwaysdrop + monster_shoots + monster_huge + monster_nowalls
|
|
|
+ const monster_boss2_info=monster_alwaysdrop + monster_shoots + monster_huge + monster_nowalls
|
|
|
+ const monster_boss3_info=monster_alwaysdrop + monster_shoots + monster_huge + monster_nowalls
|
|
|
+ const monster_swordboss_info=monster_alwaysdrop + monster_aggressive + monster_nowalls
|
|
|
+ const monster_cannon_info=monster_shoots + monster_static + monster_nowalls
|
|
|
+
|
|
|
+ rem ' Music wave form to use.
|
|
|
+ const music_instrument=12
|
|
|
+ const music_notes=69
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Timer and pointer for music and sound
|
|
|
+ dim music_pointer=m
|
|
|
+ dim music_timer=n
|
|
|
+ dim music_which=d
|
|
|
+ dim sound_timer=p
|
|
|
+ rem 'Unused variables: a b c
|
|
|
+
|
|
|
+ rem 'Set back to 1 when not debugging.
|
|
|
+ const hero_start_level=20
|
|
|
+ rem 'set back to 0 when not debugging
|
|
|
+ const hero_start_items=
|
|
|
+
|
|
|
+ rem ' Colors to use for the item display
|
|
|
+ data item_colors
|
|
|
+ black, green, red, blue, black, green, red, blue,
|
|
|
+ black, green, red, blue, black, green, red, blue,
|
|
|
+ black, green, red, blue, black, green, red, blue,
|
|
|
+ black, black, red, red, black, orange, red, blue,
|
|
|
+ black, green, red, blue, black, green, red, blue,
|
|
|
+ red , green, red, green, black, green, red, blue,
|
|
|
+ white, yellow, orange, black, green, red, blue, white,
|
|
|
+ yellow, orange, blue, black, green, red, blue, blue,
|
|
|
+end
|
|
|
+
|
|
|
+ rem 'Damage modifier for the MONSTER/item. 0 means no damage
|
|
|
+ rem 'There is no monster nr 0, that's for item_none.
|
|
|
+ rem 'The curse deals massive damage to be sure it works.
|
|
|
+ data item_damage
|
|
|
+ 0, 1, 1, 1, 1, 2, 2, 2
|
|
|
+ 2, 4, 4, 4, 4, 6, 6, 6
|
|
|
+ 10, 16, 16, 1, 16, 4, 16, 16
|
|
|
+ 128, 20, 22, 24, 48, 48, 48, 64
|
|
|
+ 0, 0, 0, 0, 0, 0, 0, 0
|
|
|
+ 0, 0, 0, 0, 0, 0, 0, 0
|
|
|
+ 0, 0, 0, 0, 0, 0, 0, 0
|
|
|
+ 0, 0, 0, 0, 0, 0, 0, 0
|
|
|
+end
|
|
|
+
|
|
|
+ rem '
|
|
|
+ rem ' Monster information, bitflags (monster 0 doesn't exist, but is in this list!)
|
|
|
+ data monster_info
|
|
|
+ monster_normal, monster_normal, monster_nowalls+monster_shoots, monster_nowalls
|
|
|
+ monster_normal, monster_nowalls, monster_normal, monster_aggressive
|
|
|
+ monster_shoots + monster_nowalls, monster_normal, monster_normal, monster_normal
|
|
|
+ monster_shoots, monster_aggressive, monster_cannon_info, monster_randomwalk
|
|
|
+ monster_normal, monster_nowalls, monster_nowalls + monster_shoots, monster_cannon_info
|
|
|
+ monster_normal, monster_normal, monster_cannon_info, monster_static + monster_nowalls
|
|
|
+ monster_static + monster_huge + monster_nowalls, monster_boss_info, monster_boss_info, monster_boss3_info
|
|
|
+ monster_boss_info, monster_swordboss_info, monster_boss_info, monster_aggressive + monster_shoots
|
|
|
+end
|
|
|
+
|
|
|
+ rem ' Items the monster drops, or for items, what item flag to set
|
|
|
+ data monster_drops
|
|
|
+ item_healhp, item_healhp, item_healhp, item_healmp,
|
|
|
+ item_healhp, item_healhp, item_healhp, item_healhp,
|
|
|
+ item_healhp, item_healhp, item_healhp, item_healhp,
|
|
|
+ item_healhp, item_healallhp, item_healhp, monster_skeleton,
|
|
|
+ monster_ghost, item_switch5, monster_book, item_healmp,
|
|
|
+ item_healallmp, item_healhp, item_bookheal, item_sword,
|
|
|
+ item_healhp, item_leaf1, item_leaf2 , item_leaf3,
|
|
|
+ item_armor, monster_sword, item_bookstrike, item_healallhp,
|
|
|
+end
|
|
|
+
|
|
|
+
|
|
|
+ rem VOLUME DOWN AND SET CHANNELS
|
|
|
+ AUDV0=0
|
|
|
+ AUDV1=0
|
|
|
+ AUDC0=music_instrument
|
|
|
+
|
|
|
+ rem INITIALIZE POINTERS AND TIMERS
|
|
|
+
|
|
|
+ rem 'lives control
|
|
|
+; lifecolor=black
|
|
|
+ rem 'Lives are used for the MP
|
|
|
+; lives=32
|
|
|
+; lives:
|
|
|
+; %00010000
|
|
|
+; %00010000
|
|
|
+; %01010100
|
|
|
+; %10111010
|
|
|
+; %01010100
|
|
|
+; %00010000
|
|
|
+; %00010000
|
|
|
+; %00010000
|
|
|
+;end
|
|
|
+
|
|
|
+ rem 'Go to intro screen, but not now while we are debugging.
|
|
|
+ gosub intro_screen
|
|
|
+ goto main_loop_start
|
|
|
+
|
|
|
+main_loop_start
|
|
|
+ rem ' Set up initial values.
|
|
|
+ gosub music_restart
|
|
|
+ COLUBK = black
|
|
|
+ lifecolor=yellow
|
|
|
+ hero_room=room_start
|
|
|
+ hero_x=hero_start_x
|
|
|
+ hero_oldx=hero_start_x
|
|
|
+ hero_y=hero_start_y
|
|
|
+ hero_oldy=hero_start_x
|
|
|
+ quest_flags=0
|
|
|
+ hero_level=hero_start_level
|
|
|
+ hero_next=(hero_level / 2) + 1
|
|
|
+ hero_hp=hero_level*2+hero_base_hp
|
|
|
+ rem 'MP is between 1 and 6
|
|
|
+ hero_mp=hero_level/16 + 1
|
|
|
+ gosub set_mp_display
|
|
|
+ hero_flags = 0
|
|
|
+ item_flags = 0
|
|
|
+ game_timer = 0
|
|
|
+ item_kind=item_none
|
|
|
+ hero_items = hero_start_items
|
|
|
+ rem 'Player starts facing south, able to attack
|
|
|
+ hero_flags{2} = 1
|
|
|
+ hero_flags{4} = 1
|
|
|
+ rem player0x=75
|
|
|
+ rem player0y=75
|
|
|
+ item_x=item_start_x
|
|
|
+ item_oldx=item_start_x
|
|
|
+ item_y=item_start_y
|
|
|
+ item_oldy=item_start_x
|
|
|
+ missile1x=nowhere
|
|
|
+ missile1y=nowhere
|
|
|
+ scorecolor=64
|
|
|
+ item_hp=item_start_hp
|
|
|
+ gosub show_inventory
|
|
|
+ gosub hero_draw_s
|
|
|
+ gosub room_draw
|
|
|
+ drawscreen
|
|
|
+main_loop
|
|
|
+ COLUP0 = skin
|
|
|
+ temp1 = item_kind & item_kind_mask
|
|
|
+ COLUP1 = item_colors[temp1]
|
|
|
+ rem 'Special effects for the item (double or triple size, double or triple instances)
|
|
|
+ if item_kind{7} goto special_effects_end
|
|
|
+ temp2 = monster_info[item_kind]
|
|
|
+ if temp2{6} then NUSIZ1 = $07
|
|
|
+ if temp2{7} then NUSIZ1 = $02
|
|
|
+ if temp2{7} && temp2{7} then NUSIZ1 =$06
|
|
|
+special_effects_end
|
|
|
+ PF0=$00
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Collisions with the walls. For now, we use push-back collision
|
|
|
+ rem 'for the monsters, and preventive collision detection for the player.
|
|
|
+ rem 'This is inconsistent, but push-back is easier to manage with regards to
|
|
|
+ rem 'and matters less for AI, so I'll leave it at that for now.
|
|
|
+ if !collision(player0, playfield) then goto herofield_collide_end
|
|
|
+ rem 'Could do something here ??? Some overlap is OK, IMO
|
|
|
+herofield_collide_end
|
|
|
+
|
|
|
+ rem 'Collisions with the walls
|
|
|
+ rem 'For the item
|
|
|
+ if !collision(player1, playfield) then goto itemfield_collide_end
|
|
|
+ temp2 = monster_info[item_kind]
|
|
|
+ rem 'Some monsters ignore walls
|
|
|
+ if temp2{5} then goto itemfield_collide_end
|
|
|
+
|
|
|
+ if item_y = item_oldy && item_x = item_oldx then goto itemfield_collide_still
|
|
|
+ item_y = item_oldy
|
|
|
+ item_x = item_oldx
|
|
|
+ goto itemfield_collide_end
|
|
|
+itemfield_collide_still
|
|
|
+ rem if item_y < field_vcenter then item_y = item_oldy - 1 else item_y = item_oldy + 1
|
|
|
+ rem if item_x < field_hcenter then item_x = item_oldx - 1 else item_x = hero_oldx + 1
|
|
|
+itemfield_collide_end
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Remember curent position which should be OK here,
|
|
|
+ rem 'and with that I mean not colliding with the walls.
|
|
|
+ hero_oldx = hero_x
|
|
|
+ hero_oldy = hero_y
|
|
|
+ item_oldx = item_x
|
|
|
+ item_oldy = item_y
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Teleport to Sygne's home on reset button
|
|
|
+ if !switchreset then goto reset_end
|
|
|
+ hero_room=room_start
|
|
|
+ hero_x=hero_start_x
|
|
|
+ hero_oldx=hero_start_x
|
|
|
+ hero_y=hero_start_y
|
|
|
+ hero_oldy=hero_start_x
|
|
|
+ gosub room_draw
|
|
|
+reset_end
|
|
|
+
|
|
|
+ rem 'Update game timer, and let it overflow back to 0 .
|
|
|
+ game_timer = game_timer + 1
|
|
|
+ rem 'Update sound timer, and set to silence if sound is done
|
|
|
+ if sound_timer < 1 then goto sound_end
|
|
|
+ sound_timer = sound_timer - 1
|
|
|
+ if sound_timer > 1 then goto sound_end
|
|
|
+ AUDV1 = 0
|
|
|
+ AUDC1 = 0
|
|
|
+ AUDF1 = 0
|
|
|
+ sound_timer = 0
|
|
|
+sound_end
|
|
|
+
|
|
|
+ rem 'Collision between hero and monster/item or the monster's missile
|
|
|
+ if !collision(player0, missile1) then goto no_missile_collide
|
|
|
+ rem 'Ennemy missile hit player, remove it
|
|
|
+ missile1y = nowhere
|
|
|
+ missile1x = nowhere
|
|
|
+ item_flags= 0
|
|
|
+ rem ' If the player doesn't have a shield, jump to monster collide
|
|
|
+ rem 'Otherwise ignore the projectile and remove it
|
|
|
+ if !hero_items{3} then goto monster_collide
|
|
|
+no_missile_collide
|
|
|
+ if !collision(player0, player1) then goto item_collide_end
|
|
|
+ rem 'Distinguish between item or monster collide
|
|
|
+ if item_kind{7} then goto item_collide
|
|
|
+ rem 'Collision with monster or monster missile
|
|
|
+monster_collide
|
|
|
+ COLUP0 = red
|
|
|
+ rem 'Make a hit sound
|
|
|
+ sound_timer=2
|
|
|
+ AUDC1=6
|
|
|
+ AUDF1=10
|
|
|
+ AUDV1=14
|
|
|
+
|
|
|
+ rem 'Push back the hero, but only if the playfield is free behind her.
|
|
|
+ rem 'Also don't push back if too close to the edge of the screen.
|
|
|
+
|
|
|
+
|
|
|
+ if !hero_flags{0} then goto hero_hit_north_end
|
|
|
+ temp1 = (hero_x + hero_half_wide - 17) / 4
|
|
|
+ temp2 = (hero_y + 8 - 1) / 8
|
|
|
+ if pfread(temp1, temp2) goto hero_hit_north_end
|
|
|
+ hero_y = hero_y + 8
|
|
|
+ rem 'Still inside the screen?
|
|
|
+ if hero_y < field_bottom then goto hero_hit_north_end
|
|
|
+ rem 'if we get here, we'd be pushed out of the screen. Prevent this.
|
|
|
+ hero_y = field_bottom_enter
|
|
|
+hero_hit_north_end
|
|
|
+
|
|
|
+ if !hero_flags{1} then goto hero_hit_east_end
|
|
|
+ temp1 = (hero_x - 8 - 17) / 4
|
|
|
+ temp2 = (hero_y - hero_half_high - 1) / 8
|
|
|
+ if pfread(temp1, temp2) goto hero_hit_east_end
|
|
|
+ hero_x = hero_x - 8
|
|
|
+ rem 'Still inside the screen?
|
|
|
+ if field_left < hero_x then goto hero_hit_east_end
|
|
|
+ rem 'if we get here, we'd be pushed out of the screen. Prevent this.
|
|
|
+ hero_x = field_left_enter
|
|
|
+hero_hit_east_end
|
|
|
+
|
|
|
+ if !hero_flags{2} then goto hero_hit_south_end
|
|
|
+ if pfread(temp1, temp2) then goto hero_hit_south_end
|
|
|
+ temp1 = (hero_x + hero_half_wide - 17) / 4
|
|
|
+ temp2 = (hero_y - hero_high - 8 - 1) / 8
|
|
|
+ hero_y = hero_y - 8
|
|
|
+ if hero_y > field_top then goto hero_hit_south_end
|
|
|
+ rem 'if we get here, we'd be pushed out of the screen. Prevent this.
|
|
|
+ hero_y = field_top_enter
|
|
|
+hero_hit_south_end
|
|
|
+
|
|
|
+ if !hero_flags{3} then goto hero_hit_west_end
|
|
|
+ temp1 = (hero_x + hero_wide + 8 - 17) / 4
|
|
|
+ temp2 = (hero_y - hero_half_high - 1) / 8
|
|
|
+ if pfread(temp1, temp2) then goto hero_hit_west_end
|
|
|
+ hero_x = hero_x + 8
|
|
|
+ rem 'Still inside the screen?
|
|
|
+ if hero_x < field_right then goto hero_hit_west_end
|
|
|
+ rem 'if we get here, we'd be pushed out of the screen. Prevent this.
|
|
|
+ hero_x = field_right_enter
|
|
|
+hero_hit_west_end
|
|
|
+
|
|
|
+ temp1 = item_kind & item_kind_mask
|
|
|
+ temp1 = item_damage[temp1]
|
|
|
+ rem 'Halve damage if hero has the armor
|
|
|
+ if hero_items{4} then temp1 = temp1 / 2
|
|
|
+
|
|
|
+ rem 'Game over if damage is higher than health
|
|
|
+ if temp1 < hero_hp then goto do_damage
|
|
|
+ rem 'But escape by the skin of the teeth if Signe has the healing book and
|
|
|
+ rem 'Numen to use it.
|
|
|
+ if hero_items{6} && hero_mp > 0 then goto use_heal_spell
|
|
|
+ hero_hp = 0
|
|
|
+ goto game_over
|
|
|
+use_heal_spell
|
|
|
+ COLUP0 = green
|
|
|
+ hero_mp = hero_mp - 1
|
|
|
+ gosub set_mp_display
|
|
|
+ hero_hp = hero_level * 2 + hero_base_hp
|
|
|
+ goto item_collide_end
|
|
|
+do_damage
|
|
|
+ hero_hp = hero_hp - temp1
|
|
|
+ goto item_collide_end
|
|
|
+item_collide
|
|
|
+ rem 'If colliding with an item, pick it up if it is not a switch.
|
|
|
+ if item_kind < item_switch1 then goto item_do_collide
|
|
|
+ if item_kind > item_switch7_on then goto item_do_collide
|
|
|
+ goto item_collide_end
|
|
|
+item_do_collide
|
|
|
+ gosub item_pickup
|
|
|
+ gosub show_inventory
|
|
|
+item_collide_end
|
|
|
+
|
|
|
+ rem 'Collision between monster missile and field.
|
|
|
+ rem 'Or between sword and monster missile. Remove missile.
|
|
|
+ rem 'Remove misile if monster is gone.
|
|
|
+ if item_kind > last_monster then goto missile_remove
|
|
|
+ if collision(missile0, missile1) then goto missile_remove
|
|
|
+ if missile1x > field_right then goto missile_remove
|
|
|
+ if missile1x < field_left then goto missile_remove
|
|
|
+ if missile1y < field_top then goto missile_remove
|
|
|
+ if missile1y > field_bottom then goto missile_remove
|
|
|
+ if !collision(missile1, playfield) then goto missile_remove_end
|
|
|
+ rem 'Don't remove the misile even when coliding with the playfield if the
|
|
|
+ rem 'monster ignores the walls.
|
|
|
+ temp2 = monster_info[item_kind]
|
|
|
+ rem 'temp2 = temp2 & monster_nowalls
|
|
|
+ if temp2{5} then goto missile_remove_end
|
|
|
+missile_remove
|
|
|
+ missile1y = nowhere
|
|
|
+ missile1x = nowhere
|
|
|
+ item_flags= 0
|
|
|
+missile_remove_end
|
|
|
+
|
|
|
+ rem 'Collision between monster and hero's attack
|
|
|
+ if !collision(player1, missile0) then goto slash_collide_end
|
|
|
+ rem 'Distinguish between item or monster collide
|
|
|
+ if item_kind{7} then goto slash_item_collide
|
|
|
+
|
|
|
+ rem 'The curse monster cannot be harmed normally.
|
|
|
+ rem 'It can be harmed if Signe has the three leaves, or the Numen Sword.
|
|
|
+ rem 'Do the special handling here.
|
|
|
+ if item_kind <> monster_curse then goto monster_no_curse
|
|
|
+ rem 'Signe has the sword? The curse can be damaged.
|
|
|
+ if hero_items{5} then goto monster_no_curse
|
|
|
+ rem 'Signe has the three leaves? The curse can be damaged.
|
|
|
+ if hero_items{0} && hero_items{1} && hero_items{2} then goto monster_no_curse
|
|
|
+ rem 'If we get here, Signe's unable to do any damage.
|
|
|
+ rem 'Make a deflected sound
|
|
|
+ sound_timer=2
|
|
|
+ AUDC1=12
|
|
|
+ AUDV1=14
|
|
|
+ AUDF1=1
|
|
|
+ goto slash_collide_end
|
|
|
+monster_no_curse
|
|
|
+ rem 'Make a hit sound once
|
|
|
+ sound_timer=1
|
|
|
+ AUDC1=8
|
|
|
+ AUDF1=2
|
|
|
+ AUDV1=8
|
|
|
+ hero_flags{4} = 0
|
|
|
+ rem COLUP1 = red
|
|
|
+ rem 'Push back monster
|
|
|
+ if hero_flags{0} then item_y = item_y - 4
|
|
|
+ if hero_flags{1} then item_x = item_x + 4
|
|
|
+ if hero_flags{2} then item_y = item_y + 4
|
|
|
+ if hero_flags{3} then item_x = item_x - 4
|
|
|
+ rem 'Damage is level / 2 + 1
|
|
|
+ temp1 = (hero_level / 2)
|
|
|
+ temp1 = temp1 + 1
|
|
|
+ rem 'Double damage with the Numen Sword
|
|
|
+ if hero_items{5} then temp1 = temp1 * 2
|
|
|
+ rem 'Prevent damage overflow
|
|
|
+ if temp1 < 0 then temp1 = 0 - temp1
|
|
|
+ if temp1 < item_hp then goto item_survived
|
|
|
+ rem 'Item / monster killed or destroyed
|
|
|
+ if item_kind = monster_ikaza then quest_flags{0} = 1
|
|
|
+ rem 'Make sure Ikaza cannot come back
|
|
|
+ rem 'Give experience and level up if needed
|
|
|
+ rem 'Experience received is danger level of the monster
|
|
|
+ temp2 = item_damage[item_kind]
|
|
|
+ rem 'No experience for killing the curse, as it's a sitting duck.
|
|
|
+ if item_kind = monster_curse then goto give_experience_end
|
|
|
+ if temp2 < hero_next then goto give_experience
|
|
|
+ rem 'Level up, but not more than 99
|
|
|
+ if hero_level > 98 then goto give_experience_end
|
|
|
+ rem 'Level up sound
|
|
|
+ COLUP0=blue
|
|
|
+ AUDV1=8
|
|
|
+ AUDF1=24
|
|
|
+ AUDC1=12
|
|
|
+ sound_timer=8
|
|
|
+ hero_level = hero_level + 1
|
|
|
+ hero_hp = hero_level * 2 + hero_base_hp
|
|
|
+ rem 'Actually, this is buggy for levels above 80
|
|
|
+ hero_mp = hero_level/16 + 1
|
|
|
+ gosub set_mp_display
|
|
|
+ hero_next = (hero_level / 2) + 1
|
|
|
+ COLUP0 = turfy
|
|
|
+ goto give_experience_end
|
|
|
+give_experience
|
|
|
+ hero_next = hero_next - temp2
|
|
|
+give_experience_end
|
|
|
+ rem 'Drop an item, perhaps
|
|
|
+ temp6 = monster_info[item_kind]
|
|
|
+ rem 'Bit 4: monster always drops item
|
|
|
+ if temp6{4} then goto drop_item
|
|
|
+ if rand > 128 then goto drop_item
|
|
|
+ rem 'Drop occasional, not always, depeding on monster flags
|
|
|
+drop_no_item
|
|
|
+ item_kind = item_none
|
|
|
+ item_hp = 0
|
|
|
+ item_x = nowhere
|
|
|
+ item_y = nowhere
|
|
|
+ goto drop_item_done
|
|
|
+drop_item
|
|
|
+ temp2 = monster_drops[item_kind]
|
|
|
+ item_kind = temp2
|
|
|
+ gosub item_setup_kind
|
|
|
+drop_item_done
|
|
|
+ goto slash_collide_end
|
|
|
+item_survived
|
|
|
+ item_hp = item_hp - temp1
|
|
|
+ rem 'Push item around
|
|
|
+ if hero_flags{0} then item_y = item_y - 4
|
|
|
+ if hero_flags{1} then item_x = item_x + 4
|
|
|
+ if hero_flags{2} then item_y = item_y + 4
|
|
|
+ if hero_flags{3} then item_x = item_x - 4
|
|
|
+ goto slash_collide_end
|
|
|
+slash_item_collide
|
|
|
+ rem 'Make a hit sound once
|
|
|
+ sound_timer=1
|
|
|
+ AUDC1=8
|
|
|
+ AUDF1=2
|
|
|
+ AUDV1=8
|
|
|
+ if item_kind < item_switch1 then goto slash_item_pickup
|
|
|
+ if item_kind > item_switch7_on then goto slash_item_pickup
|
|
|
+ rem 'If colliding with an item that's not a switch, pick it up.
|
|
|
+ rem 'Otherwise it's a switch that's hit.
|
|
|
+ goto hit_switch
|
|
|
+slash_item_pickup
|
|
|
+ gosub item_pickup
|
|
|
+ gosub show_inventory
|
|
|
+ goto slash_collide_end
|
|
|
+hit_switch
|
|
|
+ rem 'Do nothing with the already triggered switches.
|
|
|
+ rem '(Turn them off again, perhaps?)
|
|
|
+ if item_kind > item_switch7 then goto slash_collide_end
|
|
|
+ rem 'Handle hitting of the switch: set the quest flag and change the display.
|
|
|
+ if item_kind = item_switch1 then quest_flags{1} = 1
|
|
|
+ if item_kind = item_switch2 then quest_flags{2} = 1
|
|
|
+ if item_kind = item_switch3 then quest_flags{3} = 1
|
|
|
+ if item_kind = item_switch4 then quest_flags{4} = 1
|
|
|
+ if item_kind = item_switch5 then quest_flags{5} = 1
|
|
|
+ if item_kind = item_switch6 then quest_flags{6} = 1
|
|
|
+ if item_kind = item_switch7 then quest_flags{7} = 1
|
|
|
+ gosub item_setup_kind
|
|
|
+slash_collide_end
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Player action though button
|
|
|
+ if !joy0fire then goto hero_action_done
|
|
|
+ rem 'Skip all this if action is blocked.
|
|
|
+ if !hero_flags{4} then goto hero_action_blocked
|
|
|
+ if !hero_items{7} then goto hero_act_nostrike
|
|
|
+ if hero_mp < strike_cost then goto hero_act_nostrike
|
|
|
+ rem ' The b switch controls whether the book of striking is in use or not.
|
|
|
+ if switchleftb then goto hero_act_nostrike
|
|
|
+ if item_kind < last_monster then goto hero_act_strike
|
|
|
+ if item_kind >= item_switch1 && item_kind <= item_switch7 then goto hero_act_strike
|
|
|
+hero_act_nostrike
|
|
|
+ temp1 = hero_flags & %00001111
|
|
|
+ rem 'Use this to jump to the right attack action.
|
|
|
+ rem ' 0 1=north 2=east 3=ne 4=south 5=n+s(emu onlu) 6=se 7=nse
|
|
|
+ rem ' 8 = west
|
|
|
+ rem ' 9 10 11 12 13 14 15(all sides, emu only)
|
|
|
+ on temp1 goto had hero_act_n hero_act_e hero_act_n hero_act_s hero_act_s hero_act_n hero_act_n hero_act_w hero_act_n hero_act_w hero_act_s had had had
|
|
|
+hero_act_n
|
|
|
+ missile0x=hero_x + 4
|
|
|
+ missile0y=hero_y - 14
|
|
|
+ missile0height=8
|
|
|
+ NUSIZ0=$00
|
|
|
+ goto hero_action_end
|
|
|
+hero_act_e
|
|
|
+ missile0x=hero_x + 9
|
|
|
+ missile0y=hero_y - 4
|
|
|
+ missile0height=0
|
|
|
+ NUSIZ0=$30
|
|
|
+ goto hero_action_end
|
|
|
+hero_act_s
|
|
|
+ missile0x=hero_x + 4
|
|
|
+ missile0y=hero_y + 8
|
|
|
+ missile0height=8
|
|
|
+ NUSIZ0=$00
|
|
|
+ goto hero_action_end
|
|
|
+hero_act_w
|
|
|
+ missile0x=hero_x - 7
|
|
|
+ missile0y=hero_y - 4
|
|
|
+ missile0height=0
|
|
|
+ NUSIZ0=$30
|
|
|
+ goto hero_action_end
|
|
|
+ rem NUSIZ0=$00
|
|
|
+hero_act_strike
|
|
|
+ hero_mp = hero_mp - strike_cost
|
|
|
+ gosub set_mp_display
|
|
|
+ rem 'Strike will hit the ennemy wherever it is. A guaranteed hit I'd say ^_^
|
|
|
+ missile0x=item_x
|
|
|
+ missile0y=item_y
|
|
|
+ missile0height=8
|
|
|
+ NUSIZ0=$30
|
|
|
+ COLUP0=rand
|
|
|
+ COLUP1=red
|
|
|
+ goto hero_action_end
|
|
|
+had
|
|
|
+hero_action_done
|
|
|
+ hero_flags{4} = 1
|
|
|
+ rem 'Allow attacks again
|
|
|
+hero_action_blocked
|
|
|
+ rem 'If the action is blocked or released, hide the missile
|
|
|
+ missile0x = nowhere
|
|
|
+ missile0y = nowhere
|
|
|
+hero_action_end
|
|
|
+
|
|
|
+ rem 'Deterimine hero's motion and direction from the joystick
|
|
|
+ rem 'In NESW order
|
|
|
+ rem ' hero_flags = (hero_flags / 16) * 16 preserves the higher nibble (I hope)
|
|
|
+ rem '
|
|
|
+ rem 'For the player collision detection, we calculate the playfield position
|
|
|
+ rem 'at any of the four points around the feet of the player, and check if
|
|
|
+ rem 'if anything is there with pfread, and prevent motion if it is so.
|
|
|
+ rem ' Note that we do allow Signe to turn her facing even when she cannot move.
|
|
|
+
|
|
|
+ if !joy0up then goto joy0up_end
|
|
|
+ hero_flags = (hero_flags / 16) * 16
|
|
|
+ hero_flags{0} = 1
|
|
|
+ rem 'Check top middle point
|
|
|
+ temp1 = (hero_x + hero_half_wide - 17) / 4
|
|
|
+ temp2 = (hero_y - hero_high - 1 - 1) / 8
|
|
|
+ if pfread(temp1, temp2) goto joy0up_end
|
|
|
+ hero_y = hero_y - 1
|
|
|
+joy0up_end
|
|
|
+ if !joy0right then goto joy0right_end
|
|
|
+ hero_flags = (hero_flags / 16) * 16
|
|
|
+ hero_flags{1} = 1
|
|
|
+ temp1 = (hero_x + hero_wide + 1 - 17) / 4
|
|
|
+ temp2 = (hero_y - hero_half_high - 1) / 8
|
|
|
+ rem 'Prevent motion if something is there
|
|
|
+ if pfread(temp1, temp2) goto joy0right_end
|
|
|
+ hero_x = hero_x + 1
|
|
|
+joy0right_end
|
|
|
+ if !joy0down then goto joy0down_end
|
|
|
+ hero_flags = (hero_flags / 16) * 16
|
|
|
+ hero_flags{2} = 1
|
|
|
+ temp1 = (hero_x + hero_half_wide - 17) / 4
|
|
|
+ temp2 = (hero_y + 1 - 1) / 8
|
|
|
+ rem 'Check bottom middle point. don't move if it's blocked by the playfield.
|
|
|
+ if pfread(temp1, temp2) then goto joy0down_end
|
|
|
+ hero_y = hero_y + 1
|
|
|
+joy0down_end
|
|
|
+ if !joy0left then goto joy0left_end
|
|
|
+ hero_flags = (hero_flags / 16) * 16
|
|
|
+ hero_flags{3} = 1
|
|
|
+ temp1 = (hero_x - 1 - 17) / 4
|
|
|
+ temp2 = (hero_y - hero_half_high - 1) / 8
|
|
|
+ rem 'Check point to the west of the feet
|
|
|
+ if pfread(temp1, temp2) goto joy0left_end
|
|
|
+ hero_x = hero_x - 1
|
|
|
+joy0left_end
|
|
|
+
|
|
|
+ rem 'Monster "AI":
|
|
|
+ rem 'Animate missile if it has been launched
|
|
|
+ if missile1y = nowhere then goto missile_move_end
|
|
|
+ if item_flags{3} then missile1x = missile1x - 2 : goto missile_move_end
|
|
|
+ if item_flags{0} then missile1y = missile1y - 2 : goto missile_move_end
|
|
|
+ if item_flags{1} then missile1x = missile1x + 2 : goto missile_move_end
|
|
|
+ if item_flags{2} then missile1y = missile1y + 2 : goto missile_move_end
|
|
|
+missile_move_end
|
|
|
+
|
|
|
+ rem 'Move the item if it's a mobile (id lower than 128)
|
|
|
+ if item_kind{7} then goto item_move_end
|
|
|
+ temp1 = rand
|
|
|
+ rem ' Shoot a missile sometimes...
|
|
|
+ temp6 = monster_info[item_kind]
|
|
|
+ rem 'But not if the monster cannot shoot (bit 0)
|
|
|
+ if !temp6{0} then goto activate_missile_end
|
|
|
+ if !game_timer{4} then goto activate_missile_end
|
|
|
+ if !game_timer{7} then goto activate_missile_end
|
|
|
+ if !temp1{0} then goto activate_missile_end
|
|
|
+ if missile1y <> nowhere then goto activate_missile_end
|
|
|
+ rem 'Make a shot sound
|
|
|
+ sound_timer=2
|
|
|
+ AUDC1=14
|
|
|
+ AUDV1=8
|
|
|
+ AUDF1=20
|
|
|
+ rem 'Place the missile
|
|
|
+ missile1x = item_x + 4
|
|
|
+ missile1y = item_y - 4
|
|
|
+ temp4 = item_x + 8
|
|
|
+ if hero_x > temp4 then item_flags{1} = 1
|
|
|
+ temp4 = item_x - 8
|
|
|
+ if hero_x < temp4 then item_flags{3} = 1
|
|
|
+ if hero_y > item_y then item_flags{2} = 1
|
|
|
+ if hero_y < item_y then item_flags{0} = 1
|
|
|
+ missile1height=4
|
|
|
+activate_missile_end
|
|
|
+ rem 'Agressive chasing if aggressive flag is set
|
|
|
+ if temp6{2} then goto monster_chase
|
|
|
+ rem 'Don't move if monster is static
|
|
|
+ if temp6{3} then goto item_move_end
|
|
|
+ rem 'Only move half the time
|
|
|
+ if game_timer{2} goto item_move_end
|
|
|
+
|
|
|
+ rem 'Only move if the 4th and 5th bit are not set
|
|
|
+ if temp1{1} then goto item_move_end
|
|
|
+ rem 'Random walking monsters don't give chase
|
|
|
+ if temp6{1} then goto monster_random_walk
|
|
|
+monster_chase
|
|
|
+ if hero_x > item_x then item_x = item_x + 1 else item_x = item_x - 1
|
|
|
+ if hero_y > item_y then item_y = item_y + 1 else item_y = item_y - 1
|
|
|
+ if temp6{2} then goto item_move_end
|
|
|
+ rem 'Aggressive ennemies don't random walk
|
|
|
+monster_random_walk
|
|
|
+ rem 'Use bits of random number for random walk.
|
|
|
+ if temp1{0} then item_y = item_y - 1
|
|
|
+ if temp1{4} then item_x = item_x - 1
|
|
|
+ if temp1{0} || temp1{4} then goto item_move_end
|
|
|
+ if temp1{2} then item_y = item_y + 1
|
|
|
+ if temp1{6} then item_x = item_x + 1
|
|
|
+item_move_end
|
|
|
+
|
|
|
+ rem 'Activate missile if needed
|
|
|
+
|
|
|
+ rem 'Debug by showing flags in score field
|
|
|
+ rem sc0 = hero_flags
|
|
|
+ rem temp2 = monster_info[item_kind]
|
|
|
+ rem sc1 = temp2
|
|
|
+ rem sc2 = hero_room
|
|
|
+
|
|
|
+ rem 'Music, disabled for now.
|
|
|
+ rem 'Is it time to update the note?
|
|
|
+ rem if music_timer = 0 then gosub music_change_note
|
|
|
+ rem music_timer = music_timer - 1
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Collision op hero with edge of field, transfer to other field.
|
|
|
+ if field_left < hero_x then goto exit_left_done
|
|
|
+ hero_x = field_right_enter
|
|
|
+ hero_oldx = field_right
|
|
|
+ hero_room = hero_room - 1
|
|
|
+ gosub room_draw
|
|
|
+ goto exit_done
|
|
|
+exit_left_done
|
|
|
+ if hero_x < field_right then goto exit_right_done
|
|
|
+ hero_x = field_left_enter
|
|
|
+ hero_oldx = field_left
|
|
|
+ hero_room = hero_room + 1
|
|
|
+ gosub room_draw
|
|
|
+ goto exit_done
|
|
|
+exit_right_done
|
|
|
+ if hero_y > field_top then goto exit_top_done
|
|
|
+ hero_y = field_bottom_enter
|
|
|
+ hero_oldy = field_bottom
|
|
|
+ hero_room = hero_room - 8
|
|
|
+ gosub room_draw
|
|
|
+ goto exit_done
|
|
|
+exit_top_done
|
|
|
+ if hero_y < field_bottom then goto exit_bottom_done
|
|
|
+ hero_y = field_top_enter
|
|
|
+ hero_oldy = field_top
|
|
|
+ hero_room = hero_room + 8
|
|
|
+ gosub room_draw
|
|
|
+ goto exit_done
|
|
|
+exit_bottom_done
|
|
|
+exit_done
|
|
|
+
|
|
|
+ rem 'Collision of item with edge of field, bounce back.
|
|
|
+ if item_x < field_left then item_x=field_left_enter
|
|
|
+ if item_x > field_right then item_x=field_right_enter
|
|
|
+ if item_y < field_top then item_y=field_top_enter
|
|
|
+ if item_y > field_bottom then item_x=field_bottom_enter
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Draw acting player in position 2
|
|
|
+ if joy0fire goto player_animate_2
|
|
|
+ rem 'Draw non moving player not animated
|
|
|
+ if hero_x = hero_oldx && hero_y = hero_oldy then goto player_animate_1
|
|
|
+ rem 'Draw and animate player every so many ticks
|
|
|
+ if !game_timer{4} then goto player_animate_2
|
|
|
+player_animate_1
|
|
|
+ if hero_flags{0} then gosub hero_draw_n
|
|
|
+ if hero_flags{1} then gosub hero_draw_e
|
|
|
+ if hero_flags{2} then gosub hero_draw_s
|
|
|
+ if hero_flags{3} then gosub hero_draw_w
|
|
|
+ goto player_animate_end
|
|
|
+player_animate_2
|
|
|
+ if hero_flags{0} then gosub hero_draw_n2
|
|
|
+ if hero_flags{1} then gosub hero_draw_e2
|
|
|
+ if hero_flags{2} then gosub hero_draw_s2
|
|
|
+ if hero_flags{3} then gosub hero_draw_w2
|
|
|
+player_animate_end
|
|
|
+
|
|
|
+ rem 'Reflect sprite if moving west, otherwise, don't
|
|
|
+ if hero_flags{3} then REFP0 = 8 else REFP0 = 0
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ rem draw screen
|
|
|
+ drawscreen
|
|
|
+
|
|
|
+ rem And continue main loop
|
|
|
+ goto main_loop
|
|
|
+
|
|
|
+ rem 'Vblank sub. Do something useful in here...
|
|
|
+vblank
|
|
|
+ rem 'Do something here...
|
|
|
+ return
|
|
|
+
|
|
|
+ rem 'Gosub that correctly displays MP
|
|
|
+set_mp_display
|
|
|
+; lives=hero_mp * 32
|
|
|
+; lives:
|
|
|
+; %00010000
|
|
|
+; %00010000
|
|
|
+; %01010100
|
|
|
+; %10111010
|
|
|
+; %01010100
|
|
|
+; %00010000
|
|
|
+; %00010000
|
|
|
+; %00010000
|
|
|
+;end
|
|
|
+ return
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Display inventory ggosub
|
|
|
+show_inventory
|
|
|
+ sc0 = 0
|
|
|
+ sc1 = 0
|
|
|
+ sc2 = 0
|
|
|
+ rem 'Add up score to display Numen Leaves
|
|
|
+ if hero_items{0} then sc0 = sc0 + 16
|
|
|
+ if hero_items{1} then sc0 = sc0 + 16
|
|
|
+ if hero_items{2} then sc0 = sc0 + 16
|
|
|
+ rem 'Display shield if we have it
|
|
|
+ if hero_items{3} then sc0 = sc0 + 4
|
|
|
+ rem 'Display Armor
|
|
|
+ if hero_items{4} then sc1 = sc1 + 80
|
|
|
+ rem 'Display Sword
|
|
|
+ if hero_items{5} then sc1 = sc1 + 6
|
|
|
+ if hero_items{6} then sc2 = sc2 + 112
|
|
|
+ if hero_items{7} then sc2 = sc2 + 8
|
|
|
+ return
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Item Pickup gosub
|
|
|
+item_pickup
|
|
|
+ rem 'All sorts of item pickup effects, should be in a gosub, I guess
|
|
|
+ rem 'Win game if finding victory item
|
|
|
+ rem 'Make a pickup sound
|
|
|
+ sound_timer=2
|
|
|
+ AUDC1=12
|
|
|
+ AUDV1=8
|
|
|
+ AUDF1=2
|
|
|
+ if item_kind = item_victory then goto game_win
|
|
|
+ if item_kind = item_leaf1 then hero_items{0} = 1
|
|
|
+ if item_kind = item_leaf2 then hero_items{1} = 1
|
|
|
+ if item_kind = item_leaf3 then hero_items{2} = 1
|
|
|
+ if item_kind = item_shield then hero_items{3} = 1
|
|
|
+ if item_kind = item_armor then hero_items{4} = 1
|
|
|
+ if item_kind = item_sword then hero_items{5} = 1
|
|
|
+ if item_kind = item_bookheal then hero_items{6} = 1
|
|
|
+ if item_kind = item_bookstrike then hero_items{7} = 1
|
|
|
+ if item_kind <> item_healhp then goto no_healhp
|
|
|
+ hero_hp = hero_hp + 8
|
|
|
+ temp2 = hero_level * 2 + hero_base_hp
|
|
|
+ if hero_hp > temp2 then hero_hp = temp2
|
|
|
+no_healhp
|
|
|
+ if item_kind <> item_healmp then goto no_healmp
|
|
|
+ hero_mp = hero_mp + 1
|
|
|
+ temp2 = hero_level / 16 + 1
|
|
|
+ if hero_mp > temp2 then hero_mp = temp2
|
|
|
+ gosub set_mp_display
|
|
|
+no_healmp
|
|
|
+ if item_kind <> item_healallhp then goto no_healallhp
|
|
|
+ hero_hp = hero_level * 2 + hero_base_hp
|
|
|
+no_healallhp
|
|
|
+ if item_kind <> item_healallmp then goto no_healallmp
|
|
|
+ rem 'Actually, this is buggy for levels above 80
|
|
|
+ hero_mp = hero_level/16 + 1
|
|
|
+ gosub set_mp_display
|
|
|
+no_healallmp
|
|
|
+ rem " All done with item effects
|
|
|
+
|
|
|
+ rem ' Remove item
|
|
|
+ item_kind = item_none
|
|
|
+ item_hp = 0
|
|
|
+ item_x = nowhere
|
|
|
+ item_y = nowhere
|
|
|
+ return
|
|
|
+
|
|
|
+
|
|
|
+hero_draw_n
|
|
|
+ REFP0=0
|
|
|
+ player0:
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01111100
|
|
|
+ %10111010
|
|
|
+ %01111100
|
|
|
+ %10111010
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ return
|
|
|
+
|
|
|
+hero_draw_s
|
|
|
+ REFP0=0
|
|
|
+ player0:
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01111100
|
|
|
+ %01111100
|
|
|
+ %10111010
|
|
|
+ %01111100
|
|
|
+ %10111010
|
|
|
+ %11111110
|
|
|
+ %11010110
|
|
|
+ %11010110
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ return
|
|
|
+
|
|
|
+hero_draw_w
|
|
|
+ REFP0=8
|
|
|
+ goto hero_draw_e_start
|
|
|
+hero_draw_e
|
|
|
+ REFP0=0
|
|
|
+hero_draw_e_start
|
|
|
+ player0:
|
|
|
+ %00011100
|
|
|
+ %10011000
|
|
|
+ %10011000
|
|
|
+ %10111000
|
|
|
+ %10111100
|
|
|
+ %10011100
|
|
|
+ %10111000
|
|
|
+ %11111100
|
|
|
+ %11110100
|
|
|
+ %11110110
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ return
|
|
|
+
|
|
|
+hero_draw_n2
|
|
|
+ REFP0=0
|
|
|
+ player0:
|
|
|
+ %01100000
|
|
|
+ %01100000
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01111101
|
|
|
+ %00111010
|
|
|
+ %10111100
|
|
|
+ %11111010
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ return
|
|
|
+
|
|
|
+hero_draw_s2
|
|
|
+ REFP0=0
|
|
|
+ player0:
|
|
|
+ %01100000
|
|
|
+ %01100000
|
|
|
+ %01101100
|
|
|
+ %01111100
|
|
|
+ %01111101
|
|
|
+ %00111010
|
|
|
+ %10111100
|
|
|
+ %11111010
|
|
|
+ %11111110
|
|
|
+ %11010110
|
|
|
+ %11010110
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ return
|
|
|
+
|
|
|
+hero_draw_w2
|
|
|
+ REFP0=8
|
|
|
+ goto hero_draw_e2_start
|
|
|
+hero_draw_e2
|
|
|
+ REFP0=0
|
|
|
+hero_draw_e2_start
|
|
|
+ player0:
|
|
|
+ %11000011
|
|
|
+ %01100110
|
|
|
+ %00111100
|
|
|
+ %10111001
|
|
|
+ %11111110
|
|
|
+ %10111100
|
|
|
+ %10111000
|
|
|
+ %11111100
|
|
|
+ %11110100
|
|
|
+ %11110110
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ return
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+;#if 0 // we don't need this one
|
|
|
+;music_change_note
|
|
|
+; AUDF0 = music_data[music_pointer]
|
|
|
+; AUDC0 = music_instrument
|
|
|
+; if music_data[music_pointer] = $FF then AUDV0 = 0 else AUDV0 = 8
|
|
|
+; music_pointer = music_pointer + 1
|
|
|
+; music_timer = music_data[music_pointer]
|
|
|
+; music_pointer = music_pointer + 1
|
|
|
+; if music_pointer > music_notes then music_pointer = 0
|
|
|
+; return
|
|
|
+;#endif
|
|
|
+
|
|
|
+
|
|
|
+room_draw
|
|
|
+ rem 'Reset the monster missile and item flags
|
|
|
+ missile1x = nowhere
|
|
|
+ missile1y = nowhere
|
|
|
+ item_flags = 0
|
|
|
+ rem 'Set up item and draw it
|
|
|
+ goto item_setup
|
|
|
+item_setup_done
|
|
|
+
|
|
|
+ if hero_room > 39 then goto room_draw_40_local
|
|
|
+ if hero_room > 63 then goto room_draw_64
|
|
|
+
|
|
|
+ on hero_room goto r00 r01 r02 r03 r04 r05 r06 r07 r08 r09 r10 r11 r12 r13 r14 r15 r16 r17 r18 r19 r20 r21 r22 r23 r24 r25 r26 r27 r28 r29 r30 r31 r32 r33 r34 r35 r36 r37 r38 r39 r40
|
|
|
+ rem r41 r42 r43 r44 r45 r46 r47 r48 r49 r50
|
|
|
+ rem r51 r52 r53 r54 r55 r56 r57 r58 r59 r60 r61 r62 r63 r64
|
|
|
+
|
|
|
+room_draw_40_local
|
|
|
+ goto room_draw_40
|
|
|
+
|
|
|
+room_draw_64
|
|
|
+ rem 'If we get here, the room number s not valid. Go to room room_start (49)
|
|
|
+ hero_room = room_start
|
|
|
+ goto r00
|
|
|
+
|
|
|
+ rem r64
|
|
|
+ rem r65 r66 r67 r68 r69 r70 r71 r72 r73 r74 r75 r76 r77 r78 r79 r80 r81 r82 r83 r84 r85 r86 r87 r88 r89 r90 r91 r92 r93 r94 r95 r96 r97 r98 r99 r100
|
|
|
+room_draw_end
|
|
|
+ rem 'Clear bottom scrolling playfield row, so collision detection works properly
|
|
|
+ var44 = 0
|
|
|
+ var45 = 0
|
|
|
+ var46 = 0
|
|
|
+ var47 = 0
|
|
|
+ return
|
|
|
+;end
|
|
|
+
|
|
|
+
|
|
|
+r00
|
|
|
+ pfcolors:
|
|
|
+ skyblue
|
|
|
+ skyblue
|
|
|
+ skyblue
|
|
|
+ skyblue
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ skyblue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ XXXXXXXXXXXXXX....XXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r01
|
|
|
+ if quest_flags{1} then COLUBK=gray else COLUBK=black
|
|
|
+ pfcolors:
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+ X......XX..............XX.......
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r02
|
|
|
+ if quest_flags{1} then COLUBK=gray else COLUBK=black
|
|
|
+ pfcolors:
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ X........XX...............XX...X
|
|
|
+ X........XX...............XX...X
|
|
|
+ X...XX...XX...XXXXXXXXXX..XX...X
|
|
|
+ ....XX...XX...X................X
|
|
|
+ ....XX...XX...X................X
|
|
|
+ ....XX........X.......XXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXX............X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ XXXXXXXXXXXXXX....XXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r03
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ brown
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ white
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ X.........XXXXXXXXXXXX..........
|
|
|
+ X.........XXXXXXXXXXXX..........
|
|
|
+ X.........XXXXXXXXXXXX..........
|
|
|
+ X.........XXXXXXXXXXXX..........
|
|
|
+ X.........XXXXXXXXXXXX..........
|
|
|
+ X........XXXXXXXXXXXXXX.........
|
|
|
+ XX......XXXXXXXXXXXXXXXX........
|
|
|
+ XX.....XXXXXXXXXXXXXXXXXX.......
|
|
|
+ XX....XXXXXXXXXXXXXXXXXXXXX.....
|
|
|
+ XX.....XXXXXXXXXXXXXXXXXX.......
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r04
|
|
|
+ COLUBK=gray
|
|
|
+ pfcolors:
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ ...............................X
|
|
|
+ ...............X...............X
|
|
|
+ ..XX........XX.X.XX........XX..X
|
|
|
+ ..XX.......X..XXX..X.......XX..X
|
|
|
+ ............XX.X.XX............X
|
|
|
+ ...............X...............X
|
|
|
+ ..XX....XX...........XX....XX..X
|
|
|
+ ..XX....XX...........XX....XX..X
|
|
|
+ ...............................X
|
|
|
+ ...............................X
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r05
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXX..XXXXXXXXXX..XXXXXXXXXX
|
|
|
+ X.XXXX...XXXXXXXXXXXX...XXXXXXXX
|
|
|
+ X.......XXXXXXXXXXXXXXX........X
|
|
|
+ X......XXXXXXXXXXXXXXX.........X
|
|
|
+ X.......XXXXXXXXXXXXXX.........X
|
|
|
+ X...........XXXXXX.............X
|
|
|
+ X...........XXXXXX.............X
|
|
|
+ X..........X......X............X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r06
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XX.......XX.....................
|
|
|
+ XX.......XX.....................
|
|
|
+ XX...XX..XX....XXXXXXXXXXXXXXXXX
|
|
|
+ XX...XX........XX...........X...
|
|
|
+ XX...XX........XX...........X...
|
|
|
+ XX...XXXXXX....XX......XX...XXXX
|
|
|
+ XX...XXX...............XX.......
|
|
|
+ XX....XX...............XX.......
|
|
|
+ XX....XX...XXXXXXXXX...XX.......
|
|
|
+ XX....XX...XXXXXXXXX...XX.....XX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r07
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ darkgreen
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ .............X.................X
|
|
|
+ .............X.................X
|
|
|
+ XXXXXXXXX....X...XXXXXXXXX.....X
|
|
|
+ .............X...XXX...........X
|
|
|
+ .............X...XXX...........X
|
|
|
+ XXXXXX.....XXX...XXX...XXX.....X
|
|
|
+ .....X.....XXX...XXX...XXX.....X
|
|
|
+ .....X.....XXX...XXX...XXX.....X
|
|
|
+ .....X.....XXX...XXX...XXX.....X
|
|
|
+ XX...X.....XXX...XXX...XXX.....X
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r08
|
|
|
+ COLUBK=brown
|
|
|
+ pfcolors:
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+end
|
|
|
+ if quest_flags{3} goto r08_open
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXX....XXXXXXXXXXXXXX
|
|
|
+ XXXX.....................XXXXXXX
|
|
|
+ XX........................XXXXXX
|
|
|
+ XX..............................
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+ XXXXX..................XXXXXXXXX
|
|
|
+ XXXXXXX..............XXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto r08_end
|
|
|
+r08_open
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXX....XXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXX....XXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXX....XXXXXXXXXXXXXX
|
|
|
+ XXXX.....................XXXXXXX
|
|
|
+ XX........................XXXXXX
|
|
|
+ XX..............................
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+ XXXXX..................XXXXXXXXX
|
|
|
+ XXXXXXX..............XXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+r08_end
|
|
|
+ goto room_draw_end
|
|
|
+r09
|
|
|
+ COLUBK=sand
|
|
|
+ pfcolors:
|
|
|
+ black
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ black
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXX.............
|
|
|
+ XXXXXXXXXXX.....................
|
|
|
+ XXXXXXXXX....................XXX
|
|
|
+ XXXXXXX.....XXXXXXXXXXXXXXXXXXXX
|
|
|
+ ...XX......XXX..................
|
|
|
+ ...........XX...................
|
|
|
+ ......XXXXXX......XXXX....XXXXXX
|
|
|
+ XX...XXX........XXXXXXX.........
|
|
|
+ XXXXXXX.......XXXXXXXXXX........
|
|
|
+ XXXXXX.......XXXXXXXXXXXX....XXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r10
|
|
|
+ COLUBK=sand
|
|
|
+ pfcolors:
|
|
|
+ black
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ black
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXX....XXXXXXXXXXXXXX
|
|
|
+ ............XX.................X
|
|
|
+ .............XX................X
|
|
|
+ XXX...........XX.....XX........X
|
|
|
+ XXXXXXXXXX.....XX...XX........XX
|
|
|
+ ...................XX.......XXXX
|
|
|
+ ..................XX......XXXX..
|
|
|
+ XXXXXXXXXXXXXXXXXXX.....XXXX....
|
|
|
+ .....................XXXXXX.....
|
|
|
+ ....................XXXX........
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXX.........
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r11
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XX.......XXXXXXXXXXXXXX.........
|
|
|
+ XX.......XXXXXXXXXXXXXX.........
|
|
|
+ XX........XXXXXXXXXXXX..........
|
|
|
+ XX........XXXXXXXXXXXX..........
|
|
|
+ XX........XXXXXXXXXXXX..........
|
|
|
+ XX........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r12
|
|
|
+ COLUBK=gray
|
|
|
+ pfcolors:
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ...............................X
|
|
|
+ ...............................X
|
|
|
+ ...............................X
|
|
|
+ ..XX....XX...........XX....XX..X
|
|
|
+ ..XX....XX...........XX....XX..X
|
|
|
+ ...............................X
|
|
|
+ ...............................X
|
|
|
+ ..XX....XX...........XX....XX..X
|
|
|
+ ..XX....XX...........XX....XX..X
|
|
|
+ ...............................X
|
|
|
+ ...............................X
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r13
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXX...XXXXXXXXXXXXXXX
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r14
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXX...XX...XXXXXXXXX...XX.....XX
|
|
|
+ XXX...XX...XXXXXXXXX...XX.......
|
|
|
+ XXX...XX...............XX.......
|
|
|
+ XXX...XX...............XX.......
|
|
|
+ XXX...XXXXXXXXXXXXXX...XXXXXXXXX
|
|
|
+ XXX.............................
|
|
|
+ XXX.............................
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r15
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XX...XXX...XXX...XXX...XXX.....X
|
|
|
+ .....XXX...XXX...XXX...XXX.....X
|
|
|
+ .....XXX.......................X
|
|
|
+ .....XXX.......................X
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXX....X
|
|
|
+ ....XXX........................X
|
|
|
+ ....XXX........................X
|
|
|
+ XX..XXX....XXXXXXXXXXXXXXXXXXXXX
|
|
|
+ ....XXX....X...................X
|
|
|
+ ....XXX....X...................X
|
|
|
+ XXXXXXX....XXXXXXXXXXXXXXX.....X
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r16
|
|
|
+ COLUBK=yellow
|
|
|
+ pfcolors:
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X..............................X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X..............................X
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r17
|
|
|
+ COLUBK=sand
|
|
|
+ pfcolors:
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXX.......XXXXXXXXXXXX....XXX
|
|
|
+ XXXXXXXX.......XXXXXXXX.......XX
|
|
|
+ XXXXXXXXXX..........XX..........
|
|
|
+ XXXXXXXXXXXXX........XX.........
|
|
|
+ XXXXXXXXXXXXXXXX......XX........
|
|
|
+ XXXXXXXXXXXXXXXXXX....XX........
|
|
|
+ XXXXXXXXXXXXXXXX....XXXX........
|
|
|
+ XXXXXXXXXXXXXXX....XXXX.........
|
|
|
+ XXXXXXXXXXXXXXXXX...............
|
|
|
+ XXXXXXXXXXXXXXXXXXX.............
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXX..........
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r18
|
|
|
+ COLUBK = turfy
|
|
|
+ pfcolors:
|
|
|
+ red
|
|
|
+ red
|
|
|
+ white
|
|
|
+ white
|
|
|
+ red + 8
|
|
|
+ red + 6
|
|
|
+ red + 4
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ red
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXX.........
|
|
|
+ XXXXXXXXXXXXXXXXXXX.............
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ...XXXXXXXXXXXXXX...............
|
|
|
+ ..XXXXXXXXXXXXXXXX..............
|
|
|
+ .XXXXXXXXXXXXXXXXXX.............
|
|
|
+ ..XXXXXXXXXXXXXXXX..............
|
|
|
+ ..XX..XX...XXX..XX..............
|
|
|
+ ..XXXXXX...XXXXXXX..............
|
|
|
+ ................................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r19
|
|
|
+ COLUBK=sand
|
|
|
+ pfcolors:
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXXX.........
|
|
|
+ ..........XXXXXXXXXXXXX.........
|
|
|
+ .........XXXXXXXXXXXXXX.........
|
|
|
+ .........XXXXXXXXXXXXXX.........
|
|
|
+ .........XXXXXXXXXXXXX..........
|
|
|
+ .........XXXXXXXXXXXXX..........
|
|
|
+ .........XXXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r20
|
|
|
+ COLUBK=sand
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ...............................X
|
|
|
+ ....X.X.X.....XX.XX.XX.....X.X.X
|
|
|
+ ....XXXXX.....XXXXXXXX.....XXXXX
|
|
|
+ ....X...X.....X......X.....X...X
|
|
|
+ ....X...XXXXXXX......XXXXXXX...X
|
|
|
+ ....X...........................
|
|
|
+ ....X...........................
|
|
|
+ ....X...XXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ ....X............XX.............
|
|
|
+ ....X............XX.............
|
|
|
+ ....X............XX...........XX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r21
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ ....X.X.X......X.XX.X......X.X.X
|
|
|
+ ....XXXXX......XXXXXX......XXXXX
|
|
|
+ ....X...XXXXXXXX....XXXXXXXX...X
|
|
|
+ XXXXX..........................X
|
|
|
+ ...............................X
|
|
|
+ ...............................X
|
|
|
+ XXXXX..........................X
|
|
|
+ ....X..........................X
|
|
|
+ ....X..........................X
|
|
|
+ XX..XXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r22
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXX...XXX...XXXXXXXXXXXXXX
|
|
|
+ XXXXXXX.............XXXXXXXXXXXX
|
|
|
+ XXXXXX................XXXXXXXXXX
|
|
|
+ XXXX....................XXXXXXXX
|
|
|
+ XXXX.......................XXXXX
|
|
|
+ XXX.........................XXXX
|
|
|
+ XX....X..............X.......XXX
|
|
|
+ XX...XXXX...........XXXX........
|
|
|
+ X.....X..............X..........
|
|
|
+ X...............................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r23
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXX...XXXXXXXXXXXXXXXX.....X
|
|
|
+ XXXXXXX...XXXXXXXXXXXXXXXX.....X
|
|
|
+ XXXXXXX....XXXXXXXXXXXXX.......X
|
|
|
+ XXXXXXX.....XXXXXXXXXXX........X
|
|
|
+ XXXXXXX........................X
|
|
|
+ XXXXXXX........................X
|
|
|
+ XXXXXXXXXXXXXXXX..XXXXXXXXXXXXXX
|
|
|
+ .....X......X.......X..........X
|
|
|
+ ....XXXX...XXXX....XXXX........X
|
|
|
+ .....X......X.......X..........X
|
|
|
+ ...............................X
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r24
|
|
|
+ COLUBK=yellow
|
|
|
+ pfcolors:
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+end
|
|
|
+ if quest_flags{5} then goto r24_open
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ X..............................X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X.............XXXX.............X
|
|
|
+ X...XX.......XXXXXX.......XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X..............................X
|
|
|
+ X......XXXXXXX....XXXXXXX.....XX
|
|
|
+end
|
|
|
+ goto r24_end
|
|
|
+r24_open
|
|
|
+ playfield:
|
|
|
+ X..............................X
|
|
|
+ X..............................X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X.............XXXX.............X
|
|
|
+ X...XX.......XXXXXX.......XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X...XX....................XX...X
|
|
|
+ X..............................X
|
|
|
+ X......XXXXXXX....XXXXXXX.....XX
|
|
|
+end
|
|
|
+r24_end
|
|
|
+ goto room_draw_end
|
|
|
+r25
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red + 8
|
|
|
+ red + 6
|
|
|
+ red + 4
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ red
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXX..........
|
|
|
+ XXXXXXXXXXXXXXXXXXXX............
|
|
|
+ XXXXXXXXXXXXXXXXXX.XXXXXXXXXX...
|
|
|
+ XXXXXXXXXXXXXXX...XXXXXXXXXXXX..
|
|
|
+ XXXXXXXXXXXXX....XXXXXXXXXXXXXX.
|
|
|
+ XXXXXXXXXXX.......XXXXXXXXXXXX..
|
|
|
+ XXXXXXXXX.........XXX..XX...XX..
|
|
|
+ XXXXXX............XXXXXXX...XX..
|
|
|
+ XXXXX...........................
|
|
|
+ XX..............................
|
|
|
+ XX..............................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r26
|
|
|
+ COLUBK = turfy
|
|
|
+ pfcolors:
|
|
|
+ white
|
|
|
+ white
|
|
|
+ red + 8
|
|
|
+ red + 6
|
|
|
+ red + 4
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ...XXXXXXX.....XXXXXXXXXXXXX....
|
|
|
+ ..XXXXXXXXX...XXXXXXXXXXXXXXX...
|
|
|
+ .XXXXXXXXXXX.XXXXXXXXXXXXXXXXX..
|
|
|
+ ..XXXXXXXXX...XXXXXXXXXXXXXXX...
|
|
|
+ ..XX.X...XX...XX..XX...XX..XX...
|
|
|
+ ..XXXX...XX...XXXXXX...XXXXXX...
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r27
|
|
|
+ COLUBK=sand
|
|
|
+ pfcolors:
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXXX.........
|
|
|
+ ..........XXXXXXXXXXXXX.........
|
|
|
+ ..........XXXXXXXXXXXXX.........
|
|
|
+ ..........XXXXXXXXXXXXX.........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r28
|
|
|
+ COLUBK=sand
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ....X............XX...........XX
|
|
|
+ ....XXXXXXXXXX...XX.....XXXXXXXX
|
|
|
+ ....X............XX...........XX
|
|
|
+ ....X............XX...........XX
|
|
|
+ ....X...XXXXXXXXXXXXXXXXXXX...XX
|
|
|
+ ....X...X.................X...XX
|
|
|
+ ....X.........................XX
|
|
|
+ ....XX.....XXXXXXXXXXXXXX....XXX
|
|
|
+ ....XXXXXXXXX..........XXXXXXXXX
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r29
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ green
|
|
|
+end
|
|
|
+ if quest_flags{6} then goto r29_open
|
|
|
+ if item_flags{3} then goto r29_open
|
|
|
+ playfield:
|
|
|
+ XX..XXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XX..X.........................XX
|
|
|
+ XX..X.........................XX
|
|
|
+ XX..X..XXXXXXXXXXXXXXXXXX.....XX
|
|
|
+ XX..X..XXXXXXX.XX.XXXXXXX.....XX
|
|
|
+ XX..X..XXXXX.X.XX.X.XXXXX.....XX
|
|
|
+ XX.....XXXXX.XXXXXX.XXXXX.....XX
|
|
|
+ XX.....XXXXX.X.XX.X.XXXXX.....XX
|
|
|
+ XXXXXXXXX..............XXXXXXXXX
|
|
|
+ ..............................XX
|
|
|
+ ..............................XX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r29_open
|
|
|
+ playfield:
|
|
|
+ XX..XXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XX..X.........................XX
|
|
|
+ XX..X.........................XX
|
|
|
+ XX..X..XXXXXXXX..XXXXXXXX.....XX
|
|
|
+ XX..X..XXXXXX......XXXXXX.....XX
|
|
|
+ XX..X..XXXXX........XXXXX.....XX
|
|
|
+ XX.....XXXXX........XXXXX.....XX
|
|
|
+ XX.....XXXXX........XXXXX.....XX
|
|
|
+ XXXXXXXXX..............XXXXXXXXX
|
|
|
+ ..............................XX
|
|
|
+ ..............................XX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r30
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ X...............................
|
|
|
+ XX......X.....X.....X.....X.....
|
|
|
+ XXX....XXX...XXX...XXX...XXX....
|
|
|
+ XX....XXXXX.XXXXX.XXXXX.XXXXX...
|
|
|
+ X.......X.....X.....X.....X.....
|
|
|
+ XX..............................
|
|
|
+ XX...X......X......X.....X......
|
|
|
+ X...XXX....XXX....XXX...XXX.....
|
|
|
+ X..XXXXX..XXXXX..XXXXX.XXXXX....
|
|
|
+ X....X......X......X.....X......
|
|
|
+ X.............................XX
|
|
|
+ XX............................XX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r31
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ...............................X
|
|
|
+ ...............................X
|
|
|
+ ...............................X
|
|
|
+ .......XXX..............XXX....X
|
|
|
+ ......XXXXX.....X......XXXXX...X
|
|
|
+ ......XXXXX....XXX.....XXXXX...X
|
|
|
+ .......XXX....XXXXX.....XXX....X
|
|
|
+ ........X.......X........X.....X
|
|
|
+ ........X................X.....X
|
|
|
+ ...............................X
|
|
|
+ XXX...........................XX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+r32
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+end
|
|
|
+ if quest_flags{2} then goto r32_open
|
|
|
+ playfield:
|
|
|
+ X.....XXXXXXXXXXXXXXXXXXX.....XX
|
|
|
+ X....XXXXXXXXXXXXXXXXXXXXX....XX
|
|
|
+ X...XXXXXXXXXXXXXXXXXXXXXXX...XX
|
|
|
+ X..XXXXXXXXXXXXXXXXXXXXXXXXX..XX
|
|
|
+ X.XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ X..XX..XX..XX..XX..XX..XX..XX...
|
|
|
+ X..XX..XX..XX..XX..XX..XX..XX...
|
|
|
+ X..XX..XX..XX..XX..XX..XX..XX...
|
|
|
+ X.XXXXXXXXXXXXXXXXXXXXXXXXXXXX..
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r32_open
|
|
|
+ playfield:
|
|
|
+ X.....XXXXXXXX....XXXXXXX.....XX
|
|
|
+ X....XXXXXXXXX....XXXXXXXX....XX
|
|
|
+ X...XXXXXXXXX......XXXXXXXX...XX
|
|
|
+ X..XXXXXXXXXX......XXXXXXXXX..XX
|
|
|
+ X.XXXXXXXXXXXX....XXXXXXXXXXXXXX
|
|
|
+ X..XX..XX..XX......XX..XX..XX...
|
|
|
+ X..XX..XX..XX......XX..XX..XX...
|
|
|
+ X..XX..XX..XX......XX..XX..XX...
|
|
|
+ X.XXXXXXXXXXX......XXXXXXXXXXX..
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r33
|
|
|
+ pfcolors:
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ red + 8
|
|
|
+ red + 6
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XX..............................
|
|
|
+ XX.............XXX..............
|
|
|
+ XX...........XX...XX............
|
|
|
+ XX.............XXX..............
|
|
|
+ XX..............................
|
|
|
+ ....XXXXXXXXXXXX....XXXXXXXXXX..
|
|
|
+ ...XXXXXXXXXXXXXX..XXXXXXXXXXXX.
|
|
|
+ ....XXXXXXXXXXXX....XXXXXXXXXX..
|
|
|
+ ....XX.XX...XX.X....XX.XX...XX..
|
|
|
+ ....XXXXX...XXXX....XXXXX...XX..
|
|
|
+ ................................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r34
|
|
|
+ COLUBK = turfy
|
|
|
+ pfcolors:
|
|
|
+ white
|
|
|
+ white
|
|
|
+ red + 8
|
|
|
+ red + 6
|
|
|
+ red + 4
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ...XXXXXXXXXXXXX......XXXXXXX...
|
|
|
+ ..XXXXXXXXXXXXXXX....XXXXXXXXX..
|
|
|
+ .XXXXXXXXXXXXXXXXX..XXXXXXXXXXX.
|
|
|
+ ..XXXXXXXXXXXXXXX....XXXXXXXXX..
|
|
|
+ ..XX..XX...XX..XX....XX.XX...X..
|
|
|
+ ..XXXXXX...XXXXXX....XXXXX...X..
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r35
|
|
|
+ COLUBK=sand
|
|
|
+ pfcolors:
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+end
|
|
|
+ if quest_flags{4} then goto r35_open
|
|
|
+ playfield:
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ...........XXXXXXXXXX...........
|
|
|
+ ............XXXXXXXX............
|
|
|
+ ............XXXXXXXX............
|
|
|
+ ...........XXXXXXXXXX...........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ .........XXXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r35_open
|
|
|
+ playfield:
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ...........XXXXXXXXXX...........
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ...........XXXXXXXXXX...........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ .........XXXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r36
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ yellow
|
|
|
+ green
|
|
|
+ yellow
|
|
|
+ green
|
|
|
+ green
|
|
|
+ yellow
|
|
|
+ green
|
|
|
+ yellow
|
|
|
+ green
|
|
|
+ yellow
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ ..XXXXXXXX..XXXXXXXX..XXXXXXXX..
|
|
|
+ ..XXXXXXXX..XXXXXXXX..XXXXXXXX..
|
|
|
+ ..XXXXXXXX..XXXXXXXX..XXXXXXXX..
|
|
|
+ ..XXXXXXXX..XXXXXXXX..XXXXXXXX..
|
|
|
+ ................................
|
|
|
+ ..XXXXXXXX..XXXXXXXX..XXXXXXXX..
|
|
|
+ ..XXXXXXXX..XXXXXXXX..XXXXXXXX..
|
|
|
+ ..XXXXXXXX..XXXXXXXX..XXXXXXXX..
|
|
|
+ ..XXXXXXXX..XXXXXXXX..XXXXXXXX..
|
|
|
+ ................................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r37
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ yellow
|
|
|
+ green
|
|
|
+ yellow
|
|
|
+ green
|
|
|
+ green
|
|
|
+ yellow
|
|
|
+ green
|
|
|
+ yellow
|
|
|
+ green
|
|
|
+ yellow
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ ..XXXXXXX..XXXXXXXXXX..XXXXXXX..
|
|
|
+ ..XXXXXXX..XXXXXXXXXX..XXXXXXX..
|
|
|
+ ..XXXXXXX..XXXXXXXXXX..XXXXXXX..
|
|
|
+ ..XXXXXXX..XXXXXXXXXX..XXXXXXX..
|
|
|
+ ................................
|
|
|
+ ..XXXXXXX..XXXXXXXXXX..XXXXXXX..
|
|
|
+ ..XXXXXXX..XXXXXXXXXX..XXXXXXX..
|
|
|
+ ..XXXXXXX..XXXXXXXXXX..XXXXXXX..
|
|
|
+ ..XXXXXXX..XXXXXXXXXX..XXXXXXX..
|
|
|
+ ................................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r38
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XX............................XX
|
|
|
+ ......XXXXXXXXXXXXXXXXXXX.......
|
|
|
+ ....XXX................XXXX.....
|
|
|
+ ...XX.....................XX....
|
|
|
+ ..XX.......................XX...
|
|
|
+ ..XX........................XX..
|
|
|
+ ..XX........................XX..
|
|
|
+ ..XXX.....................XXXX..
|
|
|
+ ..X.XXX.................XXX.XX..
|
|
|
+ ..X.......XXXXXXXXXXXXXX.XX.XX..
|
|
|
+ ..X.......X.XXXXXXXX.XXX.XXXXX..
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r39
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXX...........................XX
|
|
|
+ ..XX...X........X.......X....XXX
|
|
|
+ ..XX..XXX......XXX.....XXX...XXX
|
|
|
+ ...XX..X...X....X.......X.....XX
|
|
|
+ ..XX......XXX.................XX
|
|
|
+ ...XX......X.......X.........XXX
|
|
|
+ ..XX.........X....XXX.........XX
|
|
|
+ ...XX...X...XXX....X....X....XXX
|
|
|
+ ..XX...XXX...X.........XXX...XXX
|
|
|
+ ...XX...X...............X.....XX
|
|
|
+ ..XX...........................X
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+
|
|
|
+room_draw_40
|
|
|
+ temp1=hero_room-40
|
|
|
+ on temp1 goto r40 r41 r42 r43 r44 r45 r46 r47 r48 r49 r50 r51 r52 r53 r54 r55 r56 r57 r58 r59 r60 r61 r62 r63
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+r40
|
|
|
+ pfcolors:
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ X...............................
|
|
|
+ XXX.............................
|
|
|
+ XXXXX...........................
|
|
|
+ XXXXXXX.........................
|
|
|
+ XXXXXXXXXX......XXX.............
|
|
|
+ XXXXXXXX.......XXXXX............
|
|
|
+ XXXXXX.......XXXXXXXXX..........
|
|
|
+ XXXXXX........XXXXXX............
|
|
|
+ XXXXX...........XXXXXX..........
|
|
|
+ XXX...............XXXXX.........
|
|
|
+ X...............................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+
|
|
|
+r41
|
|
|
+ COLUBK = turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ seablue
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ .............X..................
|
|
|
+ ............XXX.................
|
|
|
+ ...........XXXXX................
|
|
|
+ .............X..................
|
|
|
+ .....X..........................
|
|
|
+ ....XXX............X............
|
|
|
+ ....XXXX..........XXX...........
|
|
|
+ ...XXXXX.........XXXXX..........
|
|
|
+ .....X.............X............
|
|
|
+ ................................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r42
|
|
|
+ COLUBK = turfy
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ seablue
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ ..........................X.....
|
|
|
+ .........................XXX....
|
|
|
+ ........................XXXXX...
|
|
|
+ ..........................X.....
|
|
|
+ .....X..........................
|
|
|
+ ....XXX............X............
|
|
|
+ ....XXXX..........XXX...........
|
|
|
+ ...XXXXX.........XXXXX..........
|
|
|
+ .....X.............X..........XX
|
|
|
+ ..............................XX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r43
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ seablue + 8
|
|
|
+ seablue + 8
|
|
|
+ seablue + 4
|
|
|
+ seablue + 4
|
|
|
+ seablue + 2
|
|
|
+ seablue + 2
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ..........XXXXXXXXXXXX..........
|
|
|
+ ..........XXXXXXXXXXXXX.........
|
|
|
+ ..........XXXXXXXXXXXXX.........
|
|
|
+ ..........XXXXXXXXXXXXXX........
|
|
|
+ .........XXXXXXXXXXXXXXX........
|
|
|
+ .........XXXXXXXXXXXXXXXXX......
|
|
|
+ .......XXXXXXXXXXXXXXXXXXXXX....
|
|
|
+ .....XXXXXXXXXXXXXXXXXXXXXXXX...
|
|
|
+ ..XXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r44
|
|
|
+ COLUBK=sand
|
|
|
+ pfcolors:
|
|
|
+ red
|
|
|
+ red
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ red
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ ........X.........X.............
|
|
|
+ .......XXX.......XXX............
|
|
|
+ ......XXXXX.....XXXXX...........
|
|
|
+ .....XXX.XXX...XXX.XXX...X......
|
|
|
+ ....XXX...XXX.XXX...XXX.XXX.....
|
|
|
+ .......................XXXXX....
|
|
|
+ ......................XXX.XXX...
|
|
|
+ .....................XXX...XXX..
|
|
|
+ XX..............................
|
|
|
+ XX..............................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r45
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ...XXX..XXX...XXXX....XXX..XXX..
|
|
|
+ ..X...XX...X.XXXXXX..X...XX...X.
|
|
|
+ ......XX.....XXXXXX.....XX......
|
|
|
+ .......XX....XX..XX.....XX......
|
|
|
+ .......XX....XX..XX....XX.......
|
|
|
+ ........XX.............XX.......
|
|
|
+ ................................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r46
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ..X.......X.XXX..XXX.XXXXXXXXX..
|
|
|
+ ..X....XXXXXXXX..XXXXXXX.XXXXX..
|
|
|
+ ..X.......XXXXXXXXXX.XXX.XXXXX..
|
|
|
+ ..XXX........XXXXXXX.XXXXXX.XX..
|
|
|
+ ..XX.XXX..........XXXXXXXXX.XX..
|
|
|
+ ..XXXXX.XXX..........XXX.XXXXX..
|
|
|
+ ..XXXXX.XXXXXX..........XXXXXX..
|
|
|
+ ..XX.XXXXXX.XXXXXXX........XXX..
|
|
|
+ ..XX.XXXXXXXXXX..XXXXX.......X..
|
|
|
+ ..XXXXX.XXXXXXXXXXXXXXXXX....X..
|
|
|
+ ..XXXXX.XXX.XXXXXXXX.X.....XXX..
|
|
|
+ ..XX.XXXXXX.XXX..XXX.X.....XXX..
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r47
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ..XX...........................X
|
|
|
+ ...XX..X....X.....X.....X......X
|
|
|
+ ..XX..XXX..XXX...XXX...XXX....XX
|
|
|
+ ...XX..X....X.....X.....X.....XX
|
|
|
+ ..XX.....X.....X.....X.......XXX
|
|
|
+ ...XX...XXX...XXX...XXX......XXX
|
|
|
+ ...XX....X.....X.....X......XXXX
|
|
|
+ ..XX...X....X.....X.....X....XXX
|
|
|
+ ..XX..XXX..XXX...XXX...XXX....XX
|
|
|
+ ..XX...X....X.....X.....X......X
|
|
|
+ ...XX..........................X
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+r48
|
|
|
+ COLUBK = turfy
|
|
|
+ pfcolors:
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ X...............................
|
|
|
+ X...........X...................
|
|
|
+ X...............................
|
|
|
+ X.....X.....................X...
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+ X...................X...........
|
|
|
+ X...............................
|
|
|
+ X..X............................
|
|
|
+ X...............X...............
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+r49
|
|
|
+ COLUBK=turfy
|
|
|
+ pfcolors:
|
|
|
+ white
|
|
|
+ white
|
|
|
+ red + 8
|
|
|
+ red + 6
|
|
|
+ red + 4
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ green
|
|
|
+ green
|
|
|
+ red
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ .......XXXXXXXXXXXXXXXXXX.......
|
|
|
+ ......XXXXXXXXXXXXXXXXXXXX......
|
|
|
+ .....XXXXXXXXXXXXXXXXXXXXXX.....
|
|
|
+ ......XXXXXXXXXXXXXXXXXXXX......
|
|
|
+ ......XXX..XXX...XXXX..XXX......
|
|
|
+ ......XXXXXXXX...XXXXXXXXX......
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+end
|
|
|
+ COLUPF=red
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+r50
|
|
|
+ COLUBK = sand + 0
|
|
|
+ pfcolors:
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ seablue + 8
|
|
|
+ seablue + 7
|
|
|
+ seablue + 6
|
|
|
+ seablue + 5
|
|
|
+ seablue + 4
|
|
|
+ seablue + 3
|
|
|
+ seablue
|
|
|
+ riverblue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ..............................XX
|
|
|
+ .............................XXX
|
|
|
+ ...........................XXXXX
|
|
|
+ .........................XXXXXXX
|
|
|
+ ........................XXXXXXXX
|
|
|
+ ......................XXXXXXXXXX
|
|
|
+ .....................XXXXXXXXXXX
|
|
|
+ ...................XXXXXXXXXXXXX
|
|
|
+ ..................XXXXXXXXXXXXXX
|
|
|
+ ..................XXXXXXXXXXXXXX
|
|
|
+ .................XXXXXXXXXXXXXXX
|
|
|
+ ................XXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r51
|
|
|
+ rem 'black ship top
|
|
|
+ COLUBK = seablue + 2
|
|
|
+ pfcolors:
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ .............XXXXXXXXXXXXX......
|
|
|
+ ...........XXXXXXXXXXXXXXX......
|
|
|
+ ..........XXXXXXXXXXXXXXXX......
|
|
|
+ ........XXXXXXXXXXXXXXXXXX......
|
|
|
+ ......XXXXXXXXXXXXXXXXXXXX......
|
|
|
+ .....XXXXXXXXXXXXXXXXXXXXX......
|
|
|
+ ...............XX...............
|
|
|
+ ....XXXXXXXXXXXXXXXXXXXXXXXXXX..
|
|
|
+ ...XX..........XX............XX.
|
|
|
+ ..XXX..........XX............XX.
|
|
|
+ .XXXX..........XX............XXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r52
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XX..............................
|
|
|
+ XXX.............................
|
|
|
+ XXXX............................
|
|
|
+ XXXXX...........................
|
|
|
+ XXXXXXX.........................
|
|
|
+ XXXXXXXXXXX.....................
|
|
|
+ XXXXXXXXXXXXXX..................
|
|
|
+ XXXXXXXXXXXXXXXXX...............
|
|
|
+ XXXXXXXXXXXXXXXXXXXXX...........
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXX......
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r53
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ green
|
|
|
+ green
|
|
|
+ green
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ brown
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ green
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ ......XXX..XXX......XXX..XXX....
|
|
|
+ .....X...XX...X....X...XX...X...
|
|
|
+ .........XX............XX.......
|
|
|
+ ........XX............XX........
|
|
|
+ .......XX............XX.........
|
|
|
+ ......XX............XX..........
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ XX..............................
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r54
|
|
|
+ COLUBK = turfy
|
|
|
+ pfcolors:
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ gray
|
|
|
+ seablue
|
|
|
+ gray
|
|
|
+end
|
|
|
+ if quest_flags{3} then goto r54_open
|
|
|
+ playfield:
|
|
|
+ ..XX.XXXXXX.XXXXXXXX.XXXXXX.XX..
|
|
|
+ ..XX.XXXXXXXXXX..XXXXXXXXXX.XX..
|
|
|
+ ..XXXXX.XXXXXXX..XXXXXXX.XXXXX..
|
|
|
+ ..XXXXX.XXX.XXXXXXXX.XXX.XXXXX..
|
|
|
+ ..XX.XXXXXX.XXXXXXXX.XXXXXX.XX..
|
|
|
+ ..XX.XXXXXXXX.XX...XXXXXXXX.XX..
|
|
|
+ ..XXXXX.XXXXXXX.X.X.XXXX.XXXX...
|
|
|
+ ...XXXX.XXX.XX.X.X.X.XXX.XXX....
|
|
|
+ ....XXXXXXX.XX.X.X.X.XXXXXX.....
|
|
|
+ ......XXXXXXXXXXXXXXXXXXX.....XX
|
|
|
+ ..............................XX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r54_open
|
|
|
+ playfield:
|
|
|
+ ..XX.XXXXXX.XXXXXXXXXX.....XXX..
|
|
|
+ ..XX.XXXXXXXX...........XXXXXX..
|
|
|
+ ..XXXXX.XXXXX........XXX.XXXXX..
|
|
|
+ ..XXXXX.XXX.X.....XXXXXX.XXXXX..
|
|
|
+ ..XX.XXXXXX.X...XXXX.XXXXXX.XX..
|
|
|
+ ..XX.XXXXXXXX......XXXXXXXX.XX..
|
|
|
+ ..XXXXX.XXXXXXX..XXXXXXX.XXXX...
|
|
|
+ ...XXXX.XXX.XX....XX.XXX.XXX....
|
|
|
+ ....XXXXXXX.XX....XX.XXXXXX.....
|
|
|
+ ......XXXXXXXX....XXXXXXX.....XX
|
|
|
+ ..............................XX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r55
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ red
|
|
|
+ red
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ white
|
|
|
+ red
|
|
|
+ red
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+end
|
|
|
+ if quest_flags{7} then goto r55_open
|
|
|
+ playfield:
|
|
|
+ ...XX..........................X
|
|
|
+ ...............................X
|
|
|
+ .......XXXXXXX.................X
|
|
|
+ ......XXXXXXXXX................X
|
|
|
+ .......X.X.X.X.................X
|
|
|
+ ...............................X
|
|
|
+ ...............................X
|
|
|
+ ..................XXXXXXXXXXXXXX
|
|
|
+ ...XXXX.........XXXX......XXXXXX
|
|
|
+ XXXXXXXXX...XXXXXXXXXX...XXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r55_open
|
|
|
+ playfield:
|
|
|
+ ...XX..........................X
|
|
|
+ ...............................X
|
|
|
+ .......XXXXXXX.................X
|
|
|
+ ......XXXXXXXXX................X
|
|
|
+ .......X.X.X.X.................X
|
|
|
+ ...............................X
|
|
|
+ ...............................X
|
|
|
+ ............................XXXX
|
|
|
+ ...XXXX.........XXXX......XXXXXX
|
|
|
+ XX..XX...........X...........XXX
|
|
|
+ XX.............................X
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r56
|
|
|
+ rem 'Shield on island
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+end
|
|
|
+ if !quest_flags{6} then goto r56_closed
|
|
|
+ playfield:
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+ XXX.............................
|
|
|
+ XXXXX...........................
|
|
|
+ XXXXX..XX.......................
|
|
|
+ XXXXX..XXXXXXX..................
|
|
|
+ XXXX....XXXXXXXXXX..............
|
|
|
+ XXX......XXXXXXXXXXXX...........
|
|
|
+ XXX......XXXXXXXXXXXXXXXXX......
|
|
|
+ XXXX....XXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r56_closed
|
|
|
+ playfield:
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+ XXX.............................
|
|
|
+ XXXXXX..........................
|
|
|
+ XXXXXXXXX.......................
|
|
|
+ XXXXXXXXXXXXXX..................
|
|
|
+ XXXX....XXXXXXXXXX..............
|
|
|
+ XXX......XXXXXXXXXXXX...........
|
|
|
+ XXX......XXXXXXXXXXXXXXXXX......
|
|
|
+ XXXX....XXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+r56_end
|
|
|
+ goto room_draw_end
|
|
|
+r57
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ red
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ ......................X.........
|
|
|
+ .....................XXX........
|
|
|
+ ................................
|
|
|
+ .....XXXX...XXXXXX.......XXXX...
|
|
|
+ XXXXXXXXXXXXXXXXXXXX...XXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+r58
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+end
|
|
|
+ if quest_flags{2} goto r58_open
|
|
|
+ playfield:
|
|
|
+ ................XXXXXXXXXXXXXXXX
|
|
|
+ ................XXXXXXXXXXXXXXXX
|
|
|
+ ...............XXXXXXXXXXXXXXXXX
|
|
|
+ ..............XXXXXXXXXXXXXXXXXX
|
|
|
+ ..............XXXXXXXXXXXXXXXXXX
|
|
|
+ .............XXXXXXXXXXXXXXXXXXX
|
|
|
+ ..........XXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ ........XXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ ....XXXXXXXXXXXXXXXXXXXXXXXX....
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXX...
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r58_open
|
|
|
+ playfield:
|
|
|
+ ................XXXXXXXXXXXXXXXX
|
|
|
+ ...................XXXXXXXXXXXXX
|
|
|
+ .....................XXXXXXXXXXX
|
|
|
+ .......................XXXXXXXXX
|
|
|
+ .........................XXXXXXX
|
|
|
+ ...........................XXXXX
|
|
|
+ .............................XXX
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+
|
|
|
+r59
|
|
|
+ COLUBK = seablue + 1
|
|
|
+ pfcolors:
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ black
|
|
|
+ seablue
|
|
|
+ black
|
|
|
+end
|
|
|
+ rem 'black ship bottom, when switch3 isn't pressed
|
|
|
+ if quest_flags{3} goto black_ship_open
|
|
|
+ playfield:
|
|
|
+ .XXXX..XX......XX...XXXXX....XXX
|
|
|
+ XXXXX...............X...X....XXX
|
|
|
+ .XXXX........................XXX
|
|
|
+ ..XXX......................XXXX.
|
|
|
+ ...XXXXXXXXXXXX...XXXXXXXXXXXXX.
|
|
|
+ ....XXXXXXXXXXX...XXXXXXXXXXXXX.
|
|
|
+ XXXXXXXXXXXXXXX...XXXXXXXXXXXX..
|
|
|
+ ..................XX............
|
|
|
+ ..................XX............
|
|
|
+ XXXXXXXXXXXXXXXXXXXX............
|
|
|
+ XXXXXXXXXXXXXXXXXXXX............
|
|
|
+end
|
|
|
+ goto black_ship_end
|
|
|
+black_ship_open
|
|
|
+ playfield:
|
|
|
+ .XXXX..XX......XX...XXXXX....XX.
|
|
|
+ XXXXX...............X...X....XX.
|
|
|
+ .XXXX........................XX.
|
|
|
+ ..XXX........................XX.
|
|
|
+ ...XXXXXXXXXXXX...XXXXXXXXXXXX..
|
|
|
+ ....XXXXXXXXXXX...XXXXXXXXXXXX..
|
|
|
+ XXXXXXXXXXXXXXX...XXXXXXXXXXXXXX
|
|
|
+ ................................
|
|
|
+ ................................
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+black_ship_end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+r60
|
|
|
+ rem 'Boss 3, Kraken room.
|
|
|
+ COLUBK = black
|
|
|
+ pfcolors:
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XX............................XX
|
|
|
+ XX............................XX
|
|
|
+ ..............................XX
|
|
|
+ ..............................XX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+r61
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ riverblue
|
|
|
+ seablue + 8
|
|
|
+ seablue + 8
|
|
|
+ seablue + 4
|
|
|
+ seablue + 4
|
|
|
+ seablue + 2
|
|
|
+ seablue + 2
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+end
|
|
|
+ if !hero_items{5} then goto r61_closed
|
|
|
+ playfield:
|
|
|
+ X...............................
|
|
|
+ X...............................
|
|
|
+ XXX.............................
|
|
|
+ XXXXX...........................
|
|
|
+ XXXXX..XX.......................
|
|
|
+ XXXXX..XXXXXXX..................
|
|
|
+ XXXX....XXXXXXXXXX..............
|
|
|
+ XXX......X..XXXXXXXXX...........
|
|
|
+ XXX......XXX..XX..XXXXXXXX......
|
|
|
+ XXXX....XXXXXX..XXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXX..XX..XXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+r61_closed
|
|
|
+ playfield:
|
|
|
+ XX..............................
|
|
|
+ XXXXX...........................
|
|
|
+ XXXXXXXX........................
|
|
|
+ XXXXXXXXXXXX....................
|
|
|
+ XXXXXXXXXXXXXX..................
|
|
|
+ XXXXXXXXXXXXXXXX................
|
|
|
+ XXXX....XXXXXXXXXX..............
|
|
|
+ XXX......XXXXXXXXXXXX...........
|
|
|
+ XXX......XXXXXXXXXXXXXXXXX......
|
|
|
+ XXXX....XXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+r62
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ...............................X
|
|
|
+ ..............................XX
|
|
|
+ ..............................XX
|
|
|
+ ............................XXXX
|
|
|
+ .............................XXX
|
|
|
+ ............................XXXX
|
|
|
+ ..........................XXXXXX
|
|
|
+ .........................XXXXXXX
|
|
|
+ ...XXX......XXXXX.......XXXXXXXX
|
|
|
+ XXXXXXXX..XXXXXXXXXX...XXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+
|
|
|
+r63
|
|
|
+ COLUBK = sand
|
|
|
+ pfcolors:
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+ seablue
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ XX.............................X
|
|
|
+ XX............................XX
|
|
|
+ XX............................XX
|
|
|
+ XXX.........................XXXX
|
|
|
+ XXX..........................XXX
|
|
|
+ XXX.........................XXXX
|
|
|
+ XXXX......................XXXXXX
|
|
|
+ XXXX.....................XXXXXXX
|
|
|
+ XXXXXXX.....XXXXX.......XXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXX...XXXXXXXXX
|
|
|
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
+end
|
|
|
+ goto room_draw_end
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ rem 'Item sprites as well as initial data for item and sprites are in bank 4
|
|
|
+ rem 'Items/monsters/mobiles in any given room
|
|
|
+ rem '8 items per line means it corresponds with map layout
|
|
|
+ data room_items
|
|
|
+ monster_leaf2_boss, monster_leaf1_boss, monster_bat, item_switch4
|
|
|
+ monster_zombie, item_victory, monster_treant, monster_wolf
|
|
|
+ item_switch1, monster_mushroom, monster_scorpio, monster_mushroom
|
|
|
+ monster_zombie, monster_ikaza, monster_wolf, monster_treant,
|
|
|
+ monster_sword_boss, monster_scorpio, monster_grunt, monster_fish,
|
|
|
+ monster_knight, monster_armor_boss, item_switch2, monster_curse
|
|
|
+ item_switch7, monster_archer, monster_grunt, monster_rabid
|
|
|
+ monster_archer, monster_grunt, monster_lion, monster_snake
|
|
|
+ item_none, monster_mushroom, monster_grunt, monster_fish,
|
|
|
+ monster_cannon, monster_cannon, monster_mage, monster_lion,
|
|
|
+ monster_scorpio, monster_slime, monster_bat, monster_snake
|
|
|
+ monster_archer, monster_knight, monster_spider, monster_mushroom
|
|
|
+ monster_flower, item_healhp, monster_slime, item_switch3,
|
|
|
+ monster_scorpio, monster_crab, item_none, monster_fish
|
|
|
+ item_shield, monster_crab, monster_scorpio, item_none,
|
|
|
+ monster_leaf3_boss, item_switch6, monster_crab, monster_strike_boss
|
|
|
+end
|
|
|
+
|
|
|
+ data item_hplist
|
|
|
+ 4, 4, 8, 8, 8, 16, 16, 16, 16, 32, 32, 32, 32, 64, 32, 32
|
|
|
+ 64, 80,100, 4, 64, 32, 64, 64, 64, 80, 80, 80, 80,100,100,120
|
|
|
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4
|
|
|
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4
|
|
|
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4
|
|
|
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4
|
|
|
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4
|
|
|
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4
|
|
|
+end
|
|
|
+
|
|
|
+ rem 'Shorthand for the center of screen positions.
|
|
|
+ const hc=73
|
|
|
+ const vc=49
|
|
|
+
|
|
|
+ data item_xlist
|
|
|
+ hc, hc, 84, 37,109, 70, hc - 8, hc,
|
|
|
+ hc, hc, hc, 37, hc, hc, hc, hc,
|
|
|
+ hc,113,113, 37, hc + 12, hc, hc, hc,
|
|
|
+ hc, hc, 63,113, hc,120, hc, hc,
|
|
|
+ hc, 37, 90, 37, 53, 53, hc, hc,
|
|
|
+ 77, hc, hc,123, 66, hc, hc, 61,
|
|
|
+ hc, hc, hc,113, hc, hc, hc, hc,
|
|
|
+ 37, hc, 37, 37, hc, 37, hc, hc,
|
|
|
+end
|
|
|
+
|
|
|
+ data item_ylist
|
|
|
+ vc, vc, vc, 25, 70, 65, vc, vc,
|
|
|
+ vc, vc, vc, vc, vc, vc, vc, vc + 4,
|
|
|
+ vc, vc, vc, vc, vc + 1, vc, vc, vc + 8,
|
|
|
+ vc, vc, 70, vc, vc + 8, vc, vc, vc - 16,
|
|
|
+ vc, 29, 70, vc, 41, 41, vc, vc,
|
|
|
+ 33, vc, vc, vc, 70, 25, vc, vc,
|
|
|
+ vc, 55, vc, 80, vc, vc, vc, vc,
|
|
|
+ 73, vc, vc, vc, vc, 73, vc, vc,
|
|
|
+end
|
|
|
+
|
|
|
+
|
|
|
+item_setup
|
|
|
+ item_kind = room_items[hero_room]
|
|
|
+ gosub item_setup_kind
|
|
|
+ goto item_setup_done
|
|
|
+
|
|
|
+ rem 'You must set item_kind before gosubbing to this one
|
|
|
+item_setup_kind
|
|
|
+ rem 'Initialize item/mobile, and it's position, HP and speed
|
|
|
+ rem 'First, handle switches
|
|
|
+ if item_kind < item_switch1 then goto item_switch_end
|
|
|
+ if item_kind > item_switch7 then goto item_switch_end
|
|
|
+ rem 'set switch to on if needed
|
|
|
+ if quest_flags{1} && item_kind = item_switch1 then item_kind = item_kind + item_switch_on
|
|
|
+ if quest_flags{2} && item_kind = item_switch2 then item_kind = item_kind + item_switch_on
|
|
|
+ if quest_flags{3} && item_kind = item_switch3 then item_kind = item_kind + item_switch_on
|
|
|
+ if quest_flags{4} && item_kind = item_switch4 then item_kind = item_kind + item_switch_on
|
|
|
+ if quest_flags{5} && item_kind = item_switch5 then item_kind = item_kind + item_switch_on
|
|
|
+ if quest_flags{6} && item_kind = item_switch6 then item_kind = item_kind + item_switch_on
|
|
|
+ if quest_flags{7} && item_kind = item_switch7 then item_kind = item_kind + item_switch_on
|
|
|
+item_switch_end
|
|
|
+ rem 'Next, handle bosses that may already be dead.
|
|
|
+ rem 'Ikaza
|
|
|
+ if item_kind < monster_leaf1_boss then goto item_boss_end
|
|
|
+ if item_kind > monster_ikaza then goto item_boss_end
|
|
|
+ if quest_flags{0} && item_kind = monster_ikaza then item_kind = item_none
|
|
|
+ rem 'Leaf 1 dropped by boss 1
|
|
|
+ if hero_items{0} && item_kind = monster_leaf1_boss then item_kind = item_none
|
|
|
+ rem 'Leaf 2 dropped by boss 2
|
|
|
+ if hero_items{1} && item_kind = monster_leaf2_boss then item_kind = item_none
|
|
|
+ rem 'Leaf 3 dropped by boss 3
|
|
|
+ if hero_items{2} && item_kind = monster_leaf3_boss then item_kind = item_none
|
|
|
+ rem 'Armor Dropped by armor boss
|
|
|
+ if hero_items{4} && item_kind = monster_armor_boss then item_kind = item_none
|
|
|
+ rem 'Sword dropped by sword boss
|
|
|
+ if hero_items{5} && item_kind = monster_sword_boss then item_kind = item_none
|
|
|
+ rem 'Strike book dropped by strike book boss
|
|
|
+ if hero_items{7} && item_kind = monster_strike_boss then item_kind = item_none
|
|
|
+ rem 'Heal book and shield are not dropped by a boss, but just found
|
|
|
+item_boss_end
|
|
|
+ rem 'Finally handle the case of the shield and the heal book that should drop only once
|
|
|
+ if hero_items{3} && item_kind = item_shield then item_kind = item_none
|
|
|
+ if hero_items{6} && item_kind = item_bookheal then item_kind = item_none
|
|
|
+
|
|
|
+ temp1 = item_kind_mask & item_kind
|
|
|
+ item_hp = item_hplist[temp1]
|
|
|
+
|
|
|
+ if temp1 > 31 then goto item_draw_32
|
|
|
+ on temp1 goto i00 i01 i02 i03 i04 i05 i06 i07 i08 i09 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20 i21 i22 i23 i24 i25 i26 i27 i28 i29 i30 i31
|
|
|
+ goto item_draw_done
|
|
|
+item_draw_32
|
|
|
+ temp1 = temp1 - 32
|
|
|
+ on temp1 goto i32 i33 i34 i35 i36 i37 i38 i39 i40 i41 i42 i43 i44 i45 i46 i47 i48 i49 i50 i51 i52 i53 i54 i55 i56 i57 i58 i59 i60 i61 i62 i63
|
|
|
+item_draw_done
|
|
|
+
|
|
|
+ if item_kind <> item_none then goto item_not_none
|
|
|
+ item_x = nowhere
|
|
|
+ item_oldx = nowhere
|
|
|
+ item_y = nowhere
|
|
|
+ item_oldy = nowhere
|
|
|
+ return
|
|
|
+item_not_none
|
|
|
+ rem temp1 = item_kind & item_kind_mask
|
|
|
+ rem 'look up location in table.
|
|
|
+ item_oldx = item_xlist[hero_room]
|
|
|
+ item_x = item_xlist[hero_room]
|
|
|
+ item_oldy = item_ylist[hero_room]
|
|
|
+ item_y = item_ylist[hero_room]
|
|
|
+ return
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+i00
|
|
|
+ COLUP1=black
|
|
|
+ player1:
|
|
|
+ %10000001
|
|
|
+ %01000010
|
|
|
+ %00100100
|
|
|
+ %00011000
|
|
|
+ %00011000
|
|
|
+ %00100100
|
|
|
+ %01000010
|
|
|
+ %10000001
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i01
|
|
|
+ COLUP1=black
|
|
|
+ player1:
|
|
|
+ %01111100
|
|
|
+ %11111110
|
|
|
+ %11010110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i02
|
|
|
+ COLUP1=red
|
|
|
+ player1:
|
|
|
+ %00100100
|
|
|
+ %01011010
|
|
|
+ %10111101
|
|
|
+ %01111110
|
|
|
+ %01011010
|
|
|
+ %01000010
|
|
|
+ %10100101
|
|
|
+ %10100101
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+
|
|
|
+i03
|
|
|
+ rem 'bat.xpm
|
|
|
+ player1:
|
|
|
+ %01000010
|
|
|
+ %10000001
|
|
|
+ %10011001
|
|
|
+ %10111101
|
|
|
+ %11111111
|
|
|
+ %11100111
|
|
|
+ %11000011
|
|
|
+ %01000010
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i04
|
|
|
+ rem 'scorpio.xpm
|
|
|
+ player1:
|
|
|
+ %00101000
|
|
|
+ %00010010
|
|
|
+ %00011111
|
|
|
+ %00111100
|
|
|
+ %01100101
|
|
|
+ %10000010
|
|
|
+ %10010001
|
|
|
+ %01100000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i05
|
|
|
+ COLUP1=black
|
|
|
+ rem 'rabid.xpm
|
|
|
+ player1:
|
|
|
+ %00011000
|
|
|
+ %00111100
|
|
|
+ %01111110
|
|
|
+ %11011011
|
|
|
+ %11111111
|
|
|
+ %01111110
|
|
|
+ %11011011
|
|
|
+ %11000011
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i06
|
|
|
+ COLUP1=black
|
|
|
+ rem 'spider.xpm
|
|
|
+ player1:
|
|
|
+ %10100101
|
|
|
+ %10011001
|
|
|
+ %01011010
|
|
|
+ %00111100
|
|
|
+ %01100110
|
|
|
+ %10111101
|
|
|
+ %10100101
|
|
|
+ %00100100
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i07
|
|
|
+ COLUP1=black
|
|
|
+ rem 'snake.xpm
|
|
|
+ player1:
|
|
|
+ %00111110
|
|
|
+ %01000011
|
|
|
+ %00111000
|
|
|
+ %00000100
|
|
|
+ %00111000
|
|
|
+ %01000000
|
|
|
+ %00110000
|
|
|
+ %00001000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i08
|
|
|
+ COLUP1=black
|
|
|
+ rem 'fish.xpm
|
|
|
+ player1:
|
|
|
+ %10001100
|
|
|
+ %11011110
|
|
|
+ %11111101
|
|
|
+ %11111110
|
|
|
+ %11111111
|
|
|
+ %11111011
|
|
|
+ %11011110
|
|
|
+ %10001100
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i09
|
|
|
+ COLUP1=black
|
|
|
+ rem 'lion.xpm
|
|
|
+ player1:
|
|
|
+ %11011011
|
|
|
+ %01100110
|
|
|
+ %01000010
|
|
|
+ %11111111
|
|
|
+ %11011011
|
|
|
+ %11111111
|
|
|
+ %01011010
|
|
|
+ %00100100
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i10
|
|
|
+ COLUP1=black
|
|
|
+ rem 'wolf.xpm
|
|
|
+ player1:
|
|
|
+ %10100101
|
|
|
+ %10100101
|
|
|
+ %01111110
|
|
|
+ %01111100
|
|
|
+ %10000111
|
|
|
+ %10001101
|
|
|
+ %10001110
|
|
|
+ %00000100
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i11
|
|
|
+ COLUP1=black
|
|
|
+ rem 'captain.xpm, used for monster_grunt. (captain and grunt were doubles)
|
|
|
+ player1:
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %00101000
|
|
|
+ %10111011
|
|
|
+ %01111111
|
|
|
+ %01111101
|
|
|
+ %01101101
|
|
|
+ %01010100
|
|
|
+ %11111110
|
|
|
+ %00111000
|
|
|
+ %01010100
|
|
|
+ %10010010
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i12
|
|
|
+ COLUP1=black
|
|
|
+ rem 'archer.xpm
|
|
|
+ player1:
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %00101010
|
|
|
+ %00110110
|
|
|
+ %01101001
|
|
|
+ %01010001
|
|
|
+ %01111111
|
|
|
+ %01010001
|
|
|
+ %01101001
|
|
|
+ %00110110
|
|
|
+ %01111110
|
|
|
+ %01010100
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i13
|
|
|
+ COLUP1=black
|
|
|
+ rem 'knight.xpm
|
|
|
+ player1:
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01111100
|
|
|
+ %10111010
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %00111000
|
|
|
+ %01111100
|
|
|
+ %11010110
|
|
|
+ %10010010
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+ %01010100
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i14
|
|
|
+ COLUP1=black
|
|
|
+ rem 'cannon.xpm
|
|
|
+ player1:
|
|
|
+ %00011100
|
|
|
+ %00001000
|
|
|
+ %10001000
|
|
|
+ %11111001
|
|
|
+ %10011111
|
|
|
+ %00010001
|
|
|
+ %00010000
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i15
|
|
|
+ COLUP1=black
|
|
|
+ rem 'zombie.xpm
|
|
|
+ player1:
|
|
|
+ %00101100
|
|
|
+ %01101000
|
|
|
+ %00101000
|
|
|
+ %00101100
|
|
|
+ %01101000
|
|
|
+ %10111001
|
|
|
+ %01111001
|
|
|
+ %01011001
|
|
|
+ %01111101
|
|
|
+ %01101110
|
|
|
+ %01111110
|
|
|
+ %00111000
|
|
|
+ %01011100
|
|
|
+ %01110110
|
|
|
+ %00111110
|
|
|
+ %00011000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i16
|
|
|
+ COLUP1=black
|
|
|
+ rem 'skeleton.xpm
|
|
|
+ player1:
|
|
|
+ %01101100
|
|
|
+ %00101000
|
|
|
+ %00101000
|
|
|
+ %00101000
|
|
|
+ %10101010
|
|
|
+ %10010010
|
|
|
+ %10111010
|
|
|
+ %01010100
|
|
|
+ %00111000
|
|
|
+ %00010000
|
|
|
+ %00101000
|
|
|
+ %01111100
|
|
|
+ %01010100
|
|
|
+ %10010010
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i17
|
|
|
+ COLUP1=black
|
|
|
+ rem 'ghost.xpm
|
|
|
+ player1:
|
|
|
+ %10101010
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %01111100
|
|
|
+ %01111100
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %10111010
|
|
|
+ %00111000
|
|
|
+ %01111100
|
|
|
+ %11010110
|
|
|
+ %10111010
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i18
|
|
|
+ COLUP1=black
|
|
|
+ rem 'bitmap/mage.xpm
|
|
|
+ player1:
|
|
|
+ %00101001
|
|
|
+ %01111101
|
|
|
+ %01111101
|
|
|
+ %01111101
|
|
|
+ %00111001
|
|
|
+ %10111011
|
|
|
+ %10010011
|
|
|
+ %01111101
|
|
|
+ %00010001
|
|
|
+ %00111001
|
|
|
+ %01111101
|
|
|
+ %01010101
|
|
|
+ %01111101
|
|
|
+ %00111001
|
|
|
+ %00111010
|
|
|
+ %00010001
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i19
|
|
|
+ COLUP1=black
|
|
|
+ rem 'flower.xpm
|
|
|
+ player1:
|
|
|
+ %00010000
|
|
|
+ %00111000
|
|
|
+ %01010100
|
|
|
+ %00010000
|
|
|
+ %00101000
|
|
|
+ %01000100
|
|
|
+ %00101000
|
|
|
+ %00010000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i20
|
|
|
+ COLUP1=black
|
|
|
+ rem 'treant.xpm
|
|
|
+ player1:
|
|
|
+ %10101010
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+ %00111000
|
|
|
+ %00111000
|
|
|
+ %00111000
|
|
|
+ %00111000
|
|
|
+ %00111000
|
|
|
+ %01111000
|
|
|
+ %10111100
|
|
|
+ %00111010
|
|
|
+ %01111000
|
|
|
+ %10111100
|
|
|
+ %00010010
|
|
|
+ %00110000
|
|
|
+ %01001000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i21
|
|
|
+ COLUP1=black
|
|
|
+ rem 'muschroom.xpm
|
|
|
+ player1:
|
|
|
+ %01111110
|
|
|
+ %00111100
|
|
|
+ %00011000
|
|
|
+ %00011000
|
|
|
+ %00011000
|
|
|
+ %11111111
|
|
|
+ %01111110
|
|
|
+ %00111100
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i22
|
|
|
+ COLUP1=black
|
|
|
+ rem 'book.xpm
|
|
|
+ player1:
|
|
|
+ %11111111
|
|
|
+ %10100101
|
|
|
+ %10100101
|
|
|
+ %10010101
|
|
|
+ %11001101
|
|
|
+ %10110101
|
|
|
+ %10000101
|
|
|
+ %11111111
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i23
|
|
|
+ COLUP1=black
|
|
|
+ rem 'sword.xpm. It's a fake Numen Sword that hurts the one who touches it.
|
|
|
+ player1:
|
|
|
+ %10010000
|
|
|
+ %01100000
|
|
|
+ %01110000
|
|
|
+ %10111000
|
|
|
+ %00011100
|
|
|
+ %00001110
|
|
|
+ %00000111
|
|
|
+ %00000011
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i24
|
|
|
+ COLUP1=black
|
|
|
+ rem 'Curse, entrance blocking item
|
|
|
+ player1:
|
|
|
+ %00111100
|
|
|
+ %01111110
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11000111
|
|
|
+ %11000111
|
|
|
+ %11111111
|
|
|
+ %10010011
|
|
|
+ %10010011
|
|
|
+ %10010011
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %11111111
|
|
|
+ %01111110
|
|
|
+ %00111100
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i25
|
|
|
+ COLUP1=black
|
|
|
+ rem 'boss1.xpm
|
|
|
+ player1:
|
|
|
+ %01000100
|
|
|
+ %10101010
|
|
|
+ %10101010
|
|
|
+ %01000100
|
|
|
+ %01000100
|
|
|
+ %00000000
|
|
|
+ %00101000
|
|
|
+ %00111000
|
|
|
+ %01111100
|
|
|
+ %11111110
|
|
|
+ %11010110
|
|
|
+ %10111010
|
|
|
+ %11111110
|
|
|
+ %01111101
|
|
|
+ %01111100
|
|
|
+ %01111100
|
|
|
+ %01111100
|
|
|
+ %10111010
|
|
|
+ %00111000
|
|
|
+ %01111000
|
|
|
+ %00111000
|
|
|
+ %00010100
|
|
|
+ %00010000
|
|
|
+ %00010000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i26
|
|
|
+ COLUP1=black
|
|
|
+ rem 'boss2.xpm
|
|
|
+ player1:
|
|
|
+ %01011010
|
|
|
+ %01011010
|
|
|
+ %01011010
|
|
|
+ %10011001
|
|
|
+ %10111101
|
|
|
+ %10011001
|
|
|
+ %10111101
|
|
|
+ %10011001
|
|
|
+ %10011001
|
|
|
+ %10111101
|
|
|
+ %11011011
|
|
|
+ %10111101
|
|
|
+ %10111101
|
|
|
+ %11100111
|
|
|
+ %11000011
|
|
|
+ %10011001
|
|
|
+ %10100101
|
|
|
+ %10011001
|
|
|
+ %10111101
|
|
|
+ %10100101
|
|
|
+ %10000001
|
|
|
+ %01000010
|
|
|
+ %01000010
|
|
|
+ %01000010
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i27
|
|
|
+ COLUP1=black
|
|
|
+ rem 'boss3.xpm
|
|
|
+ player1:
|
|
|
+ %10100101
|
|
|
+ %10100101
|
|
|
+ %10100101
|
|
|
+ %10100101
|
|
|
+ %10100101
|
|
|
+ %10100101
|
|
|
+ %10111101
|
|
|
+ %01111110
|
|
|
+ %11011011
|
|
|
+ %10011001
|
|
|
+ %10011001
|
|
|
+ %10011001
|
|
|
+ %10011001
|
|
|
+ %11011011
|
|
|
+ %11111111
|
|
|
+ %01111110
|
|
|
+ %01111110
|
|
|
+ %01111110
|
|
|
+ %00111100
|
|
|
+ %00111100
|
|
|
+ %00111100
|
|
|
+ %00011000
|
|
|
+ %00011000
|
|
|
+ %00011000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i28
|
|
|
+ COLUP1=black
|
|
|
+ rem 'armorboss.xpm
|
|
|
+ player1:
|
|
|
+ %00011000
|
|
|
+ %00111100
|
|
|
+ %01011010
|
|
|
+ %01111110
|
|
|
+ %00011000
|
|
|
+ %00111100
|
|
|
+ %10111101
|
|
|
+ %11111111
|
|
|
+ %01111110
|
|
|
+ %01111110
|
|
|
+ %11011011
|
|
|
+ %11100111
|
|
|
+ %11111111
|
|
|
+ %01011010
|
|
|
+ %01100110
|
|
|
+ %11111111
|
|
|
+ %10111101
|
|
|
+ %00111100
|
|
|
+ %00111100
|
|
|
+ %00001000
|
|
|
+ %00011000
|
|
|
+ %00010000
|
|
|
+ %00001000
|
|
|
+ %00001000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i29
|
|
|
+ COLUP1=black
|
|
|
+ rem 'Sword boss is a player frame
|
|
|
+ player1:
|
|
|
+ %01101100
|
|
|
+ %01101100
|
|
|
+ %01111100
|
|
|
+ %01111100
|
|
|
+ %10111010
|
|
|
+ %01111100
|
|
|
+ %10111010
|
|
|
+ %11111110
|
|
|
+ %11010110
|
|
|
+ %11010110
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i30
|
|
|
+ COLUP1=black
|
|
|
+ rem 'Strike boss is a one point sprite which is difficult to hit
|
|
|
+ player1:
|
|
|
+ %00010000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i31
|
|
|
+ rem 'ikaza.xpm
|
|
|
+ rem 'ikaza.xpm
|
|
|
+ player1:
|
|
|
+ %00101000
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+ %10111010
|
|
|
+ %11010110
|
|
|
+ %01111100
|
|
|
+ %01010100
|
|
|
+ %00111000
|
|
|
+ %01111100
|
|
|
+ %11010110
|
|
|
+ %10111010
|
|
|
+ %01111100
|
|
|
+ %01111100
|
|
|
+ %01010100
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i32
|
|
|
+i33
|
|
|
+i34
|
|
|
+ rem 'leaf.xpm
|
|
|
+ player1:
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %00111000
|
|
|
+ %01111100
|
|
|
+ %11111111
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+ %00000000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i35
|
|
|
+ rem 'armor.xpm
|
|
|
+ player1:
|
|
|
+ %01111110
|
|
|
+ %01011010
|
|
|
+ %10100101
|
|
|
+ %11011011
|
|
|
+ %11111111
|
|
|
+ %01111110
|
|
|
+ %00011000
|
|
|
+ %00000000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i36
|
|
|
+ rem 'shield.xpm
|
|
|
+ player1:
|
|
|
+ %00010000
|
|
|
+ %00111000
|
|
|
+ %01010100
|
|
|
+ %11010110
|
|
|
+ %10111010
|
|
|
+ %11010110
|
|
|
+ %10010010
|
|
|
+ %11111110
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i37
|
|
|
+ rem 'sword.xpm
|
|
|
+ player1:
|
|
|
+ %10010000
|
|
|
+ %01100000
|
|
|
+ %01110000
|
|
|
+ %10111000
|
|
|
+ %00011100
|
|
|
+ %00001110
|
|
|
+ %00000111
|
|
|
+ %00000011
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i38
|
|
|
+ rem 'healbook.xpm
|
|
|
+ player1:
|
|
|
+ %11111110
|
|
|
+ %10000010
|
|
|
+ %10000010
|
|
|
+ %10010010
|
|
|
+ %10111010
|
|
|
+ %10101010
|
|
|
+ %10000010
|
|
|
+ %11111110
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i39
|
|
|
+ rem 'strikebook.xpm
|
|
|
+ player1:
|
|
|
+ %11111110
|
|
|
+ %10010010
|
|
|
+ %10001010
|
|
|
+ %11111110
|
|
|
+ %10100010
|
|
|
+ %10010010
|
|
|
+ %10001010
|
|
|
+ %11111110
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i40
|
|
|
+ rem 'healhp.xpm
|
|
|
+ player1:
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %00010000
|
|
|
+ %00111000
|
|
|
+ %01111100
|
|
|
+ %01111100
|
|
|
+ %00101000
|
|
|
+ %00000000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i41
|
|
|
+ rem 'healmp.xpm
|
|
|
+ player1:
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %00010000
|
|
|
+ %01010100
|
|
|
+ %10111010
|
|
|
+ %01010100
|
|
|
+ %00010000
|
|
|
+ %00000000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i42
|
|
|
+ rem 'healallhp.xpm
|
|
|
+ player1:
|
|
|
+ %00000000
|
|
|
+ %00010000
|
|
|
+ %00111000
|
|
|
+ %01111100
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %01101100
|
|
|
+ %00000000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i43
|
|
|
+ rem 'healallmp.xpm
|
|
|
+ player1:
|
|
|
+ %00000000
|
|
|
+ %00010000
|
|
|
+ %01010100
|
|
|
+ %10111010
|
|
|
+ %10010010
|
|
|
+ %10111010
|
|
|
+ %01010100
|
|
|
+ %00010000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i44
|
|
|
+i45
|
|
|
+i46
|
|
|
+i47
|
|
|
+i48
|
|
|
+i49
|
|
|
+i50
|
|
|
+ rem 'bitmap/switch.xpm
|
|
|
+ player1:
|
|
|
+ %00000000
|
|
|
+ %11111111
|
|
|
+ %00111110
|
|
|
+ %00001000
|
|
|
+ %00010000
|
|
|
+ %00100000
|
|
|
+ %11000000
|
|
|
+ %11000000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i51
|
|
|
+i52
|
|
|
+i53
|
|
|
+i54
|
|
|
+i55
|
|
|
+i56
|
|
|
+i57
|
|
|
+ rem 'bitmap/switch_on.xpm
|
|
|
+ player1:
|
|
|
+ %00000000
|
|
|
+ %11111111
|
|
|
+ %01111100
|
|
|
+ %00010000
|
|
|
+ %00001000
|
|
|
+ %00000100
|
|
|
+ %00000011
|
|
|
+ %00000011
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+i58
|
|
|
+i59
|
|
|
+i60
|
|
|
+i61
|
|
|
+i62
|
|
|
+ COLUP1=black
|
|
|
+ player1:
|
|
|
+ %10000001
|
|
|
+ %01000010
|
|
|
+ %00100100
|
|
|
+ %00011000
|
|
|
+ %00011000
|
|
|
+ %00100100
|
|
|
+ %01000010
|
|
|
+ %10000001
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+i63
|
|
|
+ COLUP1=pink
|
|
|
+ player1:
|
|
|
+ %00011100
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %10111000
|
|
|
+ %10111110
|
|
|
+ %10011110
|
|
|
+ %10111000
|
|
|
+ %11111100
|
|
|
+ %11110100
|
|
|
+ %11110110
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+end
|
|
|
+ goto item_draw_done
|
|
|
+
|
|
|
+ rem ' Bank 5 contains the game over, game win and game intro, screen
|
|
|
+ rem 'as well as a music playing routine for them.
|
|
|
+
|
|
|
+ const music_which_intro=0
|
|
|
+ const music_which_gameover=1
|
|
|
+ const music_which_victory=2
|
|
|
+
|
|
|
+
|
|
|
+game_over
|
|
|
+ gosub music_restart
|
|
|
+ music_which=music_which_gameover
|
|
|
+ COLUBK = red
|
|
|
+ hero_x=70
|
|
|
+ hero_y=80
|
|
|
+ player0:
|
|
|
+ %1000001
|
|
|
+ %1000001
|
|
|
+ %1000010
|
|
|
+ %1111110
|
|
|
+ %1000001
|
|
|
+ %1111110
|
|
|
+ %0000000
|
|
|
+ %1111111
|
|
|
+ %1000000
|
|
|
+ %1111111
|
|
|
+ %1000000
|
|
|
+ %1111111
|
|
|
+ %0000000
|
|
|
+ %0001000
|
|
|
+ %0010100
|
|
|
+ %0100010
|
|
|
+ %1000001
|
|
|
+ %1000001
|
|
|
+ %0000000
|
|
|
+ %0011100
|
|
|
+ %0100010
|
|
|
+ %1000001
|
|
|
+ %1000001
|
|
|
+ %0100010
|
|
|
+ %0011100
|
|
|
+ %0000000
|
|
|
+ %0000000
|
|
|
+ %0000000
|
|
|
+ %0000000
|
|
|
+ %0000000
|
|
|
+ %0000000
|
|
|
+ %0000000
|
|
|
+ %0000000
|
|
|
+ %1111111
|
|
|
+ %1000000
|
|
|
+ %1111111
|
|
|
+ %1000000
|
|
|
+ %1111111
|
|
|
+ %0000000
|
|
|
+ %1000001
|
|
|
+ %1000001
|
|
|
+ %1001001
|
|
|
+ %1010101
|
|
|
+ %1100011
|
|
|
+ %1000001
|
|
|
+ %0000000
|
|
|
+ %1000001
|
|
|
+ %1000001
|
|
|
+ %1111111
|
|
|
+ %0100010
|
|
|
+ %0010100
|
|
|
+ %0001000
|
|
|
+ %0000000
|
|
|
+ %0011110
|
|
|
+ %0100010
|
|
|
+ %1000111
|
|
|
+ %1000000
|
|
|
+ %0100010
|
|
|
+ %0011100
|
|
|
+end
|
|
|
+game_over_loop
|
|
|
+ rem 'Teleport to Sygne's home on reset button, with some losses
|
|
|
+ if !switchreset then goto reset_go_end
|
|
|
+ hero_room=room_start
|
|
|
+ hero_x=hero_start_x
|
|
|
+ hero_oldx=hero_start_x
|
|
|
+ hero_y=hero_start_y
|
|
|
+ hero_oldy=hero_start_x
|
|
|
+ hero_hp = hero_level + hero_base_hp
|
|
|
+ hero_next = hero_level
|
|
|
+ hero_mp = 0
|
|
|
+ rem ' Restart the game with stats somewhat reduced,
|
|
|
+ gosub music_restart
|
|
|
+ gosub set_mp_display
|
|
|
+ gosub hero_draw_s
|
|
|
+ gosub room_draw
|
|
|
+ goto main_loop
|
|
|
+reset_go_end
|
|
|
+
|
|
|
+ COLUP0=white
|
|
|
+ COLUP1=black
|
|
|
+ rem 'Make monster look x3 size, to maintain boss size and suggest something for non bosses.
|
|
|
+ NUSIZ1 = $07
|
|
|
+special_effects_go_end
|
|
|
+ gosub music_play
|
|
|
+ drawscreen
|
|
|
+ goto game_over_loop
|
|
|
+
|
|
|
+
|
|
|
+ data music_data
|
|
|
+ 24,30,27,30,30,30,27,30,24,28,-1,2,24,28,-1,2,24,60
|
|
|
+ 27,28,-1,2,27,28,-1,2,27,60,24,30,20,28,-1,2,20,60
|
|
|
+ 24,30,27,30,30,30,27,30,24,28,-1,2,24,28,-1,2,24,28,-1,2
|
|
|
+ 24,30,27,28,-1,2,27,30,24,30,27,30,30,120
|
|
|
+end
|
|
|
+
|
|
|
+game_win
|
|
|
+ gosub music_restart
|
|
|
+ music_which=music_which_victory
|
|
|
+ COLUBK = white
|
|
|
+ COLUPF = yellow
|
|
|
+ item_x=80
|
|
|
+ item_y=80
|
|
|
+ hero_x=84
|
|
|
+ hero_y=80
|
|
|
+ player1:
|
|
|
+ %00011100
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+ %10111110
|
|
|
+ %10011110
|
|
|
+ %10111000
|
|
|
+ %11111100
|
|
|
+ %11110100
|
|
|
+ %11110110
|
|
|
+ %11111110
|
|
|
+ %01111100
|
|
|
+ %00111000
|
|
|
+ %00000000
|
|
|
+ %00010000
|
|
|
+ %00111000
|
|
|
+ %01111100
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %01101100
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %11111000
|
|
|
+ %10000100
|
|
|
+ %10000010
|
|
|
+ %10000010
|
|
|
+ %10000100
|
|
|
+ %11111000
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %10000110
|
|
|
+ %10001010
|
|
|
+ %10010010
|
|
|
+ %10100010
|
|
|
+ %11000010
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %11111110
|
|
|
+ %10000000
|
|
|
+ %11111110
|
|
|
+ %10000000
|
|
|
+ %11111110
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %11111110
|
|
|
+ %10000000
|
|
|
+ %11111110
|
|
|
+ %10000000
|
|
|
+ %11111110
|
|
|
+ %00000000
|
|
|
+ %10000010
|
|
|
+ %10000010
|
|
|
+ %11111110
|
|
|
+ %10000010
|
|
|
+ %10000010
|
|
|
+ %00000000
|
|
|
+ %00010000
|
|
|
+ %00010000
|
|
|
+ %00010000
|
|
|
+ %00010000
|
|
|
+ %11111110
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %00000000
|
|
|
+ %00010000
|
|
|
+ %00111000
|
|
|
+ %01111100
|
|
|
+ %11111110
|
|
|
+ %11111110
|
|
|
+ %01101100
|
|
|
+end
|
|
|
+
|
|
|
+game_win_loop
|
|
|
+ COLUBK = white
|
|
|
+ COLUP1 = rand
|
|
|
+ COLUP0 = rand
|
|
|
+ REFP0 = 8
|
|
|
+ gosub music_play
|
|
|
+ drawscreen
|
|
|
+ rem 'Go back to house, but level up to 90 if not so already
|
|
|
+ if !switchreset then goto reset_win_end
|
|
|
+
|
|
|
+ hero_room=room_start
|
|
|
+ hero_x=hero_start_x
|
|
|
+ hero_oldx=hero_start_x
|
|
|
+ hero_y=hero_start_y
|
|
|
+ hero_oldy=hero_start_x
|
|
|
+ if hero_level < 90 then hero_level = 90
|
|
|
+ hero_hp = hero_level * 2 + hero_base_hp
|
|
|
+ hero_mp = hero_level / 16 + 1
|
|
|
+ gosub music_restart
|
|
|
+ gosub room_draw
|
|
|
+ gosub hero_draw_s
|
|
|
+ gosub room_draw
|
|
|
+ goto main_loop
|
|
|
+reset_win_end
|
|
|
+
|
|
|
+
|
|
|
+ goto game_win_loop
|
|
|
+
|
|
|
+
|
|
|
+intro_screen
|
|
|
+ gosub music_restart
|
|
|
+ music_which=music_which_intro
|
|
|
+ COLUBK = black
|
|
|
+ COLUPF = white
|
|
|
+ pfcolors:
|
|
|
+ yellow
|
|
|
+ yellow - 2
|
|
|
+ yellow - 4
|
|
|
+ yellow - 8
|
|
|
+ yellow - 10
|
|
|
+ yellow - 12
|
|
|
+ yellow - 2
|
|
|
+ yellow - 4
|
|
|
+ yellow - 8
|
|
|
+ yellow - 10
|
|
|
+ yellow - 12
|
|
|
+end
|
|
|
+ playfield:
|
|
|
+ ..X....XXXXX..X...X..XXX...XXXX.
|
|
|
+ .X.X.....X....X...X..X..X..X....
|
|
|
+ X...X....X....X...X..XXX...XXXX.
|
|
|
+ XXXXX....X....X...X..X..X..X....
|
|
|
+ X...X....X.....XXX...X..X..XXXX.
|
|
|
+ ................................
|
|
|
+ XXX..XXXX..XX..XXX...XX..X..X...
|
|
|
+ X..X.X....X..X.X..X.X..X.XX.X...
|
|
|
+ XXX..XXXX.X..X.XXX..XXXX.X.XX...
|
|
|
+ X..X.X....X..X.X..X.X..X.X..X...
|
|
|
+ XXX..XXXX..XX..X..X.X..X.X..X...
|
|
|
+end
|
|
|
+ COLUBK = black
|
|
|
+intro_loop
|
|
|
+ rem COLUP1 = rand
|
|
|
+ rem COLUP0 = rand
|
|
|
+ rem REFP0 = 8
|
|
|
+ gosub music_play
|
|
|
+ drawscreen
|
|
|
+ if switchreset || joy0fire then return
|
|
|
+ goto intro_loop
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ const music_volume = 4
|
|
|
+ const note_rest = 0
|
|
|
+ const music_voice = 4
|
|
|
+ const music_voice_2 = 12
|
|
|
+ const c4 = 30
|
|
|
+ const d4 = 27
|
|
|
+ const e4 = 24
|
|
|
+ const f4 = 23
|
|
|
+ const g4 = 20
|
|
|
+ const a4 = 18
|
|
|
+ const b4 = 16
|
|
|
+ const c5 = 15
|
|
|
+ const rn = note_rest
|
|
|
+ const n_1 = 240
|
|
|
+ const n0 = 120
|
|
|
+ const n1 = 60
|
|
|
+ const n2 = 30
|
|
|
+ const n3 = 20
|
|
|
+ const n4 = 15
|
|
|
+ const n6 = 10
|
|
|
+ const n8 = 8
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+; const music_size_victory = 48
|
|
|
+
|
|
|
+ const music_size_intro = 56
|
|
|
+music_notes_intro_p
|
|
|
+ data music_notes_intro
|
|
|
+ c5, n2, a4, n2, f4, n2, d4, n2, rn, n8
|
|
|
+ c5, n2, a4, n2, f4, n2, d4, n2, rn, n8
|
|
|
+ c4, n2, f4, n2, g4, n2, d4, n2, rn, n8
|
|
|
+ c4, n2, f4, n2, g4, n2, d4, n2, rn, n8
|
|
|
+ a4, n0, f4, n0, d4, n0, rn, n0
|
|
|
+ f4, n0, a4, n0, c5, n0, rn, n0
|
|
|
+end
|
|
|
+
|
|
|
+ const music_size_gameover = 20
|
|
|
+music_notes_gameover_p
|
|
|
+ data music_notes_gameover
|
|
|
+ e4, n0, a4, n0, g4, n0, e4, n0, rn, n0
|
|
|
+ a4, n0, b4, n0, g4, n0, a4, n0, rn, n0
|
|
|
+end
|
|
|
+
|
|
|
+ const music_size_victory = 32
|
|
|
+music_notes_victory_p
|
|
|
+ data music_notes_victory
|
|
|
+ c4, n2, e4, n2, g4, n2, c5, n2
|
|
|
+ g4, n2, e4, n2, c4, n1, rn, n0
|
|
|
+ c4, n2, d4, n2, e4, n4, g4, n2
|
|
|
+ c5, n2, e4, n2, c4, n1, rn, n0
|
|
|
+end
|
|
|
+
|
|
|
+
|
|
|
+ data music_sizes
|
|
|
+ music_size_intro, music_size_gameover, music_size_victory
|
|
|
+end
|
|
|
+
|
|
|
+
|
|
|
+ rem 'restarts the music
|
|
|
+music_restart
|
|
|
+ music_timer=1
|
|
|
+ music_pointer=0
|
|
|
+ AUDV0=0
|
|
|
+ AUDV1=0
|
|
|
+ return
|
|
|
+
|
|
|
+music_play
|
|
|
+ rem ' Update music timer and change note if needed
|
|
|
+ rem ' If we get here, the timer is not 0 yet.
|
|
|
+ rem ' Go on to the next note, and leave it at that
|
|
|
+ if music_timer = 0 then goto music_do_note_change
|
|
|
+ goto music_no_note_change
|
|
|
+music_do_note_change
|
|
|
+ gosub music_change_note
|
|
|
+music_no_note_change
|
|
|
+ music_timer = music_timer - 1
|
|
|
+ rem ' COLUBK = music_timer
|
|
|
+ return
|
|
|
+
|
|
|
+music_change_note
|
|
|
+ rem ' choose the not from the right music table
|
|
|
+ if music_which = music_which_intro then temp1 = music_notes_intro[music_pointer]
|
|
|
+ if music_which = music_which_gameover then temp1 = music_notes_gameover[music_pointer]
|
|
|
+ if music_which = music_which_victory then temp1 = music_notes_victory[music_pointer]
|
|
|
+
|
|
|
+ AUDF0 = temp1
|
|
|
+ AUDF1 = temp1
|
|
|
+ AUDC0 = music_voice
|
|
|
+ AUDC1 = music_voice_2
|
|
|
+ if temp1 = note_rest then AUDV0 = 0 else AUDV0 = music_volume
|
|
|
+ if temp1 = note_rest then AUDV1 = 0 else AUDV1 = music_volume
|
|
|
+ music_pointer = music_pointer + 1
|
|
|
+ rem ' Get right timig for note from right music
|
|
|
+ if music_which = music_which_intro then music_timer = music_notes_intro[music_pointer]
|
|
|
+ if music_which = music_which_gameover then music_timer = music_notes_gameover[music_pointer]
|
|
|
+ if music_which = music_which_victory then music_timer = music_notes_victory[music_pointer]
|
|
|
+
|
|
|
+
|
|
|
+ music_pointer = music_pointer + 1
|
|
|
+ temp3 = music_sizes[music_which]
|
|
|
+ if music_which = music_which_intro then temp3 = music_size_intro
|
|
|
+ if music_which = music_which_gameover then temp3 = music_size_gameover
|
|
|
+ if music_which = music_which_victory then temp3 = music_size_victory
|
|
|
+ if music_pointer >= temp3 then music_pointer = 0
|
|
|
+
|
|
|
+ return
|
|
|
+
|
|
|
+
|
|
|
+; inline 6lives_statusbar.asm
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
Bjorn De Meyer