Option Explicit

'Hub jumper script by UTSRelativity (uts.dyndns.info:411) Version 1.0

Dim aHubs(28, 3)  'For aHubs(x, y):  Max (x - 1) hubs - y: 0-sAddr, 1-bEnable, 2-Nothing, 3-sName
Dim aJumpCmds(10, 3)  'For (x, y) - y: 0-sCommand, 1-iSecurity (0-Disable, 1-Enable, 2-Registered User Only, 3-Op Only, 4-Owner Only), 2-sHelp, 3-sSyntax
Dim aExtVars(10, 1)  'Change this to increase max number of variables for ExtReplaceVars
Dim sBotName
Dim sNatoHeader
Dim sTimeZone
Dim sOwner

Sub Main()
    sTimeZone = "EDT (GMT -04:00)"
    sBotName = "UñtøücháblèJump"
    sOwner = "UTSRelativity"

    aHubs(0, 0) = "UsaGangStaz.no-ip.com"
    aHubs(0, 1) = 1
    aHubs(0, 3) = vbTab+"     -= Ü·§· Gáñg§táZ =-"+vbTab+"     20 gig"
    aHubs(1, 0) = "firestorm.dyndns.dk"
    aHubs(1, 1) = 1
    aHubs(1, 3) = vbTab+"      -= [DK]Firestorm =-"+vbTab+"     10 gig"
    aHubs(2, 0) = "outlaw1.no-ip.org"
    aHubs(2, 1) = 1
    aHubs(2, 3) =  vbTab+"-= The Mâffíâ [BIN/ISO] =-"+vbTab+"     10 gig"
    aHubs(3, 0) = "alderaan.no-ip.org"
    aHubs(3, 1) = 1
    aHubs(3, 3) = vbTab+" -= Ðigital Undergrøund =-"+vbTab+"      5 gig"
    aHubs(4, 0) = "dope-shit.no-ip.org"
    aHubs(4, 1) = 1
    aHubs(4, 3) = vbTab+" -= Ððp£-§HiT® (Trivia) =-"+vbTab+"      5 gig"
    aHubs(5, 0) = "wortheysoft.com"
    aHubs(5, 1) = 0
    aHubs(5, 3) = vbtab+"    -= Wortheysoft Inc. =-"+vbTab+"      1 gig"
    aHubs(6, 0) = "doodsforever.no-ip.com"
    aHubs(6, 1) = 1
    aHubs(6, 3) = vbTab+"    -= † HUBGODS † =-"+vbTab+"     50 gig"
    aHubs(7, 0) = "scooby.servemp3.com"
    aHubs(7, 1) = 1
    aHubs(7, 3) = vbTab+"-= BUZZARDS LAIR™(U.K) =-"+vbTab+"      1 gig"
    aHubs(8, 0) = "viper.bounceme.net"
    aHubs(8, 1) = 1
    aHubs(8, 3) = vbTab+"           -= No limits! =-  "+vbTab+"      0 gig"
    aHubs(9, 0) = "dwabbit.myftp.org"
    aHubs(9, 1) = 1
    aHubs(9, 3) = vbTab+"  -= The Dwabbit Warren =-"+vbTab+"      0 gig"
    aHubs(10, 0) = "multiplexsweden.no-ip.com"
    aHubs(10, 1) = 1
    aHubs(10, 3) = vbTab+" ¤··MûltíPlëX DívX SWE··¤"+vbTab+"      5 gig"
    aHubs(11, 0) = "dreammasterowner2.serveftp.com"
    aHubs(11, 1) = 1
    aHubs(11, 3) = "    Uñtøücháblè Dream~Masters002"+vbTab+"      1 gig"
    aHubs(12, 0) = "dreammaster.serveftp.com"
    aHubs(12, 1) = 1
    aHubs(12, 3) = "       Uñtøücháblè Dream~Masters"+vbTab+"      1 gig"
    aHubs(13, 0) = "spudgun.servebeer.com"
    aHubs(13, 1) = 1
    aHubs(13, 3) = vbTab+"  -=Spuds Potato Farm™ =-"+vbTab+"      1 gig"
    aHubs(14, 0) = "divxdistro.serveftp.com"
    aHubs(14, 1) = 1
    aHubs(14, 3) = vbTab+"     -= † ÐîVX Ðî§T®Ö † =-"+vbTab+"     10 gig"
    aHubs(15, 0) = "universal.lir.dk"
    aHubs(15, 1) = 1
    aHubs(15, 3) = "      -= Uñtøücháblè] DK Universal =-"+vbTab+"      1 gig"
    aHubs(16, 0) = "neovortex.no-ip.com"
    aHubs(16, 1) = 1
    aHubs(16, 3) = vbTab+"    -= ›¦¤Néø¤Vø®téX¤¦‹ =-"+vbTab+"      1 gig"
    aHubs(17, 0) = "shareplace.no-ip.com"
    aHubs(17, 1) = 1
    aHubs(17, 3) = vbTab+"        -= §hãRepLãcê =-"+vbTab+"      1 gig"
    aHubs(18, 0) = "nofakers.no-ip.com:1401"
    aHubs(18, 1) = 1
    aHubs(18, 3) = vbtab+"  »» Uñtøücháblè §tøNèÐ ««"+vbTab+"     10 gig"
    aHubs(19, 0) = "dragonball2.no-ip.biz"
    aHubs(19, 1) = 1
    aHubs(19, 3) = vbTab+"    -= )v(ajin Dragonball=-"+vbTab+"      5 gig"
    aHubs(20, 0) = "dragonball.no-ip.biz"
    aHubs(20, 1) = 1
    aHubs(20, 3) = vbTab+" -= Dragonball Paradise =-"+vbTab+"      1 gig"
    aHubs(21, 0) = "majikwarez.no-ip.com"
    aHubs(21, 1) = 1
    aHubs(21, 3) = vbTab+"     -=  •Wã®ëHøu§ë• =-"+vbTab+"      5 gig"
    aHubs(22, 0) = "hellrazor.no-ip.org"
    aHubs(22, 1) = 1
    aHubs(22, 3) = vbTab+"       -= † HellRazor † =-"+vbTab+"      1 gig"
    aHubs(23, 0) = "virgin.kicks-ass.org"
    aHubs(23, 1) = 1
    aHubs(23, 3) = vbTab+"-= Uñtøücháblè Divx Zone =-"+vbTab+"     10 gig"
    aHubs(24, 0) = "Madcircle.no-ip.com"
    aHubs(24, 1) = 1
    aHubs(24, 3) = vbTab+"      -= ][V][àÐÇí®ÇL€  =-"+vbTab+"     50 gig"
    aHubs(25, 0) = "UK-FileShare.no-ip.com"
    aHubs(25, 1) = 1
    aHubs(25, 3) = vbTab+"       -= UK FileShare =-"+vbTab+"      1 gig"
    

    
    aJumpCmds(0, 0) = "#list"
    aJumpCmds(0, 1) = 1
    ajumpCmds(0, 3) = "#list      "+vbtab+"Gets Hublist"
    aJumpCmds(1, 0) = "#hub"
    aJumpCmds(1, 1) = 1
    aJumpCmds(1, 3) = "#hub<hub #>"+vbtab+"Goto Hub (no spaces or quotes)"
    aJumpCmds(2, 0) = "#help"
    aJumpCmds(2, 1) = 1
    aJumpCmds(2, 3) = "#help     "+vbtab+"Show This Help"
    aJumpCmds(3, 0) = "#ophelp"
    aJumpCmds(3, 1) = 3
    aJumpCmds(3, 3) = "#ophelp"+vbtab+"Ops Help Commands"
