Name: Anonymous 2011-07-21 5:06
This is the menu screen code. What does [prog]/spoiler/[/prog] think?
;INITIATE ENGINE
LoadOptions()
ChangeResolution(optMenuRes,0)
SetBuffer BackBuffer()
AutoMidHandle True
EnableDirectInput True
MoveMouse rX#(800),rY#(600)
SeedRnd(MilliSecs())
;LOADING PROCESS
;intro
Intro()
;load media
LoadImages()
LoadTextures()
LoadWeaponData()
;restore
slot=0
LoadUniverse()
LoadProgress(slot)
LoadChars(slot)
;rearrange characters
;ResetIncarnation()
;counter=0 : homer=1
;For char=1 To no_chars
;counter=counter+1
;If counter>12
;Repeat
;homer=homer+1
;If homer>20 Then homer=1
;Until areaInhabitable(homer)>0
;counter=0
;EndIf
;charHome(char)=homer
;charName$(char)=GenerateName$(char)
;charSpouse(char)=0
;charOffspring(char)=0
;charMother(char)=0
;charFather(char)=0
;Next
;SCREEN MANAGEMENT
SeedRnd(MilliSecs())
screen=1
Repeat
;load screen
If screen>0
LoadScreen(screen)
EndIf
;get-out clause
If KeyDown(56) And KeyDown(45) Then End
Until screen=0
End
;SCREEN ACCESS
Function LoadScreen(request)
;main menus
If request=1 Then MainMenu()
If request=2 Then Options()
If request=3 Then RedefineKeys()
If request=4 Then RedefineGamepad()
If request=5 Then Credits()
If request=6 Then Outro()
;setup menus
If request=10 Then SelectPlaySlot()
If request=11 Then SelectEditSlot()
If request=12 Then SelectCharacter()
If request=13 Then ConfirmUniverse()
If request=14 Then SelectArea()
If request=15 Then SelectScene()
;3D scenes
If request=50 Then Gameplay()
If request=51 Then Editor()
If request=60 Then SpriteRender()
End Function
;DELIBERATE CRASH LOOPHOLE
Function LoopHole()
LoopHole()
End Function