home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 2 / Paint_Mode_Darken < prev    next >
Encoding:
Text File  |  1995-10-09  |  752 b   |  38 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5. Lines=5
  6. 01=Paint Mode Darken
  7. 02= 
  8. 03=This script will take the current
  9. 04=image in TPaint, let you select a
  10. 05=number then use the DARKEN operator.
  11. */
  12.  
  13. options results
  14.  
  15. arg Num TotalNum
  16. Address "DigiPaint"
  17.  
  18.     if Num < 2 then do
  19.         Address CT_1 SetString "1"
  20.         Address CT_1 GetString "Enter # Of Times\To Apply Darken"
  21.         Answer = result
  22.         call open OutData,"RAM:CT-TPDN",'W'
  23.         call writeln OutData,Answer
  24.         call close OutData
  25.         end
  26.     else do
  27.         call open InData,"RAM:CT-TPDN",'R'
  28.         Answer = readln(InData)
  29.         call close InData
  30.         end
  31.  
  32.     '8rgb ' 255 255 255
  33.     do i = 1 to Answer
  34.         'Pmdn'
  35.         'Whsc'
  36.         end
  37. exit
  38.