Added initial Menu code.

1 files changed, 11 insertions, 0 deletions

diff --git a/level.bmx b/level.bmx
index b86c33a..8535a64 100644
--- a/level.bmx
+++ b/level.bmx
@@ -286,4 +286,15 @@ Type TLevelSet
 		
 		Return True
 	End Method
+	
+	Method Get:TLevel(i:Int)
+		Local tl:TLink=level.FirstLink()
+		
+		While i>0 And tl<>Null
+			i:-1
+			tl=tl.NextLink()
+		Wend
+		
+		Return TLevel(tl.Value())
+	End Method
 End Type