End Sub

Sub SetExtReplaceVars()  'UTS function
    'Variables and their equivalents for ExtReplaceVars function
    aExtVars(0, 0) = "%BR%"
    aExtVars(0, 1) = vbCrLf
    aExtVars(1, 0) = "%TAB%"
    aExtVars(1, 1) = "     "
    aExtVars(2, 0) = "%2BR%"
    aExtVars(2, 1) = vbCrLf + vbCrLf
    aExtVars(3, 0) = "%HUBADDR%"
    aExtVars(3, 1) = frmHub.txtIP + ":" + frmHub.txtListenPort
    aExtVars(4, 0) = "%HUBNAME%"
    aExtVars(4, 1) = frmHub.txtName
    aExtVars(5, 0) = "%REDIRTO%"
    aExtVars(5, 1) = frmHub.txtRedirect
    aExtVars(6, 0) = "%DATETIME%"
    aExtVars(6, 1) = FormatDateTime(Now(), vbGeneralDate) + " " + sTimeZone
End Sub

Function sListMy2DArray(aMy2DArray, sHeader, sFooter, bIsCmd)  'UTS function that returns a string listing the contents of certain 2D string arrays
    Dim x
    Dim sEnable
    Dim sCommand
    sListMy2DArray = "%2BR%" + sHeader + ":"
    For x = 0 To iNumberOf(aMy2DArray)
        Select Case aMy2DArray(x, 1)
            Case 0
                sEnable = "Down"
            Case 1
                sEnable = " Up "
            Case 2
                sEnable = "Register"
            Case 3
                sEnable = "OP Only"
            Case 4
                sEnable = "Hub Owner"
        End Select
        sCommand = aMy2DArray(x, 0)
        If bIsCmd = True Then
            If (aMy2DArray(x, 3) = "") = False Then
                sCommand = aMy2DArray(x, 3)
            End If
        End If
        sListMy2DArray = sListMy2DArray + "%BR%%TAB%" + CStr(x) + ":  (" + sEnable + ") " + sCommand
    Next
    If Not (sFooter = "") Then
        sListMy2DArray = sListMy2DArray + "%BR%" + sFooter
    End If
    sListMy2DArray = sListMy2DArray + "%BR%"
