// x_123gb.js
//
// dieser Code ist Freeware
// baseurl: http://homepages.compuserve.de/Boerniexy/btools/123gb_x.js
//
// und wird 123gb.de-Usern zur Verfügung gestellt.
//
// der Code kann eigenen Bedürfnissen angepasst werden,
// ein Hinweis auf den Ursprung wäre nett ...
//
// eine Gewähr auf die Funktion kann nicht gegeben werden
//
// entwickelt für TalenteTauschring um die Porta
// http://people.freenet.de/tauschringporta
//
// Juni 2002, btools@natuerlich-minden.de
//
// History:  http://btools.de.vu/123gb/faqssum.htm
//
// im Forum heisst das Nachrichtenfeld 'msg'
// im gb 'text'
//
// im gbm werden html-tags ausgewertet und smilies ':smile:'
// im Forum sind es [tags] , smilies als [img]-tags

var akt_123gbjs="(x_123gb.js 25.01.05)";
var is_onl=(window.location.href.indexOf("http:")>-1);
var uvz_loc_sm="/Icons/"; // lokales Smilieverz
var vz_123gb="http://123gb.de/";
var uvz_sm123="http://www.butterbier.de/Icons/" ;  // Pfad geändert 7.12.2004
//var uvz_sm123="Smilies/" ;  // Pfad geändert 7.12.2004

var http_btools="http://btools.de.vu/123gb";
var vz_hp="http://";  // wird für SmilieLinks genutzt, nur Optik

var opera_chk=window.opera ? (parseInt(navigator.appVersion)<7):false;

var frm123=null;  // wird document.forms.form
var bodypara="";
var img_opt=" border=0";  // mit führendem Blank..
var bit_img=1;
var x_script="";

function malert(s)
{
alert("in x_123gb.js:\n==============\n\n"+s+"\n\n");
}

// externe Funktionen
// s=ext_pop()
// txt=ext_vorschau(txt)
// txt=ext_style(txt)
// s=ext_L(n,s)
// txt=ext_komm(txt)

var is_FOR=false;
var is_BBC=false;
var is_GX=false;

function ele123(oldname) { // 123gb-Änderung 13.12.04 !!

	var err="interner schwerer ERROR:\n\n"
	if (frm123==null) malert(err+"frm123 null");
	var ele=frm123.elements[oldname];
	if ("object" == typeof ele) {	return ele; }
	else 	ele=null;
		if (oldname=="text") {
			with (frm123)
				for( var e=elements.length-1;e>=0;e--) {
					if (elements[e].type=="textarea") return elements[e];
					}
			}
		with (frm123) {
 				for( var e=0; e<elements.length;e++) {
 					if (elements[e].name.indexOf(on.toLowerCase())>-1 )
 						return elements[e];
 					}
			var s="\n";
			for( var e=0; e<elements.length;e++) {
					s+="\n "+e+": "+elements[e].name;}
			malert(err+"Element no object: [ "+oldname+" ]"
			+"\n\n ElementsZahl: "+elements.length+" Name: "+name+s+"\n"
			+"\n\ndocument.forms.length: "+document.forms.length);
			}
	return null; // error
} // ele123()

//--------------

var imgs=new Array();

function I(x2) { I2(x2,imgs) }

function I2(x2,img_fld) {
	var x2test=x2.split(" ");
	if (x2test.length <1 ) {
//		malert("nur 1 Leerzeichen erlaubt:\n\nI("+x2+")\n\n hat aber "+(x2test.length-1)+" Leerzeichen")
		}
	else
	 img_fld.push(x2);
}

var msg_bez="";

function qG(x) {return '"'+x+'"' ;}
function quote(x) {return "&quot;"+x+"&quot;" ;}
function KL(x) {return "("+x+")"; }
function KLQ(x) {return "("+quote(x)+")"; }
function N(x) {return x.replace(/ /g,"&nbsp;");}

function is_func(x) { return "function"==x; }

function exp_gx(txt) {return exp_gx2(txt,imgs); }

