diff options
| -rw-r--r-- | shockwave.bb | 27 |
1 files changed, 8 insertions, 19 deletions
diff --git a/shockwave.bb b/shockwave.bb index c01fc2e..6ce26c7 100644 --- a/shockwave.bb +++ b/shockwave.bb @@ -18,7 +18,7 @@ ;
; -------------------------------------------------------------------------
;
-; $Id: shockwave.bb,v 1.11 2005-05-08 23:44:30 ianc Exp $
+; $Id: shockwave.bb,v 1.12 2006-02-06 01:20:00 ianc Exp $
;
Include "gfx/font.bb"
@@ -541,6 +541,7 @@ Repeat EndIf
ProcessQSounds()
+ ;Info()
Flip
WaitTimer(timer)
@@ -680,8 +681,8 @@ End Function Function Info()
Color 255,255,255
- Text 0,0,"M:"+MeshWidth(ship)+","+MeshHeight(ship)+","+MeshDepth(ship)
- Text 0,10,"S:"+MeshWidth(sw\id)+","+MeshHeight(sw\id)+","+MeshDepth(sw\id)
+ Text 0,100,"M:"+MeshWidth(ship)+","+MeshHeight(ship)+","+MeshDepth(ship)
+ Text 0,110,"S:"+MeshWidth(sw\id)+","+MeshHeight(sw\id)+","+MeshDepth(sw\id)
End Function
Function AddScore(s)
@@ -1377,9 +1378,8 @@ End Function Function CreateVectex()
s=256
t=CreateTexture(s,s,1+4+8+256)
- i=CreateImage(s,s)
b=BackBuffer()
- SetBuffer ImageBuffer(i)
+ SetBuffer TextureBuffer(t)
Color 128,128,128
Rect 0,0,s,s,True
For f=0 To 128
@@ -1387,8 +1387,6 @@ Function CreateVectex() Rect f,f,s-f*2,s-f*2,False
Next
SetBuffer b
- CopyRect 0,0,s,s,0,0,ImageBuffer(i),TextureBuffer(t)
- FreeImage i
Return t
End Function
@@ -1438,9 +1436,8 @@ End Function Function CreateAsttex()
s=256
t=CreateTexture(s,s,1+4+8+256)
- i=CreateImage(s,s)
b=BackBuffer()
- SetBuffer ImageBuffer(i)
+ SetBuffer TextureBuffer(t)
Color 0,0,128
Rect 0,0,s,s,True
Color 64,64,255
@@ -1449,8 +1446,6 @@ Function CreateAsttex() Rect 0,f,256,4,True
Next
SetBuffer b
- CopyRect 0,0,s,s,0,0,ImageBuffer(i),TextureBuffer(t)
- FreeImage i
Return t
End Function
@@ -1468,9 +1463,8 @@ End Function Function CreatePowertex()
s=256
t=CreateTexture(s,s,1+4+8+256)
- i=CreateImage(s,s)
b=BackBuffer()
- SetBuffer ImageBuffer(i)
+ SetBuffer TextureBuffer(t)
Color 128,128,0
Rect 0,0,s,s,True
Color 255,255,0
@@ -1479,8 +1473,6 @@ Function CreatePowertex() Rect 0,f,256,4,True
Next
SetBuffer b
- CopyRect 0,0,s,s,0,0,ImageBuffer(i),TextureBuffer(t)
- FreeImage i
Return t
End Function
@@ -1562,9 +1554,8 @@ End Function Function CreateMaptex()
s=256
t=CreateTexture(s,s,1+4+8+256)
- i=CreateImage(s,s)
b=BackBuffer()
- SetBuffer ImageBuffer(i)
+ SetBuffer TextureBuffer(t)
Color 0,0,64
Rect 0,0,s,s,True
For f=0 To 128
@@ -1585,8 +1576,6 @@ Function CreateMaptex() Color 0,0,128
Rect 0,0,s,s,False
SetBuffer b
- CopyRect 0,0,s,s,0,0,ImageBuffer(i),TextureBuffer(t)
- FreeImage i
Return t
End Function
|