home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / intwpc08.dxr / 00011_IFLSkipBut.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  674 b   |  23 lines
  1. on IFLSkipBut
  2.   global IFLSkipList, IFLGone
  3.   if rollOver(20) then
  4.     set the castNum of sprite 20 to 174
  5.     if the mouseDown then
  6.       repeat with t = 1 to count(IFLSkipList)
  7.         set the locH of sprite getAt(getAt(IFLSkipList, t), 1) to getAt(getAt(IFLSkipList, t), 2)
  8.         set the locV of sprite getAt(getAt(IFLSkipList, t), 1) to getAt(getAt(IFLSkipList, t), 3)
  9.       end repeat
  10.       set the locH of sprite 31 to 2000
  11.       repeat with d = 12 to 16
  12.         set the locH of sprite d to 2000
  13.       end repeat
  14.       updateStage()
  15.       set IFLGone to 1
  16.       go("IntroFrame")
  17.     end if
  18.   else
  19.     set the castNum of sprite 20 to 173
  20.   end if
  21.   updateStage()
  22. end
  23.