diff options
Diffstat (limited to 'types.bmx')
| -rw-r--r-- | types.bmx | 83 |
1 files changed, 18 insertions, 65 deletions
@@ -50,6 +50,8 @@ Incbin "TILES/bottom_right.png" Incbin "TILES/special_bomb.png"
Incbin "TILES/special_twister.png"
+Incbin "TILES/special_nuke.png"
+Incbin "TILES/special_cross.png"
Const HERTZ:Int=60
@@ -111,6 +113,8 @@ Type GameGFX Global special_bomb:TImage
Global special_twister:TImage
+ Global special_nuke:TImage
+ Global special_cross:TImage
Global bdropstar:TImage
@@ -176,6 +180,8 @@ Type GameGFX special_bomb=SafeLoadAnimImage("incbin::TILES/special_bomb.png",32,32,0,4,DYNAMICIMAGE)
special_twister=SafeLoadAnimImage("incbin::TILES/special_twister.png",32,32,0,4,DYNAMICIMAGE)
+ special_nuke=SafeLoadAnimImage("incbin::TILES/special_nuke.png",32,32,0,4,DYNAMICIMAGE)
+ special_cross=SafeLoadAnimImage("incbin::TILES/special_cross.png",32,32,0,4,DYNAMICIMAGE)
bdropstar=SafeLoadAnimImage("incbin::GFX/bdropstar.png",8,8,0,6,0)'FILTEREDIMAGE)
End Function
@@ -273,68 +279,6 @@ Type TEasyLink End Type
-Type TMenuBdrop_Orig Extends TGfxMenuBackdrop
- Const NUM:Int=3
- Const SIZE:Double=50.0
- Const OFFSET:Double=500.0
- Field a:Int[NUM]
- Field msg:String
- Field msgp:Int
- Field msgx:Int
- Field msgy:Int
-
- Method New()
- For Local f:Int=0 Until NUM
- a[f]=360/NUM*f
- Next
-
- msg=" "
- msg:+"Welcome to Hardwire. "
- 'msg:+"Welcome to Hardwire. The object of the game is to connect the electrodes around the side of the pit using "
- 'msg:+"the wires embedded in the blocks. "
- 'msg:+"If you let the pit overflow the game is over. That's all there is to it... Press the RULES button for help on how to play. "
- msg:+"Hardwire was written using BlitzMax -- http://www.blitzbasic.com/ -- and a variety of tools available at "
- msg:+"http://www.noddybox.demon.co.uk/ Please feel free to forward this game to whoever you hate enough "
- msg:+"to inflict this monstrosity upon. Enjoy. This game written under the influence of Slay Radio -- http://www.slayradio.org"
-
- msgx=0
- msgp=0
- msgy=OFFSET
- End Method
-
- Method Create:TGfxMenuBackdrop()
- Return Self
- End Method
-
- Method Update()
- For Local f:Int=0 Until NUM
- a[f]=(a[f]+2) Mod 360
-
- If a[f]<=180
- Local c:Int=128-Abs(64*Lookup.si[a[f]])
- SetColor(c,c,c)
- DrawImage(GameGFX.copper,0,OFFSET+SIZE*Lookup.co[a[f]])
- EndIf
- Next
-
- GameGFX.large.Draw(msg[..80],msgx,msgy)
- msgx:-2
- If msgx<-GameGFX.large.TextWidth(msg[0..1])
- msgx:+GameGFX.large.TextWidth(msg[0..1])
- msg=msg[1..]+msg[0..1]
- EndIf
-
- For Local f:Int=0 Until NUM
- If a[f]>180
- Local c:Int=128+Abs(64*Lookup.si[a[f]])
- SetColor(c,c,c)
- DrawImage(GameGFX.copper,0,OFFSET+SIZE*Lookup.co[a[f]])
- EndIf
- Next
- SetColor(255,255,255)
- End Method
-End Type
-
Type TMenuBdrop Extends TGfxMenuBackdrop
Field msg:String
Field msgp:Int
@@ -345,9 +289,6 @@ Type TMenuBdrop Extends TGfxMenuBackdrop msg=" "
msg=" "
msg:+"Welcome to Hardwire. "
- 'msg:+"Welcome to Hardwire. The object of the game is to connect the electrodes around the side of the pit using "
- 'msg:+"the wires embedded in the blocks. "
- 'msg:+"If you let the pit overflow the game is over. That's all there is to it... Press the RULES button for help on how to play. "
msg:+"Hardwire was written using BlitzMax -- http://www.blitzbasic.com/ -- and a variety of tools available at "
msg:+"http://www.noddybox.demon.co.uk/ Please feel free to forward this game to whoever you hate enough "
msg:+"to inflict this monstrosity upon. Enjoy. This game written under the influence of Slay Radio -- http://www.slayradio.org"
@@ -391,6 +332,18 @@ Type TFadeScreen Return Create(1,-0.05)
End Function
+ Function DoFadeOut()
+ Local fade:TFadeScreen=TFadeScreen.FadeOut()
+ Local pm:TPixmap=GrabPixmap(0,0,GraphicsWidth(),GraphicsHeight())
+
+ While fade.Fade()
+ Cls
+ DrawPixmap(pm,0,0)
+ fade.Draw()
+ Flip
+ Wend
+ End Function
+
Method Fade:Int()
a:+ai
Return a>0 And a<1
|