home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / util / blank / SwazBlanker240.lha / SwazBlanker / ModuleDemo < prev    next >
Text File  |  1995-02-15  |  4KB  |  129 lines
  1. /* This script demos the SwazBlanker modules, running each for a while.
  2.    By Osma Ahvenlampi <oahvenla@snakemail.hut.fi> */
  3.  
  4. /* Try to start the server task if not running */
  5.  
  6. if ~show('L','rexxsupport.library') then
  7.     if ~addlib('rexxsupport.library',0,-30,0) then do
  8.         say 'rexxsupport.library not found! Aborting...'
  9.         exit 20
  10.     end
  11.  
  12. if ~show('P','SWAZBLANKER') then do
  13.     say 'SwazBlanker not running!'
  14.     say 'Attempting to start it...'
  15.     address command
  16.     'Run >NIL: SwazBlanker >NIL:'
  17.     'WaitForPort SWAZBLANKER'
  18.     if rc = 5 then do
  19.         say 'Unable to run SwazBlanker!'
  20.         exit 20
  21.     end
  22. end
  23.  
  24. blankers.1.name = 'Alerts'
  25. blankers.1.description = 'This module flashes alert messages.'
  26. blankers.1.delay = 10
  27. blankers.2.name = 'Dimmer'
  28. blankers.2.description = 'Dims the screen.'
  29. blankers.2.delay = 3
  30. blankers.3.name = 'Gravity'
  31. blankers.3.description = 'Bounces some balls around the screen.'
  32. blankers.3.delay = 5
  33. blankers.4.name = 'Headlines'
  34. blankers.4.description = 'Writes funny phrases.'
  35. blankers.4.delay = 15
  36. blankers.5.name = 'Labrynth'
  37. blankers.5.description = 'Solves a maze.'
  38. blankers.5.delay = 5
  39. blankers.6.name = 'Lines'
  40. blankers.6.description = 'Draws lines moving around the screen.'
  41. blankers.6.delay = 5
  42. blankers.7.name = 'Melt'
  43. blankers.7.description = 'Melts the display.'
  44. blankers.7.delay = 5
  45. blankers.8.name = 'Mig'
  46. blankers.8.description = 'Colorful color patterns representing electric charges.'
  47. blankers.8.delay = 10
  48. blankers.9.name = 'Pattern'
  49. blankers.9.description = 'Colorful color patterns.'
  50. blankers.9.delay = 10
  51. blankers.10.name = 'Plazma'
  52. blankers.10.description = 'Plazma color patterns.'
  53. blankers.10.delay = 10
  54. blankers.11.name = 'Pyro'
  55. blankers.11.description = 'Usual fireworks blanker...'
  56. blankers.11.delay = 5
  57. blankers.12.name = 'Quotes'
  58. blankers.12.description = 'Writes funny quotes.'
  59. blankers.12.delay = 15
  60. blankers.13.name = 'Rainfall'
  61. blankers.13.description = 'Monsoon season.'
  62. blankers.13.delay = 5
  63. blankers.14.name = 'Shuffle'
  64. blankers.14.description = 'Shuffles around the display.'
  65. blankers.14.delay = 5
  66. blankers.15.name = 'Spliner'
  67. blankers.15.description = 'Colorful spline moving around the screen.'
  68. blankers.15.delay = 5
  69. blankers.16.name = 'Stars'
  70. blankers.16.description = '3D Rotational starfield.'
  71. blankers.16.delay = 10
  72. blankers.17.name = 'Swarmer'
  73. blankers.17.description = 'Bees chasing wasps.'
  74. blankers.17.delay = 5
  75. blankers.18.name = 'Toasters'
  76. blankers.18.description = 'Flying toasters.'
  77. blankers.18.delay = 5
  78. blankers.19.name = 'Worms'
  79. blankers.19.description = 'Worms eating the display.'
  80. blankers.19.delay = 5
  81.  
  82. /* ok, now we can start the demo */
  83.  
  84. address 'SWAZBLANKER'
  85.  
  86. 'BLANKMOUSE'
  87. say 'SwazBlanker module demo'
  88. say '  This demo shows you all the SwazBlanker modules one by one.'
  89. say '  Just sit back and relax!'
  90. call delay( 25 )
  91.  
  92. /* SwazBlanker ARexx commands:
  93.    QUIT removes BlankerServer
  94.    SHOW displays the configuration GUI
  95.    HIDE hides the GUI
  96.    DISABLE disables SwazBlanker (see the Commodities Exchange)
  97.    ENABLE enables it
  98.    BLANK blanks with the preferred method
  99.    BLANKRANDOM chooses a random module for blanking
  100.    BLANKNORMAL blanks with a plain black screen
  101.    BLANK chooses a specific blanker module
  102.    UNBLANK stops blanking
  103.    BLANKMOUSE blanks the mouse pointer
  104. */
  105.  
  106. i = 1
  107. do while blankers.i.name ~= 'BLANKERS.'i'.NAME'
  108.     say blankers.i.name
  109.     if blankers.i.description = 'BLANKERS.'i'.DESCRIPTION' then
  110.         blankers.i.description = 'No description given.'
  111.     if blankers.i.delay = 'BLANKERS.'i'.DELAY' then
  112.         blankers.i.delay = 10
  113.     say '  ' || blankers.i.description
  114.     call delay( 50 )
  115.     'BLANK' blankers.i.name
  116.     call delay( blankers.i.delay * 50 )
  117.     'UNBLANK'
  118.     i = i + 1
  119. end
  120.  
  121. say 'All done!'
  122. say 'You have seen all the BlankerServer modules.'
  123. say 'Configure BlankerServer to suit your preferences now.'
  124. call delay( 50 )
  125. 'SHOW'
  126.  
  127. EXIT 0
  128.  
  129.