home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / SetInt.clssa < prev    next >
Text File  |  1993-08-13  |  3KB  |  115 lines
  1. /***********************************************************************
  2.  GADGET: "'Set Paths'" "7" AUTO TYP: "?"
  3.  
  4.  $DAT >>SetInt.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.   GetPref
  14.   IF FIND(RESULT,"LaceCompensation")>0 THEN PV=1
  15.   ELSE                                      PV=0
  16.  
  17.   DO FOREVER
  18.  
  19.     MSRequester "TITLE '*** Set Paths ***''For improved access speed''you can set the default paths''for loading files.'",
  20.                 "PTEXT 'MFG - Renew Macrolist'",
  21.                       "'SSA - Set File Path'",
  22.                       "'Anim5 - Set File Path'",
  23.                       "'Adorage - Set File Path'",
  24.                       "'Single Frame - Set File Path'",
  25.                       "'Incorporate Changes into clariSSA'"
  26.     IF RC~=0 THEN LEAVE
  27.     Mode=RESULT
  28.  
  29.     IF Mode=1 THEN      call MakeFileGadgets.clssa('Macros/')
  30.     ELSE IF Mode=2 THEN call FilePath(1)
  31.     ELSE IF Mode=3 THEN call FilePath(2)
  32.     ELSE IF Mode=4 THEN call FilePath(3)
  33.     ELSE IF Mode=5 THEN call FilePath(4)
  34.  
  35.     ELSE DO
  36.       LoadDefs "Name 'clariSSA.Path'"
  37.       LoadDefs "Name 'clariSSA.gadgets'"
  38.     END
  39.  
  40.     LEAVE
  41.   END
  42.  
  43.   FailAt AltFail
  44.  
  45. exit
  46.  
  47.  
  48.  
  49.  
  50.  
  51. FilePath: procedure
  52. DO
  53.   ARG nr
  54.  
  55.   SSAPath="?"
  56.   Anim5Path="?"
  57.   AdoragePath="?"
  58.   SFramePath="?"
  59.   IF Open(load,"clariSSA.path",'Read') THEN DO
  60.     call Readln(load)    /* Skip First Line */
  61.     zz=Readln(load)
  62.     PARSE VAR zz . "LoadAnim Req Name '"SSAPath"'"
  63.     zz=Readln(load)
  64.     PARSE VAR zz . "LoadAnim Req Name '"Anim5Path"'"
  65.     zz=Readln(load)
  66.     PARSE VAR zz . "LoadAnim Req Name '"AdoragePath"'"
  67.     zz=Readln(load)
  68.     PARSE VAR zz . "LoadAnim Req Name '"SFramePath"'"
  69.     call Close(load)
  70.   END
  71.  
  72.   IF nr=1 THEN DO
  73.     FileSelect "Name '"SSAPath"' TITLE 'SSA - Choose Path' PTEXT 'Ok..'"
  74.     IF RC~=0 THEN return
  75.     SSAPath=RESULT
  76.   END
  77.  
  78.   IF nr=2 THEN DO
  79.     FileSelect "Name '"Anim5Path"' TITLE 'Anim5 - Choose Path' PTEXT 'Ok..'"
  80.     IF RC~=0 THEN return
  81.     Anim5Path=RESULT
  82.   END
  83.  
  84.   IF nr=3 THEN DO
  85.     FileSelect "Name '"AdoragePath"' TITLE 'Adorage - Choose Path' PTEXT 'Ok..'"
  86.     IF RC~=0 THEN return
  87.     AdoragePath=RESULT
  88.   END
  89.  
  90.   IF nr=4 THEN DO
  91.     FileSelect "Name '"SFramePath"' TITLE 'Single Frame - Choose Path' PTEXT 'Ok..'"
  92.     IF RC~=0 THEN return
  93.     SFramePath=RESULT
  94.   END
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.   IF Open(save,"clariSSA.path",'Write') THEN DO
  103.     call Writeln(save,"GADGETS")
  104.  
  105.     call Writeln(save," GADGET PAGE 1 1 'SSA Load' LoadAnim Req Name '"SSAPath"'")
  106.     call Writeln(save," GADGET PAGE 1 2 'Anim5 Load' LoadAnim Req Name '"Anim5Path"'")
  107.     call Writeln(save," GADGET PAGE 1 3 'Adorage Load' LoadAnim Req Name '"AdoragePath"'")
  108.     call Writeln(save," GADGET PAGE 1 4 'Single Frame Load' LoadAnim Req Name '"SFramePath"'")
  109.  
  110.     call Writeln(save,"#")
  111.     call Close(save)
  112.   END
  113.   RETURN
  114. END
  115.