this is a diagnostic script i wrote for Db1.
It will show all the variables of the system that DB can access.
It may help, it may not.
rem -------------------------------------------
rem Darkbasic environment check program
rem
rem indi www.dbtoolz.50megs.com
rem based on 2 older snippets merged as one.
rem aug 2001
rem built with v109b
rem -------------------------------------------
` to be added....
`if tnl available()=1 then print "tnl lighting hardware available" else print "tnl lighting hardware not available"
`set gamma 255,255,255
`PRINT " YIPPEE, YOU'RE CARD SUPPORTS GAMMA FADING!"
`sleep 2000
`cls
cls
sync rate 0
sync on
hide mouse
rem Define commands into variables
videocard$ = CURRENT GRAPHICS CARD$()
emulated = EMULATION MODE()
filtercheck = FILTERING AVAILABLE()
fogcheck = FOG AVAILABLE()
3dblitcheck = 3DBLIT AVAILABLE()
alphablendcheck = ALPHABLENDING AVAILABLE()
vidmem = SYSTEM DMEM AVAILABLE()
sysmem = SYSTEM SMEM AVAILABLE()
totalmem = SYSTEM TMEM AVAILABLE()
hardware = SCREEN TYPE()
bitdepth = SCREEN DEPTH()
screenhgt = SCREEN HEIGHT()
screenwide = SCREEN WIDTH()
W = 640
H = 480
D = 16
set display mode W,H,D
envchk2x = 240
envchk1x= 30
perform checklist for display modes
totalscreens = checklist quantity()
ScrH = SCREEN HEIGHT()
ScrW = SCREEN WIDTH()
ScrD = SCREEN DEPTH()
set text font "verdana"
set text size 14
set text opaque
ink rgb(155,155,155),1
do
cls
` Enviroment Details Display
ink rgb(0,0,30),1
box 0,0,639,479
ink rgb(255,255,255),1
text envchk1x,1,"checking environment : :"+ " total resolutions:"+str$(totalscreens)
for max=1 to totalscreens
Swidth=checklist value a(max)
Sheight=checklist value b(max)
Sdepth=checklist value c(max)
if Sdepth = 16 then ink rgb((Swidth/10)+100,(Swidth/10)+100,(Swidth/10)+100),1
if Sdepth = 32 then ink rgb((Swidth/10)+100,(Swidth/10)+100,(Swidth/10)+100),1
if W = Swidth and H = Sheight and D = Sdepth
ink rgb(255,255,0),1
endif
text envchk1x,(max*12)+10,"#" + str$(max) + "= " + str$(Swidth)+ " / " +str$(Sheight)+ " / " +str$(Sdepth)
next max
text envchk2x,30,"video b "+STR$(vidmem)
kvidmem = vidmem / 1024
text envchk2x,50,"video kb "+STR$(kvidmem)
mvidmem = kvidmem / 1024
text envchk2x,70,"video mg "+STR$(mvidmem)
text envchk2x,90,"system b "+STR$(sysmem)
ksysmem = sysmem / 1024
text envchk2x,110,"system kb "+STR$(ksysmem)
msysmem = ksysmem / 1024
text envchk2x,130,"system mg "+STR$(msysmem)
text envchk2x,150,"total avail b "+STR$(totalmem)
ktotalmem = totalmem / 1024
text envchk2x,170,"total avail kb "+STR$(ktotalmem)
mtotalmem = ktotalmem / 1024
text envchk2x,190,"total avail mg "+STR$(mtotalmem)
text envchk2x,210,"screen depth = "+STR$(bitdepth)
text envchk2x,230,"screen height = "+STR$(screenhgt)
text envchk2x,250,"screen width = "+STR$(screenwide)
text envchk2x,270,"detected & using "+videocard$
text envchk2x,290,"hardware acceleration "+STR$(hardware)
rem hardware passed
if hardware = 1
ink rgb(0,255,0),1
text envchk2x,310,"hardware passed : "+STR$(hardware)
endif
rem hardware failed
if hardware = 0
ink rgb(255,0,0),1
text envchk2x,310,"hardware failed : "+STR$(hardware)
endif
rem filter passed
if filtercheck = 1
ink rgb(0,255,0),1
text envchk2x,330,"filtercheck passed : "+STR$(filtercheck)
endif
rem filter failed
if filtercheck = 0
ink rgb(255,0,0),1
text envchk2x,330,"filtercheck failed : "+STR$(hardware)
endif
rem fog passed
if fogcheck = 1
ink rgb(0,255,0),1
text envchk2x,350,"fog passed : "+STR$(filtercheck)
endif
if fogcheck = 0
ink rgb(255,0,0),1
text envchk2x,350,"fog failed : "+STR$(fogcheck)
endif
rem 3dblit passed
if 3dblitcheck = 1
ink rgb(0,255,0),1
text envchk2x,370,"3dblit passed : "+STR$(3dblitcheck)
endif
rem 3dblit failed
if 3dblitcheck = 0
ink rgb(255,0,0),1
text envchk2x,370,"3dblit failed : "+STR$(3dblitcheck)
endif
rem alpha blending passed
if alphablendcheck = 1
ink rgb(0,255,0),1
text envchk2x,390,"alphablendcheck passed : "+STR$(alphablendcheck)
endif
if alphablendcheck = 0
ink rgb(255,0,0),1
text envchk2x,390,"alphablendcheck failed : "+STR$(alphablendcheck)
endif
rem emulation passed
if emulated = 1
ink rgb(0,255,0),1
text envchk2x,410,"emulated passed : "+STR$(emulated)
endif
rem emulation fail
if emulated = 0
ink rgb(255,0,0),1
text envchk2x,410,"emulated failed : "+STR$(emulated)
endif
ink rgb(255,255,0),1
text envchk2x,430,"reccomendation : due to detected stats here."
` End Environment details display
sync
loop
I have one for DBP also that has tonnes more options and features if u step up to DBP.
