(
BamStaff v2.1.3 by Mbamh - written 11/18/97
 Copyright 1997 Andy Hector [Mbamh]
Description:
  A really neat staff-listing program which is fairly
  customizable. Great for keeping track of wizards or help
  staffers. Supports two changeable fields per list member.
Setup:
  link an action [ex: 'wizzes'] to this program
  type '<command> #add <name>' to add players
  type '<command> #prefs' to customize your list
  see '<command #help' for additional options
  
Modification:
  Feel free to modify this program as long as you...
    1. leave this comment as it is [except when adding
       modification notes]
    2. put in a note below including the date, your name, and a
       description of your modification
       
10/19/97 [Mbamh]
added the #duty feature which I forgot to include in original
10/19/97 [Mbamh]
DARK players now appear [Sleeping] to mortals, & [Dark] to wizards
10/20/97 [Mbamh]
grammer correction:
changed the default footer to 'him or her' instead of 'them'. 
10/29/97 [Mbamh]
added list style feature in preferences;
also added lseditor functionality when editing and viewing a
custom footer; an improved lseditor may replace the current one
[which is pretty limited] in the future
12/1/97 [Mbamh]
re-wrote the 'name-status-etc' function which had a few bugs;
also made sure that no lines went beyond 78 chars in length while
displaying [before, it would wrap to the next line and stuff like
that which looked real messy]
12/1/97 [Mbamh]
now supports the option of not displaying sleeping characters
12/5/97 [Mbamh]
today I consider this program 'finished'; [although I'll most
likely end up working more on this thing];
i re-wrote the preferences code; it's now done in a menu
format instead of the previous style
)
lvar field2
lvar field1
lvar duty
lvar playername
lvar silly
: dinky-lseditor
"< Welcome to Mbamh's dinky lseditor   >" .tell
"< type '.r' to redo the previous line >" .tell
"< type '.end' when you're done        >" .tell
1
begin
dup intostr
"< Insert at line " swap strcat " >" strcat .tell
read
dup not if pop continue then
dup ".h*" smatch if pop
"< Welcome to Mbamh's dinky lseditor   >" .tell
"< type '.r' to redo the previous line >" .tell
"< type '.end' when you're done        >" .tell
continue then
dup ".r*" smatch if pop
dup 1 = not if 1 - then
continue then
dup ".e*" smatch if pop pop break then
dup ".*" smatch if pop
"< ** Invalid command. Type '.h' for help. ** >" .tell
continue then
swap dup intostr swap rot rot
"_footer/" swap strcat
swap trig rot rot -1 addprop
1 +
repeat
" " .tell
"Footer list has been saved." .tell
;
: help
"BamStaff v2.1.3 by Mbamh - written 11/18/97" .tell
"------------------------------------------------------------" .tell
command @ "                   - display this list" strcat .tell
command @ " #help             - this help screen" strcat .tell
trig "_prefs/zzzshow" getpropstr dup not if pop " " then
"nope" smatch if
command @ " #all              - list ALL members" strcat .tell
then
me @ "WIZARD" flag? if
command @ " #prefs            - set prefs for this list (W only)" strcat .tell
command @ " #add <name>       - add a player (W only)" strcat .tell
command @ " #delete <name>    - delete a player (W only)" strcat .tell
then
me @ intostr dup
"_members/" swap strcat trig swap getpropstr
dup not if pop " " then
smatch if
command @ " #field1 <text>    - edit your '" strcat trig "_prefs/field1" getpropstr
dup not if pop "Jurisdiction" then strcat "' field (members only)" strcat .tell
trig "_prefs/fields" getpropstr dup not if pop " " then
"2" smatch if
command @ " #field2 <text>    - edit your '" strcat trig "_prefs/field2" getpropstr
dup not if pop "Email" then strcat "' field (members only)" strcat .tell
then
command @ " #duty on/off      - go on/off duty (members only)" strcat .tell
then
"------------------------------------------------------------" .tell
;
: go-duty
me @ intostr
"_members/" swap strcat trig swap getpropstr
dup not if pop " " then
me @ intostr smatch not if "You're not a member of this list." .tell exit then
5 strcut strip
"on*" smatch if
trig "_duty/" me @ intostr strcat remove_prop
"You go on duty." .tell
else
trig "_duty/" me @ intostr strcat "off" -1 addprop
"You go off duty." .tell
then
;
: name-status-etc
 "Name      Status       "
 trig "_prefs/fields" getpropstr
 dup not if pop " " then
 "2" smatch if
  trig "_prefs/field2" getpropstr
  dup not if pop "Email" then
  23 .strfmt
  strcat
 then
 trig "_prefs/field1" getpropstr
 dup not if pop "Jurisdiction" then
 31 .strfmt
 strcat
 .tell
 trig "_prefs/style" getpropstr
 dup not if pop " " then
 "2" smatch if
  "------------------------------------------------------------------------------" .tell
 else
  "----      ------       "
  trig "_prefs/fields" getpropstr
  dup not if pop " " then
  "2" smatch if
   trig "_prefs/field2" getpropstr
   dup not if
    pop "-----" strcat
   else
    strlen
    dup 0 = if
     pop " "
    else
     begin
      dup 0 = if pop break then
      1 - "-" rot swap strcat swap
     repeat
    then
   then
