From 44f5889373f05d53a94a052fedffbd7d6c0f21e0 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sat, 26 Nov 2005 01:39:40 +0000
Subject: Initial mainly working version

---
 types.bmx | 30 ++++++++++++++++++------------
 1 file changed, 18 insertions(+), 12 deletions(-)

(limited to 'types.bmx')

diff --git a/types.bmx b/types.bmx
index 62d08dd..42cb2bd 100644
--- a/types.bmx
+++ b/types.bmx
@@ -25,6 +25,7 @@ Incbin "GFX/copper.png"
 Incbin "GFX/copperslice.png"
 Incbin "GFX/dust.png"
 Incbin "GFX/title.png"
+Incbin "GFX/gameover.png"
 Incbin "GFX/cursor.png"
 
 Incbin "TILES/tile.png"
@@ -44,6 +45,8 @@ Incbin "TILES/top_right.png"
 Incbin "TILES/bottom_left.png"
 Incbin "TILES/bottom_right.png"
 
+Const HERTZ:Int=60
+
 Type Lookup
 	Global si:Double[]
 	Global co:Double[]
@@ -66,6 +69,7 @@ Type GameGFX
 	Global large:TBitmapFont
 
 	Global title:TImage
+	Global gameover:TImage
 
 	Global pointer:TImage
 	Global copper:TImage
@@ -106,6 +110,8 @@ Type GameGFX
 		large=TBitmapFont.Load("incbin::GFX/large.bmf",0)
 
 		title=LoadImage("incbin::GFX/title.png",0)
+		gameover=LoadImage("incbin::GFX/gameover.png",0)
+		MidHandleImage(gameover)
 
 		pointer=LoadImage("incbin::GFX/pointer.png",0)
 
@@ -148,9 +154,9 @@ End Type
 Type GameConfig
 	Global kleft:Int
 	Global kright:Int
-	Global kup:Int
-	Global kdown:Int
-	Global krot:Int
+	Global krotright:Int
+	Global krotleft:Int
+	Global kdrop:Int
 	Global kpause:Int
 	Global start_level:Int
 	
@@ -160,9 +166,9 @@ Type GameConfig
 		If s=Null
 			kleft=KEY_LEFT
 			kright=KEY_RIGHT
-			kup=KEY_UP
-			kdown=KEY_DOWN
-			krot=KEY_SPACE
+			krotright=KEY_UP
+			krotleft=KEY_DOWN
+			kdrop=KEY_SPACE
 			kpause=KEY_P
 			start_level=1
 			Return
@@ -172,9 +178,9 @@ Type GameConfig
 		
 		kleft=s.ReadInt()
 		kright=s.ReadInt()
-		kup=s.ReadInt()
-		kdown=s.ReadInt()
-		krot=s.ReadInt()
+		krotright=s.ReadInt()
+		krotleft=s.ReadInt()
+		kdrop=s.ReadInt()
 		kpause=s.ReadInt()
 		start_level=s.ReadInt()
 		
@@ -192,9 +198,9 @@ Type GameConfig
 		
 		s.WriteInt(kleft)
 		s.WriteInt(kright)
-		s.WriteInt(kup)
-		s.WriteInt(kdown)
-		s.WriteInt(krot)
+		s.WriteInt(krotright)
+		s.WriteInt(krotright)
+		s.WriteInt(kdrop)
 		s.WriteInt(kpause)
 		s.WriteInt(start_level)
 		
-- 
cgit v1.2.3