function exp_gx2(txt,img_fld) {
	var tx=txt;
  for(var i=0;i<img_fld.length;i++) {
		var spl=img_fld[i].split(" ");
		if ( spl.length>0 && tx.indexOf(spl[0])>-1) {
			if (is_FOR) tx=R(tx,spl[0],Ka("img")+spl[1]+Ke("img"));
			else {
			var kurz1=R(spl[0].length <3 ? spl[0] : spl[0].substring(1,spl[0].length-1),"_"," ");
			var itit=spl.length<3 ? "" : img_fld[i].substring( img_fld[i].indexOf(spl[1])+spl[1].length,img_fld[i].length) ;
			if (bit_img & 8) itit=kurz1+itit;
			var i_ops=""
				+ ((bit_img & 3) ? (" border="+ qG( bit_img & 1? 0:1)):"")
				+ ((bit_img & 4) ? (" alt="+qG(kurz1)) :"")
				+ ((bit_img & 16) ? (" title="+qG(itit)) :"");

			tx=R(tx,spl[0],IMGXX( qG(spl[1]),"", i_ops));
			}
			}
		}
  return tx;
	}

function gx_submit() {
	var txt=ele123("text").value;

	if (is_func(typeof ext_stopp)) {
		// submit beenden
		var stop=ext_stopp();
		if (stop==false) return false;
		if (stop != true)
			malert("in gx_submit() - Logicfehler");
		}

	if (is_BBC ) 	txt=maskieren(txt); // soll maskieren

	if (is_func(typeof ext_vorschau))
		txt=ext_vorschau(txt);

	if (is_BBC && !is_FOR ) {
		txt=exp_bbc(txt);
		} // bbcodes expandieren

	if (is_GX) txt=exp_gx(txt);  // extra smilies

	ele123("text").value=txt;
	return true;
}

var lst_bb="";
function w_txt6(sm,msg_bez1,lst_sm,pop1,pop2,lst_bb1)
//  EingabeHilfen f&uuml;r das Nachrichten-Feld
//  Aufruf: 	w_txt6("F","meine Meinung:","smile,1,54","sm1","sm2","b,u,i");
{
frm123=document.forms.form;

is_FOR=sm.indexOf("F")>-1;
is_GX=sm.indexOf("x")>-1;
is_BBC=is_FOR || sm.indexOf("B")>-1;

var oben=sm.indexOf("o")>-1  // smilies oben

sm= is_FOR ? "F":"G";
if (is_GX || is_BBC) frm123.onsubmit=gx_submit;


msg_bez=L(35,msg_bez1);
lst_sm=L(36,lst_sm);
lst_bb=L(37,lst_bb1);

var ivs="<input type=button onclick=\"return vorschau('"+sm+"');\" name='preview' value='Vorschau'>"

var s="";

s += oben ?  ivs : msg_bez ;

s+=N(" ")+tag_af(vz_hp,	"(?)","",	L(2,"kurze Hilfe"),
'Hilfe2'+KL(quote(L(1,"Smilies und Formatierung"))) )+"<br>";
if (oben) {
	ivs=s;
	s="";
	}

var sm_arr=lst_sm.split(",");
for(var l=0;l<sm_arr.length;l++) {
	if (sm_arr[l] !="" )
  s += " "+tag_af(vz_hp,gif123(sm_arr[l]),"",L(3,"Smilie anf&uuml;gen"),
		 'smGF'+KL(quote(sm_arr[l])+',0,self'));
	}

if (pop1 != "" ) {
	s += " "+tag_af(vz_hp,Ka(pop1),"",L(4,"mehr Smilies"),"click_sm"+KLQ(sm));
	}
if (pop2 != "" && ( "object"== typeof imgs)) {
	s+= " "+tag_af(vz_hp,Ka(pop2),"",L(5,"noch mehr Smilies"), "extra_imgs()");
	}
if (is_func(typeof ext_pop)) s+=ext_pop();

if(is_FOR || window.location.href.indexOf("gbm.")>-1) {
s += "<br>";

var add_bb_f= is_func(typeof ext_add_bb) ? "ext_add_bb" : "add_bb";

sm_arr=lst_bb.split(",");
for(var l=0;l<sm_arr.length && sm_arr[l]!="";l++) {
	s += " "+tag_af(vz_hp,Ka(sm_arr[l]),"","Textformatierung: "+Ka(sm_arr[l])+hlf2("T",sm_arr[l]),
		add_bb_f+KLQ(sm_arr[l]));
	}
}
s += "<br><br>";

s += oben ? (ivs+"<br>"+msg_bez) : ivs;

doc_w(document,s);
} // w_txt6()