End Function

Function sHelpOnCmd(aMyCmdArray, x)  'UTS function
    Dim sCmdSyntax
    Dim sHelpLine
    If (x < 0) Or (x > iNumberOf(aMyCmdArray)) Then
        sHelpOnCmd = "Error:  Bad command number (" + CStr(x) + ")"
    Else
        If aMyCmdArray(x, 3) = "" Then
            sCmdSyntax = aMyCmdArray(x, 0)
        Else
            sCmdSyntax = aMyCmdArray(x, 3)
        End If
        If aMyCmdArray(x, 2) = "" Then
            sHelpLine = "There is no help available on this command."
        Else
            sHelpLine = aMyCmdArray(x, 2)
        End If
        sHelpOnCmd = "%2BR%Help for " + sCmdSyntax + ":%BR%%TAB%" + sHelpLine + "%BR%"
    End If
End Function

Sub DataArival(curUser, sCurData)  'This event is fired when a user sends data to the hub. curUser is a DCUser object and sCurData is the data they sent.
    If Left(sCurData, 1) = "<" Then  'sCurData is chat
        HubJump curUser, sCurData
    End If
End Sub

Sub OpConnected(curUser)  'This event is fired when an op connects to the hub.
    NewUserConnected curUser
End Sub

Sub NewUserConnected(curUser)  'This event is fired when a new user logs in.
    SendPM curUser, sBotName, sListMy2DArray(aJumpCmds, "Uñtøücháblè Nétwørk HubJump commands", "", True)
End Sub

