aomi/main.asm

include "hardware.inc/hardware.inc"
include "charmap.asm"

; These variables should be used by the modified gb-vwf code, but all except the first one actually are
DEF STAMP_STARTING_POINT = $8C00
DEF IMPRINT_STARTING_POINT = $9822
DEF TEXT_WIDTH_TILES = 16
DEF TEXT_HEIGHT_TILES = 4
	EXPORT STAMP_STARTING_POINT
	EXPORT IMPRINT_STARTING_POINT
	EXPORT TEXT_WIDTH_TILES
	EXPORT TEXT_HEIGHT_TILES

; Things for simplified script editing
DEF CG_REDRAW_DELAY = 80
DEF TEXT_PAUSE_DELAY = 50

; General macro for loading tiles
; @param 1: Current tiles' start address
; @param 2: End address
MACRO tile_loader
	ld de, \1
	ld bc, \2 - \1
	ld hl, $8000
	call LCDMemcpy;CopyToVRAM
	ld a, [hli]
	ld [wLastImageTile], a
endm

; General macro for loading maps
; @param 1: Current map's start address
; @param 2: End address
MACRO map_loader
	ld de, \1
	ld bc, \2 - \1
	ld hl, $9800
	call LCDMemcpy;CopyToVRAM
endm

MACRO hl_setup
	ld l, low(\1)
	ld h, high(\1)
endm

;mostly code copied from the tutorial and gb-vwf example
SECTION "Header", ROM0[$100]
	di
	jp EntryPoint
	
	ds $150 - @, 0
	

EntryPoint:
	; Shut down audio circuitry
	ld a, 0
	ld [rNR52], a

	; Do not turn the LCD off outside of VBlank
Wait4VBlank:
	ld a, [rLY]
	cp 144
	jp c, Wait4VBlank

	; Turn the LCD off
	ld a, 0
	ld [rLCDC], a
	
	; During the first (blank) frame, initialize display registers
	ld a, %11100100
	ld [rBGP], a
	
	; Init interrupt handler vars
	xor a
	ldh [hVBlankFlag], a
	dec a ; ld a, $FF
	ldh [hHeldButtons], a
	
	; more vblank stuff, nothing works without it
	ld a, IEF_VBLANK
	ldh [rIE], a
	xor a
	ei
	ldh [rIF], a
	
	ld a, BANK(Main)
	ldh [hCurROMBank], a
	ld [rROMB0], a
	jp Main	

	
SECTION "Main game loop", ROM0

Main:
	ld l, low(cgBLA)
	ld h, high(cgBLA)
	call LabelPointer
	
	; no more screen redrawing until CGOK flag turns into 1 again
	ld a, 0
	ld [hCGOKFlag], a
	
	; Turn LCD on with proper vram options
	ld a, LCDCF_ON | LCDCF_BGON | LCDCF_BG8000 | LCDCF_BG9800
	ld [rLCDC], a
	
	;;;;;;;;;;;;;;;; TEXT ENGINE GLOBAL INIT ;;;;;;;;;;;;;;;;;;;;
	; You need to write these on game startup (ok boss)
	ld a, 0
	ld [wTextCurPixel], a
	ld [wTextCharset], a
	ld c, $10*4
	ld hl, wTextTileBuffer
	rst MemsetSmall
	
	;;;;;;;;;;;;;;; This is "local" initialization for printing the "main" text ;;;;;;;;;;;;;;;;;
	ld a, TEXT_WIDTH_TILES*8 + 1
	ld [wTextLineLength], a
	ld a, LOW(wLastImageTile)
	ld [wTextCurTile], a
	ld [wWrapTileID], a
	ld a, LOW(wLastImageTile+65)-1
	ld [wLastTextTile], a
	ld a, TEXT_HEIGHT_TILES
	ld [wTextNbLines], a
	ld [wTextRemainingLines], a
	ld [wNewlinesUntilFull], a
	ld a, 2
	ld [wTextLetterDelay], a
	ld a, 0
	ld [wTextStackSize], a
	ld [wTextFlags], a
	ld a, $80
	ld [wTextTileBlock], a
	