function L(n,x) { return is_func(typeof ext_L) ? ext_L(n,x) : x; 	}

function IMGXX(x,t,ex) { return '<img src='+x+(t==""? "" : (" title="+qG(t)) )+ (ex==""?"":(" "+ex))+'>';}
function IMGX(x,t) { return IMGXX(x,t,""); }

function gif123(nr)
{
	return IMGXX(gif123x(nr),"",img_opt);
}
function gif123x(nr)
{
	return qG((is_onl? uvz_sm123 : uvz_loc_sm)+nr+'.gif');
}

var bb_lst1_alt=":),smile,:(,frown,:o,redface,;),wink,:|,4,:grazy:,1,:cool:,5,:punk:,6,:wut:,8,:heilig:,9,:unschuld:,10,:heul:,11,:teufel:,13,:heh:,15,:knirsch:,16,:knall:,17,:wink:,18,:tanz:,19,:joker:,20,:schlaf:,21,:bier:,22,:nosmile:,23,:raucher:,24,:engel:,25,:bday:,26,:burn:,27,:liebe:,28,:party:,29,:richter:,30,:strahl:,31,:pacman:,32,:zauber:,33,:blabla:,35,LOL,34,:idee:,36,:bravo:,37,:clown:,38,:staun:,39,:vampir:,40,:disco:,41,:schwert:,42,:schuss:,43,:starwars:,44,:present:,45,:egypty:,46,:maus:,47,:computer:,48,:trink:,49,:trainer:,51,:kotz:,52,:wurm:,53,:nene:,54,:roll:,55,:herz:,56,:schleife:,57,:ninja:,58,:streit:,60,:klo:,61,:angst:,62,:xmas1:,63,:xmas2:,64,:xmas3:,65,:xmas4:,67,:xmas5:,68,:xmas6:,69,:xmas7:,70,:schnee1:,66".split(",");
var bb_lst1=":dumbledore:,smilie_dumbledore2,:butterbier:,smilie_ron_harry_butterbier,:harry:,smilie_HarrryPotter2,:gryffindor:,smilie_Gryffindorwappen,:slytherin:,Smilie_Slytherinwappen,:hedwig:,smilie_Hedwig,:dunklesmal:,smilie_dunklesmal2,:myrte:,smilie_maulende_myrte2,:mrsblack:,smilie_mrs_black_deu,:fredgeorge:,smilie_fred_george_weasley,:troll:,smilieTroll,:annehmbar:,smilieAnnehmbar,:ohnegleichen:,smilieOhnegleichen,:quidditch:,smilie_ron_quidditch,:umbridge:,smilie_umbridge,:moody:,smilie_moody2,:ron:,smilie_ron_weasley,:hermine:,smilie_hermione_granger,:crabbegoyle:,smilie_crabbe_goyle,:draco:,smilie_draco_malfoy3,:voldemort:,smilie_voldemort".split(",");
function unesc_op(x)
{
	return unescape(window.opera? R(x,"\t","  "):x);
}
function add_bb(bb)
// bb-Tags anf&uuml;gen
{
var x="?";
var e=" - "+hlf2("T",bb)+" - ";
// \t ("+L(25,"wird am Ende angef%FCgt")+")\n
if (bb=="url" ) x=prompt(unesc_op(Ka(bb)+e),"http://");
if (bb=="img" ) x=prompt(unesc_op(Ka(bb)+e),"http://");
if (x=="?") x=prompt(unesc_op("Text f%FCr:\t" +Ka(bb)+e),"");
if (x && x.length > 0) {
	if (is_BBC) {
		return add_cod1(" "+Ka(bb+(bb=="url"?('='+x):""))+x+Ke(bb));
		}
	else { // G&auml;stebuch
		if (bb=="email") {
			return add_cod1(" "+tag_ax("mailto:"+x,x,"",""));
			}
		if (bb=="url") {
			return add_cod1(" "+tag_ax(x,x,"_blank",""));
		}
		if (bb=="img") {
			return add_cod1(" "+IMGXX(qG(x),"",img_opt));
		}
		return add_cod1 (" "+tag(bb,x));
		}
	}
	return false;
}

