home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / shared.dir / 00947_gridSelection.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  926 b   |  37 lines
  1. on mouseUp
  2.   global frameList, choiceMade
  3.   set mh to the mouseH
  4.   set sph to the locH of sprite the clickOn
  5.   set whSquare to abs((mh - sph) / 69) + 1
  6.   if mh < (sph - 21) then
  7.     nothing()
  8.   else
  9.     if the locH of sprite 31 > 0 then
  10.       clearLists()
  11.     end if
  12.     if choiceMade = 0 then
  13.       set the castNum of sprite 40 to cast "sectionChoose"
  14.       setOffStage("35")
  15.     else
  16.       set the castNum of sprite 35 to 978
  17.     end if
  18.     setOffStage("25,34")
  19.     doZoom2(whSquare)
  20.     setOffStage("43")
  21.     setPuppets(1, 1, 0)
  22.     setPuppets(7, 13, 0)
  23.     setPuppets(26, 26, 0)
  24.     go(string(item whSquare of frameList))
  25.     setPuppets(15, 18, 1)
  26.     setPuppets(20, 21, 1)
  27.     setPuppets(23, 25, 1)
  28.     setPuppets(27, 35, 1)
  29.     setPuppets(40, 46, 1)
  30.     if choiceMade = 1 then
  31.       set the locH of sprite 35 to 454
  32.       set the locV of sprite 35 to 72
  33.       set the castNum of sprite 35 to 978
  34.     end if
  35.   end if
  36. end
  37.