home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 2 / sauce-n-code-02.adf / ASCII_Source / WB2.asc < prev    next >
Text File  |  1995-07-02  |  3KB  |  180 lines
  1. '
  2. '******************************************
  3. '
  4. '            Workbench 2 Effects   
  5. '            ------------------- 
  6. '
  7. '            By Malcolm Lavery   
  8. '
  9. '         And Neil Wright (C)1993
  10. '
  11. '****************************************
  12. '
  13. '
  14. Fade 1 : Wait 10
  15. Screen Open 0,640,256,16,Hires
  16. Palette $0,$FFF,,,$CCC,$EEE,$999,$333,$88F,$A00,$800,$A0,$80,$A,$8
  17. _WB2_MOUSE
  18. Curs Off : Cls 0 : Flash Off 
  19. Limit Mouse 0,0 To 640,500
  20. '
  21. '
  22. Reserve Zone 10
  23. '
  24. '
  25. _WB2_DISPLAY[0,0,640,10,0,8]
  26. _WB2_DISPLAY[0,11,640,250,0,6]
  27. _WB2_DISPLAY[7,15,625,236,1,6]
  28. '
  29. Ink 0,8
  30. Text 3,7,"FILE : Workbench 2 Effects"
  31. '
  32. '
  33. _WB2_BUTTON[1,20,20,200,10,0,"PRESS",6,0]
  34. _WB2_BUTTON[2,20,40,200,10,0,"And press here!",6,0]
  35. _WB2_BUTTON[3,20,60,600,20,0,"Any size buttons can be drawn",6,0]
  36. _WB2_BUTTON[4,20,90,470,150,0,"BIG BUGGER",6,0]
  37. _WB2_BUTTON[10,520,225,100,20,0,"QUIT!",6,0]
  38. '
  39. '
  40. '
  41. '
  42. Do 
  43.    '
  44.    '
  45.    '
  46.    TEST=Mouse Zone
  47.    TESTTWO=Mouse Key
  48.    '
  49.    '
  50.    If TESTTWO=1 and TEST=1
  51.       _WB2_BUTTON[1,20,20,200,10,1,"PRESS",8,1]
  52.       _WB2_BUTTON[1,20,20,200,10,0,"PRESS",6,0]
  53.    End If 
  54.    '
  55.    '
  56.    If TESTTWO=1 and TEST=2
  57.       _WB2_BUTTON[2,20,40,200,10,1,"MAGIC",8,1]
  58.       _WB2_BUTTON[2,20,40,200,10,0,"And press here!",6,0]
  59.    End If 
  60.    '
  61.    '
  62.    If TESTTWO=1 and TEST=3
  63.       _WB2_BUTTON[3,20,60,600,20,1,"Big and fat is this button!",8,1]
  64.       _WB2_BUTTON[3,20,60,600,20,0,"Any size buttons can be drawn",6,0]
  65.    End If 
  66.    '
  67.    '
  68.    If TESTTWO=1 and TEST=4
  69.       _WB2_BUTTON[4,20,90,470,150,1,"ON!",8,1]
  70.       _WB2_BUTTON[4,20,90,470,150,0,"OFF!",6,0]
  71.    End If 
  72.    '
  73.    '
  74.    If TESTTWO=1 and TEST=10
  75.       _WB2_BUTTON[10,520,225,100,20,1,"BYE BYE!",8,0]
  76.       Fade 1
  77.       Wait 10
  78.       Edit 
  79.    End If 
  80.    '
  81.    '
  82.    '
  83. Loop 
  84. '
  85. '
  86. '
  87. '
  88. Procedure _WB2_BUTTON[_ZONENUMBER,X,Y,WIDTH,HEIGHT,IN_OUT,TEX$,_FILL,_INK]
  89.    '
  90.    '
  91.    '
  92.    LE=Text Length(TEX$)
  93.    X_TEXT=X+WIDTH/2
  94.    Y_TEXT=Y+HEIGHT/2+3
  95.    '
  96.    '
  97.    If IN_OUT=0
  98.       HILIGHT=5
  99.       SHADOW=7
  100.    End If 
  101.    '
  102.    '
  103.    If IN_OUT=1
  104.       HILIGHT=7
  105.       SHADOW=5
  106.    End If 
  107.    '
  108.    '
  109.    Ink HILIGHT
  110.    Draw X,Y To X+WIDTH,Y
  111.    Draw X,Y To X,Y+HEIGHT
  112.    '
  113.    Ink SHADOW
  114.    Draw X+WIDTH,Y To X+WIDTH,Y+HEIGHT
  115.    Draw X+WIDTH,Y+HEIGHT To X,Y+HEIGHT
  116.    '
  117.    Ink _FILL
  118.    Bar X+1,Y+1 To X+WIDTH-1,Y+HEIGHT-1
  119.    '
  120.    Gr Writing 0
  121.    Ink _INK
  122.    Text X_TEXT-LE/2,Y_TEXT,TEX$
  123.    Gr Writing 1
  124.    '
  125.    Set Zone _ZONENUMBER,X,Y To X+WIDTH,Y+HEIGHT
  126.    '  
  127. Repeat : Until Mouse Key=0
  128. End Proc
  129. '
  130. '
  131. '
  132. Procedure _WB2_DISPLAY[X,Y,WIDTH,HEIGHT,IN_OUT,_FILL]
  133.    '
  134.    '
  135.    '
  136.    If IN_OUT=0
  137.       HILIGHT=5
  138.       SHADOW=7
  139.    End If 
  140.    '
  141.    '
  142.    If IN_OUT=1
  143.       HILIGHT=7
  144.       SHADOW=5
  145.    End If 
  146.    '
  147.    '
  148.    Ink HILIGHT
  149.    Draw X,Y To X+WIDTH,Y
  150.    Draw X,Y To X,Y+HEIGHT
  151.    '
  152.    Ink SHADOW
  153.    Draw X+WIDTH,Y To X+WIDTH,Y+HEIGHT
  154.    Draw X+WIDTH,Y+HEIGHT To X,Y+HEIGHT
  155.    '
  156.    Ink _FILL
  157.    Bar X+1,Y+1 To X+WIDTH-1,Y+HEIGHT-1
  158.    '
  159.    '
  160.    '
  161. End Proc
  162. '
  163. '
  164. '
  165. Procedure _WB2_MOUSE
  166.    '
  167.    ' * This procedure changes the AMOS Pro Mouse pointer *
  168.    ' * to that of Workbench 2/3.x                        *
  169.    '
  170.    Colour 17,$FFF
  171.    Colour 18,$F33
  172.    Colour 19,$0
  173.    '
  174. End Proc
  175.  
  176.  
  177.  
  178.  
  179.  
  180.