function smGF(n,p,wobj)
{
	var cod="";
	if( is_FOR) cod="[img]"+vz_123gb+n+".gif[/img]";
	else {
		for( var i=1;cod=="" && i<bb_lst1.length;i +=2) {
			if (bb_lst1[i] == n) cod=" "+bb_lst1[i-1];
			}
	}
	if (p>0) cop_op(wobj,cod);
	return add_cod1(cod);
}

function hlf2(opt,x1) {
var h7_arr=new Array(
"i Schrift kursiv",
"b Schrift fett",
"u Schrift unterstrichen",
"marquee Laufschrift",
"img externes Bild einbinden",
"url externer Link",
"email eMail-Adresse",
"Zitat Zitat hervorheben",
"quote Zitat hervorheben",
"code code-Absatz hervorheben");

var s="", x=x1;
if (opt=="H") {
	for(var h=0; h<h7_arr.length;h++) {
		x=h7_arr[h];
		var i=x.indexOf(" ");
		s+= (","+lst_bb+",").indexOf(","+x.substring(0,i)+",")<0? "": "%5B"+x.substring(0,i)+"%5D%09"+x.substring(i,x.length)+"%0D";
		}
	}
else if (opt=="T") {
	for(var h=0;s=="" && h<h7_arr.length;h++) {
		var i=h7_arr[h].indexOf(" ");
		if( x == h7_arr[h].substring(0,i) )	{
			s=h7_arr[h].substring(i,h7_arr[h].length);
			}
		}
	}
return s;
}

function shlf2(x) {
var i=x.indexOf(" ");
return (","+lst_bb+",").indexOf(","+x.substring(0,i)+",")<0? "": "%5B"+x.substring(0,i)+"%5D%09"+x.substring(i,x.length)+"%0D";
}

function Hilfe2(tit){
var f1=lst_bb.split(",");
var t2="%5Bx%5D";
if (f1.length>2) {
	var tr="%5D, %5B";
	t2="%5B"+f1.join(tr)+"%5D";
	var t2a=t2.lastIndexOf(",");
	t2=t2.substring(0,t2a)+" oder"+t2.substring(t2a+1,t2.length);
	}

alert(unescape(L(9,
"Hilfe f%FCr die Formatierung des Eingabe-Feldes%0D%0DSatzteile lassen sich hervorgehoben anzeigen,%0DSmilies lassen sich per Klick einbinden.%0D%0Ddie z.T. komplizierten %27tags%27 werden IMMER am%0DEnde des Eingabefeldes angef%FCgt%21%0D%0D"
// jetzt mit Automatik Auswahl
+hlf2("H","")
+"%0DUm einen formatierten Text einzugeben zuerst %0Dauf "
+t2
+" klicken,%0D%0Ddann den Text im neu erscheinenden Fenster %0Deingeben und %27OK%27 dr%FCcken.%0D")));

return false;
}

function tag(t1,s)
{
return '<'+t1+'>'+s+ '</'+t1.split(" ")[0]+'>';
}

function tag_af(url,txt,targ,tit,func)
{
	return tag_axx(url,txt,targ,tit," onclick='return "+func+"' ");
}

function tag_ax(url,txt,targ,tit)
{
	return tag_axx(url,txt,targ,tit,"");
}

function tag_axc(url,txt,targ,tit,cl)
{
return tag_axx(url,txt,targ,tit,cl==""?"":(" class="+cl));
}

function tag_axx(url,txt,targ,tit,extra)
{
var lnk='a href=\"'+url+'\"';
if (targ!="") lnk+=' target=\"'+targ+'\"';
if (tit!="") lnk+=' title=\"'+tit+'\"';
if (extra!="")lnk+=" "+extra+" ";
return tag(lnk,txt);
}

