// IRON MOUSE "SOUL"

// INFO
var error="ERROR: Incorrect syntax in script procedure\nor incorrect reference to that procedure."
var error1="ERROR: Incorrect reference to script procedure."
var error2="ERROR: Your browser is not up to date any more."
var note="NOTE: If this situation happens again,\nplease contact the author of this web site."
var note1="NOTE: To avoid more errors to ocure\nyou should close this window."
var note2="NOTE: To avoid more errors to ocure\nthis window will be closed."
var note3="NOTE: Operation forbidden."
var conf="CONFIRM: Do you want to close this window?"
var nl="\n"

// TIME
qDayn=new Array()
qDayn[0]="Sunday"
qDayn[1]="Monday"
qDayn[2]="Tuesday"
qDayn[3]="Wednesday"
qDayn[4]="Thursday"
qDayn[5]="Friday"
qDayn[6]="Saturday"
qMonthn=new Array()
qMonthn[0]="January"
qMonthn[1]="February"
qMonthn[2]="March"
qMonthn[3]="April"
qMonthn[4]="May"
qMonthn[5]="June"
qMonthn[6]="July"
qMonthn[7]="August"
qMonthn[8]="September"
qMonthn[9]="October"
qMonthn[10]="November"
qMonthn[11]="December"

// COOKIE
var qCookieName="counter"
var qCookieKept=15552000000

// MEDIA WINDOW
var qMediaSource=""
var qMediaAutostart=1
var qMediaLoop=1
var qMediaWidth=300
var qMediaHeight=250

// CREDITS
var qScrLoop=0
var qScrRep=80

// HELP
var qHelpSite=""

// SYSTEMS ----------------------------------------------------------------------------------------------------------------

function wr(par)
{document.write(par)}

function wrl(par)
{document.writeln(par)}

function go2(par)
{if (par) {document.location=par}}

function qRound(par)
{if (par)
{if (isNaN(par)) {alert(error1+nl+note)}
else {qRoundValue=Math.round(par)}}
return qRoundValue}

function qRandom(par)
{qRandomValue=Math.random()
if (par)
{if (isNaN(par)) {alert(error1+nl+note)}
else {qRandomValue=qRound((Math.abs(par)-1)*qRandomValue)}}
qRandomValue=qRandomValue+1
return qRandomValue}

function qTime(par)
{qTimeRun=1
time=new Date()
fxtime=time.getTime()
day=time.getDay()
dayn=qDayn[day]
days=qDays[day]
date=time.getDate()
if (date<10) {date="0"+date}
month=time.getMonth()
monthn=qMonthn[month]
if (month<10) {month="0"+month}
hour=time.getHours()
if (hour<10) {hour="0"+hour}
min=time.getMinutes()
if (min<10) {min="0"+min}
sec=time.getSeconds()
if (sec<10) {sec="0"+sec}
msec=time.getMilliseconds()
if (msec<100) {msec="0"+msec}
if (msec<10) {msec="0"+msec}
year=time.getYear()
if (year<999) {year=1900+year}
year2dig=eval('"'+year+'"').substring(2,4)
if (!par)
{qTimeRun=2
setTimeout("qTime()",1)}}

function qClock()
{if (document.body&&qTimeRun>0)
{wr('<span id="qLiveClock">'+hour+':'+min+':'+sec+'</span>')
qClockExist=1
qClockAct()}
else {qError()}}

function qPathSearchGet(par)
{qPathSearch='"'+document.location.search+'"'
qPathSearch1=qPathSearch.indexOf("?"+par+"=")
qPathSearch2=qPathSearch.indexOf("&"+par+"=")
if (qPathSearch1>0)
{qPathSearchEnd=qPathSearch.indexOf("&",qPathSearch1)
if (qPathSearchEnd<0) {qPathSearchEnd=qPathSearch.length-1}
qPathSearchValue=qPathSearch.substring(qPathSearch1+par.length+2,qPathSearchEnd)}
else
{if (qPathSearch2>0)
{qPathSearchEnd=qPathSearch.indexOf("&",qPathSearch2+1)
if (qPathSearchEnd<1) {qPathSearchEnd=qPathSearch.length-1}
qPathSearchValue=qPathSearch.substring(qPathSearch2+par.length+2,qPathSearchEnd)}
else
{qPathSearchValue=0}}
qPathSearchValue=unescape(qPathSearchValue)
return qPathSearchValue
qPathSearch1=0
qPathSearch2=0}

