Computer Buyer 1995 November/SHOWCASE.ISO/files/vision.dir/00406_Script_406

Text File | 1995-06-14 | 583b | 26 lines

global gLastSprite
on exitFrame
  go to the frame
end

on idle
    repeat with n = 17 to 26
      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 ("FinCon"& string(n-16) && "lit")
        end if
        exit repeat
      end if
    end repeat


    repeat with n = 17 to 26
      if n <> lastSprite then
        puppetSprite n, FALSE
      end if
    end repeat
    updatestage
end