home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / refwjan.dxr / 00017_REFSetupStage.ls < prev    next >
Encoding:
Text File  |  1996-11-07  |  980 b   |  31 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.   else
  16.     if s = 4 then
  17.       set the castNum of sprite 3 to 66
  18.     else
  19.       set the castNum of sprite 3 to 55
  20.     end if
  21.   end if
  22.   set the castNum of sprite 2 to getAt(getAt(REFBackImage, s + 1), 1)
  23.   set the locV of sprite 2 to getAt(getAt(REFBackImage, s + 1), 2)
  24.   set the locH of sprite 2 to getAt(getAt(REFBackImage, s + 1), 3)
  25.   set the ink of sprite 2 to getAt(getAt(REFBackImage, s + 1), 4)
  26.   if REFLastActive = 1 then
  27.     REFReplaceLinesButtons()
  28.   end if
  29.   updateStage()
  30. end
  31.