DEFINITION MODULE JoyEvent;
(******************************************************************************)
(*      This MODULE is Public Domain. Copy me like a beast!                   *)
(*               Christian Ledermann                                          *)
(*               W”lfelkofen 2                                                *)
(*               84166 Adlkofen                                               *)
(******************************************************************************)
(*                                                                            *)
(* Started:   20.12.92     03:54:30                                           *)
(* Version: 20.12.89   01:484:12:54                                           *)
(*                                                                            *)
(******************************************************************************)
(*                                                                            *)
(* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
(* keinerlei Wartung und �bernehme keine Verantwortung f�r Sch„den die        *)
(* durch die Benutzung dieses Programmes entstehen.                           *)
(* Jegliche Ersatzanspr�che lehne ich ab.                                     *)
(*                                                                            *)
(******************************************************************************)
(* ->ST 1/90                                                                  *)
(******************************************************************************)
(* -------------------------------------------------*)
(* Autoren : Uwe A Ruttkamp & Clemens Fehr          *)
(* -------------------------------------------------*)
(* Die Routine wurde von mir leicht modifiziert so wird nun ein gleichzeitiges*)
(* JoyStick nach unten und nach rechts gemeldet ... daf�r ist die Feuerknopf *)
(* Abfrage rausgeflogen. die kann mann aber durch einen Aufruf von             *)
(* AES.GrafMouseKeyboardState leicht selbst einbauen wenn sie gebraucht wird *)

TYPE JoyEventType=(Right,Left,Up,Down);
     JoyEvents = SET OF JoyEventType; (* gleichzeitiges Auftreten von mehreren
                                       Events wird ber�cksichtigt *)

CONST NoEvents = JoyEvents{};


PROCEDURE InitJoyEvent;
(* Dient zum Initialisieren des JoyEvent MODULEs
   Von jetzt ab wird bei Jeder Joystick bewegung intern ein Wert modifiziert
   Deshalb Unbedingt TermJoyEvent aufrufen um dies wieder abzuschalten *)

PROCEDURE Joystick(VAR Event:JoyEvents);
(* Kernroutine des Modules. In Events wird die augenblickliche Position
 des Lustkn�ppels zur�ckgegeben. zb: (Left,Up)... *)


PROCEDURE TermJoyEvent;
 (* schaltet Joystick šberwachung ab. Unbedingt!!! aufrufen vor beenden des
    Programmes sonst gibts ne BombenStimmung !*)

END JoyEvent.