.textReset
	
	ld a, TEXT_NEW_STR
	ld hl, Scenario
	ld b, BANK(Scenario)
	call PrintVWFText
	;todo: figure out how to change this on the fly
	ld hl, IMPRINT_STARTING_POINT
	call SetPenPosition
	
	ld a, [hCGOKFlag]
	cp 1
	jr z, .screenRedrawLoop
	jp .textRedrawLoop
	
.screenRedrawLoop

	ld a, [hCG2Flag]
	cp $01 
	jr z, .cg2
	jp .textRedrawLoop
	
.cg2
	di
	;rst VBlankWaitLoop
	tile_loader cgs2.VieTiles, cgs2.VieTilesEnd
	map_loader  cgs2.VieMap,   cgs2.VieMapEnd
	
	; no more screen redrawing until CGOK flag turns into 1 again
	ld a, 0
	ld [hCGOKFlag], a
	ei
	
.textRedrawLoop
	
	rst VBlankWaitLoop
	
	call PrintVWFChar
	call DrawVWFChars

	ld a, [wTextSrcPtr + 1]
	inc a ; cp $FF
	jr nz, .textRedrawLoop

.waitRestart
	rst VBlankWaitLoop
	ldh a, [hPressedButtons]
	and PADF_START
	jr z, .waitRestart
	jr .textReset
	
	
; This is where all CGs reside
SECTION "Cutscene CGs 1", ROMX, BANK[1]
	
cgs1::
.Ao1Tiles
INCBIN "gfx/aomi1.2bpp"
.Ao1TilesEnd
.Ao1Map
INCBIN "gfx/aomi1.tilemap"
.Ao1MapEnd
.Ao2Tiles
INCBIN "gfx/aomi2.2bpp"
.Ao2TilesEnd
.Ao2Map
INCBIN "gfx/aomi2.tilemap"
.Ao2MapEnd
.BlaTiles
INCBIN "gfx/blank.2bpp"
.BlaTilesEnd
.BlaMap
INCBIN "gfx/blank.tilemap"
.BlaMapEnd
.CarTiles
INCBIN "gfx/car.2bpp"
.CarTilesEnd
.CarMap
INCBIN "gfx/car.tilemap"
.CarMapEnd
.CupTiles
INCBIN "gfx/cup.2bpp"
.CupTilesEnd
.CupMap
INCBIN "gfx/cup.tilemap"
.CupMapEnd

; I can't believe I couldn't fit this in one section (and bank)
SECTION "Cutscene CGs 2", ROMX, BANK[2]

cgs2::
.HugTiles
INCBIN "gfx/hug.2bpp"
.HugTilesEnd
.HugMap
INCBIN "gfx/hug.tilemap"
.HugMapEnd
.Si1Tiles
INCBIN "gfx/silh1.2bpp"
.Si1TilesEnd
.Si1Map
INCBIN "gfx/silh1.tilemap"
.Si1MapEnd
.Si2Tiles
INCBIN "gfx/silh2.2bpp"
.Si2TilesEnd
.Si2Map
INCBIN "gfx/silh2.tilemap"
.Si2MapEnd
.VieTiles
INCBIN "gfx/view.2bpp"
.VieTilesEnd
.VieMap
INCBIN "gfx/view.tilemap"
.VieMapEnd

