From 673575b774f8e04dcd6ebf1486d16b8980857142 Mon Sep 17 00:00:00 2001 From: Ian C Date: Sat, 10 Dec 2005 01:39:37 +0000 Subject: Development checkin --- types.bmx | 83 ++++++++++++++------------------------------------------------- 1 file changed, 18 insertions(+), 65 deletions(-) (limited to 'types.bmx') diff --git a/types.bmx b/types.bmx index c4211ef..bc4349c 100644 --- a/types.bmx +++ b/types.bmx @@ -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 -- cgit v1.2.3