+dispoptionmenu:
+ ld hl,txtoMenu
+ ld ix,posoMenu
+;Back|Lives|Limit|Speed|Rotation|Growth
+ cal dispmenucommon
+
+dispomenusets:
+ cal clrold
+
+ ld hl,$1E3E
+ ld (_penCol),hl
+ cal loadgamecar
+ psh hl
+ cal cshowA ;lives
+
+ ld hl,$2A3E
+ ld (_penCol),hl
+ pop hl ;loadgamecar
+ inc hl \ inc hl \ inc hl
+ psh hl
+ ld a,(hl) ;(Speed)
+ inc a ;1..99
+ jr nz,dispspeed
+ ld hl,txtDef
+ cal _vputs
+ jr dispspeeddone
+dispspeed:
+ cal cshowA
+dispspeeddone:
+
+ ld hl,$363E
+ ld (_penCol),hl
+ pop hl ;loadgamecar
+ inc hl
+ psh hl
+ ld a,(hl) ;(growth)
+ inc a ;-1=None; 0..98->1..99
+ cal cshowA
+
+ ld hl,$303E
+ ld (_penCol),hl
+ pop hl ;loadgamecar
+ inc hl
+ psh hl
+ ld a,(hl)
+ cp 8
+ jr nz,dispturn
+ ld hl,txtDef
+ cal _vputs
+ jr dispturndone
+dispturn:
+ cal cshowA ;turn speed
+dispturndone:
+
+ ld hl,$243E
+ ld (_penCol),hl
+ pop hl ;loadgamecar
+ inc hl
+ ld a,(hl) ;(scorelimit)
+ or a
+ psh af
+ cal cshowA ;limit
+ pop af ;a==0?
+ jr z,optionMenu ;do not display 0 behind 'None'
+ ld a,'0'
+ cal _vputmap ;x10
+
+optionMenu:
+ cal menupos
+ cal menucall
+ jr nz,notoselect
+oselect:
+ cal menupos
+ ld a,b
+ or a ;1st item?
+ jp z,dispmainmenu ;mainMenu
+ jr optionMenu
+notoselect
+ cp K_EXIT
+ jp z,dispmainmenu
+ psh af
+ cal menupos
+ cal loadgamecar
+ inc hl
+ pop af
+ cp K_LEFT
+ jr z,seloleft
+ cp K_RIGHT
+ ld a,b
+ jr nz,optionMenu
+
+seloright:
+ dec a
+ jr z,changelives
+ dec a
+ jr z,changelimit
+ dec a
+ jr z,changespeed
+ dec a
+ jr z,changeturn
+ dec a
+ jr z,changegrowth
+
+seloleft:
+ ld a,b
+ dec a
+ jr z,bchangelives
+ dec a
+ jr z,bchangelimit
+ dec a
+ jr z,bchangespeed
+ dec a
+ jr z,bchangeturn
+ dec a
+ jr z,bchangegrowth
+_optionMenu:
+ jr optionMenu
+
+changelives:
+ cal loadgamecar ;a=(hl)
+ inc a
+ cp 100
+ jr nc,optionMenu ;>99
+changedlives:
+ ld (hl),a
+_dispomenusets:
+ jp dispomenusets ;optionMenu
+bchangelives:
+ cal loadgamecar
+ sub 1 ;dec does not set cf
+ jr c,optionMenu ;<0
+ jr changedlives
+
+changelimit:
+ cal changelimitInit
+ inc a
+ cp 100
+ jr nc,optionMenu ;>99
+changedlimit:
+ ld (hl),a
+ jr _dispomenusets ;optionMenu
+bchangelimit:
+ cal changelimitInit
+ sub 1 ;dec does not set cf
+ jr c,optionMenu ;<0
+ jr changedlimit
+changelimitInit:
+ cal loadgamecar
+ ld de,6
+ add hl,de
+ ld a,(hl) ;(scorelimit)
+ ret
+
+changespeed:
+ cal changespeedInit
+ inc a
+ cp 99
+ jr nc,_optionMenu ;>98
+changedspeed:
+ dec hl ;(Speed)
+ ld (hl),a
+ jr _dispomenusets ;optionMenu
+bchangespeed:
+ cal changespeedInit
+ dec a
+ cp -2
+__optionMenu: ;w/ zf
+ jr z,_optionMenu ;<-1
+ jr changedspeed
+changespeedInit:
+ cal loadgamecar
+ ld de,3
+ add hl,de
+ ld a,(hl) ;(Speed)
+ inc hl ;=saves 2 bytes :P
+ ret
+
+changeturn:
+ cal changespeedInit
+ inc hl ;(turnspeed)
+ ld a,(hl)
+ inc a
+ cp 26
+ jr nc,_optionMenu ;>25
+changedturn:
+ ld (hl),a
+ jr _dispomenusets ;optionMenu
+bchangeturn:
+ cal changespeedInit
+ inc hl
+ ld a,(hl)
+ dec a
+ cp 3
+ jr c,_optionMenu ;<3
+ jr changedturn
+
+changegrowth:
+ cal changespeedInit
+ ld a,(hl)
+ inc a
+ cp 99
+ jr nc,_optionMenu ;>98
+changedgrowth:
+ ld (hl),a
+ jr _dispomenusets ;optionMenu
+bchangegrowth:
+ cal changespeedInit
+ ld a,(hl)
+ dec a
+ cp -2
+ jr z,__optionMenu ;<-1
+ jr changedgrowth
+
+;---
+