home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / LoadWork.clssa < prev    next >
Text File  |  1993-05-01  |  2KB  |  91 lines
  1. /***********************************************************************
  2.  $DAT >>LoadWork.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  3. ************************************************************************/
  4.  
  5. OPTIONS RESULTS
  6.   PARSE ARG filename
  7.  
  8.   GetPref
  9.   IF FIND(RESULT,"LaceCompensation")>0 THEN PV=1
  10.   ELSE                                      PV=0
  11.  
  12.   FailAt 20
  13.   AltFail=RESULT
  14.   DO FOREVER
  15.     LoadA=""
  16.     IF filename="" THEN DO
  17.       FileSelect "TITLE 'Load Work Data' PTEXT 'Load'"
  18.       filename=RESULT
  19.     END
  20.     IF filename="" THEN LEAVE
  21.  
  22.     IF Open(loadit, filename, 'Read') THEN DO
  23.       line=Readln(loadit)
  24.       IF line="clariSSA-SaveWork" THEN DO
  25.         DO FOREVER
  26.           line=Readln(loadit)
  27.           IF line="" THEN LEAVE
  28.  
  29.           PARSE VAR line "ANIMATION" xx .
  30.           IF xx~="" THEN  DO
  31.             IF LoadA="" THEN DO
  32.               BOOLRequest "'Load Last Animation?'"
  33.               LoadA=RESULT
  34.             END
  35.             IF LoadA="YES" THEN  ret=LoadAnimLayOut(line)
  36.           END
  37.           ELSE DO
  38.             PARSE VAR line "FLAGS" xx .
  39.             IF xx~="" THEN  ret=LoadFlagsLayOut(line)
  40.           END
  41.  
  42.         END
  43.       END; ELSE Message "'Wrong File!'"
  44.  
  45.       call Close(loadit)
  46.     END; ELSE Message "'Work Data cannot''be loaded.'"
  47.  
  48.     LEAVE
  49.   END
  50.   FailAt AltFail
  51.  RETURN
  52.  
  53.  
  54.  
  55.  
  56. LoadAnimLayOut: procedure
  57. DO
  58.   ARG Animation
  59.  
  60.   ok=0
  61.   PARSE VAR Animation 'ANIMATION' Anim '"' AnimFile '" POS' AnimPos 'AREA FROM' start 'TO' Last Direction
  62.  
  63.   LoadAnim Anim "NAME '"AnimFile"'"
  64.   IF rc=0 THEN DO
  65.     ViewFrame AnimPos
  66.     IF rc=0 THEN DO
  67.       SetArea "FROM" start "TO" Last Direction
  68.       ok=1
  69.     END
  70.   END
  71.   RETURN(ok)
  72. END
  73.  
  74.  
  75.  
  76. LoadFlagsLayOut: procedure
  77. DO
  78.   ARG Flags
  79.  
  80.   ok=0
  81.   PARSE VAR Flags "FLAGS". "PLAYMODE" PlayMode "EDITMODE" EditMode "PREF" PREF "HELP" HReq "SGBB" SGrabber
  82.  
  83.   SetPlayMode PlayMode
  84.   SetEditMode EditMode
  85.   SetPref Pref
  86.   IF HReq~="?"     THEN HelpRequester HReq
  87.   IF SGrabber~="?" THEN SetScreenGrabber SGrabber
  88.   ok=1
  89.   RETURN(ok)
  90. END
  91.