home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / shared.dir / 00810_MPALETTE.BMP.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  2.4 KB  |  94 lines
  1. on mouseDown
  2.   global whMenuItem, whMenuCol
  3.   set mh to the mouseH
  4.   set mv to the mouseV
  5.   set offsetV to 23
  6.   set offsetH1 to 5
  7.   set offsetH2 to 161
  8.   set width1 to 148
  9.   set width2 to 131
  10.   set unitV to 28
  11.   set whMenuItem to (mv - (offsetV - unitV)) / unitV
  12.   if (mh > 297) or (whMenuItem > 6) then
  13.     set whMenuItem to 100
  14.   else
  15.     if (whMenuItem > 0) and (whMenuItem < 6) then
  16.       repeat while the stillDown
  17.         if mh > 157 then
  18.           set the castNum of sprite 48 to 800
  19.           set the lineSize of sprite 48 to 2
  20.           set the foreColor of sprite 48 to 26
  21.           spriteBox(48, offsetH2, offsetV + (unitV * whMenuItem) - unitV, offsetH2 + width2, offsetV + (unitV * whMenuItem))
  22.           updateStage()
  23.           set whMenuCol to 2
  24.           next repeat
  25.         end if
  26.         set the castNum of sprite 48 to 800
  27.         set the lineSize of sprite 48 to 2
  28.         set the foreColor of sprite 48 to 26
  29.         spriteBox(48, offsetH1, offsetV + (unitV * whMenuItem) - unitV, offsetH1 + width1, offsetV + (unitV * whMenuItem))
  30.         updateStage()
  31.         set whMenuCol to 1
  32.       end repeat
  33.     end if
  34.   end if
  35. end
  36.  
  37. on mouseUp
  38.   global whMenuItem, whMenuCol, dis
  39.   setOffStage("47,48")
  40.   setPuppets(47, 48, 0)
  41.   updateStage()
  42.   if whMenuCol = 2 then
  43.     set whMenuItem to whMenuItem - 6
  44.   end if
  45.   if whMenuItem = -5 then
  46.     doArtMenu()
  47.   end if
  48.   if whMenuItem = -4 then
  49.     doImgMenu()
  50.   end if
  51.   if whMenuItem = -3 then
  52.     keywordOpen()
  53.   end if
  54.   if whMenuItem = -2 then
  55.     helpOpen()
  56.   end if
  57.   if whMenuItem = -1 then
  58.     notepadOpen()
  59.   end if
  60.   if whMenuItem = 1 then
  61.     set dis to 1
  62.     setPuppets(48, 48, 1)
  63.     set the stretch of sprite 48 to 0
  64.     set the castNum of sprite 48 to 797
  65.     set the locH of sprite 48 to 0
  66.     set the locV of sprite 48 to 20
  67.     updateStage()
  68.   end if
  69.   if whMenuItem = 2 then
  70.     set dis to 1
  71.     setPuppets(48, 48, 1)
  72.     set the stretch of sprite 48 to 0
  73.     set the castNum of sprite 48 to 797
  74.     set the locH of sprite 48 to 0
  75.     set the locV of sprite 48 to 20
  76.     updateStage()
  77.   end if
  78.   if whMenuItem = 3 then
  79.     set dis to 1
  80.     setPuppets(48, 48, 1)
  81.     set the stretch of sprite 48 to 0
  82.     set the castNum of sprite 48 to 797
  83.     set the locH of sprite 48 to 0
  84.     set the locV of sprite 48 to 20
  85.     updateStage()
  86.   end if
  87.   if whMenuItem = 4 then
  88.     doPrevScr()
  89.   end if
  90.   if whMenuItem = 5 then
  91.     doQuit()
  92.   end if
  93. end
  94.