Computer Buyer 1995 November/SHOWCASE.ISO/files/support.dir/00026_Script_26

Text File | 1994-12-18 | 777b | 29 lines

global gPressed, gserviceList, lastSprite

on exitFrame
  go to the frame
end exitFrame

on idle
  repeat with n = 2 to 12
    if rollover(n) then
      if n <> lastSprite AND the mouseCast = the castNum of sprite n then
        put n into lastSprite
        put getAt(gservicelist,n-1) && "title" into whichtitle
        set the castnum of sprite 17 to the number of cast whichtitle
        if n <> gPressed then
          puppetSprite n, TRUE
          set the castnum of sprite n = the number of cast ("Button "& string(n-1) && "lit")
        end if
      end if
    exit repeat
    end if
  end repeat
  repeat with n = 2 to 12
    if n <> gPressed AND n <> lastSprite then
      puppetSprite n, FALSE
    end if
  end repeat
  updatestage
end