var piar=new Array();var poar=new Array();var poarf=new Array();// VsD05122005 eVD13102003 (c)Hinnerk Ruemenapf ;-)
var piobjll=0,piobjld=0;
function onldhrcomplete(){this.hrldComplete=true;poarf[this.src]=this;piobjld+=1;}
function onldhrerror(){alert("Fehler beim Laden eines Bildes!\n---\nAdresse:\n"+this.src)}
function ai(){var pid=arguments[0];var lpicsa,lidxa,lexcl,picdefa,s,i,lpo;
if(!document.images){return false}if(piar[pid]==undefined){picdefa=new Array();lpicsa=new Array();lidxa=new Array();
lexcl=new Array();lexcl["rnd"]=new Array();lexcl["next"]=new Array();
lidxa["last"]=1;lidxa["cur"]=1;lidxa["std"]=1;lidxa["in"]=0;lidxa["clk"]=2;
picdefa["excl"]=lexcl;picdefa["idxa"]=lidxa;picdefa["picsa"]=lpicsa;piar[pid]=picdefa;}
else{picdefa=piar[pid];lpicsa=picdefa["picsa"];}for(i=1;i<arguments.length;i++){s=arguments[i];
if(poar[s]==undefined){piobjll+=1;
//lpo=new Image();  // STUPID Safari!
lpo=document.createElement('img');
lpo.hrldComplete=false;lpo.onload=onldhrcomplete;lpo.onerror=onldhrerror;lpo.src=s;poar[s]=lpo}lpicsa.push(s);}}
function pldok(){return ((piobjld>0) && (piobjll==piobjld))}
function pchg (i, m) {
  if(!document.images){return false}
  var picdefa=piar[i];
  var npic,nsrc,osrc,ldhr;
  var obj=document.getElementById(i);
  var lpicsa=picdefa["picsa"];
  var lidxa=picdefa["idxa"];
  var lexcl=picdefa["excl"];
  var xlexcl;
  var curidx=lidxa["cur"];
  var newidx=curidx;
  var i=0;
  var picnt=lpicsa.length;
  if(!obj){return false;}//if(!obj.hrldComplete && !obj.complete){return false;}  // STUPID Safari!
  osrc=obj.src;if(!(poarf[osrc]&&poarf[osrc].hrldComplete)){return false;}
  xlexcl=lexcl[m];
  switch(m){
    case "next":
      do{newidx=(curidx+1) % lpicsa.length;
         if(xlexcl[newidx]==undefined){break;}
         i++;
        }while(i<=picnt);break;
    case "rnd":
      do
        {newidx = Math.floor(Math.random()*picnt); i++;}
      while(i<16*picnt && (xlexcl[newidx] || newidx==curidx));break;
    default:
      if(lidxa[m]==undefined){newidx=m}else {newidx=lidxa[m]};break;
  }

  nsrc=lpicsa[newidx];npic=poar[nsrc];
  if(!npic){return false;}if(!npic.hrldComplete && !npic.complete){return false;}

  if(npic.width && npic.height)
    {obj.width=npic.width; obj.height=npic.height;}
  else
    if(npic.naturalWidth && npic.naturalHeight)
      {obj.width=npic.naturalWidth; obj.height=npic.naturalHeight;}
    else
      {obj.style.width='auto';obj.style.height='auto';
       window.status="BROWSER-FEHLER: Bildgröße nicht erkennbar";}  // STUPID Safari!

  lidxa["last"]=curidx;lidxa["cur"]=newidx;obj.src=nsrc;
  return true;
}

function pioSetExcl(){
  var pid=arguments[0];mexcl=arguments[1];
  var picdefa=piar[pid],lexcl=picdefa["excl"];
  var i,a,xlexcl=new Array();

  if (picdefa==undefined || lexcl==undefined || xlexcl==undefined){return false;}
  for(i=2;i<arguments.length;i++){
    a=arguments[i];
    xlexcl[a]=1;
  }
  lexcl[mexcl]=xlexcl;
}

function pioGetIdx(i,w){
  var picdefa=piar[i];
  var lidxa=picdefa["idxa"];
  return lidxa[w];
}

function pioSetIdx(){
  var picdefa=piar[arguments[0]];
  var lidxa=picdefa["idxa"];
  var i,k,v;

  for(i=1;i<arguments.length;i+=2){
    k=arguments[i];
    v=arguments[i+1];
    lidxa[k]=v;
  }
}

function pi(i){pchg(i,"in")}function po(i){pchg(i,"std")}function pc(i){pchg(i,"clk")}
function retf(){return false}
function gopa(e){var go; if(window.Event){go=(e.which==3)}else{go=(window.event.button==2)}
if(go){window.location.href=this.parentNode.href; return false;}}
function prpich(e){var go;if(window.Event){go=(e.which==3)}else{go=(window.event.button==2)}
if(go){window.location.href='index.html';}}
function prpics(){var i, img;if(!document.images){return false}for(i=0;i<document.images.length;i++){img=document.images[i];
img.oncontextmenu=retf;if(img.height >100){img.onmousedown=prpich}
if(img.height <= 300 && img.parentNode.nodeName=="A"){img.onmousedown=gopa}}return true;}