function qCookieGet(par)
{if (par) {qCookieName=par}
qNameLenght=qCookieName.length
qNameIndex=document.cookie.indexOf(qCookieName)
qCookieEnd=document.cookie.indexOf(";",qNameIndex+qNameLenght)
if (qCookieEnd<0) {qCookieEnd=document.cookie.length}
if (qNameIndex<0) {qCookieValue=0}
else {qCookieValue=unescape(document.cookie.substring(qNameIndex+qNameLenght+1,qCookieEnd))
if (!qCookieValue) {qCookieValue=0}}
return qCookieValue}

function qCookieSet(par,par2,par3)
{if (par) {qCookieName=par}
if (par2) {qCookieValue=par2}
else {qCookieValue=0}
if (qTimeRun==2) {qTime()}
else {qTime(1)}
if (par3) {qCookieExpires=fxtime+par3}
else {qCookieExpires=fxtime+qCookieKept}
newtime=new Date()
newtime.setTime(qCookieExpires)
document.cookie=qCookieName+"="+escape(qCookieValue)+";expires="+newtime.toGMTString()}

function qCounterGet(par)
{if (par) {qCookieName=par}
qCookieValue=eval(qCookieGet(qCookieName))+1
return qCookieValue}

function qCounterSet(par,par2)
{if (par) {qCookieName=par}
if (par2) {qCookieValue=par2}
qSetCookie(qCookieName,qCounterGet(qCookieName),3153600000)
return qCookieValue}

function qShow(par)
{if (par)
{par.style.visibility="visible"}
else {alert(error1+nl+note)}}

function qHide(par)
{if (par)
{par.style.visibility="hidden"}
else {alert(error1+nl+note)}}

function qTogVis(par)
{if (par)
{if (par.style.visibility=="hidden")
{qShow(par)}
else {qHide(par)}}
else {alert(error1+nl+note)}}

function qIns(par)
{if (par)
{par.style.display=""}
else {alert(error1+nl+note)}}

function qDel(par)
{if (par)
{par.style.display="none"}
else {alert(error1+nl+note)}}

function qTogDis(par)
{if (par)
{if (par.style.display=="none")
{qIns(par)}
else {qDel(par)}}
else {alert(error1+nl+note)}}

function qTrans(par,par2)
{if (par)
{par.style.filter="alpha(opacity="+par2+")"}
else {alert(error1+nl+note)}}

function qTrans2(par,par2,par3)
{if (par&&par2)
{par.style.filter="blendTrans(duration="+par3+")"
par.filters.blendTrans.Apply()
par.src=par2
par.filters.blendTrans.Play()}
else {alert(error1+nl+note)}}

function qBack()
{history.back()}

function qNext()
{history.forward()}

function qWindow(par,par2,par3)
{if (!par2)
{qTime(1)
par2="qWindow"+fxtime}
if (!par3)
{par3="menubar=yes,toolbar=yes,location=yes,directories=yes,status=yes,scrollbars=yes,resizable=yes,fullscreen=no,channelmode=no,width="+asw+",height="+ash}
window.open(par,par2,par3)}

function qWindowX(par)
{qWindow(par,0,"menubar=no,toolbar=no,location=no,directories=no,status=no,scrollbars=yes,resizable=yes,fullscreen=no,channelmode=no,width=123,height=123")}

function qMedia()
{qmw=window.open("","media","menubar=no,toolbar=no,location=no,directories=no,status=no,scrollbars=no,resizable=no,fullscreen=no,channelmode=no,width="+qMediaWidth+",height="+qMediaHeight)
qmw.resizeTo(qMediaWidth,qMediaHeight)
qmw.moveTo((sw-qMediaWidth)/2,(sh-qMediaHeight)/2)
qmw.document.write('<html><head><title>Media</title></head><body leftmargin="0" topmargin="0">')
qmw.document.write('<embed name="qPlayer" src="'+qMediaSource+'" autostart="'+qMediaAutostart+'" loop="'+qMediaLoop+'" width="100%" height="100%" />')
qmw.document.write('</body></html>')
qmw.focus()}

function qImgPreload(xtime,trace,trace2) {
  eval("qImg2"+xtime+"=new Image()")
  eval("qImg2"+xtime+".src=\""+trace2+"\"")
  eval("qImg"+xtime+"=new Image()")
  eval("qImg"+xtime+".src=\""+trace+"\"")
}

