diff options
| -rw-r--r-- | landmarks.asm | 539 | ||||
| -rw-r--r-- | main.asm | 538 |
2 files changed, 540 insertions, 537 deletions
diff --git a/landmarks.asm b/landmarks.asm new file mode 100644 index 000000000..2109bd556 --- /dev/null +++ b/landmarks.asm @@ -0,0 +1,539 @@ +GetLandmarkCoords: ; 0x1ca896 +; given a landmark id in e, return the y coord in d, and the x coord in e. + push hl + ld l, e + ld h, $0 + add hl, hl + add hl, hl + ld de, Landmarks + add hl, de + ld a, [hli] + ld e, a + ld d, [hl] + pop hl + ret + + +GetLandmarkName: ; 0x1ca8a5 +; given a landmark id in e, copy its name to $d073. + push hl + push de + push bc + ld l, e + ld h, $0 + add hl, hl + add hl, hl + ld de, Landmarks + 2 ; skip the coordinates, we only want the string + add hl, de + ld a, [hli] + ld h, [hl] + ld l, a + ld de, $d073 + ld c, 18 +.loop + ld a, [hli] + ld [de], a + inc de + dec c + jr nz, .loop + pop bc + pop de + pop hl + ret + +Landmarks: ; 0x1ca8c3 +;db x coord, y coord +;dw pointer to name + db 0,0 + dw SpecialMapString + + db 148,116 + dw NewBarkString + + db 136,116 + dw Route29String + + db 108,116 + dw CherrygroveString + + db 108,96 + dw Route30String + + db 104,76 + dw Route31String + + db 92,76 + dw VioletString + + db 93,74 + dw SproutString + + db 92,108 + dw Route32String + + db 84,92 + dw RuinsString + + db 92,140 + dw UnionString + + db 90,140 + dw Route33String + + db 76,140 + dw AzaleaString + + db 78,138 + dw WellString + + db 60,136 + dw IlexString + + db 60,128 + dw Route34String + + db 60,108 + dw GoldenrodString + + db 58,108 + dw RadioTowerString + + db 60,92 + dw Route35String + + db 60,76 + dw ParkString + + db 72,76 + dw Route36String + + db 76,68 + dw Route37String + + db 76,60 + dw EcruteakString + + db 78,58 + dw TinString + + db 74,58 + dw BurnedTowerString + + db 60,60 + dw Route38String + + db 44,64 + dw Route39String + + db 44,76 + dw OlivineString + + db 46,78 + dw LighthouseString + + db 36,72 + dw BattleTowerString + + db 36,80 + dw Route40String + + db 36,108 + dw WhirlString + + db 36,116 + dw Route41String + + db 28,116 + dw CianwoodString + + db 100,60 + dw Route42String + + db 92,60 + dw MortarString + + db 116,60 + dw MahoganyString + + db 116,52 + dw Route43String + + db 116,44 + dw LakeString + + db 128,60 + dw Route44String + + db 138,54 + dw PathString + + db 140,60 + dw BlackthornString + + db 140,52 + dw DenString + + db 140,80 + dw Route45String + + db 120,88 + dw DarkString + + db 132,104 + dw Route46String + + db 156,84 + dw SilverCaveString + + db 60,124 + dw PalletString + + db 60,108 + dw Route1String + + db 60,92 + dw ViridianString + + db 60,80 + dw Route2String + + db 60,68 + dw PewterString + + db 72,68 + dw Route3String + + db 84,68 + dw MoonString + + db 96,68 + dw Route4String + + db 108,68 + dw CeruleanString + + db 108,60 + dw Route24String + + db 116,52 + dw Route25String + + db 108,76 + dw Route5String + + db 116,92 + dw UndergroundString + + db 108,92 + dw Route6String + + db 108,100 + dw VermilionString + + db 96,76 + dw DiglettsCaveString + + db 96,84 + dw Route7String + + db 124,84 + dw Route8String + + db 124,68 + dw Route9String + + db 140,68 + dw TunnelString + + db 140,72 + dw Route10String + + db 140,76 + dw PlantString + + db 140,84 + dw LavenderString + + db 148,84 + dw LavTowerString + + db 84,84 + dw CeladonString + + db 108,84 + dw SaffronString + + db 124,100 + dw Route11String + + db 140,96 + dw Route12String + + db 132,116 + dw Route13String + + db 124,128 + dw Route14String + + db 112,132 + dw Route15String + + db 76,84 + dw Route16String + + db 76,108 + dw Route17String + + db 88,132 + dw Route18String + + db 100,132 + dw FuchsiaString + + db 100,144 + dw Route19String + + db 84,148 + dw Route20String + + db 76,148 + dw SeafoamString + + db 60,148 + dw CinnabarString + + db 60,136 + dw Route21String + + db 44,84 + dw Route22String + + db 36,68 + dw RoadString + + db 36,60 + dw Route23String + + db 36,52 + dw IndigoString + + db 36,108 + dw Route26String + + db 28,116 + dw Route27String + + db 20,116 + dw FallsString + + db 28,84 + dw Route28String + + db 148,132 + dw AquaString + +NewBarkString: + db "NEW BARK",$1F,"TOWN@" +CherrygroveString: + db "CHERRYGROVE",$1F,"CITY@" +VioletString: + db "VIOLET CITY@" +AzaleaString: + db "AZALEA TOWN@" +GoldenrodString: + db "GOLDENROD",$1F,"CITY@" +EcruteakString: + db "ECRUTEAK",$1F,"CITY@" +OlivineString: + db "OLIVINE",$1F,"CITY@" +CianwoodString: + db "CIANWOOD",$1F,"CITY@" +MahoganyString: + db "MAHOGANY",$1F,"TOWN@" +BlackthornString: + db "BLACKTHORN",$1F,"CITY@" +LakeString: + db "LAKE OF",$1F,"RAGE@" +SilverCaveString: + db "SILVER CAVE@" +SproutString: + db "SPROUT",$1F,"TOWER@" +RuinsString: + db "RUINS",$1F,"OF ALPH@" +UnionString: + db "UNION CAVE@" +WellString: + db "SLOWPOKE",$1F,"WELL@" +RadioTowerString: + db "RADIO TOWER@" +PlantString: + db "POWER PLANT@" +ParkString: + db "NATIONAL",$1F,"PARK@" +TinString: + db "TIN TOWER@" +LighthouseString: + db "LIGHTHOUSE@" +WhirlString: + db "WHIRL",$1F,"ISLANDS@" +MortarString: + db "MT.MORTAR@" +DenString: + db "DRAGON'S",$1F,"DEN@" +PathString: + db "ICE PATH@" +NotApplicableString: + db "N/A@" +PalletString: + db "PALLET TOWN@" +ViridianString: + db "VIRIDIAN",$1F,"CITY@" +PewterString: + db "PEWTER CITY@" +CeruleanString: + db "CERULEAN",$1F,"CITY@" +LavenderString: + db "LAVENDER",$1F,"TOWN@" +VermilionString: + db "VERMILION",$1F,"CITY@" +CeladonString: + db "CELADON",$1F,"CITY@" +SaffronString: + db "SAFFRON",$1F,"CITY@" +FuchsiaString: + db "FUCHSIA",$1F,"CITY@" +CinnabarString: + db "CINNABAR",$1F,"ISLAND@" +IndigoString: + db "INDIGO",$1F,"PLATEAU@" +RoadString: + db "VICTORY",$1F,"ROAD@" +MoonString: + db "MT.MOON@" +TunnelString: + db "ROCK TUNNEL@" +LavTowerString: + db "LAV",$1F,"RADIO TOWER@" +SilphString: + db "SILPH CO.@" +ZoneString: + db "SAFARI ZONE@" +SeafoamString: + db "SEAFOAM",$1F,"ISLANDS@" +MansionString: + db "#MON",$1F,"MANSION@" +DungeonString: + db "CERULEAN",$1F,"CAVE@" +Route1String: + db "ROUTE 1@" +Route2String: + db "ROUTE 2@" +Route3String: + db "ROUTE 3@" +Route4String: + db "ROUTE 4@" +Route5String: + db "ROUTE 5@" +Route6String: + db "ROUTE 6@" +Route7String: + db "ROUTE 7@" +Route8String: + db "ROUTE 8@" +Route9String: + db "ROUTE 9@" +Route10String: + db "ROUTE 10@" +Route11String: + db "ROUTE 11@" +Route12String: + db "ROUTE 12@" +Route13String: + db "ROUTE 13@" +Route14String: + db "ROUTE 14@" +Route15String: + db "ROUTE 15@" +Route16String: + db "ROUTE 16@" +Route17String: + db "ROUTE 17@" +Route18String: + db "ROUTE 18@" +Route19String: + db "ROUTE 19@" +Route20String: + db "ROUTE 20@" +Route21String: + db "ROUTE 21@" +Route22String: + db "ROUTE 22@" +Route23String: + db "ROUTE 23@" +Route24String: + db "ROUTE 24@" +Route25String: + db "ROUTE 25@" +Route26String: + db "ROUTE 26@" +Route27String: + db "ROUTE 27@" +Route28String: + db "ROUTE 28@" +Route29String: + db "ROUTE 29@" +Route30String: + db "ROUTE 30@" +Route31String: + db "ROUTE 31@" +Route32String: + db "ROUTE 32@" +Route33String: + db "ROUTE 33@" +Route34String: + db "ROUTE 34@" +Route35String: + db "ROUTE 35@" +Route36String: + db "ROUTE 36@" +Route37String: + db "ROUTE 37@" +Route38String: + db "ROUTE 38@" +Route39String: + db "ROUTE 39@" +Route40String: + db "ROUTE 40@" +Route41String: + db "ROUTE 41@" +Route42String: + db "ROUTE 42@" +Route43String: + db "ROUTE 43@" +Route44String: + db "ROUTE 44@" +Route45String: + db "ROUTE 45@" +Route46String: + db "ROUTE 46@" +DarkString: + db "DARK CAVE@" +IlexString: + db "ILEX",$1F,"FOREST@" +BurnedTowerString: + db "BURNED",$1F,"TOWER@" +AquaString: + db "FAST SHIP@" +ViridianForestString: + db "VIRIDIAN",$1F,"FOREST@" +DiglettsCaveString: + db "DIGLETT'S",$1F,"CAVE@" +FallsString: + db "TOHJO FALLS@" +UndergroundString: + db "UNDERGROUND@" +BattleTowerString: + db "BATTLE",$1F,"TOWER@" +SpecialMapString: + db "SPECIAL@" + @@ -14984,544 +14984,8 @@ MoveNames: INCLUDE "battle/move_names.asm" -GetLandmarkCoords: ; 0x1ca896 -; given a landmark id in e, return the y coord in d, and the x coord in e. - push hl - ld l, e - ld h, $0 - add hl, hl - add hl, hl - ld de, Landmarks - add hl, de - ld a, [hli] - ld e, a - ld d, [hl] - pop hl - ret - - -GetLandmarkName: ; 0x1ca8a5 -; given a landmark id in e, copy its name to $d073. - push hl - push de - push bc - ld l, e - ld h, $0 - add hl, hl - add hl, hl - ld de, Landmarks + 2 ; skip the coordinates, we only want the string - add hl, de - ld a, [hli] - ld h, [hl] - ld l, a - ld de, $d073 - ld c, 18 -.loop - ld a, [hli] - ld [de], a - inc de - dec c - jr nz, .loop - pop bc - pop de - pop hl - ret - -Landmarks: ; 0x1ca8c3 -;db x coord, y coord -;dw pointer to name - db 0,0 - dw SpecialMapString - - db 148,116 - dw NewBarkString - - db 136,116 - dw Route29String - - db 108,116 - dw CherrygroveString - - db 108,96 - dw Route30String - - db 104,76 - dw Route31String - - db 92,76 - dw VioletString - - db 93,74 - dw SproutString - - db 92,108 - dw Route32String - - db 84,92 - dw RuinsString - - db 92,140 - dw UnionString - - db 90,140 - dw Route33String - - db 76,140 - dw AzaleaString - - db 78,138 - dw WellString - - db 60,136 - dw IlexString - - db 60,128 - dw Route34String - - db 60,108 - dw GoldenrodString - - db 58,108 - dw RadioTowerString - - db 60,92 - dw Route35String - - db 60,76 - dw ParkString - - db 72,76 - dw Route36String - - db 76,68 - dw Route37String - - db 76,60 - dw EcruteakString - - db 78,58 - dw TinString - - db 74,58 - dw BurnedTowerString - - db 60,60 - dw Route38String - - db 44,64 - dw Route39String - - db 44,76 - dw OlivineString - - db 46,78 - dw LighthouseString - - db 36,72 - dw BattleTowerString - - db 36,80 - dw Route40String - - db 36,108 - dw WhirlString - - db 36,116 - dw Route41String - - db 28,116 - dw CianwoodString - - db 100,60 - dw Route42String - - db 92,60 - dw MortarString - - db 116,60 - dw MahoganyString - - db 116,52 - dw Route43String - - db 116,44 - dw LakeString - - db 128,60 - dw Route44String - - db 138,54 - dw PathString - - db 140,60 - dw BlackthornString - - db 140,52 - dw DenString - - db 140,80 - dw Route45String - - db 120,88 - dw DarkString - - db 132,104 - dw Route46String - - db 156,84 - dw SilverCaveString - - db 60,124 - dw PalletString - - db 60,108 - dw Route1String - - db 60,92 - dw ViridianString - - db 60,80 - dw Route2String - - db 60,68 - dw PewterString - - db 72,68 - dw Route3String - - db 84,68 - dw MoonString - - db 96,68 - dw Route4String - - db 108,68 - dw CeruleanString - - db 108,60 - dw Route24String - - db 116,52 - dw Route25String - - db 108,76 - dw Route5String - - db 116,92 - dw UndergroundString - - db 108,92 - dw Route6String - - db 108,100 - dw VermilionString - - db 96,76 - dw DiglettsCaveString - - db 96,84 - dw Route7String - - db 124,84 - dw Route8String - - db 124,68 - dw Route9String - - db 140,68 - dw TunnelString - - db 140,72 - dw Route10String - - db 140,76 - dw PlantString - - db 140,84 - dw LavenderString - - db 148,84 - dw LavTowerString - - db 84,84 - dw CeladonString - - db 108,84 - dw SaffronString - - db 124,100 - dw Route11String - - db 140,96 - dw Route12String - - db 132,116 - dw Route13String - - db 124,128 - dw Route14String - - db 112,132 - dw Route15String - - db 76,84 - dw Route16String - - db 76,108 - dw Route17String +INCLUDE "landmarks.asm" - db 88,132 - dw Route18String - - db 100,132 - dw FuchsiaString - - db 100,144 - dw Route19String - - db 84,148 - dw Route20String - - db 76,148 - dw SeafoamString - - db 60,148 - dw CinnabarString - - db 60,136 - dw Route21String - - db 44,84 - dw Route22String - - db 36,68 - dw RoadString - - db 36,60 - dw Route23String - - db 36,52 - dw IndigoString - - db 36,108 - dw Route26String - - db 28,116 - dw Route27String - - db 20,116 - dw FallsString - - db 28,84 - dw Route28String - - db 148,132 - dw AquaString - -NewBarkString: - db "NEW BARK",$1F,"TOWN@" -CherrygroveString: - db "CHERRYGROVE",$1F,"CITY@" -VioletString: - db "VIOLET CITY@" -AzaleaString: - db "AZALEA TOWN@" -GoldenrodString: - db "GOLDENROD",$1F,"CITY@" -EcruteakString: - db "ECRUTEAK",$1F,"CITY@" -OlivineString: - db "OLIVINE",$1F,"CITY@" -CianwoodString: - db "CIANWOOD",$1F,"CITY@" -MahoganyString: - db "MAHOGANY",$1F,"TOWN@" -BlackthornString: - db "BLACKTHORN",$1F,"CITY@" -LakeString: - db "LAKE OF",$1F,"RAGE@" -SilverCaveString: - db "SILVER CAVE@" -SproutString: - db "SPROUT",$1F,"TOWER@" -RuinsString: - db "RUINS",$1F,"OF ALPH@" -UnionString: - db "UNION CAVE@" -WellString: - db "SLOWPOKE",$1F,"WELL@" -RadioTowerString: - db "RADIO TOWER@" -PlantString: - db "POWER PLANT@" -ParkString: - db "NATIONAL",$1F,"PARK@" -TinString: - db "TIN TOWER@" -LighthouseString: - db "LIGHTHOUSE@" -WhirlString: - db "WHIRL",$1F,"ISLANDS@" -MortarString: - db "MT.MORTAR@" -DenString: - db "DRAGON'S",$1F,"DEN@" -PathString: - db "ICE PATH@" -NotApplicableString: - db "N/A@" -PalletString: - db "PALLET TOWN@" -ViridianString: - db "VIRIDIAN",$1F,"CITY@" -PewterString: - db "PEWTER CITY@" -CeruleanString: - db "CERULEAN",$1F,"CITY@" -LavenderString: - db "LAVENDER",$1F,"TOWN@" -VermilionString: - db "VERMILION",$1F,"CITY@" -CeladonString: - db "CELADON",$1F,"CITY@" -SaffronString: - db "SAFFRON",$1F,"CITY@" -FuchsiaString: - db "FUCHSIA",$1F,"CITY@" -CinnabarString: - db "CINNABAR",$1F,"ISLAND@" -IndigoString: - db "INDIGO",$1F,"PLATEAU@" -RoadString: - db "VICTORY",$1F,"ROAD@" -MoonString: - db "MT.MOON@" -TunnelString: - db "ROCK TUNNEL@" -LavTowerString: - db "LAV",$1F,"RADIO TOWER@" -SilphString: - db "SILPH CO.@" -ZoneString: - db "SAFARI ZONE@" -SeafoamString: - db "SEAFOAM",$1F,"ISLANDS@" -MansionString: - db "#MON",$1F,"MANSION@" -DungeonString: - db "CERULEAN",$1F,"CAVE@" -Route1String: - db "ROUTE 1@" -Route2String: - db "ROUTE 2@" -Route3String: - db "ROUTE 3@" -Route4String: - db "ROUTE 4@" -Route5String: - db "ROUTE 5@" -Route6String: - db "ROUTE 6@" -Route7String: - db "ROUTE 7@" -Route8String: - db "ROUTE 8@" -Route9String: - db "ROUTE 9@" -Route10String: - db "ROUTE 10@" -Route11String: - db "ROUTE 11@" -Route12String: - db "ROUTE 12@" -Route13String: - db "ROUTE 13@" -Route14String: - db "ROUTE 14@" -Route15String: - db "ROUTE 15@" -Route16String: - db "ROUTE 16@" -Route17String: - db "ROUTE 17@" -Route18String: - db "ROUTE 18@" -Route19String: - db "ROUTE 19@" -Route20String: - db "ROUTE 20@" -Route21String: - db "ROUTE 21@" -Route22String: - db "ROUTE 22@" -Route23String: - db "ROUTE 23@" -Route24String: - db "ROUTE 24@" -Route25String: - db "ROUTE 25@" -Route26String: - db "ROUTE 26@" -Route27String: - db "ROUTE 27@" -Route28String: - db "ROUTE 28@" -Route29String: - db "ROUTE 29@" -Route30String: - db "ROUTE 30@" -Route31String: - db "ROUTE 31@" -Route32String: - db "ROUTE 32@" -Route33String: - db "ROUTE 33@" -Route34String: - db "ROUTE 34@" -Route35String: - db "ROUTE 35@" -Route36String: - db "ROUTE 36@" -Route37String: - db "ROUTE 37@" -Route38String: - db "ROUTE 38@" -Route39String: - db "ROUTE 39@" -Route40String: - db "ROUTE 40@" -Route41String: - db "ROUTE 41@" -Route42String: - db "ROUTE 42@" -Route43String: - db "ROUTE 43@" -Route44String: - db "ROUTE 44@" -Route45String: - db "ROUTE 45@" -Route46String: - db "ROUTE 46@" -DarkString: - db "DARK CAVE@" -IlexString: - db "ILEX",$1F,"FOREST@" -BurnedTowerString: - db "BURNED",$1F,"TOWER@" -AquaString: - db "FAST SHIP@" -ViridianForestString: - db "VIRIDIAN",$1F,"FOREST@" -DiglettsCaveString: - db "DIGLETT'S",$1F,"CAVE@" -FallsString: - db "TOHJO FALLS@" -UndergroundString: - db "UNDERGROUND@" -BattleTowerString: - db "BATTLE",$1F,"TOWER@" -SpecialMapString: - db "SPECIAL@" RegionCheck: ; 0x1caea1 ; Checks if the player is in Kanto or Johto. |