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?!
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?!