[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.56,1.57

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7788/apps/Player4

Modified Files:
	PLAYER4.F 
Log Message:
Jos: The button NEXT can now be activated by the fire button. Quite fun when you have a cordless joystick. Then you have a kind of remote control.

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -d -r1.56 -r1.57
*** PLAYER4.F	25 May 2006 15:36:50 -0000	1.56
--- PLAYER4.F	27 May 2006 19:13:33 -0000	1.57
***************
*** 32,36 ****
--- 32,38 ----
  needs multiopen.f
  needs AcceleratorTables.f
+ needs Joystick.f
  
+ 200 value IDJoystick
  defer PLAYER         ' noop is PLAYER
  defer RefreshCatalog ' noop is RefreshCatalog
***************
*** 239,245 ****
--- 241,264 ----
          addr: self to player-base
          RefreshCatalog
+         FindFirstJoyStick dup to IDJoystick
+         MaxJoysticks <
+          if   0 250 1 hWnd Call SetTimer drop
+          then
          ;M
  
+ :M WM_TIMER     ( hm wl -- res >>> ) \ handle the WM_TIMER events
+      2drop IDJoystick GetJoystickInfo  1 =
+         if      IDM_NEXT  DoCommand
+                 begin  IDJoystick GetJoystickInfo  2nip nip 0=
+                 until
+         3drop
+         then
+      0   
+  ;M
+ 
  :M On_Done:     ( h m w l -- res )
+         MaxJoysticks <
+            if  1 hWnd Call KillTimer
+            then
          Close: self
          0 call PostQuitMessage drop
***************
*** 498,502 ****
  
  : Player-Loop   ( -- )
!         turnkey? if begin player again then ;
  
  : PLAYER4       ( -- )
--- 517,521 ----
  
  : Player-Loop   ( -- )
!         turnkey? if begin  player again then ;
  
  : PLAYER4       ( -- )