Mark Sibly %!s(int64=7) %!d(string=hai) anos
pai
achega
dfd077586f
Modificáronse 1 ficheiros con 28 adicións e 5 borrados
  1. 28 5
      bananas/musictest/musictest.monkey2

+ 28 - 5
bananas/musictest/musictest.monkey2

@@ -28,18 +28,41 @@ Class MyWindow Extends Window
 	
 	Method StartMusic()
 		
-		_channel=Audio.PlayMusic( "asset::ACDC_-_Back_In_Black-sample.ogg",StartMusic )
+		_channel=Audio.PlayMusic( "asset::ACDC_-_Back_In_Black-sample.ogg",Lambda()
+		
+			If _channel StartMusic()
+		End )
 	End
 	
 	Method OnRender( canvas:Canvas ) Override
 		
-		If Keyboard.KeyHit( Key.Space ) or Mouse.ButtonHit( MouseButton.Left ) _channel.Paused=Not _channel.Paused
-		
 		RequestRender()
 	
-		canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 )
+		canvas.DrawText( 
+		"Music Test: Hit [Enter] to "+
+		(_channel ? "stop" Else "start")+
+		(_channel ? ", [Space] to "+(_channel.Paused ? "resume" Else "pause") Else ""),
+		0,0 )
+		
+		'Stop/Start?
+		If Keyboard.KeyHit( Key.Enter ) Or Mouse.ButtonHit( MouseButton.Left )
+			If _channel 
+				_channel.Stop()
+				_channel=Null
+			Else
+				StartMusic()
+			Endif
+		Endif
+		
+		'Pause/Resume?
+		If Keyboard.KeyHit( Key.Space ) Or Mouse.ButtonHit( MouseButton.Right )
+			If _channel
+				_channel.Paused=Not _channel.Paused
+			Endif
+		Endif
+		
 	End
-	
+ 	
 End
 
 Function Main()