[EXAMPLES]

* NEW: BeastScroll: Add a keyboard shortcut that takes a screenshot, and
  add more text to the screen.


git-svn-id: svn://localhost/gambas/trunk@6391 867c0c6c-44f3-4631-809d-bfa615b0a4ec

examples/examples/Games/BeastScroll/.src/MMain.module

@@ -68,12 +68,31 @@ Public Sub Main()
 
 End
 
+Private Sub DrawText(sText As String, X As Integer, Y As Integer)
+
+  Dim I As Integer
+  Dim J As Integer
+  
+  Draw.Foreground = Color.Black
+  For I = -1 To 1
+    For J = -1 To 1
+      Draw.Text(sText, X + I, Y + J)
+    Next
+  Next
+  Draw.Foreground = Color.White
+  Draw.Text(sText, X, Y)
+
+End
+
 Public Sub Screen_Draw()
   
   'Dim hImage As Image
   
   'Screen.Clear
   
+  'Screen.Clear
+  'Goto PRINT_TEXT
+  
   scroll = scroll + speed
   Dec (scroll1)
   scroll2 = scroll2 - 2
@@ -151,8 +170,13 @@ Public Sub Screen_Draw()
   
   #Endif
 
-  Draw.ForeColor = Color.White
+PRINT_TEXT:
-  Draw.Text(Screen.Framerate & " FPS", 10, 10)
+
+  Print Screen.Framerate; " FPS\r";
+  DrawText(Screen.Framerate & " FPS", 10, 16)
+  DrawText("[F1]   Toggle fullscreen", 10, 32)
+  DrawText("[F5]   Take screenshot to ~/BeastScroll.png", 10, 48)
+  DrawText("[ESC]  Quit", 10, 64)
   
 End
 
@@ -164,7 +188,13 @@ End
 
 Public Sub Screen_KeyPress()
   
-  If (key.Code = key.F1) Then Screen.FullScreen = Not Screen.FullScreen
+  Select Case Key.Code
-  If (key.Code = key.Esc) Then Screen.Close()
+    Case Key.F1
+      Screen.FullScreen = Not Screen.FullScreen
+    Case Key.Esc
+      Screen.Close
+    Case Key.F5
+      Screen.Screenshot().Save("~/BeastScroll.png")
+  End Select
   
 End