home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 2 / Paint_Mode_Xor < prev    next >
Encoding:
Text File  |  1995-10-09  |  607 b   |  31 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 Xor
  7. 02= 
  8. 03=This script will take the current
  9. 04=image in TPaint, let you select a
  10. 05=color then use the XOR 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 ScreenToBack
  20.         'Frbx'
  21.         Address CT_1 Y "140"
  22.         address CT_1 OK_TEXT " OK "
  23.         address CT_1 FYINT "Select Color From Palette Then Click OK!"
  24.         Address CT_1 Y "71"
  25.         Address CT_1 ScreenToFront
  26.         end
  27.     'Pmxo'
  28.     'Whsc'
  29.  
  30. exit
  31.