; todo: rename to script? also check how everything is displayed and make appropriate edits
SECTION "Scenario", ROMX, BANK[3]
Scenario:	
	db "<CLEAR><DELAY>", TEXT_PAUSE_DELAY, "The crunch of the snow's surface that got frozen overnight is exceptionally satisfying to hear today. <WAITBTN>"
	db "I've always enjoyed walks after snowfalls early in the morning, when there's little traffic and coffee-chugging pedestrians sprawling around, but doing it today feels greater than ever and for a good reason. <WAITBTN><CLEAR><CG>"
	db "<DELAY>", CG_REDRAW_DELAY, "I stop to stand by the lamppost, the usual waiting spot, hands in my pockets, left palm clutching a tiny box with a golden engagement ring inside. <WAITBTN>"
	db "Saying \"let's date\" to my girlfriend was already a mentally taxing challenge, but proposing to her, despite us hanging out for quite some time now and loving each other and being on extremely good terms, feels on a whole new level of anxiety.<WAITBTN>"
	db "<CLEAR>Yet no amount of weird feelings piling up could persuade me that this day won't go well. <WAITBTN>Unless the weather does a one-eighty or the cars decide to fill up the streets all of a sudden, nothing should go wrong.<WAITBTN>"
	db "<CLEAR><DELAY>", TEXT_PAUSE_DELAY, "Still, thinking about early morning coffee enthusiasts reminds me I haven't eaten anything at all today, and my stomach lets out a mournful churn in agreement.<WAITBTN>"
	db "<CLEAR>The nearby coffee shop seems to be open and boasting about their new \"winter holiday specials\" on a chalkboard sign near the entrance, and my feet immediately decide to set me on my way to try some of those. <WAITBTN>"
	db "And maybe go for seconds with her if those specials are any good.<WAITBTN>"
	db "<CLEAR><DELAY>", CG_REDRAW_DELAY, "Having exchanged a couple of words on today's weather with the barista, I return with a thick paper cup of hot cocoa topped with tiny star-shaped marshmallows.<WAITBTN>"
	db "<CLEAR>With every crunchy step I take through the snowy path back to the waiting spot, the white chewy stars continue slowly whirling around in the drink, like as if they're traveling across the mocha-colored sky. <WAITBTN>"
	db "Floating and twirling and melting into a sweet and fluffy beige cloud.<WAITBTN>"
	db "<CLEAR>A sight so serene mixed with an aroma so cozy and a quiet town ambiance so comforting it eases my anxieties a tiny bit and makes me sleepy. <WAITBTN>I quickly blink several times in an attempt to stay awake.<WAITBTN>"
	db "<CLEAR>She is sure taking her sweet time driving here, but somehow I don't mind at all. <WAITBTN>I want to savor these moments, I want to imprint these sights and smells onto my brain and create an everlasting memory. <WAITBTN>"
	db "After all, this may probably be the best day of my life. <DELAY>", 30, "I wholeheartedly hope it will.<WAITBTN>"
	db "<CLEAR>.<DELAY>", 20, ".<DELAY>", 20, ".<DELAY>", 20, "Somehow I'm reminded of the day we first met. <WAITBTN>"
	db "It happened around January, I think. Several months after I started college. <WAITBTN>"
	db "Back then, I was a completely different person - timid, shy, unable to express myself. A total loser, simply to say. <WAITBTN>Always being an object of ridicule for my peers for various reasons. <WAITBTN>"
	db "At some point even the closest of friends turned their back on me and I was left completely alone in this world. <WAITBTN>"
	db "<CLEAR>During my high school years I felt like I was going insane. <WAITBTN>I talked to walls, I made up imaginary friends, I spent a lot of time crying by myself in my bathroom. <WAITBTN>"
	db "<CLEAR>Then came the graduation, followed by the dreaded college my parents applied me to, and taking a plunge inside an unfamiliar environment made the matters even worse. <WAITBTN>"
	db "I spent several months without any human interactions. <WAITBTN>I thought that by default I'd get the same treatment that I've gotten used to. <WAITBTN>"
	db "<CLEAR>And at some point on a snowy day in January, something inside me just snapped. <WAITBTN>Just... broke in two. <WAITBTN><CLEAR>And then I just got up, hastily put on my coat and... ran. <WAITBTN>"
	db "Ran without thinking of an exact place I want to go to. <WAITBTN>"
	db "My vision was made blurry by falling chunks of snow, but I continued running, not minding anything around. <WAITBTN>"
	db "I can't remember when and where I ended up, but I do remember almost getting run over by her car that was passing by me then. "
	db "<WAITBTN>In a state of brake screech-induced panic, I fell down to my knees on the wet asphalt, hands covering my face. <WAITBTN>"
	db "And after she jumped off and ran up to me asking if I was alright, I snapped and outright told her every thought and every problem that plagued my darkened mind. <WAITBTN>"
	db"<CLEAR><DELAY>", CG_REDRAW_DELAY, "Then she laughed the worst laugh I've ever heard in my life, brushed the freshly fallen snow off my back, and asked me if I'd be interested in helping with a research for her PhD in Psychology. <WAITBTN>"
	db "And thus began our three-year researcher-subject relationship that, oddly enough, slowly blossomed into romance and affection. <WAITBTN>"
	db"<CLEAR><DELAY>", TEXT_PAUSE_DELAY, "It seemed as if her presence alone was enough for me to heal and leave everything behind. <WAITBTN>"
	db "Somehow filling my head with all the good memories we shared together wiped all the bad ones from the past completely, as it turns out I cannot even remember neither what exactly was I bullied for, nor the faces of those kids that did so. <WAITBTN>"
	db "Sometimes I question myself, was this depression even real or was it just all in my head?..<WAITBTN>"
	db "<CLEAR>\"[*0+=#$!\"<WAITBTN>"
	db "<CLEAR>My pondering gets interrupted by a loud voice in the distance. <WAITBTN>Is that my name that just got called by someone? <WAITBTN>"
	db "I turn around to find a familiar face but don't recognize any of the passerbys. <WAITBTN>Whoever that was, they weren't calling me for sure.<WAITBTN>"
	db "<CLEAR>\"\}]\\_\{+!! Helloooo!!\"<WAITBTN>"
	db "<CLEAR>I look around once more just to be sure and see a silhouette of someone waving in my direction.<WAITBTN><NEWLINE>I probably shouldn't mind that.<WAITBTN>"
	db "<CLEAR>Suddenly I take notice of the waving person. Haven't I seen them somewhere before? <WAITBTN>"
	db "They continue moving towards me, and upon closer look, I see a girl with short pink hair, dressed in nothing but a sleeveless purple dress, cheerfully looking back at me and flailing her right hand. <WAITBTN>"
	db "A get-up that's surely not suited for a cold weather like today's. <WAITBTN>"
	db "<CLEAR><SET_VARIANT>",2,"no <WAITBTN>"
	db "<NEWLINE>no no no no no no <RESTORE_VARIAN>"
	db "<CLEAR>\"I said %>@|^<!! Don't you recognize me??\"<WAITBTN>"
	db "<CLEAR>As she moves closer to me, a disgustingly chill sensation forms in my stomach, piercing its outsides.  <WAITBTN>"
	db "My hands grow limb, and the moment the strange girl runs up to me and stretches out her hands, I drop my cocoa cup on the ground, right where she stands. <WAITBTN>"
	db "<CLEAR><SET_VARIANT>",2,"no no no no no no no no no no no no no no <RESTORE_VARIAN>"
	db "<CLEAR><DELAY>", CG_REDRAW_DELAY, "The girl proceeds to tightly wrap her arms around my frozen body and lets out a heartily laugh, as if her bare feet haven't just been splashed with a hot gooey drink. <WAITBTN>"
	db "More chills start forming inside me. I feel nauseous. <WAITBTN>"
	db "<CLEAR>\"I'm so glad I'm finally here with you! I've been waiting soooo long for this day!\" she says as she tightens the grip on her hug and buries her face in my jacket.<WAITBTN>It's getting hard to breathe. <WAITBTN>"
	db "<CLEAR>After a moment and a couple of caught stares from wondering strangers, I part my lips slightly and whisper:"
	db "<NEWLINE>\"Who... are you?\" <WAITBTN>"
	db "<CLEAR><DELAY>", TEXT_PAUSE_DELAY, "The girl loosens her grip and gives me a surprised look. <WAITBTN>"
	db "<NEWLINE>\"You... don't remember me? You really-really don't remember me?\" <WAITBTN>"
	db "<NEWLINE>I timidly shake my head. <WAITBTN>"
	db "<CLEAR>\"I guess I should've expected that. Allow me to reintroduce myself!\" <WAITBTN>"
	db "<NEWLINE>She takes two steps back, waits for a second and strikes a pose. <WAITBTN><NEWLINE>\"My name's Aomi! I'm your most important person in the world... at least, according to you, Master!\" <WAITBTN>"
	db "<CLEAR><DELAY>", TEXT_PAUSE_DELAY, "Master?.. <WAITBTN>I cast a quick glance down. <WAITBTN>Her cocoa-drenched feet have left a long trail of pale red footprints in the snow behind her.<WAITBTN>"
	db "<CLEAR><SET_VARIANT>",2,"no no no no no no no no no no no no no no no no no no no no <RESTORE_VARIAN>"
	db "<CLEAR>Something clicks inside my head. <WAITBTN>Something that shouldn't ever have. <WAITBTN>"
	db "Something I was sure I erased from my memory like a bad dream.<WAITBTN><NEWLINE>Aomi?.. <WAITBTN>"
	db "CLEAR>The girl comes back and pulls me into an asphyxiating embrace again. <WAITBTN>"
	db "<NEWLINE>\"Don't worry,\" she says softly, \"I'll always be by your side from now on. I'll never abandon you. Ever.\" <WAITBTN>"
	db "<NEWLINE><DELAY>", TEXT_PAUSE_DELAY, "The clicking inside my head gets even more intense. I feel like I'm on the verge of losing consciousness. <WAITBTN>"
	db "<CLEAR>This can't be... can it? <WAITBTN>Among a chaotic ocean of thoughts rising up like a tide in my mind, one swims to the surface in the form of a sudden question to ask the girl. <WAITBTN>"
	db "<CLEAR>\"Y- you know what \"Aomi\" stands for?..\" <WAITBTN>"
	db "<CLEAR><DELAY>", CG_REDRAW_DELAY, "She turns her head to the side and pouts her lips in thought. <WAITBTN>As she does so, I begin slowly raising my hands. <WAITBTN>"
	db "<CLEAR>\"Let's see... Ability of my imagination,\" she confidently replies and then beams at me. <WAITBTN><CLEAR>\"wasn't it?\" <WAITBTN>"
	db "<CLEAR><DELAY>", CG_REDRAW_DELAY, "I hear ringing in my ears. The migraine gets even more intense. <WAITBTN>With my palms raised above her shoulders, I intertwine my fingers around her neck. <WAITBTN>"
	db "This feeling of tender human flesh and fast beats of her pulse against my skin... <WAITBTN>"
	db "Why does it feel so uncanny and horrifying?.. <WAITBTN>Why do I want to squeeze it tightly and make it stop?.. <WAITBTN>"
	db "<CLEAR><DELAY>", TEXT_PAUSE_DELAY, "...It's her. <WAITBTN>Aomi. <WAITBTN>My imaginary friend from high school years. <WAITBTN>Except she is not imaginary anymore. <WAITBTN>She is real. "
	db "<WAITBTN>She is a real physical being. <WAITBTN>A being I can see and hear and touch. <WAITBTN>And now she's here."
	db "<WAITBTN> She's with me now. <WAITBTN>Me, her \"master\", as I liked to call myself then. <WAITBTN>She's materialized for me. <WAITBTN><CLEAR>..Except she's seven years too soon. <WAITBTN>"
	db "<CLEAR><DELAY>", TEXT_PAUSE_DELAY, "Is this what they mean when they say... beware what you wish for?.. <WAITBTN>"
	db "<CLEAR><DELAY>", TEXT_PAUSE_DELAY, "<DELAY>", TEXT_PAUSE_DELAY, "The end (no really)<END>"
	
