.net 1998 February/netCD41.iso/pc/DEMO16.DIR/Internal_159.ls

Text File | 1997-12-08 | 689 b | 30 lines

on enterFrame
  global pointCursor
  repeat with n = 23 to 28
    if rollOver(n) then
      if not (the puppet of sprite n) then
        puppetSprite(n, 1)
        set the cursor of sprite n to pointCursor
        set the member of sprite n to the number of the member of sprite n + 1
      end if
      next repeat
    end if
    puppetSprite(n, 0)
  end repeat
  repeat with n = 7 to 9
    if rollOver(n) then
      if not (the puppet of sprite n) then
        puppetSprite(n, 1)
        set the cursor of sprite n to pointCursor
        set the blend of sprite n to 100
      end if
      next repeat
    end if
    puppetSprite(n, 0)
  end repeat
end

on exitFrame
  go(the frame)
end