ну смешите просто
на вот оригинальный start.bb
[blitz]
SetGfx()
Function SetGfx()
Print info1$
rint info2$
rint info3$
rint info4$
rint
If Windowed3D()
yn$=Input$( "Use windowed mode?" )
If Left$( Lower$( yn$ ),1 )="y"
HidePointer
Graphics3D 640,480,0,2
SetBuffer BackBuffer()
Return
EndIf
EndIf
Print ""
Print "Display drivers:"
Print "----------------"
For k=1 To CountGfxDrivers()
Print k+":"+GfxDriverName$(k)
Next
Print
If CountGfxDrivers()>1
Repeat
driver=Input$( "Display driver (1-"+CountGfxDrivers()+"):" )
Until driver>=1 And driver<=CountGfxDrivers()
SetGfxDriver driver
EndIf
cnt=CountGfxModes3D()
If cnt=0 Print "No 3D Graphics modes detected.":WaitKey:End
Print ""
Print "Display modes:"
Print "--------------"
For k=1 To CountGfxModes3D()
Print k+":"+GfxModeWidth(k)+","+GfxModeHeight(k)+","+Gfx ModeDepth(k)
Next
Repeat
mode=Input$( "Display Mode (1-"+cnt+"):" )
Until mode>=1 And mode<=cnt
Graphics3D GfxModeWidth(mode),GfxModeHeight(mode),GfxModeDept h(mode),1
SetBuffer BackBuffer()
End Function
[/blitz]
правда можно было просто заменить include start.bb
на
[blitz]
Graphics3D 800,600,32,2
SetBuffer BackBuffer()
[/blitz]
и оно пахало б