function inp_wc() {
	return tag("input name='wc' type=button onclick=self.close() value="+qG(L(29,"close"))+" title="+qG(L(13,"Fenster schliessen")),"");
}
function vorschau(sm) {

var txt=x_vorschau(sm);

var s;
with(frm123) { // vorschauxxx
	var wert;
	if (is_FOR) {
		wert=ele123("topic").value;
		s=s+tag("tr", tag("td",tag("small","Thema:"))+tag("td",tag("b",wert ? 		wert : "Warning: Thema fehlt".fontcolor("#ff0000"))));}
	wert=ele123("name").value;
	s=s+tag("tr", tag("td",tag("small","Name:"))+tag("td",tag("b",wert ? wert : "Warning: Name fehlt".fontcolor("#ff0000") )));
	s=s+tag("tr", tag("td",tag("small","eMail:"))+tag("td",tag("b",ele123("email").value)));
	if(! is_FOR) {
		wert=ele123("url").value;
	 	if( wert != "http://") s=s+tag("tr", tag("td",tag("small","Homepage:"))+tag("td",tag("b",wert.link(wert))));
		}
	}


s=s+tag("tr", tag("td valign=top colspan=2",tag("small",msg_bez+":")+"<p>"+txt));
s=tag("table border=1 cellpadding=10 width=90%" ,s)+"<p>";
s+=tag("input type=button value="+qG(" - ok - ")+" onclick=opener.preview_ok(window) ","");


s=tag("center",s);
s=s+tag("blockquote",tag("small",L(15,"Hinweis: dieses Fenster soll vorab das ungef&auml;hre Aussehen der Nachricht anzeigen,<br>bevor du sie endg&uuml;ltig abschickst.<br>Der Zeilenumbruch wird im Original evtl. anders aussehen.<br>Zur Korrektur schliesse dieses Fenster und verbessere deine Eingaben.")
	+L(17,"<br><br>siehe auch bei ")+ (is_FOR ? "Formatierungen "+"bb-codes".link("bb.php") : "Smilies".link("Smilies.html"))
	+foot_bt1()));


w_wx6("preview",680,480, x_script," - "+
	L(10," pr&uuml;fe deinen Eintrag ins ")+tag("i",document.title)
	,s);
return false;
}

function x_vorschau(sm)
{ // sm: Forum oder GB
var s="";
var txt;

	txt=ele123("text").value;

	if( is_BBC ) txt=maskieren(txt);

	if(is_GX) txt=exp_gx(txt);

	if (is_func(typeof ext_vorschau)) txt=ext_vorschau(txt);


	txt=txt.replace(/\n/g,"<br>");

	if (is_BBC) txt=exp_bbc(txt);

var txt2="";
if(is_func(typeof ext_komm)) {
	txt=ext_komm(txt); // .substring(8,txt.length) ??
	var txve=txt.indexOf("<form name=copykom");
	if (txve>0) {
		// für Kommentar Smilies codiert lassen
		txt2=txt.substring(txve,txt.length);
		txt=txt.substring(0,txve);
		}
	}

if (! is_FOR)
	for (var l=1;l<bb_lst1.length ;l=l+2 ) {
		// nur im G&auml;stebuch
  	// txt=R(txt,bb_lst1[l-1],gif123(bb_lst1[l]));
		txt=R(txt,bb_lst1[l-1],gif123(bb_lst1[l]));
		}
txt+=txt2;

	return txt;
}

function preview_ok(wdo)
{
wdo.close();
ele123("submit").focus();
}

function fc_img(h,f2) {
		if (!is_onl)  h=R(h,vz_123gb,uvz_loc_sm);
		return "<img src="+qG(h)+" "+(f2==""?img_opt:f2)+">";
		}

