What?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Little Olive

Look at this:

Graphics3D 1024,768
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Speed#=1

;wire=Not wire
;WireFrame wire

CamPivot=CreatePivot()
RotateEntity CamPivot,40,0,0

Camera=CreateCamera(CamPivot)
PositionEntity Camera,0,0,-10

cube=CreateSphere()
FitMesh cube,-250,-250,-250,500,500,500
FlipMesh cube
tex=CreateTexture( 64,64 )
ScaleTexture tex,.1,.1
SetBuffer TextureBuffer( tex )
Color 255,255,55:Rect 32,0,32,32:Rect 0,32,32,32
Color 255,55,55:Rect 0,0,32,32:Rect 32,32,32,32
SetBuffer BackBuffer()
Color 255,255,255
EntityTexture Cube,tex

Pivot1=CreatePivot()

Flier=CreateMesh(Pivot1)
Wing=CreateSurface(Flier)
AddVertex (Wing, 0, 2, 0, 1, 1)
AddVertex (Wing,-1, 0, 0, 1, 0)
AddVertex (Wing, 1, 0, 0, 0, 1)
AddTriangle (Wing,0,1,2)
AddTriangle (Wing,2,1,0)
Beam=CreateSurface(Flier)
AddVertex (Beam,0,0,.5)
AddVertex (Beam,0,0,0)
AddVertex (Beam,0,2,0)
AddTriangle (Beam,0,1,2)
AddTriangle (Beam,2,1,0)
tex=CreateTexture( 64,64 )
ScaleTexture tex,1,1
SetBuffer TextureBuffer( tex )
Color 255,255,255:Rect 32,0,32,32:Rect 0,32,32,32
Color 55,55,55:Rect 0,0,32,32:Rect 32,32,32,32
SetBuffer BackBuffer()
Color 255,255,255
EntityTexture Flier,tex
RotateEntity Flier,20,0,90
ScaleEntity Flier,.5,.5,.5
PositionEntity Flier,0,0,7

Pivot2=CreatePivot()
Flier2=CopyEntity(Flier,Pivot2)
RotateEntity Flier2,0,0,135
ScaleEntity Flier2,.5,.5,.5
PositionEntity Flier2,0,0,6.5

Pivot3=CreatePivot()
Flier3=CopyEntity(Flier,Pivot3)
RotateEntity Flier3,0,0,-45
ScaleEntity Flier3,.5,.5,.5
PositionEntity Flier3,0,0,6
RotateEntity Pivot3,0,0,90

Flier4=CopyEntity(Flier)
RotateEntity Flier4,0,0,90
PositionEntity Flier4,20,0,0

While Not KeyHit(1)

If KeyHit(17)
wire=Not wire
WireFrame wire
EndIf

If KeyDown(30) Then Speed=Speed+.1
If KeyDown(44) Then Speed=Speed-.1
TurnEntity CamPivot,0,Speed,0
If KeyDown(205) Then TurnEntity CamPivot,1,0,0

TurnEntity Pivot1,0,1*Speed,0
TurnEntity Pivot2,1*Speed,1*Speed,0
TurnEntity Pivot3,-1.5*Speed,-1.5*Speed,0
TurnEntity Flier4,0,4*Speed,0
MoveEntity Flier4,0,.2*Speed,0
P#=P+.2*Speed
If P#=>40
P=0
TurnEntity Flier4,0,0,180
EndIf

RenderWorld
Flip
Wend

End

Whenever I try to run it, it freaks out on me! It goes "Unable to set Graphics mode". What's frickin' up with that?!