Here ya go. Easy display initialization routine.
type Integer_2
X as integer
Y as integer
endtype
`Display data type definitions
type Display_Resolution
Resolution as Integer_2
Depth as byte
endtype
type Display
Mode as Display_Resolution
endtype
DisplayInitialize()
end
rem ------------------------------------------------------------------------------------------------------------------------------------------------------------------
rem -----------------------------
rem | Display Manager Functions |
rem -----------------------------
function Display_Current_Resolution_X()
X = Display(0).Mode.Resolution.X
endfunction X
function Display_Current_Resolution_Y()
Y = Display(0).Mode.Resolution.Y
endfunction Y
function Display_Initialize()
rem Builds a list of available display modes and sets the current mode to the one with the highest res. and depth
array insert at bottom Display()
Display().Mode.Resolution.X = 0
Display().Mode.Resolution.Y = 0
Display().Mode.Depth = 0
empty checklist
perform checklist for display modes
for a = 1 to checklist quantity()
array insert at bottom Display()
Display().Mode.Resolution.X = checklist value a(a)
Display().Mode.Resolution.Y = checklist value b(a)
Display().Mode.Depth = checklist value c(a)
next a
array index to top Display()
while array index valid(Display())
if Display().Mode.Resolution.X >= Display(0).Mode.Resolution.X
if Display().Mode.Resolution.Y >= Display(0).Mode.Resolution.Y
if Display().Mode.Depth >= Display(0).Mode.Depth
Display(0).Mode.Resolution.X = Display().Mode.Resolution.X
Display(0).Mode.Resolution.Y = Display().Mode.Resolution.Y
Display(0).Mode.Depth = Display().Mode.Depth
endif
endif
endif
next array index Display()
endwhile
if Display(0).Mode.Resolution.X = 0
end
endif
if Display(0).Mode.Resolution.Y = 0
end
endif
if Display(0).Mode.Depth = 0
end
endif
set display mode Display(0).Mode.Resolution.X, Display(0).Mode.Resolution.Y, Display(0).Mode.Depth
endfunctionIn Development: K96 - Combat Simulation
