home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / playsk / dressup.dxr / 00065.ls < prev    next >
Encoding:
Text File  |  1996-06-30  |  1.1 KB  |  42 lines
  1. on exitFrame
  2.   global gMov, gCurrentSprite
  3.   if gMov = 1 then
  4.     set the locH of sprite 45 to the mouseH
  5.     set the locV of sprite 45 to the mouseV
  6.   end if
  7.   checkRollovers()
  8.   updateStage()
  9.   go(the frame)
  10. end
  11.  
  12. on checkRollovers
  13.   global gHighlightList, gOriginalList
  14.   if the visible of sprite 45 = 0 then
  15.     repeat with channel = 20 to 24
  16.       if rollOver(channel) then
  17.         puppetSprite(channel, 1)
  18.         set the castNum of sprite channel to the number of member getAt(gHighlightList, channel - 19)
  19.         next repeat
  20.       end if
  21.       set the castNum of sprite channel to the number of member getAt(gOriginalList, channel - 19)
  22.       puppetSprite(channel, 0)
  23.     end repeat
  24.     if rollOver(46) then
  25.       puppetSprite(46, 1)
  26.       set the castNum of sprite 46 to the number of member "20ICY004.000"
  27.     else
  28.       set the castNum of sprite 46 to the number of member "20ICX004.000"
  29.       puppetSprite(46, 0)
  30.     end if
  31.   end if
  32. end
  33.  
  34. on mouseDown
  35.   if (the clickOn > 19) and (the clickOn < 25) then
  36.     whichButton()
  37.   else
  38.     whichbodypart()
  39.   end if
  40.   updateStage()
  41. end
  42.