home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Macros / Measure_Time.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-10-21  |  3.1 KB  |  145 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5. */
  6.  
  7. signal on error
  8. signal on syntax
  9. Options Results
  10.  
  11. Main:
  12. call OpenStuff()
  13. call Docs()
  14. call Routine()
  15. call CloseStuff()
  16. exit
  17. return
  18.  
  19. GetFile:
  20.     parse Arg Title, Path
  21.     Address FLY_1 SetString Path
  22.     Address FLY_1 GetFileNameNT Title
  23. return result
  24.  
  25.  
  26. GetPath:
  27.     parse Arg Title, Path
  28.     Address FLY_1 SetString Path
  29.     Address FLY_1 GetPathNameNT Title
  30. return result
  31.  
  32. GetText:
  33.     parse Arg Title, Text
  34.     Address FLY_1 SetString Text
  35.     Address FLY_1 GetStringNT Title
  36. return result
  37.  
  38.  
  39. OpenStuff:
  40.     address command "run CT:FLY"
  41.     do while (POS('FLY_1',SHOW('Ports')) = 0)
  42.         address command "wait 1"
  43.         end
  44.     TOASTERLIB="ToasterARexx.port"
  45.     call remlib('ToasterARexx.port')
  46.     call remlib('PROJECT_REXX_PORT')
  47.     call addlib('PROJECT_REXX_PORT' , 0)
  48.     call addlib(TOASTERLIB,0)
  49. return
  50.  
  51. CloseStuff:
  52.     Address FLY_1 Quit
  53.     call remlib('ToasterARexx.port')
  54.     call remlib('PROJECT_REXX_PORT')
  55.     exit
  56. return
  57.  
  58. YesOrNo: procedure
  59.     parse Arg Title,Yes,No
  60.     Address FLY_1 OK_TEXT Yes
  61.     Address FLY_1 CANCEL_TEXT No
  62.     Address FLY_1 AskYesNoNT Title
  63.     if result = "OK" then YesNo = 1
  64.     else YesNo = 0
  65. return YesNo
  66.  
  67. Info: 
  68.     parse Arg Title,Yes
  69.     Address FLY_1 OK_TEXT Yes
  70.     Address FLY_1 FYINT Title
  71. return
  72.  
  73. FindDrive:
  74.     address command "C:Info >RAM:FLY-List"
  75.     call open TempFile,"RAM:FLY-List",R
  76.     do until eof(TempFile)
  77.         line = readln(TempFile)
  78.         parse var line Drive" "Rest
  79.         if Drive = "FA0:" then 
  80.             Volume = word(Rest,7)":"
  81.     end
  82.     call close TempFile
  83.     address command "Delete >NIL: RAM:FLY-List"
  84. return Volume
  85.  
  86. GetFileName: procedure  
  87.    ARG CompleteName
  88.    c = lastpos("/",CompleteName)
  89.    if c = 0 then c = lastpos(":",CompleteName)
  90.    return substr(CompleteName, c + 1)
  91.  
  92.  
  93. GetPathName: procedure  
  94.    ARG CompleteName
  95.    c = lastpos(":",CompleteName)
  96.    if c = 0 then c = lastpos(":",CompleteName)
  97.    return left(CompleteName,c)
  98.  
  99. Docs:
  100. Answer = YesOrNo(" Do You Need Instructions?"," YES "," NO ")
  101. if Answer = 0 then return 
  102. Text = "This Macro will calculate the time from one\
  103. crouton to another. This can be helpful in\
  104. determining the length an audio clip needs\
  105. to be to cover a certain number of Clips."
  106.  
  107. Answer = YesOrNo(Text," Continue "," Exit ")
  108. if Answer = 0 then call CloseStuff()
  109.  
  110. return
  111.  
  112.  
  113. Routine:
  114. Address FLY_1 OK_TEXT " OK "
  115. Address FLY_1 Y "240"
  116. Address FLY_1 WaitSW "Select First Crouton Then Click Here To Continue!"
  117. First = croutonspot()
  118. Num = 0
  119. Address FLY_1 WaitSW "Select Last Crouton Then Click Here To Continue!"
  120. Address FLY_1 ClickMouse "230|035"
  121. Address FLY_1 Y "0"
  122. Last = croutonspot()
  123. do i = First to Last
  124.     call croutonpick(i)
  125.        if croutontype()~=" AUD" & croutontype()~="ALGO" & croutontype()~="ANIM" & croutontype()~="ILBM" then do
  126.         NewNum = croutongettag(duration)/2
  127.         Num = Num + NewNum
  128.         end
  129. end
  130.  
  131. Address FLY_1 ConvertNum Num
  132. TimeCode = result
  133. Address FLY_1 FYINT "Total Time From Start Of First Crouton\To End Of Last Crouton Is "TimeCode"!"
  134.  
  135. return
  136.  
  137.  
  138. syntax:
  139. error:
  140.     Address FLY_1 OK_TEXT " OK "
  141.     Title = "An Error Was Found With This Macro On Line #"SIGL"!"
  142.     Address FLY_1 FYINT Title
  143.     Address FLY_1 Quit
  144. exit
  145.