home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd370 / icon_grabber.amos / icon_grabber.amosSourceCode
AMOS Source Code  |  1991-06-13  |  4KB  |  195 lines
  1. '
  2. '  ICON GRABBER V1.5 
  3. '
  4. '  (c) 1991 by Jurgen Valks
  5. '
  6. Shared AANTAL,IN,X1,Y1,X2,Y2,KLIK
  7. Screen Open 0,320,200,16,Lowres
  8. Palette $0,$0,$FFF
  9. IN=1
  10. Proc SCHERM0
  11. '
  12. Procedure SCHERM0
  13.  Erase 2 : Erase 15 : Led Off 
  14.  Screen Open 1,640,200,4,Hires
  15.  Palette $8,$8,$FFF
  16.  Curs Off : Flash Off 
  17.  Hide On 
  18.  Locate 0,0 : Centre "AMOS ICON GRABBER V1.5 by J.Valks"
  19.  Locate 0,1 : Centre "---------------------------------"
  20.  Locate 0,3 : Centre "INSTRUKTIE'S:"
  21.  Locate 0,5 : Centre "1.  Laad een IFF tekening in. (Lowres, 320*250)    "
  22.  Locate 0,6 : Centre "2.  Kies de optie START GRABBING ICONS.            "
  23.  Locate 0,7 : Centre "3.  Plaats de pointer op het begin punt. (x1 en y1)"
  24.  Locate 0,8 : Centre "4.  Druk op de muis toets,nu hoor je een bel       "
  25.  Locate 0,9 : Centre "5.  Plaats de pointer op het eind punt. (x2 en y2) "
  26.  Locate 0,10 : Centre "6.  Druk op de muis toets,nu hoor je weer een bel. "
  27.  Locate 0,11 : Centre "7.  Je bent nu weer in het menu.                   "
  28.  Locate 0,12 : Centre "8.  Klik op de + om het ICON nummer te verhogen.   "
  29.  Locate 0,13 : Centre "9.  Herhaal 2-8.                                   "
  30.  Locate 0,14 : Centre "10. Kies SAVE ICONS om de ICONS te bewaren.        "
  31.  Locate 0,16 : Centre "Met SHOW ICONS kun je de icon bekijken."
  32.  Locate 0,17 : Centre "Met DELETE ICON wis je de icon.        "
  33.  Locate 0,20 : Centre "LET OP: Het eind punt moet altijd verder liggen als het begin punt, gebeurt dit"
  34.  Locate 0,21 : Centre "        niet, dan moet je het eind punt nogmaals aangeven.                     "
  35.  Locate 0,23 : Centre "DRUK OP EEN TOETS."
  36.  Wait Key 
  37.  SCHERM
  38. End Proc
  39. Procedure SCHERM
  40.  Screen Open 2,320,250,2,Lowres
  41.  Show On 
  42.  Curs Off : Flash Off : Palette $0,$0,
  43.  F$=Fsel$("**","","Load an IFF file")
  44.  If F$="" Then EINDE2
  45.  Screen 1
  46.  Cls 0
  47.  Locate 0,0 : Centre "Loading..."
  48.  Screen Display 1,,,,10
  49.  Screen Hide 2
  50.  Load Iff F$,2
  51.  AANTAL=Screen Colour
  52.  Screen 1
  53.  Cls 0
  54.  Screen Hide 2
  55.  KEY_SCREEN
  56. End Proc
  57. Procedure KEY_SCREEN
  58.  Screen Open 1,640,50,4,Hires
  59.  Curs Off : Flash Off : Change Mouse 2
  60.  Limit Mouse 128,50 To 447,99 : Show On 
  61.  Palette $8,$8,$FFF
  62.  Screen 1 : Cls 
  63.  Screen Show 2 : Screen To Front 1 : Screen 1 : 
  64.  Reserve Zone 7
  65.  Locate 1,1 : Print Border$(Zone$("Start grabbing Icons",1),1)
  66.  Locate 25,1 : Print Border$(Zone$("+",2),1)
  67.  Locate 28,1 : Print Border$(Zone$("-",3),1)
  68.  Locate 33,1 : Print Border$(Zone$("Delete Icon",4),1)
  69.  Locate 48,1 : Print Border$(Zone$("Show Icons ",5),1)
  70.  Locate 63,1 : Print Border$(Zone$("Save Icons ",6),1)
  71.  Locate 63,4 : Print Border$(Zone$("Quit",7),1)
  72.  INUMMER
  73.  LEES_MUIS
  74. End Proc
  75. Procedure INUMMER
  76.  Screen 1
  77.  IN$=Str$(IN)
  78.  Locate 1,4 : Print "Icon nr. :";IN$+" "
  79. End Proc
  80. Procedure LEES_MUIS
  81.  Do 
  82.   Repeat 
  83.   Until Mouse Click=1
  84.   If Mouse Zone=1
  85.    GRAB_IT
  86.   End If 
  87.   If Mouse Zone=2
  88.    Inc IN
  89.   End If 
  90.   If Mouse Zone=3
  91.    Dec IN
  92.    If IN=0
  93.     IN=1
  94.    End If 
  95.   End If 
  96.   If Mouse Zone=4
  97.    If Length(2)>IN or Length(2)=IN
  98.     Del Icon IN
  99.    End If 
  100.   End If 
  101.   If Mouse Zone=5
  102.    LAAT_ICONS_ZIEN
  103.   End If 
  104.   If Mouse Zone=6
  105.    BEWAAR_ICONS
  106.   End If 
  107.   If Mouse Zone=7
  108.    EINDE
  109.   End If 
  110.   INUMMER
  111.  Loop 
  112. End Proc
  113. Procedure GRAB_IT
  114.  Screen To Front 2
  115.  Screen 2
  116.  Limit Mouse 128,42 To 448,298
  117.  Repeat 
  118.  Until Mouse Click=1
  119.  Inc KLIK
  120.  If KLIK=1
  121.   X1=X Mouse-128
  122.   Y1=Y Mouse-42
  123.   Bell 
  124.  End If 
  125.  TERUG:
  126.  Repeat 
  127.  Until Mouse Click=1
  128.  Inc KLIK
  129.  If KLIK=2
  130.   X2=X Mouse-128
  131.   Y2=Y Mouse-42
  132.   If X2<X1
  133.    KLIK=1
  134.    Goto TERUG
  135.   End If 
  136.   If Y2<Y1
  137.    KLIK=1
  138.    Goto TERUG
  139.   End If 
  140.   Bell 
  141.   KLIK=0
  142.   Get Icon 2,IN,X1,Y1 To X2,Y2
  143.   Screen To Front 1
  144.   Screen 1 : Limit Mouse 128,50 To 447,99
  145.   LEES_MUIS
  146.  End If 
  147. End Proc
  148. Procedure LAAT_ICONS_ZIEN
  149.  Screen Open 4,320,250,AANTAL,Lowres
  150.  Curs Off : Flash Off 
  151.  Get Palette 2
  152.  Palette $0,,
  153.  If IN>Length(2)
  154.   Print "Icon not definied !"
  155.   Goto ERUIT
  156.  End If 
  157.  Paste Icon 0,0,IN
  158.  ERUIT:
  159.  Wait 20
  160.  Repeat 
  161.  Until Mouse Key
  162.  Screen Close 4
  163.  Screen To Front 1
  164.  Screen 1
  165.  Limit Mouse 128,50 To 447,99
  166. End Proc
  167. Procedure BEWAAR_ICONS
  168.  F$=Fsel$("**","","Save your icons")
  169.  If F$=""
  170.   Pop Proc
  171.  End If 
  172.  Save F$,2
  173.  Cls 0
  174.  Print "WIL JE TERUG NAAR HET AMOS MENU  J/N"
  175.  Input KEUZE$
  176.  If KEUZE$=Lower$("j") Then EINDE
  177.  If KEUZE$=Lower$("n") Then SCHERM0
  178. End Proc
  179. Procedure EINDE
  180.  Erase 2
  181.  Screen Close 2
  182.  Screen Close 1
  183.  Screen 0
  184.  Print "Loading..."
  185.  Dir$="AMOS_COMPACT2:"
  186.  Run "menu.amos"
  187. End Proc
  188. Procedure EINDE2
  189.  Screen Close 1
  190.  Erase 2
  191.  Screen 0
  192.  Print "loading..."
  193.  Dir$="AMOS_COMPACT2:"
  194.  Run "menu.amos"
  195. End Proc