home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / animation_effects / clarissa_v1.1_spezial / macros / demo2.clssa < prev    next >
Encoding:
Text File  |  1995-07-10  |  826 b   |  33 lines
  1. /***********************************************************************
  2.   $DAT >>Demo2.clssa<<        23.01.1995 - (C) ProDAD Michael Christoph
  3. ************************************************************************/
  4.  
  5. OPTIONS RESULTS
  6. ADDRESS clariSSA
  7.  
  8.   FailAt 99
  9.   AltFail=RESULT
  10.  
  11.  
  12.   If ~Exists("Demo2.SSA") THEN DO
  13.    Message "'Die Animation `Demo2.SSA`''befindet sich nicht im''aktuellen Verzeichnis''und kann deshalb nicht''vorgeführt werden.'"
  14.   END
  15.   ELSE DO
  16.     GetAnimInfo MASTER
  17.  
  18.     IF RESULT~="" THEN DO
  19.       Parse var RESULT datei .
  20.       IF datei="'Demo2.SSA'" THEN laden=nein
  21.     END
  22.     IF laden~=nein THEN DO
  23.       RequestStatus OFF
  24.       CloseAnim MASTER
  25.       LoadAnim MASTER NAME "Demo2.SSA"
  26.       RequestStatus ON
  27.     END
  28.  
  29.     PlayAnim 99999 SCREENS   /* endlos abspielen */
  30.   END
  31.  
  32.   FailAt AltFail
  33. exit