From 44f5889373f05d53a94a052fedffbd7d6c0f21e0 Mon Sep 17 00:00:00 2001 From: Ian C Date: Sat, 26 Nov 2005 01:39:40 +0000 Subject: Initial mainly working version --- hardwire.bmx | 38 ++++++++++++++++---------------------- 1 file changed, 16 insertions(+), 22 deletions(-) (limited to 'hardwire.bmx') diff --git a/hardwire.bmx b/hardwire.bmx index 61a1180..7a9a8a5 100644 --- a/hardwire.bmx +++ b/hardwire.bmx @@ -42,7 +42,7 @@ Else EndIf ? -Graphics 800,600,32,60 +Graphics 800,600,32,HERTZ HideMouse SetBlend(ALPHABLEND) @@ -71,6 +71,12 @@ Global quit:Int=False Menu() While Not quit + Local game:TGame=New TGame + game.SetInitLevel(GameConfig.start_level) + + While game.Play() + Wend + Menu() Wend @@ -124,21 +130,10 @@ Function Menu() Local tx1:Int=(GraphicsWidth()-GameGFX.large.TextWidth("START LEVEL 1"))/2 Local tx2:Int=tx1+GameGFX.large.TextWidth("START LEVEL ") - Local gm:TGameMap=New TGameMap - While Not done - If gm.overflow - SetClsColor(128,0,0) - Else - SetClsColor(0,0,0) - EndIf - Cls DrawImage(GameGFX.title,0,0) - gm.Draw() - Particles.Draw() - sel=menu.Render(defkey>0) If defkey>0 @@ -159,15 +154,15 @@ Function Menu() GameGFX.large.DrawColoured("Left",250,180,c1,c1,0) GameGFX.large.DrawColoured("Right",250,210,c2,c2,0) - GameGFX.large.DrawColoured("Up",250,240,c3,c3,0) - GameGFX.large.DrawColoured("Down",250,270,c4,c4,0) - GameGFX.large.DrawColoured("Rotate",250,300,c5,c5,0) + GameGFX.large.DrawColoured("Rotate Right",250,240,c3,c3,0) + GameGFX.large.DrawColoured("Rotate Left",250,270,c4,c4,0) + GameGFX.large.DrawColoured("Drop",250,300,c5,c5,0) GameGFX.large.DrawColoured("Pause",250,330,c6,c6,0) GameGFX.large.DrawColoured(KeySym(GameConfig.kleft),500,180,c1,c1,0) GameGFX.large.DrawColoured(KeySym(GameConfig.kright),500,210,c2,c2,0) - GameGFX.large.DrawColoured(KeySym(GameConfig.kup),500,240,c3,c3,0) - GameGFX.large.DrawColoured(KeySym(GameConfig.kdown),500,270,c4,c4,0) - GameGFX.large.DrawColoured(KeySym(GameConfig.krot),500,300,c5,c5,0) + GameGFX.large.DrawColoured(KeySym(GameConfig.krotright),500,240,c3,c3,0) + GameGFX.large.DrawColoured(KeySym(GameConfig.krotleft),500,270,c4,c4,0) + GameGFX.large.DrawColoured(KeySym(GameConfig.kdrop),500,300,c5,c5,0) GameGFX.large.DrawColoured(KeySym(GameConfig.kpause),500,330,c6,c6,0) @@ -191,11 +186,11 @@ Function Menu() Case 2 GameConfig.kright=k Case 3 - GameConfig.kup=k + GameConfig.krotright=k Case 4 - GameConfig.kdown=k + GameConfig.krotleft=k Case 5 - GameConfig.krot=k + GameConfig.kdrop=k Case 6 GameConfig.kpause=k End Select @@ -223,7 +218,6 @@ Function Menu() done=True FlushKeys() Case MENU_SCORES - gm.AddRow() FlushKeys() Case MENU_KEYS FlushKeys() -- cgit v1.2.3