; copied from the example, no need to use CopyToVRAM for now
SECTION "LCDMemcpy", ROM0

LCDMemcpy::
	; Increment B if C is nonzero
	dec bc
	inc b
	inc c
.loop
	ldh a, [rSTAT]
	and STATF_BUSY
	jr nz, .loop
	ld a, [de]
	ld [hli], a
	inc de
	ld a, [de]
	ld [hli], a
	inc de
	dec c
	jr nz, .loop
	dec b
	jr nz, .loop
	ret

LCDMemsetSmall::
	ld b, a
	
LCDMemsetSmallFromB::
	ldh a, [rSTAT]
	and STATF_BUSY
	jr nz, LCDMemsetSmallFromB
	ld a, b
	ld [hli], a
	dec c
	jr nz, LCDMemsetSmallFromB
	ret
	
SECTION "Functions", ROM0[0]
	
; Waiting for vblank except it's scattered throughout the code
VBlankWaitLoop::
	ld a, 1
	ldh [hVBlankFlag], a
.wait
	halt
	jr .wait
	ds $8 - @
	
; Reserve memory for stuff? Reading assembly is my passion
; @param hl: Destination
MemsetSmall::
	ld [hli], a
	dec c
	jr nz, MemsetSmall
	ret

	ds $12 - @