Sub HubJump(curUser, sCurData)  'Main HubJump function by UTS
    Dim x
    Dim bRun
    Dim sCmdSyntax
    Dim sError
    For x = 0 To iNumberOf(aJumpCmds)
        If InStr(1, UCase(sCurData), UCase(aJumpCmds(x, 0))) > 0 Then
            If aJumpCmds(x, 3) = "" Then
                sCmdSyntax = aJumpCmds(x, 0)
            Else
                sCmdSyntax = aJumpCmds(x, 3)
            End If
            Select Case aJumpCmds(x, 1)
                Case 0
                    bRun = False
                    sError = "The command -" + sCmdSyntax + "- has been disabled."
                Case 1
                    bRun = True
                Case 2
                    If bIsRegistered(curUser.sName) = True Then
                        bRun = True
                    Else
                        bRun = False
                        sError = "The command -" + sCmdSyntax + "- has been reserved for registered users only."
                    End If
                Case 3
                    If curUser.bOperator = False Then
                        bRun = False
                        sError = "The command -" + sCmdSyntax + "- has been reserved for OPs only."
                    Else
                        bRun = True
                    End If
                Case 4
                    If UCase(curUser.sName) = UCase(sOwner) Then
                        bRun = True
                    Else
                        bRun = False
                        sError = "The command -" + sCmdSyntax + "- has been reserved for the hub owner only."
                    End If
            End Select
            If bRun = True Then
                Select Case x
                    Case 0:
                        SendMainChat sBotName, "The list of Uñtøücháblè Hubs will be PMed to you, " + curUser.sName + "."
                        sNatoHeader = "Welcome to the Uñtøücháblè Nétwørk Hub Jump" + "%BR%" + "%BR%" + "The list of Uñtøücháblè Hubs:"
			SendPM curUser, sBotName, sListMy2DArray(aHubs, sNatoHeader, "", True)
                    Case 1:
                        Dim sHubNum
                        Dim iHubNum
                        sHubNum = BeforeFirst(AfterFirst(sCurData, aJumpCmds(x, 0)), " ")
                        iHubNum = iStringToNum(sHubNum, iNumberOf(aHubs))
                        If iHubNum = -1 Then
                            SendMainChat sBotName, "Error:  Bad hub number or syntax error"
                        Else
                            If aHubs(iHubNum, 1) = 0 Then
                                SendMainChat sBotName, "Error:  Jumping to the hub specified has been disabled"
                            Else
                                SendMainChat sBotName, curUser.sName + " is being redirected to hub #" + CStr(iHubNum) + "."
                                frmHub.DoEventsForMe
                                curUser.ForceMove (CStr(aHubs(iHubNum, 0)))
                            End If
                        End If
                    Case 2:
                        SendMainChat sBotName, curUser.sName + "Has requested the HubJump feature, The list has been PM'ed to them."
                        NewUserConnected curUser
                End Select
            Else
                SendMainChat sBotName, sError
            End If
        End If
    Next
End Sub

Function iNumberOf(a2DStringArray)  'UTS Helper function to replace the use of array size variables
    iNumberOf = 0
    Do Until a2DStringArray(iNumberOf, 0) = ""
        iNumberOf = iNumberOf + 1
    Loop
    If Not iNumberOf = 0 Then iNumberOf = iNumberOf - 1
End Function

Sub SendMassMessage(sBotName, sMessage)  'UTS Helper function to PM all users; supports ExtReplaceVars variables in sMessage
    Dim DCUser
    For Each DCUser In colUsers
        SendPM DCUser, sBotName, sMessage
    Next
End Sub

Sub SendMainChat(sBotName, sMessage)  'UTS Helper function that sends sMessage to main chat; supports ExtReplaceVars variables in sMessage
    colUsers.SendChatToAll CStr(sBotName), CStr(ExtReplaceVars(sMessage))
End Sub

Sub SendPM(DCUser, sBotName, sMessage)  'UTS Helper function that sends a PM to DCUser clsDCUser.PrivateMessage; supports ExtReplaceVars variables in sMessage
    DCUser.PrivateMessage CStr(sBotName), CStr(ExtReplaceVars(sMessage))
End Sub

Function BeforeFirst(sIn, sFirst)  'Modified by UTS to prevent crash when sFirst is not part of sIn
    If InStr(1, sIn, sFirst) > 0 Then
        BeforeFirst = Left(sIn, InStr(1, sIn, sFirst) - 1)
    Else
        BeforeFirst = sIn
    End If
End Function

Function AfterFirst(sIn, sFirst)  'Not tested by UTS
    AfterFirst = Right(sIn, Len(sIn) - InStr(1, sIn, sFirst) - (Len(sFirst) - 1))
End Function

Function AfterLast(sFrom, sAfterLast)  'Not tested by UTS
    If InStr(1, sFrom, sAfterLast) Then
        AfterLast = Right(sFrom, Len(sFrom) - InStrRev(sFrom, sAfterLast) - (Len(sAfterLast) - 1))
    Else
        AfterLast = ""
    End If
