diff options
Diffstat (limited to 'hardwire.bmx')
| -rw-r--r-- | hardwire.bmx | 38 |
1 files changed, 16 insertions, 22 deletions
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()
|