LabelPointer::
	jp hl	
	ret
	
SetCGOKFlag::
	; we can draw backgrounds now! the code section
	ld a, 1
	ld [hCGOKFlag], a
	; code section end
	ret
	
	;ds $16 - @
	
	; this padding is very important for some reason
	ds $40 - @
:	
	; VBlank handler
	push af
	ldh a, [hVBlankFlag]
	and a
	jr z, .noVBlank

	ld c, LOW(rP1)
	ld a, P1F_GET_DPAD
	ldh [c], a
	REPT 4
	ldh a, [c]
	ENDR
	or $F0
	ld b, a
	swap b
	ld a, P1F_GET_BTN
	ldh [c], a
	REPT 4
	ldh a, [c]
	ENDR
	or $F0
	xor b
	ld b, a
	ld a, P1F_GET_NONE
	ldh [c], a
	ldh a, [hHeldButtons]
	cpl
	and b
	ldh [hPressedButtons], a
	ld a, b
	ldh [hHeldButtons], a
	
	pop af ; Pop return address to exit `VBlankWaitLoop`
	xor a
	ldh [hVBlankFlag], a
	
.noVBlank
	pop af
	reti
	
SECTION "CG code-based macros", ROMX

; setting up macros for drawing cgs 
cgAO1::
	tile_loader cgs1.Ao1Tiles, cgs1.Ao1TilesEnd
	map_loader  cgs1.Ao1Map,   cgs1.Ao1MapEnd
	ret
	; This CG should be loaded partially due to similar tiles with AO1, as well as its immediate appearance after AO1, but as of now this requires counting and subtracting bytes by hand and I am a very lazy person
