home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / INTPCW09.Dxr / 00004_IntSetUp.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  604 b   |  14 lines
  1. on IntSetUp
  2.   global IntMasterList, IntHighLightSprite, IntLeave
  3.   repeat with t = 1 to count(IntMasterList)
  4.     if getAt(getAt(IntMasterList, t), 1) <> IntHighLightSprite then
  5.       set the member of sprite getAt(getAt(IntMasterList, t), 1) to member getAt(getAt(IntMasterList, t), 2)
  6.       set the loc of sprite getAt(getAt(IntMasterList, t), 1) to point(getAt(getAt(IntMasterList, t), 3), getAt(getAt(IntMasterList, t), 4))
  7.       set the ink of sprite getAt(getAt(IntMasterList, t), 1) to getAt(getAt(IntMasterList, t), 5)
  8.     end if
  9.   end repeat
  10.   updateStage()
  11.   set IntLeave to 0
  12.   go("Intro")
  13. end
  14.