Hi,
I'm trying to print multiple text statements in same spot one after another, but can't get it to where the backround image is restored so they don't appear over each other. I have tried using sprites and using "Set Sprite" command to restore the backround, but all that happens is a black image covers the whole window area and the text shows up over each other.
I am also trying to write to log file and it isn't writing and saving it
The only way I can get it to work is repaste the image each time before the text is printed to window and not use sprites. Current code using sprites isn't showing the text at all, just black image, I have tried different flags on the "Get Image command also to no avail.
`In game date
CurrentDate$ = Get Date$()
LMoDay$ = Left$(CurrentDate$, 5)
Month$ = Left$(LMoDay$, 2)
Day$ = Right$(LMoDay$, 2)
Year$ = right$(CurrentDate$,2)
`Graphics mode
Set Window On
Set Window Layout 0, 0, 0
Set Display Mode 1024, 768, 32
Set Ambient Light 100
`Load Data
`Splash Screen
Load Image "Data\GUE\Loading.png",1
Get Image 1, 0, 0, 1024, 768
Sprite 2, 0, 0, 1
Set Sprite 2, 1, 0
`Paste Image 1, 0, 0
Set Text font "Blitz"
Center Text 512, 730, "Loading MMO Maker"
Wait 1500
`Paste Image 1, 0, 0
Open to Write 1, "Data\Logs\GUE Log.txt"
If File Open(1) = 1
For MDY = 1 to Len(Month$ +"\" + Day$ +"\" + Year$ + " " + "Loading splash screen")
Write File 1,MDY
Next MDY
Endif
Close File 1
Sprite 2, 0, 0, 1
`Media Dialogs
Ink rgb(255, 255, 255), 1
Wait 2000
`Interface
`Paste Image 1, 0, 0
Center Text 512, 730, "Loading game interface settings"
Open to write 1, "Data\Logs\GUE Log.txt"
If File Open(1) = 1
Write String 1, "Loading game interface settings"
EndIf
Close File 1
`Open to Read 1, "Game\Game Data\Interface.dat"
Wait key
Close File 1
end
Can anyone help?
Gigabyte Board/2.93Ghtz Intel Core Duo Proc./4GB Ram/Nvidia Geforce 730 2GB/1TB Western Dig. SSD/Dark Basic Pro 7.7
No one cares how much you know until they know how much you care.