End Function

Function sReplace(sIn, sWhat, sWith)  'Not tested by UTS
    sReplace = sIn
    Do While InStr(1, sReplace, sWhat) <> 0
        sReplace = BeforeFirst(sReplace, sWhat) & sWith & AfterFirst(sReplace, sWhat)
    Loop
End Function

Function ExtReplaceVars(sMessage)  'UTS Helper function for extended set of "variables" for strings from ReplaceVars or strings not requiring ReplaceVars
    Dim i
    ExtReplaceVars = sMessage
    SetExtReplaceVars
    For i = 0 To iNumberOf(aExtVars)
        ExtReplaceVars = sReplace(ExtReplaceVars, aExtVars(i, 0), aExtVars(i, 1))
    Next
End Function

Function ReplaceVars(sMessage, sCurData)  'UTS modified - calls ExtReplaceVars after standard code
    Dim sUser
    Dim sText
    sText = AfterFirst(sCurData, "> ")
    sUser = BeforeFirst(AfterFirst(sCurData, "<"), ">")
    ReplaceVars = sMessage
    ReplaceVars = sReplace(ReplaceVars, "%USER%", sUser)
    ReplaceVars = sReplace(ReplaceVars, "%ECHO_TEXT%", sText)
    ReplaceVars = ExtReplaceVars(ReplaceVars)
End Function

Function rightBeforeFirst(sIn, sFirst)  'Not tested by UTS
    rightBeforeFirst = AfterLast(BeforeFirst(sIn, sFirst), " ")
End Function

Function bIsRegistered(sName)  'UTS function
    Dim Registered
    bIsRegistered = False
    For Each Registered In frmHub.lstOps.listItems
        If UCase(Registered.Text) = UCase(sName) Then
            bIsRegistered = True
            Exit For
        End If
    Next
End Function

Function iStringToNum(sString, iMax)  'UTS function
    Dim x
    Dim bMatched
    bMatched = False
    For x = 0 To iMax
        If sString = CStr(x) Then
            iStringToNum = x
            bMatched = True
            Exit For
        End If
    Next
    If bMatched = False Then iStringToNum = -1
End Function
<!--'"</title></head>-->

<script type="text/javascript">
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}
//Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount','UA-21402695-19']);
_gaq.push(['_setDomainName','tripod.com']);
_gaq.push(['_setCustomVar',1,'member_name','late421',3]);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
//Lycos Init
function getReferrer() {
var all= this.document.cookie;
if (all== '') return false;
var cookie_name = 'REFERRER=';
var start = all.lastIndexOf(cookie_name);
if (start == -1) return false;
start += cookie_name.length;
var end = all.indexOf(';', start);
if (end == -1) end = all.length;
return all.substring(start, end);
}
function getQuery() {
var rfr = getReferrer();
if (rfr == '') return false;
var q = extractQuery(rfr, 'yahoo.com', 'p=');
if (q) return q;
q = extractQuery(rfr, '', 'q=');
return q ? q : "";
}
function extractQuery(full, site, q_param) {
var start = full.lastIndexOf(site);
if (start == -1) return false;
start = full.lastIndexOf(q_param);
if (start == -1) return false;
start += q_param.length;
var end = full.indexOf('&', start);
if (end == -1) end = full.length;
return unescape(full.substring(start, end)).split(" ").join("+");
}
function generateHref(atag, template){
atag.href=template.replace('_MYURL_', window.location.href.replace('http://', '')).replace('_MYTITLE_','Check%20out%20this%20Tripod%20Member%20site!'); 
}
var lycos_ad = Array();
var lycos_onload_timer;
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "late421";
var tripod_member_page = "late421/scripts/HubJump.402.script";
var tripod_ratings_hash = "1745839536:57c76fc9f6d272c759f7fec3ec5f9212";

var lycos_ad_category = {"dmoz":"computers\/programming","ontarget":"&CAT=technology&L2CAT=computing&L3CAT=programming","find_what":"spam bot"};

var lycos_ad_remote_addr = "209.202.244.9";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "";
var lycos_ad_track_served = "";
var lycos_search_query = getQuery();
</script>

<script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script>

