home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / refwaug.dxr / 00018_REFOriginalStage.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  707 b   |  18 lines
  1. on REFOriginalStage
  2.   global IFLButtonList, IFLReferenceNameSprite, REFMasterList, REFLastActive
  3.   repeat with f = 1 to count(IFLButtonList)
  4.     set ThisTempList to getAt(IFLButtonList, f)
  5.     if getAt(ThisTempList, 1) <> IFLReferenceNameSprite then
  6.       set the locH of sprite getAt(ThisTempList, 1) to getAt(ThisTempList, 3)
  7.     end if
  8.   end repeat
  9.   repeat with g = 2 to 3
  10.     set the castNum of sprite g to getAt(getAt(REFMasterList, g - 1), 2)
  11.     set the locV of sprite g to getAt(getAt(REFMasterList, g - 1), 3)
  12.     set the locH of sprite g to getAt(getAt(REFMasterList, g - 1), 4)
  13.     set the ink of sprite g to getAt(getAt(REFMasterList, g - 1), 5)
  14.   end repeat
  15.   updateStage()
  16.   REFFlash(22)
  17. end
  18.