ACagliano wrote:
Kool. Suddenly the cryptic becomes less cryptic. Thanks.
That's excellent; very happy to hear it. 
;#####################
;Change Username
;#####################
;
;Allows you to change your username:
;
Username:
ld b,4
call PopGUIStacks
ld hl,ChangeUsernameData
ld de,saferam2
ld bc,ChangeUsernameDataEnd+1-ChangeUsernameData
ldir
ld hl,saferam2
call PushGUIStacks
ProcessUsername:
;have to write this yet.
ChangeUsernameData:
.db 4
.dw UsernamePrompt-ChangeUsernameData
.db 1,1,0
.db 0,0,0,0,0,0,0,0,0
UsernamePrompt:
.db 9
.dw UsernameSubmitButton-UsernamePrompt
.db 2,10,50
.dw 8
.dw 0
.db 0,0,0,0,0,0,0,0,0
UsernameSubmitButton:
.db 7
.dw ChangeUsernameDataEnd-UsernameSubmitButton
.db 30,25
.dw ProcessUsername
.db "Submit",0
ChangeUsernameDataEnd:
.db $FF,$FF
[...]
StartAskUsername:
CloseGUIStack()
OpenGUIStack()
ld hl,UsernameWinData
call PushGUIStacks
GUIFindThis(1)
ld de,10
add hl,de
ld de,MyUsername
ld bc,8
ex de,hl
ldir
GUIMouse(0)
StartAskUsernameProcess:
call ResetAppPage
GUIFindThis(1)
ld de,10
add hl,de
ld a,(hl)
or a
jp z,StartAskUsername
ld de,MyUsername
ld bc,8
ldir
;--------------------------------------------------------------------------------
; Username input window stuff
;--------------------------------------------------------------------------------
UsernameWinData:
.dw UsernameWinDataE-UsernameWinData
.db GUIRSmallWin
.db 5,5
.db %01100000
.db %10010000
.db %11110000
.db %10010000
.db %11110000
.db "User/Calc Name",0
UsernameWinDataE:
UsernameWinButtons:
.dw UsernameWinButtonsE-UsernameWinButtons
.db GUIRWinButtons
.db %00100000
.dw 0, 0
.dw StartAskUsernameProcess
UsernameWinButtonsE:
UsernameIn:
.dw UsernameInE-UsernameIn
.db GUIRTextLineIn
.db 19,1
.db 50
.dw 8
.dw 0
.db 0,0,0,0,0,0,0,0,0
UsernameInE:
UsernameTextPrompt1:
.dw UsernameTextPrompt1E-UsernameTextPrompt1
.db GUIRText
.db 1,1,0
.db "User:",0
UsernameTextPrompt1E:
UsernameTextPrompt2:
.dw UsernameTextPrompt2E-UsernameTextPrompt2
.db GUIRWrappedText
.db 1,9,78,0
.db "Other calcs will see you",$D6
.db "with this name",0
UsernameTextPrompt2E:
UsernameSetButton:
.dw UsernameSetButtonE-UsernameSetButton
.db GUIRButtonText
.db 55,31
.dw StartAskUsernameProcess
.db "Apply",0
UsernameSetButtonE:
.db $ff,$ff
ld hl,HookCode
call GUIMouse
Advertisement