function qImg(xtime,trace,trace2) {
  qImgPreload(xtime,trace,trace2)
  obj=eval("img"+xtime)
  eval("function img"+xtime+"up() {img"+xtime+".src=qImg2"+xtime+".src}")
  obj.onmouseover=eval("img"+xtime+"up")
  eval("function img"+xtime+"def() {img"+xtime+".src=qImg"+xtime+".src}")
  obj.onmouseout=eval("img"+xtime+"def")
}

function qFormBox(form,xtime,trace,trace2,trace3,trace4,more,act) {
  if (act) {
    iobj=eval(form+".img"+xtime)
    fobj=eval(form+".obj"+xtime)
    if (fobj.checked!=fobj.previous) {
      if (fobj.checked==true) {
        if (qImgActive==xtime&&trace4) {
          iobj.src=eval("qImg4"+xtime+".src")
        } else {
          iobj.src=eval("qImg2"+xtime+".src")
        }
      } else {
        if (qImgActive==xtime&&trace3) {
          iobj.src=eval("qImg3"+xtime+".src")
        } else {
          iobj.src=eval("qImg"+xtime+".src")
        }
      }
      fobj.previous=fobj.checked
      //fobj.checked=(!fobj.checked)
    }
    setTimeout("qFormBox(\""+form+"\",\""+xtime+"\",\""+trace+"\",\""+trace2+"\",\""+trace3+"\",\""+trace4+"\",\""+more+"\",1)",10)
  } else if (qwin&&!qop) {
    wr("<a href=\"javascript:"+form+".obj"+xtime+".click()\"")
    wr(" onfocus=\"this.blur()\" onmouseover=\"qImgActive='"+xtime+"'\" onmouseout=\"qImgActive=0\">")
    wr("<img id=\"img"+xtime+"\" alt=\"\" src=\""+trace+"\""+more+" />")
    wr("</a>")
    iobj=eval(form+".img"+xtime)
    fobj=eval(form+".obj"+xtime)
    qDel(fobj)
    eval("qImg"+xtime+"=new Image()")
    eval("qImg"+xtime+".src=\""+trace+"\"")
    eval("qImg2"+xtime+"=new Image()")
    eval("qImg2"+xtime+".src=\""+trace2+"\"")
    if (trace3) {
      eval("qImg3"+xtime+"=new Image()")
      eval("qImg3"+xtime+".src=\""+trace3+"\"")
    }
    if (trace4) {
      eval("qImg4"+xtime+"=new Image()")
      eval("qImg4"+xtime+".src=\""+trace4+"\"")
    }
    fobj.previous=0
    setTimeout("qFormBox(\""+form+"\",\""+xtime+"\",\""+trace+"\",\""+trace2+"\",\""+trace3+"\",\""+trace4+"\",\""+more+"\",1)",100)
  }
}

function qOffsetTop(par,par2)
{qOffsetValue=par.offsetTop
qOffsetParent=par.offsetParent
while (qOffsetParent)
{qOffsetValue=qOffsetValue+qOffsetParent.offsetTop
qOffsetParent=qOffsetParent.offsetParent}
if (par2&&par.offsetHeight)
{qOffsetValue=qOffsetValue+par.offsetHeight}
return qOffsetValue}

function qOffsetLeft(par,par2)
{qOffsetValue=par.offsetLeft
qOffsetParent=par.offsetParent
while (qOffsetParent)
{qOffsetValue=qOffsetValue+qOffsetParent.offsetLeft
qOffsetParent=qOffsetParent.offsetParent}
if (par2&&par.offsetWidth)
{qOffsetValue=qOffsetValue+par.offsetWidth}
return qOffsetValue}

function qScroll(par,par2)
{if (!par) {par=0}
if (!par2) {par2=0}
window.scroll(par,par2)}

function qScrolled(par)
{if (!par)
{if (document.all) {return document.body.scrollTop}
else {return window.pageYOffset}}
else
{if (document.all) {return document.body.scrollLeft}
else {return window.pageXOffset}}}

function qCredits()
{if (qScrolled()!=qScrPrev)
{qScrPrev=qScrolled()
qScroll(0,qScrolled()+1)}
else
{if (qScrLoop>0)
{qScroll()
qScrPrev=-1}}
if (qScrolled()!=qScrPrev||qScrLoop>0) {setTimeout("qCredits()",qScrRep)}}

function qUpdate()
{if (qs<soulScript)
{alert(error2+nl+note2)
top.window.close()}}

