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

Text File | 1997-12-08 | 813 b | 34 lines

on enterFrame
  global pointCursor
  repeat with n = 23 to 27
    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 the scoreColor of sprite n <> 1 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
      end if
      next repeat
    end if
    puppetSprite(n, 0)
  end repeat
end

on exitFrame
  if the movieTime of sprite 36 < 2770 then
    go(the frame)
  end if
end