function exp_bbc(txt) {

	function fc_bb(h,f2) { return tag(f2,h);}

	function fc_div(h,f2) { return "<p>"+Ka(f2+":").small().bold()+tag("div class="+f2,h);}

		var bl = "i,b,u,marquee".split(",");
		for (var l=0;l<bl.length && txt.indexOf("[")>-1;l++ ) {
			if ((","+lst_bb+",").indexOf(","+bl[l]+",")>-1)
				txt=chg_bbx5(txt,Ka(bl[l]),"",fc_bb,bl[l]);
			}

	function fc_url(h,f2) {
		var k=h.indexOf("]");
		return tag_ax(f2+(k==0?h.substring(1,h.length):h.substring(1,k)) ,
			h.substring(k+1,h.length),"_",f2==""?"Seite besuchen":"Email schreiben");}

	if (lst_bb.indexOf("url")>-1 )
		txt=chg_bbx5(txt,"[url","[/url]",fc_url,"");

	if (lst_bb.indexOf("email")>-1 )
		txt=chg_bbx5(txt,"[email","[/email]",fc_url,"mailto:");

  if (lst_bb.indexOf("img")>-1)
		txt=chg_bbx5(txt,"[img]","",fc_img,"");


	for (var qc_x="code,quote,Zitat".split(","), i=0; i<qc_x.length;i++) {
	  if (lst_bb.indexOf(qc_x[i])>-1)
			txt=chg_bbx5(txt,Ka(qc_x[i]),"",fc_div,qc_x[i]);
		}
	return txt;
	}


function chg_bbx5(txt,f1,f2,func,f5) {
if (! is_func(typeof func) ) {
	 malert("chg_bbx5: typeof func "+typeof func);
	return txt;
	}
var k1=1;
if (f2=="") f2="[/"+f1.substring(1,f1.length);
while(txt.indexOf(f1)>-1 && k1>=0) {
k1=txt.indexOf(f1);
var k3=-2;
if (k1 > -1) {
	k3=k1+txt.substring(k1,txt.length).indexOf(f2);
  if (k3 <k1) {
		return txt;
		}
	var h=txt.substring(k1+f1.length,k3);
	h=func(h,f5);
 	txt=txt.substring(0,k1)+h+txt.substring(k3+f2.length,txt.length);
	}
}
return txt;
} // chg_bbx5()


function maskieren(txt){ return R(R(txt,"<","&lt;"),">","&gt;");}
function KX(x,ka,ke) { return ka+x+ke; }
function Ka(x) {return KX(x,"[","]");}
function Ke(x) {return KX(x,"[/","]");}

function foot_bt1()
{
var s=" "+tag_af(vz_hp,"(i)".small(),"","Script-Vers: "+akt_123gbjs,"false;")
	+" "+tag_ax(http_btools , "btools".italics().small(),"_blank","");
return "<hr>"+s+"<hr>";
}

function wpara(wx,wy) {
return "width="+wx+",height="+wy+",left=50,top=20,toolbar=no,location=no,scrollbars=yes,status=yes,resizeable=yes";
}

function doc_wx4(doc,scripts,title,bodytxt)
{
	var wc=tag("p ",tag("form style='text-align:right'",inp_wc()));
	var s1= tag("h4 style='width:80%; float:left;'",title+"<br>")+wc+"<hr>"
		+bodytxt+wc;

	if (is_func (typeof ext_style)) s1=ext_style(s1);

	doc_w(doc,tag("html",tag("head",tag("title",title)+scripts)+
		tag("body "+bodypara ,s1)));
}

function w_wx6(targ,wd,ht, scripts,title,bodytxt)
{
	var w=window.open("about:blank",targ,wpara(wd,ht));
	if (w) {
		doc_wx4(w.document,scripts,title,bodytxt);
		w.focus();
		}
	return w;
}


function click_warn() {
var click_warn=L(20,"mit dem Click soll ein Code am Ende des Eintrages angef&uuml;gt werden.")
if (window.opera) {
	click_warn += L(21," M&ouml;glicherweise geht das aber nicht mit dem ")
		+(opera_chk?"hier verwendeten ".bold() : "") +"Opera-Browser".bold()
		+",<br>"+L(22," dann den Code &quot;manuell&quot; einf&uuml;gen&nbsp;...");
	}

click_warn+=tag("form name='CW'",
tag('input type=text name=tc size=30 value='+qG(L(28,"copy code ...")),"")
+N(" ")+inp_wc() );
return click_warn;
}

function extra_imgs()
	{ return extra_imgs4("imgs",20,20,"extra clickbare Smilies") }