<script type='text/javascript'>
 var googletag = googletag || {};
 googletag.cmd = googletag.cmd || [];
 (function() {
   var gads = document.createElement('script');
   gads.async = true;
   gads.type = 'text/javascript';
   var useSSL = 'https:' == document.location.protocol;
   gads.src = (useSSL ? 'https:' : 'http:') +
     '//www.googletagservices.com/tag/js/gpt.js';
   var node = document.getElementsByTagName('script')[0];
   node.parentNode.insertBefore(gads, node);
 })();
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/TRI_300X250_dfp', [300, 250], 'div-gpt-ad-1450204159126-0').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-1').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_below_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-2').addService(googletag.pubads());
   googletag.pubads().enableSingleRequest();
   googletag.enableServices();
 });
</script>


<script type="text/javascript"> 
(function(isV)
{
    if( !isV )
    {
        return;
    }
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2", "slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');
    if (this.lycos_search_query)
    {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if(adCat && adCat.find_what)
    {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }
    
    for (var s in slots)
    {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot))
        {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }

    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {

var w = 0, h = 0, minimumThreshold = 300;

if (top == self)
{
    return true;
}
if (typeof(window.innerWidth) == 'number' )
{
    w = window.innerWidth;
    h = window.innerHeight;
}
else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight))
{
    w = document.documentElement.clientWidth;
    h = document.documentElement.clientHeight;
}
else if (document.body && (document.body.clientWidth || document.body.clientHeight))
{
    w = document.body.clientWidth;
    h = document.body.clientHeight;
}
return ((w > minimumThreshold) && (h > minimumThreshold));
}())));




window.onload = function()
{
    var f = document.getElementById("FooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';
    


    
    // DOM Inj Ad
    (function(isTrellix)
    {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';


        var isBlokedByDomain = function( href )
        {
            var blockedDomains = [
                "ananyaporn13000.tripod.com",
                "xxxpornxxx.tripod.com"
            ];
            var flag = false;
            
            for( var i=0; i<blockedDomains.length; i++ )
            {
                if( href.search( blockedDomains[ i ] ) >= 0 )
                {
                    flag = true;
                }
            }
            return flag;
        }

        var getMetaContent = function( metaName )
        {
            var metas = document.getElementsByTagName('meta');
            for (i=0; i<metas.length; i++)
            { 
                if( metas[i].getAttribute("name") == metaName )
                { 
                    return metas[i].getAttribute("content"); 
                } 
            }
            return false;
        }
        
        var getCommentNodes = function(regexPattern)
        {
            var nodes = {};
            var nodesA = [];
            var preferredNodesList = ['a', 'c', 'b'];
        
            (function getNodesThatHaveComments(n, pattern)
            {
                if (n.hasChildNodes())
                {
                    if (n.tagName === 'IFRAME')
                    {
                        return false;
                    }
                    for (var i = 0; i < n.childNodes.length; i++)
                    {
                        if ((n.childNodes[i].nodeType === 8) && (pattern.test(n.childNodes[i].nodeValue)))
                        {
                            var areaName = pattern.exec(n.childNodes[i].nodeValue)[1];
                            nodes[areaName] = n;
                        }
                        else if (n.childNodes[i].nodeType === 1)
                        {
                            getNodesThatHaveComments(n.childNodes[i], pattern);
                        }
                    }
                }
            }(document.body, regexPattern));

            for (var i in preferredNodesList)
            {
                if (nodes[preferredNodesList[i]])
                {
                    if( isTrellix && nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode )
                    {
                        nodesA.push(nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode);
                    }
                    else
                    {
                        nodesA.push( nodes[preferredNodesList[i]] );
                    }
                }
            }
            return nodesA;
        }
        
        
        var properNode = null;
        var areaNodes = getCommentNodes( new RegExp( '^area Type="area_(\\w+)"' ) );

        for (var i = 0; i < areaNodes.length; i++)
        {
            var a = parseInt(getComputedStyle(areaNodes[i]).width);
            if ((a >= 300) && (a <= 400))
            {
                properNode = areaNodes[i];
                break;
            }
        }


        var propertyName = getMetaContent("property") || false;
        if( isTrellix && (properNode) )
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            properNode.insertBefore(e, properNode.firstChild);
        }
        else if( isTrellix && !( properNode ) ) // Slap the ad eventhought there is no alocated slot
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            e.style.cssFloat = 'none';
            var cdiv = document.createElement('div');
            cdiv.style = "width:300px;margin:10px auto;";
            cdiv.appendChild( e );
            b.insertBefore(cdiv, b.lastChild);
        }
        else if( !isBlokedByDomain( location.href ) )
        {
            var injF = document.createElement('iframe');
            injF.style.border = '0';
            injF.style.margin = 0;
            injF.style.display = 'block';
            injF.style.cssFloat = 'none';
            injF.style.height = '254px';
            injF.style.overflow = 'hidden';
            injF.style.padding = 0;
            injF.style.width = '300px';
            injF.src = '/adm/ad/injectAd.iframe.html';

            if( b && ( !isTrellix || ( typeof isTrellix == "undefined" ) ) ) // All other tripod props
            {
                var cdiv = document.createElement('div');
                cdiv.style = "width:300px;margin:10px auto;";
                cdiv.appendChild( injF );
                b.insertBefore(cdiv, b.lastChild);
            } 
        }
  }( document.isTrellix ));
}

