home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Scripts2 / 2 / Tile_Image < prev    next >
Encoding:
Text File  |  1995-10-09  |  1.2 KB  |  67 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5. Lines=6
  6. 01=Tile Image
  7. 02= 
  8. 03=This script will take the current
  9. 04=image in TPaint, let you select a
  10. 05=number then Tile the screen using
  11. 06=the current image.
  12. */
  13.  
  14. options results
  15.  
  16. arg Num TotalNum
  17. Address "DigiPaint"
  18.  
  19.     if Num < 2 then do
  20.         Address CT_1 SetString "4"
  21.         Address CT_1 GetString "Enter # To Tile\On The X Axis!"
  22.         AnswerA = result
  23.         Address CT_1 SetString "4"
  24.         Address CT_1 GetString "Enter # To Tile\On The Y Axis!"
  25.         AnswerB = result
  26.         call open OutData,"RAM:CT-TPTI",'W'
  27.         call writeln OutData,AnswerA
  28.         call writeln OutData,AnswerB
  29.         call close OutData
  30.         end
  31.     else do
  32.         call open InData,"RAM:CT-TPTI",'R'
  33.         AnswerA = readln(InData)
  34.         AnswerB = readln(InData)
  35.         call close InData
  36.         end
  37.  
  38.       XVal="$"||right(d2x(AnswerA),3,'0')||"0"
  39.       YVal="$"||right(d2x(AnswerB),3,'0')||"0"
  40.     'Maxc'
  41.       'Maxe'
  42.       'Swap'
  43.       'Clrs'
  44.       'Cbx0'
  45.       'Flon'
  46.     'Bdel'
  47.     'Dotb'
  48.       'Drre'
  49.       'Whsc'
  50.     'Undo'
  51.     'Rubi'
  52.       'Txma'
  53.       'Txva' XVal
  54.       'Tyva' YVal
  55.     'Redo'
  56.       'Flof'
  57.       'Pmcl'
  58.     'Cpic'
  59.     'Swap'
  60.     'Dswa'
  61.     XVal="$"||right(d2x(1),3,'0')||"0"
  62.     YVal="$"||right(d2x(1),3,'0')||"0"
  63.     'Txva' XVal
  64.     'Tyva' YVal
  65.     'pmcl'
  66. exit
  67.