cgAO2::
	tile_loader cgs1.Ao2Tiles, cgs1.Ao2TilesEnd
	map_loader  cgs1.Ao2Map,   cgs1.Ao2MapEnd
	ret
cgBLA::
	tile_loader cgs1.BlaTiles, cgs1.BlaTilesEnd
	map_loader  cgs1.BlaMap,   cgs1.BlaMapEnd
	ret
cgCAR::
	tile_loader cgs1.CarTiles, cgs1.CarTilesEnd
	map_loader  cgs1.CarMap,   cgs1.CarMapEnd
	ret
cgCUP::
	tile_loader cgs1.CupTiles, cgs1.CupTilesEnd
	map_loader  cgs1.CupMap,   cgs1.CupMapEnd
	ret
cgHUG::
	tile_loader cgs2.HugTiles, cgs2.HugTilesEnd
	map_loader  cgs2.HugMap,   cgs2.HugMapEnd
	ret
cgSI1::
	tile_loader cgs2.Si1Tiles, cgs2.Si1TilesEnd
	map_loader  cgs2.Si1Map,   cgs2.Si1MapEnd
	ret
cgSI2::
	tile_loader cgs2.Si2Tiles, cgs2.Si2TilesEnd
	map_loader  cgs2.Si2Map,   cgs2.Si2MapEnd
	ret
cgVIE::
	tile_loader cgs2.VieTiles, cgs2.VieTilesEnd
	map_loader  cgs2.VieMap,   cgs2.VieMapEnd
	ret
	
;gb-vwf won't work without these unions for now
SECTION UNION "8c00", VRAM[$8c00]

vBlankTile:
vTextTiles:: 
.end

; ughghghhhhh
SECTION "CG Asset Addresses", ROMX

SetCG1Addr::
	ld a, 1
	ld [hCG1Flag], a
	ret
SetCG2Addr::
	ld a, 1
	ld [hCG2Flag], a
	ret
SetCG3Addr::
SetCG4Addr::

SECTION "WorkVariables", WRAM0
wLastImageTile:: dw

SECTION "HighRAMVariables", HRAM
hCurROMBank::
	db
hVBlankFlag:
	db
hHeldButtons::
	db
hPressedButtons::
	db
hCurrentCGLabel:: dw
hCGOKFlag:: db
hCG1Flag:: ds 1
hCG2Flag:: ds 1
hCG3Flag:: ds 1
hCG4Flag:: ds 1
hFlipPaletteFlag: ds 1