home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / HE_PlayMode.clssa < prev    next >
Text File  |  1993-05-01  |  2KB  |  48 lines
  1. /***********************************************************************
  2.  GADGET: "'Playback Modes'" "7" AUTO TYP: "?"
  3.  
  4.  $DAT >>HE_PlayMode.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options RESULTS
  8. Address clariSSA
  9.  
  10.   FailAt 99
  11.   AltFail=RESULT
  12.  
  13.   DO FOREVER
  14.     MSRequester "TITLE '*** Change Play Mode ***'",
  15.                 "PTEXT 'Set Playback Speed''Set Anim Controls'"
  16.     IF RC~=0 THEN LEAVE
  17.     IF RESULT=1 THEN DO
  18.       MSRequester "TITLE '*** Change Play Mode ***''Set Playback Speed'' ''Standard Video Formats: PAL = 50Hz   NTSC = 60Hz'",
  19.                         "' ''HF-distribution: Entirely during LACE-extend Anims'",
  20.                   "PTEXT 'PAL 50Hz, NTSC 60Hz''PAL 50Hz, NTSC 60Hz (free HF-distribution)'",
  21.                         "'PAL 25Hz, NTSC 30Hz (Free HF-distribution)''PAL 16.6Hz, NTSC 20Hz'"
  22.       IF RC~=0 THEN LEAVE
  23.       IF      RESULT=1 THEN SetPlayMode SlowPlay OFF DFPMode ON
  24.       ELSE IF RESULT=2 THEN SetPlayMode SlowPlay OFF DFPMode OFF
  25.       ELSE IF RESULT=3 THEN SetPlayMode SlowPlay ON DFPMode OFF
  26.       ELSE IF RESULT=4 THEN SetPlayMode SlowPlay ON DFPMode ON
  27.     END
  28.     ELSE IF RESULT=2 THEN DO
  29.       MSRequester "TITLE '*** Change Play Mode ***''Set Anim Controls'",
  30.                   "PTEXT 'Play Animation endlessly without Mouse start'",
  31.                         "'Play Animation endlessly with Mouse start'",
  32.                         "'Play Animation once without Mouse start'",
  33.                         "'Play Animation once with Mouse start'"
  34.  
  35.       IF RC~=0 THEN LEAVE
  36.       IF      RESULT=1 THEN SetPlayMode MouseStart OFF Forever ON
  37.       ELSE IF RESULT=2 THEN SetPlayMode MouseStart ON Forever ON
  38.       ELSE IF RESULT=3 THEN SetPlayMode MouseStart OFF Forever OFF
  39.       ELSE IF RESULT=4 THEN SetPlayMode MouseStart ON Forever OFF
  40.     END
  41.  
  42.     LEAVE
  43.   END
  44.  
  45.   FailAt AltFail
  46. exit
  47.  
  48.