function extra_imgs4(img_fld_name,hsp,vsp,titz)
{
var img_fld=eval(img_fld_name);
var s=tag("h4",titz);
s+=click_warn().small();
s+="<hr>";
for(var i=0;i<img_fld.length;i++) {
if (img_fld[i]!="")
 s += tag_af(vz_hp ,
		IMGXX( is_GX?img_fld[i].split(" ")[1]:img_fld[i].split(" ")[0],"", img_opt+" hspace="
			+qG(hsp)+" vspace="+qG(vsp)), "",img_fld[i],
"opener.add_img3"+KL("self,"+i+","+quote(img_fld_name)));
}
s+=foot_bt1();

var wci=window.open("","wci_btools",wpara(300,300));
doc_w(wci.document,s);
wci.focus();
return false;
}

function click_sm(art) { return click_smx("opener"); }

function click_smx(call_wdo)
{ // call_wdo "opener" oder "parent"
var s=tag("h4",L(24,"clickbare Smilies von 123gb.de"));
s+=click_warn().small();
s+="<hr>";
for(var i=1;i<bb_lst1.length;i+=2) {
var lnk='<img src='+gif123x(bb_lst1[i])+' border=0 hspace=10 vspace=10>';
s += tag_af(vz_hp,  // +(opera_chk? "'1" : "'0")
	lnk,"",	gif123x(bb_lst1[i])+(is_FOR?"": " -- "+bb_lst1[i-1]),
	call_wdo+".smGF"+KL(quote(bb_lst1[i])+",1,self" ) );
}
s+=foot_bt1();
if (call_wdo =="opener")
	var wci=window.open("","wci_btools",wpara(300,300));
else wci=window.if1;
doc_w(wci.document,s);
wci.focus();
return false;
}

function cop_op(wobj,cod) {
	with(wobj.document.forms[0]){
		tc.value=cod;
		}
}

function add_img(art,wobj,i)
	{return add_img3(wobj,i,"imgs");}

function add_img3(wobj,i,img_fld_name)
{
var img_fld=eval(img_fld_name);
var cod = get_icod2(img_fld,i)
cop_op(wobj,cod);
return add_cod1(cod); // freeze
} // add_img3()

function get_icod2(feld,i) {
	var cod = is_GX ? cod=feld[i].split(" ")[0] : (is_BBC ?
		('[img]'+feld[i]+'[/img] '): IMGX(qG(feld[i]),"") )

	return cod;
	}

function add_cod1(cod){
	ele123("text").value +=cod;
 return false;
}

function R(text,find,repl){
  return  RI(text,find,repl,false);
}

function RI(text,find,repl,fall){  // Replace Ignore Case
    var found = fall?text.toLowerCase().indexOf(find.toLowerCase()):text.indexOf(find);
    var retVal= ""; var start = 0;
    while(found != -1 && find.length>0){
      retVal +=text.substring(start,found) +repl;
      start = found+find.length;
			found = fall?text.toLowerCase().indexOf(find.toLowerCase(),start):text.indexOf(find,start);
    }
    retVal +=text.substring(start,text.length);
    return retVal;
  }


function doc_w(doc,s)
{
with (doc) {
	open();
	write(s);
	close();
	}
}

function pfad(pf1,pf2,nam) {
  return (is_onl ? pf1 : pf2)+nam;
}

function I3(x) {
	var i1=x.indexOf(" ");
	var fname=x.substring(0,i1);
	return I2(x.substring(i1+1,x.length),eval(fname));
	}

function xpopup7(url,bez,utitl,feldname,delta_x,delta_y,kopf_zeile) {
	var k=",";
	return tag_af(url,bez,"",utitl,	
		"extra_imgs4"+KL(qG(feldname)+k+delta_x+k+delta_y+k
			+qG(maskieren(kopf_zeile))));
}

function quick_click4(feldname,i,xw,yh)
{
var feld=eval(feldname);
if (i <0 || i >= feld.length) {
	malert("ERROR : "+feldname+"\nFeldindex ["+i+"] ausserhalb der Feldlänge: ["+feld.length+"]\n");
	return "Error";
	}
var cod= get_icod2(feld,i);
return tag_af(vz_hp ,
		IMGXX( is_GX ? feld[i].split(" ")[1]:feld[i],"", img_opt+" width="
			+qG(xw)+" height="+qG(yh)), "",feld[i],
		"add_cod1"+KL(quote(cod)));
}

// EOF