home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Sound / MSE / modules / Test / Test.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-09-03  |  1.9 KB  |  120 lines
  1. /*
  2.         Test.rexx
  3.  
  4.         MSE Automation demo
  5. */
  6.  
  7.  
  8. /*address "MSE.1"*/
  9. options results
  10.  
  11. call addlib('rexxsupport.library', 0,-30,0)
  12.  
  13. 'Busy' ON
  14.  
  15. /* Stoplight */
  16. 'GetGad' 22 VALUE; oGad.22 = RESULT
  17. do lp = 1 to 3
  18.     do lp2 = 0 to 3
  19.         'SetGad' 22 lp2
  20.         call delay(4)
  21.     end
  22. end
  23. 'SetGad' 22 oGad.22
  24.  
  25. /* Blinds */
  26. 'GetGad' 16 VALUE; oGad.16 = RESULT
  27. do lp = oGad.16 to 0 by -1
  28.     'SetGad' 16 lp
  29.     call delay(2)
  30. end
  31. do lp = 0 to oGad.16
  32.     'SetGad' 16 lp
  33.     call delay(2)
  34. end
  35.  
  36.  
  37. /* Get initial VALUEs */
  38. 'GetGad' 1 VALUE; cGad.1 = RESULT; oGad.1 = cGad.1
  39. 'GetGad' 2 VALUE; cGad.2 = RESULT; oGad.2 = cGad.2
  40. 'GetGad' 3 VALUE; cGad.3 = RESULT; oGad.3 = cGad.3
  41. 'GetGad' 4 VALUE; cGad.4 = RESULT; oGad.4 = cGad.4
  42. 'GetGad' 5 VALUE; cGad.5 = RESULT; oGad.5 = cGad.5
  43.  
  44. MaxValue = max(oGad.1, oGad.2, oGad.3, oGad.4, oGad.5)
  45. MinValue = min(oGad.1, oGad.2, oGad.3, oGad.4, oGad.5)
  46.  
  47. /* Snowfall Effect */
  48. do lp = 0 to MaxValue
  49.     if cGad.1 > 0 then do
  50.         cGad.1 = cGad.1 - 1
  51.         'SetGad' 1 cGad.1
  52.     end
  53.  
  54.     if cGad.2 > 0 then do
  55.         cGad.2 = cGad.2 - 1
  56.         'SetGad' 2 cGad.2
  57.     end
  58.  
  59.     if cGad.3 > 0 then do
  60.         cGad.3 = cGad.3 - 1
  61.         'SetGad' 3 cGad.3
  62.     end
  63.  
  64.     if cGad.4 > 0 then do
  65.         cGad.4 = cGad.4 - 1
  66.         'SetGad' 4 cGad.4
  67.     end
  68.  
  69.     if cGad.5 > 0 then do
  70.         cGad.5 = cGad.5 - 1
  71.         'SetGad' 5 cGad.5
  72.     end
  73. end
  74.  
  75. /* Heaven effect */
  76. do lp = 0 to 127 by 4
  77.     'SetGad' 1 lp
  78.     'SetGad' 2 lp
  79.     'SetGad' 3 lp
  80.     'SetGad' 4 lp
  81.     'SetGad' 5 lp
  82. end
  83. do lp = 1 to 5
  84.     'SetGad' lp 127
  85. end
  86.  
  87.  
  88. /* FallBack effect */
  89. cGad. = 127
  90. do lp = MinValue to 127
  91.     if cGad.1 ~= oGad.1 then do
  92.         cGad.1 = cGad.1 - 1
  93.         'SetGad' 1 cGad.1
  94.     end
  95.  
  96.     if cGad.2 ~= oGad.2 then do
  97.         cGad.2 = cGad.2 - 1
  98.         'SetGad' 2 cGad.2
  99.     end
  100.  
  101.     if cGad.3 ~= oGad.3 then do
  102.         cGad.3 = cGad.3 - 1
  103.         'SetGad' 3 cGad.3
  104.     end
  105.  
  106.     if cGad.4 ~= oGad.4 then do
  107.         cGad.4 = cGad.4 - 1
  108.         'SetGad' 4 cGad.4
  109.     end
  110.  
  111.     if cGad.5 ~= oGad.5 then do
  112.         cGad.5 = cGad.5 - 1
  113.         'SetGad' 5 cGad.5
  114.     end
  115. end
  116.  
  117. 'Request' '"Automation Demo" "Whirl with that!"'
  118. 'Busy' OFF
  119. exit
  120.