</script>

<div id="tb_container" style="background:#DFDCCF; border-bottom:1px solid #393939; position:relative; z-index:999999999!important">
<!--form name="search" onSubmit="return searchit()" id='header_search' >
<input type="text" placeholder="Search" size=30 name="search2" value="">
<input type="button" value="Go!" onClick="searchit()">
</form>
<style>
form#header_search {
    width: 916px;
    margin: 0 auto 8px;
    position: relative;
}


form#header_search input {
    height: 40px;
    font-size: 14px;
    line-height: 40px;
    padding: 0 8px;
    box-sizing: border-box;
    background: #F4F2E9;
    border: 1px solid #BBB8B8;
    transition: background-color 300ms ease-out,
                color 300ms ease;
}

form#header_search input[type="text"] {
    width: 100%;
}
form#header_search input[type="text"]:focus {
    border-color: #A2D054;
    background-color: #fff;
    box-shadow: 0 0px 12px -4px #A2D054;
}



form#header_search input[type="button"] {
    position: absolute;
    top: 1px;
    right: 1px;
    opacity: 1;
    background: #DFDCCF;
    color: #463734;
    width: 125px;
    cursor: pointer;
    height: 38px;
    border: none;
}
form#header_search input[type="text"]:focus ~ input[type='button']:hover,
form#header_search input[type='button']:hover {
    background-color: #A5CE56;
    color: #fff;
}
form#header_search input[type="text"]:focus ~ input[type='button'] {
    background-color: #52AEDF;
    color: #fff;
}

</style>

<script>
function searchit(){
    
    // determine environment 
    var search_env 
    if (lycos_ad_www_server.indexOf(".pd.") > -1) {
       search_env = 'http://search51.pd.lycos.com/a/';
    } else if (lycos_ad_www_server.indexOf(".qa.") > -1) {
       search_env = 'http://search51.qa.lycos.com/a/';
    } else {
       search_env = 'http://search51.lycos.com/a/';
    }

var search_term = encodeURIComponent(document.search.search2.value)
var search_url = search_env+search_term;
window.open(search_url);

return false
}
</script-->
<style>
    .adCenterClass{margin:0 auto}
</style>
<div id="tb_ad" class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">

<div id="ad_container" style="display:block!important; float:left; width:728px ">
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "leaderboard" in lycos_ad) {
  document.write(lycos_ad['leaderboard']);
}
</script>
</div>
</div>
</div>
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "slider" in lycos_ad) {
  document.write(lycos_ad['slider']);
}
</script> <!-- added 7/22 -->
<div id="FooterAd" style="background:#DFDCCF; border-top:1px solid #393939; clear:both; display:none; width:100%!important; position:relative; z-index:999999!important; height:90px!important"> 
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<div id="footerAd_container" style="display:block!important; float:left; width:728px">
<iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>
</div>