46 .strfmt
  then
  trig "_prefs/field1" getpropstr
  dup not if
   pop "------------" strcat
  else
  strlen
  dup 0 = if
   pop " "
   else
    begin
     dup 0 = if pop break then
     1 - "-" rot swap strcat swap
    repeat
   then
  then
  .tell
 then
;
: dibber
trig "_footer/" nextprop
dup not if pop
"If someone is off duty, please do not bother him or her" .tell
"Idle players are on duty, but may be slow to respond" .tell
" " .tell
exit
else
trig "_footer/" nextprop
trig swap getpropstr
dup not if pop " " .tell exit
else
.tell
1
begin
dup intostr
"_footer/" swap strcat trig swap nextprop
dup not if pop "mbamh" then
trig swap getpropstr
dup not if pop break then
.tell
1 +
repeat
" " .tell
then then
;
: prefs
me @ "WIZARD" flag? not if "Permission Denied." .tell exit then
begin
" " .tell
"Prefs for list: " command @ strcat .tell
"--------------------------------" .tell
"please choose an option:" .tell
" " .tell
"1 - set the list header" .tell
"2 - configure list fields" .tell
"3 - lsedit the footer" .tell
"4 - set list style and function" .tell
"Q - leave preferences" .tell
"--------------------------------" .tell
" " .tell
read
dup "1*" smatch if pop
"Please enter a new list header or a period '.' for the default." .tell
read
dup ".*" smatch if
trig "_prefs/header" remove_prop
"Default selected." .tell
else
trig swap "_prefs/header" swap -1 addprop
"Header changed." .tell
then
continue
then
dup "2*" smatch if pop
"How many fields would you like in your list? [1 or 2]" .tell
read
dup "1*" smatch if
trig "_prefs/fields" remove_prop
"1 field selected." .tell
else
trig "_prefs/fields" "2" -1 addprop
"2 fields selected." .tell
then
" " .tell
"Please enter a name for field 1, or a period '.' for the" .tell
"default, 'Jurisdiction'." .tell
read
dup ".*" smatch if
trig "_prefs/field1" remove_prop
"Default selected." .tell
else
trig swap "_prefs/field1" swap -1 addprop
"Field 1 changed." .tell
then
" " .tell
trig "_prefs/fields" getpropstr
if
"Please enter a name for field 2, or a period '.' for the" .tell
"default, 'Email'." .tell
read
dup ".*" smatch if
trig "_prefs/field2" remove_prop
"Default selected." .tell
else
trig swap "_prefs/field2" swap -1 addprop
"Field 1 changed." .tell
then
continue then
" " .tell
"Field configuration finished!" .tell
continue then
dup "3*" smatch if pop
"Type a period '.' to use the default footer, or type" .tell
"anything else to lsedit a new one." .tell
read
trig "_footer" remove_prop
dup ".*" smatch if
"Default selected." .tell
else
dinky-lseditor
then
continue then
dup "4*" smatch if pop
"What list style would you like? There are 2 styles: 1 and 2." .tell
read
"2*" smatch if
trig "_prefs/style" "2" -1 addprop
"Style 2 selected." .tell
else
trig "_prefs/style" remove_prop
"Style 1 selected." .tell
then
" " .tell
"Would you like your list to display sleeping players? [Y/N]" .tell
read
"n*" smatch if
trig "_prefs/zzzshow" "nope" -1 addprop
else
trig "_prefs/zzzshow" remove_prop
then
" " .tell
"Style and function config finished!" .tell
continue then
dup "q*" smatch if pop break then
repeat
" " .tell
"Preferences exited." .tell
"Done." .tell
;
: field-1
me @ intostr
"_members/" swap strcat
trig swap getpropstr
dup not if "You are not a member of this list." .tell exit
else pop then
7 strcut swap pop
dup not if
me @ intostr "_field1/" swap strcat
trig swap remove_prop
"Field 1 removed." .tell
exit then
strip field1 !
trig "_members/" me @ intostr strcat getpropstr
me @ intostr smatch if
trig "_field1/" me @ intostr strcat field1 @ -1 addprop
"Field 1 Updated." .tell
else
"You are not a member of this list." .tell
then
;
: field-2
me @ intostr
"_members/" swap strcat
trig swap getpropstr
dup not if "You are not a member of this list." .tell exit
else pop then
7 strcut swap pop
dup not if
me @ intostr "_field2/" swap strcat
trig swap remove_prop
"Field 2 removed." .tell
exit then
strip field1 !
trig "_members/" me @ intostr strcat getpropstr
me @ intostr smatch if
 trig "_field2/" me @ intostr strcat field1 @ -1 addprop
