home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / refwaug.dxr / 00017_REFSetupStage.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  855 b   |  25 lines
  1. on REFSetupStage s
  2.   global IFLButtonList, IFLReferenceNameSprite, REFBackImage, REFLastActive
  3.   if s = 1 then
  4.     repeat with f = 1 to count(IFLButtonList)
  5.       set ThisTempList to getAt(IFLButtonList, f)
  6.       setAt(ThisTempList, 3, the locH of sprite getAt(ThisTempList, 1))
  7.     end repeat
  8.     repeat with t = 39 to 47
  9.       if t <> IFLReferenceNameSprite then
  10.         set the locH of sprite t to 2000
  11.       end if
  12.     end repeat
  13.     set the castNum of sprite 3 to 56
  14.     updateStage()
  15.   end if
  16.   set the castNum of sprite 2 to getAt(getAt(REFBackImage, s + 1), 1)
  17.   set the locV of sprite 2 to getAt(getAt(REFBackImage, s + 1), 2)
  18.   set the locH of sprite 2 to getAt(getAt(REFBackImage, s + 1), 3)
  19.   set the ink of sprite 2 to getAt(getAt(REFBackImage, s + 1), 4)
  20.   if REFLastActive = 1 then
  21.     REFReplaceLinesButtons()
  22.   end if
  23.   updateStage()
  24. end
  25.