Computer Buyer 1995 November/SHOWCASE.ISO/files/vision.dir/00360_Script_360

Text File | 1995-06-14 | 548b | 25 lines

global gLastSprite
on exitFrame
  go to the frame
end

on idle
  repeat with n = 16 to 23
    if rollover(n) then
      if n <> gLastSprite AND the mouseCast = the castNum of sprite n then
        put n into lastSprite
        puppetSprite n, TRUE
        set the castnum of sprite n = the number of cast ("section"& string(n-15) && "lit")
      end if
      exit repeat
    end if
  end repeat

  repeat with n = 16 to 23
    if n <> lastSprite then
      puppetSprite n, FALSE
    end if
  end repeat
  updatestage
end