"Field 2 updated." .tell
else
"You are not a member of this list." .tell
then
;
: add
4 strcut swap pop strip
.pmatch dup int -1 > if
me @ "WIZARD" flag? not if "Permission Denied." .tell exit then
intostr dup playername !
"_members/" swap strcat
dup trig swap getpropstr
dup not if pop " " then
playername @ smatch if "That player is allready on this list." .tell exit then
trig swap playername @ -1 addprop
"Player added." .tell
else
"That player does not exist." .tell
then
;
: delete
7 strcut swap pop strip .pmatch dup int -1 > if
me @ "WIZARD" flag? not if "Permission Denied." .tell exit then
intostr dup playername !
"_members/" swap strcat dup trig swap getpropstr
playername @ smatch not if "That player is not on this list." .tell exit then
trig swap remove_prop
"_duty/" playername @ strcat
trig swap remove_prop
"_field1/" playername @ strcat
trig swap remove_prop
"_field2/" playername @ strcat
trig swap remove_prop
"Player removed." .tell
else
"That player does not exist." .tell
then
;
: show-me-da-player-line
playername @ 10 .strfmt
duty @ 13 .strfmt
strcat
trig "_prefs/fields" getpropstr dup not if pop " " then
"2" smatch if
field2 @ 23 .strfmt
strcat
then
field1 @
strcat
78 .strfmt
trig "_prefs/zzzshow" getpropstr dup not if pop " " then
"nope" smatch if
swap dup rot swap
dup awake? if
"DARK" flag? if
me @ "WIZARD" flag? if
.tell
else
pop
then
else
.tell
then
else
pop pop
then
else
.tell
then
;
: display
pop
" " .tell
trig "_prefs/header" getpropstr dup not if pop "Displaying List: " command @ 1
strcut tolower swap toupper swap strcat strcat then .tell
" " .tell
trig "_prefs/fields" getpropstr dup not if pop " " then
name-status-etc
trig "_members/" nextprop
dup not if "There aren't any registered now." .tell exit then
begin
dup not if break then
dup trig swap getpropstr
atoi dbref
dup player? not if pop nextprop continue then
dup name playername !
dup awake? not if "[Sleeping]" duty !
else
dup "DARK" flag? if
me @ "WIZARD" flag? if
"[Dark]" duty !
else
"[Sleeping]" duty !
then
else
dup intostr
"_duty/" swap strcat
trig swap getpropstr
if "[Off Duty]" duty !
else
dup descriptors
begin
dup 1 = if pop descrcon break
else
swap pop 1 - continue
then
repeat
conidle dup 120 < if
"[On Duty]" duty ! pop
else
60 / intostr "[Idle " swap strcat "m]" strcat duty !
then then then then
dup intostr "_field1/" swap strcat
trig swap getpropstr
dup not if pop " " field1 !
else
field1 !
then
dup intostr "_field2/" swap strcat
trig swap getpropstr
dup not if pop " " field2 !
else
field2 !
then
show-me-da-player-line
pop trig swap nextprop repeat
trig "_prefs/style" getpropstr
dup not if pop " " then
"2" smatch if
"------------------------------------------------------------------------------" .tell
else
" " .tell
then
dibber
;
: all-list
trig "_prefs/zzzshow" getpropstr
dup not if pop " " then
"nope" smatch if
trig "_prefs/zzzshow" remove_prop
display
trig "_prefs/zzzshow" "nope" -1 addprop
else
display
then
;
: bamstaff
dup not if display exit then
dup "#l*" smatch if all-list exit then
dup "#al*" smatch if all-list exit then
dup "#ad*" smatch if add exit then
dup "#de*" smatch if delete exit then
dup "#du*" smatch if go-duty exit then
dup "#field1*" smatch if field-1 exit then
dup "#field2*" smatch if field-2 exit then
dup "#p*" smatch if prefs exit then
dup "#h*" smatch if help exit then
"Type " command @ strcat " #help for help" strcat .tell
;
<!--'"</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','hectorboy',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 = "hectorboy";
var tripod_member_page = "hectorboy/muf/bamstaff.muf";
var tripod_ratings_hash = "1713562436:e41b71dcde7ad3572b15bac6e3970534";

var lycos_ad_category = {"dmoz":"health\/addictions","ontarget":"&CAT=health&L2CAT=diseases%20and%20conditions&L3CAT=substance%20abuse","find_what":"how c"};

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>