function qHelp()
{qHelpOn()}

function qHelpOn()
{window.onhelp=qHelpChange
qHelpGo=1}

function qHelpOff()
{qHelpGo=0}

function qSafeMouse()
{qSafeMouseOn()}

function qSafeMouseOn()
{document.onmousedown=qSafeMouseCheck
qSafeMouseGo=1}

function qSafeMouseOff()
{qSafeMouseGo=0}

function qError()
{alert(error+nl+note)
qErrorClose()}

function qErrorClose()
{qErrorConf=confirm(note1+nl+conf)
if (qErrorConf>0) {top.window.close()}}

// SOUL
var soulScript=1.3

// BROWSER
var bn=navigator.appName
var bv=navigator.appVersion
var ba=navigator.userAgent
var bvn=parseInt(bv)
var ie="Microsoft Internet Explorer"
var nn="Netscape"
var op="Opera"
if (ba.indexOf('era')>0) {
  bn=op
}
var qie=false
if (bn==ie) {
  qie=true
}
var qnn=false
if (bn==nn) {
  qnn=true
}
var qop=false
if (bn==op) {
  qop=true
}
var qb=0
if (qie) {
  if (bvn>=4) {
    qb=4
  }
  if (ba.indexOf('E 4.5')>0) {
    qb=4.5
  }
  if (ba.indexOf('E 5')>0) {
    qb=5
  }
  if (ba.indexOf('E 5.5')>0) {
    qb=5.5
  }
  if (ba.indexOf('E 6')>0) {
    qb=6
  }
  if (ba.indexOf('E 6.6')>0) {
    qb=6.6
  }
  if (ba.indexOf('E 7')>0) {
    qb=7
  }
  if (ba.indexOf('E 7.5')>0) {
    qb=7.5
  }
  if (ba.indexOf('E 8')>0) {
    qb=8
  }
}
var qwin=false
if (ba.indexOf('indows')>0) {
  qwin=true
}
var qlin=false
if (ba.indexOf('inux')>0) {
  qlin=true
}
var qmac=false
if (ba.indexOf('ac')>0) {
  qmac=true
}

// SCRIPT
var qs=1
for (i=1;i<10;i++) {
  wr("<script type=\"text/javascript\" language=\"JavaScript1."+i+"\">qs=1."+i+"</script>")
}
wr("<script type=\"text/javascript\" language=\"JavaScript2.0\">qs=2</script>")

// RESOLUTION
var sw=screen.width
var sh=screen.height
var asw=screen.availWidth
var ash=screen.availHeight

// CURSOR XY
var curX=0
var curY=0
function qCursor(e) {
  if (qb>3) {
    curX=event.x;curY=event.y
  } else {
    curX=e.pageX;curY=e.pageY
  }
}
document.onmousemove=qCursor

// DOCUMENT
function qDocWH() {
  if (qb>3) {
    dw=document.body.offsetWidth
    dh=document.body.offsetHeight
  } else {
    dw=window.innerWidth
    dh=window.innerHeight
  }
}
window.onload=qDocWH

// TIME
var qTimeRun=0
qDays=new Array()
qDays[0]="SUN"
qDays[1]="MON"
qDays[2]="TUE"
qDays[3]="WED"
qDays[4]="THU"
qDays[5]="FRI"
qDays[6]="SAT"

// CLOCK
var qClockExist=0
function qClockAct() {
  if (qClockExist>0&&qTimeRun>1) {
    qLiveClock.innerHTML=hour+":"+min+":"+sec
    setTimeout("qClockAct()",1)
  }
}

// COOKIE
var qCookieValue=0

// IMAGES
var qImgActive=0

// CREDITS
var qScrPrev=-1

// HELP
var qHelpGo=0
function qHelpChange() {
  if (qHelpGo>0) {
    if (qHelpSite) {
      qhw=window.open(qHelpSite,"help","fullscreen=no,toolbar=yes,menubar=no,location=no,directories=no,status=no,scrollbars=yes,resizable=yes")
    }
    return false
  }
}

// SAFE MOUSE
var qSafeMouseGo=0
function qSafeMouseCheck(par) {
  if (qSafeMouseGo>0) {
    if (qie) {
      if (event.button>1) {
        alert(note3)
        return false
      }
    } else {
      if (par.which>1) {
        alert(note3)
        return false
      }
    }
  }
}

// NOTHIN
function nothin() {
  return false
}

// AUTOMATIC INICIATION
qTime(1)