////////////////////////// set default parameters //////////////////////////
function poem_setDefaultVar() {
  poemDefaultFont = "simplified arabic,tahoma,ms sans serif,verdana,arial,helvetica";

  poemType = "0",
  poemAlign = "center",
  poemLine = "0";
  poemUse = "ex";

  poemFontName = "",
  poemFontSize = "7",  // 1 to 7
  poemFontColor = "",
  poemFontBold = "",
  poemFontItalic = "";

  poemBackColor = "none",
  poemBackImage = "none";

  poemBorderStyle = "none",
  poemBorderWidth = "4",
  poemBorderColor = "gray";

  poemSerialNum = "0",
  poemSerialNumColor = "";

}

//////////////////////////////////////////////////////////////////////////
  var poemSpaceWidth, poemExtendWidth;
  var poemToolFix, poemPrevHTML, poemMargin, poemPadding;

  var poemLetters1 = "ÇÃÅÂÄÁÏÐÑÒæÉì"
  var poemLetters2 = "ÇÃÅÂÄÆÈÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÝÞßáãäåæíÉì";
  var poemLetters3 = "óðõñöòúø";

  /*function create_poemTestWidth_table() {
    if (!document.getElementById("poemtestWidth")) {
      var HTML = "<table border=1 width=1px style='visibility:hidden;position:absolute'>";
      HTML += "<tr><td id='poemTestWidth' width='0px' nowrap></td></tr>";
      HTML += "</table>";
      document.body.insertAdjacentHTML("afterBegin", HTML);
    }
  }*/

  function poem_getValue(t, p) {
    var r = new RegExp("([ \"]|^)" + t + "[ ]*=[ ]*\"[^\"]*\"", "i");
    var m = p.match(r);
    if (!m) {
      r = new RegExp("([ \"]|^)" + t + "[ ]*=[ ]*[^\" ]*([ ]|$)", "i");
      m = p.match(r);
      if (!m)
        return "";
    }
    m = m[0];
    m = m.replace(/\"/gi,"");
    var i = m.search("=");
    return m.substring(i + 1);
  }

  function poem_getDefault(p, d) {
          var r = ((p)?p:d);
          return poem_trim(r);
  }

  function poem_setArg(arg) {
    var par, poemFontSize2;

    par = poem_getValue("font", arg) + ",,,,";  //comas = number of arrays - 1
    par = par.split(",");
    poemFontName = poem_getDefault(par[0], poemFontName);
        poemFontName = poemFontName.replace(/\-/g, ",");
    poemFontSize2 = parseInt(poem_getDefault(par[1], poemFontSize));
        if (isNaN(poemFontSize2))
                poemFontSize2 = 0;
        if (poemFontSize2 < 1 || poemFontSize2 > 7)
                poemFontSize2 = poemFontSize;
        poemFontSize = poemFontSize2;

    poemFontColor = poem_getDefault(par[2], poemFontColor);
    poemFontBold = poem_getDefault(par[3], poemFontBold);
    poemFontItalic = poem_getDefault(par[4], poemFontItalic);

    par = poem_getValue("border", arg) + ",,";
    par = par.split(",");
    poemBorderStyle = poem_getDefault(par[0], poemBorderStyle);
    poemBorderWidth = poem_getDefault(par[1], poemBorderWidth);
    poemBorderColor = poem_getDefault(par[2], poemBorderColor);

    par = poem_getValue("num", arg) + ",";
        par = par.split(",");
    poemSerialNum = poem_getDefault(par[0], poemSerialNum);
        if (!poemSerialNum)
                poemSerialNum = 0;
        else {
                poemSerialNum = parseInt(poemSerialNum);
                if (isNaN(poemSerialNum))
                        poemSerialNum = 0;
        }
    poemSerialNumColor = poem_getDefault(par[1], poemSerialNumColor);

    par = poem_getValue("type", arg);
    poemType = poem_getDefault(par, poemType);

    par = poem_getValue("align", arg);
    poemAlign = poem_getDefault(par, poemAlign).toLowerCase();

    par = poem_getValue("line", arg);
    poemLine = poem_getDefault(par, poemLine);
        poemLine = parseInt(poemLine);
        if (isNaN(poemLine))
                poemLine = 0;
        if (poemLine == 0) {
                poemPadding = "5px";
                poemMargin = "";
        } else {
                poemPadding = 15;
                poemMargin = "margin-bottom:" + poemPadding;
        }

    par = poem_getValue("use", arg);
    poemUse = poem_getDefault(par, poemUse).toLowerCase();

    par = poem_getValue("bkcolor", arg);
    poemBackColor = poem_getDefault(par, poemBackColor);

    par = poem_getValue("bkimage", arg);
    poemBackImage = poem_getDefault(par, poemBackImage);

/////////////////////////
  }

  function poem_trim(t) {
    t = t.replace(/^[ ]+/, "");
    t = t.replace(/[ ]+$/, "");
    return t;
  }

  function poem_textWidth(t) {
        t = t.replace(/ /g, "&nbsp;");
        t = t.replace(/\^/g, "");
        poemTestWidth.innerHTML= t;
    return (poemTestWidth.clientWidth - 2) * 0.75;
  }

  function poem_strReplace(t, s1, s2, c) {
        if (c <= 0)
          return;
    t=t.split(s1);
    var s="";
    for (var i=t.length-1;i>0;i--)
          if (c-->0)
        s = s2 + t[i] + s;
          else
                s = s1 + t[i] + s;

        s = t[0] + s;
    return s;
  }

  function poem_count(str, ch) {
    var c = 0;
    for (var i = 0; i < str.length; i++)
      c += (str.charAt(i) == ch);
    return c;
  }

  function poem_space(n) {
    if (n == 1)
      return " ";
    return  " " + poem_space(n-1);
  }

  function poem_createExtend(t) {
    var alef = "ÇÃÅÂ";
    var s = "";
    var befor = "", ch = "";
    t = t.replace(/Çááå/g,"alh");
        t = t.replace(/ááå/g,"lah");
    for (i = 0; i < t.length; i++) {
      ch = t.charAt(i);
      if (poemLetters2.indexOf(ch.charAt(0)) != -1 || ch.charAt(0) == "Á") {
        if (befor != "")
          if (poemLetters1.indexOf(befor.charAt(0)) == -1 && poemLetters2.indexOf(ch.charAt(0)) != -1
            && (befor.charAt(0) != "á"
            || alef.indexOf(ch.charAt(0)) == -1))
            s += "^";
        befor = ch;
        s += ch;
      }
      else {
        s += ch;
        if (poemLetters3.indexOf(ch.charAt(0)) == -1)
          befor = "";
      }
    }
    s = s.replace(/alh/g,"Çááå");
        s = s.replace(/lah/g,"ááå");
    return s;
  }

  function poem_extend(n) {
        if (n <= 0)
      return "";
    if (n == 1)
      return "Ü";
    return  "Ü" + poem_extend(n-1);
  }

  function poem_justifyBYextend(t, w) {
    var ex = 0, i, d, n, p, m;
    ex = poem_count(t, "^");
    if (ex == 0) return t;
    d = Math.floor((w - poem_textWidth(t.replace(/\^/g,""))) / poemExtendWidth);
    t = t.split(" ");
    n = 0;
    for (i = 0; i < t.length; i++)
      n += (t[i].indexOf("^") != -1);
    p = Math.floor(d / n);
    m = d % n;
    for (i = t.length-1; i >= 0; i--) {
      ex = poem_count(t[i], "^");
      if (ex == 0)
        continue;
      d = p + (m-- > 0);
      n = Math.floor(d / ex);
      if (n > 0)
        t[i] = t[i].replace(/\^/g, "^" + poem_extend(n));
      if (d % ex > 0)
        t[i] = poem_strReplace(t[i], "^", "Ü", d % ex);
    }
    t = t.join(" ");
    t = t.replace(/\^/g, "");
    return t;
  }

  function poem_justifyBYspace(t, w, dir) {
    var sp = 0, i, d, tw, n;
    sp = poem_count(t, " ");
    if (sp != 0) {
      d = Math.floor((w - poem_textWidth(t)) / poemSpaceWidth);
      n = Math.floor(d / sp);
      if (n > 0)
        t = t.replace(/ /g, poem_space(n + 1));
      if (d % sp > 0)
        t = poem_strReplace(t, poem_space(n + 1), poem_space(n + 2), d % sp);
    }
    tw = w - poem_textWidth(t);
    if (tw > 0) {
      i = t.lastIndexOf(" ");
      if (i == -1)
        if (dir == 0)
          return t;
        else
          i = ((dir==2)?-1:t.length-1);
    } else
                tw = 0;
        t = t.substr(0, i+1) + poemToolFix.replace(/%w%/,tw + "pt") + t.substr(i+1);
    return t;
  }

  function poem_justify(t, w, dir) {
    if (poemUse == "ex") t = poem_justifyBYextend(t, w);
    return poem_justifyBYspace(t, w, dir);
  }

  function showPoemLine(preview, html) {
        if (preview)
                poemPrevHTML += html;
        else
                document.write(html);
  }

  function doPoem(preview) {
        var found = 0, div;
        poem_setDefaultVar();
        if (preview) {
                div = poemExample;
                poemPrevHTML = "";
        }
        else {
                var d = document.getElementsByTagName("div");
                div = d[d.length -1];
        }
        var poem = div.innerHTML.replace(/<br \/>|<br>/gi, "\r");
        if (poem == "")
                return;
        if (!div.tag)
                div.tag = "";
        if (!preview)
                div.innerHTML = "";
        var arg = div.tag.replace(/\\\"/g, "'");

//window.onload=  create_poemTestWidth_table();
      var HTML = '<table border=1 width=1px style=\'visibility:hidden;position:absolute\'>';
      HTML += '<tr><td id=\'poemTestWidth\' width=\'0px\' nowrap style=\'font-family:'+poemFontName+';font-size:'+poemFontSize+';font-weight:'+poemFontBold+';font-style:'+poemFontItalic+'normal\'></td></tr>';
      HTML += '</table>';
  document.body.insertAdjacentHTML('afterBegin', HTML);

   /*     poemFontSize = facesize[poemFontSize - 1];

   poemFontName += "," + poemDefaultFont;

    poemTestWidth.style.fontFamily = poemFontName;
    poemTestWidth.style.fontSize = poemFontSize;
    poemTestWidth.style.fontWeight = poemFontBold;
    poemTestWidth.style.fontStyle = poemFontItalic;
style="font-family:Arial, Helvetica, sans-serif;font-size:xx-large;font-weight:bolder;font-style:normal-*/
        poem_setArg(arg);

        poemToolFix = "<span style='font-size:1pt;padding-right:%w%;'></span>";
    poemToolFix = poemToolFix.replace(/ /g,"^");

        poem = poem.replace(/</g, "&lt;");
        poem = poem.replace(/>/g, "&gt;");
        poem = poem.replace(/[\^]|^[\r]+|[\r]+$|\n/g, "");
        poem = poem.replace(/^[ ]+|[ ]+$|/g, "");
        poem = poem.replace(/[Ü]+( |$)/g, "ext1");
        poem = poem.replace(/(^| )[Ü]+/g, "ext2");
        poem = poem.replace(/Ü/g, "");
        poem = poem.replace(/ext1/g, "Ü");
        poem = poem.replace(/ext2/g, "Ü");
    poem = poem.replace(/[ ]+/g, " ");
        poem = poem.replace(/[ ]*=[ ]*/g, "=");
        poem = poem.replace(/[ ]+\r|\r[ ]+/g, "\r");
   
// poem = poem.replace(/=/g, "");

        if (poem.substring(poem.length-1) != "\r") poem += "\r";

        poemExtendWidth = poem_textWidth("Ô" + "ÜÜ" + "Ô");
    poemExtendWidth -= poem_textWidth("Ô" + "Ü" + "Ô");
    poemSpaceWidth = poem_textWidth("Ô" + "&nbsp;&nbsp;" + "Ô");
    poemSpaceWidth -= poem_textWidth("Ô" + "&nbsp;" + "Ô");

        var tmp, MTW, MTW1;

        tmp = "\r" + poem + "\r";
        tmp = tmp.replace(/\r[^\r]+\=[^\r]+/gi,"");
        tmp = tmp.replace(/\r/g,"<br>");
        var MTW1 = poem_textWidth(tmp);

        tmp = "\r" + poem + "\r";
        tmp = tmp.replace(/\r[^=]+\r/gi,"\r");
        tmp = tmp.replace(/=/g,"<br>");
        tmp = tmp.replace(/\r/g,"<br>");
        var MTW = poem_textWidth(tmp);
        tmp = "";

        if (poemUse=="ex") {
          var test = poem_textWidth(poem);
          poem = poem_createExtend(poem);
      test = (poem_textWidth(poem.replace(/\^/g, "Ü")) - test) / poem_count(poem,"^");
          //if (test != poemExtendWidth) //problem in some fonts
                //poem = poem.replace(/\^/g, "^Ü");
    }

// *************
    var poemBodyStyle = "", fonts = "";
        fonts += ";font-family:" + poemFontName;
    fonts += ";font-size:" + poemFontSize;
    fonts += ";color:" + poemFontColor;
    fonts += ";font-weight:" + poemFontBold;
    fonts += ";font-style:" + poemFontItalic;
        poemBodyStyle += fonts;
    poemBodyStyle += ";background-color:" + poemBackColor;
    poemBodyStyle += ";background-image:url(" + poemBackImage + ")";
        poemBodyStyle += ";border:" + poemBorderWidth + "px " + poemBorderStyle + " " + poemBorderColor;

        showPoemLine(preview, "<div align='" + poemAlign + "'>");
    showPoemLine(preview, "<table dir='rtl' border='0' cellpadding='0' cellspacing='0' width='1px' style='" + poemBodyStyle + ";'>");
// *************
        poem = "\r" + poem;

        var L, R, i, j = 0, cr = 0, sn = 0;
        var poemSide, poemSideNum, wnum;
        if (poemSerialNum > 0)
                sn = poemSerialNum - 1;
    while (1) {
             poemSideNum = "";
      poemSide = "";
          if (sn == 0)
                poemSide = "<div style='height:" + poemPadding + "px;font-size:1'></div>";
      cr = poem.indexOf("\r", cr);
          if (cr == -1) break;
      if (poem.substring(j, cr) != "") {
        i = poem.indexOf("=", j);
        if (i == -1 || i > cr) i = cr; //no '=' in this line

        L = poem.substring(j, i);
                if (L != "\r" && L != "") {
                        if (i != cr)
                                L = poem_justify(L, MTW, 1);
                        else {
                                L = poem_justify(L, MTW1, 0);
                        }
                        L = L.replace(/ /g, "&nbsp;");
                        L = L.replace(/\^/g, " ");
                }

                R = poem.substring(i + 1, cr);
                if (R != "\r" && R != "") {
                        R = poem_justify(R, MTW, 2);
                        R = R.replace(/ /g, "&nbsp;");
                        R = R.replace(/\^/g, " ");
                }

                if (poemType == 0) {
                  if (i != cr) {
                          if (L != "" && R == "")
                                poemSide = L;
                          else if (L == "" && R != "")
                                poemSide = R;
                          else if (L != "" && R != "")
                                poemSide = L + poemToolFix.replace(/%w%/, Math.floor(MTW / 2.1) + "px").replace(/\^/, " ") + R;
                  } else
                            poemSide = L;

                  poemSide = "<div align=center style='" + fonts + ";" + poemMargin +"'>" + poemSide + "</div>";

                  poemSideNum = ++sn;
                }
                else if (poemType == 1) {
                        if (i == cr) {
                                poemSide = "<div align=center style='" + fonts + ";" + poemMargin +"'>" + L + "</div>";
                        } else {
                                poemSide = "<div align='right' style='" + fonts + "; margin-left:" + Math.round(MTW) + "pt;" + poemMargin + "'>" + L + "</div>";
                                poemSide += "<div align='left' style='" + fonts + "; margin-right:" + Math.round(MTW) + "pt;" + poemMargin + "'>" + R + "</div>";
                        }
                        poemSideNum = ++sn;
                }
                else if (poemType == 2 || poemType > 3 || poemType < 1) {
                        if (i == cr) {
                                poemSide = "<div align=center style='" + fonts + ";" + poemMargin +"'>" + L + "</div>";
                        } else {
                                poemSide = "<div align='right' style='" + fonts + "; margin-left:" + Math.round(MTW/2) + "pt;" + poemMargin + "'>" + L + "</div>";
                                poemSide += "<div align='left' style='" + fonts + "; margin-right:" + Math.round(MTW/2) + "pt;" + poemMargin + "'>" + R + "</div>";
                        }
                        poemSideNum = ++sn;
                }
                else if (poemType == 3) {
                  poemSideNum = ++sn;
                  poemSide = "<div style='" + fonts + ";" + poemMargin + "'>" + L + "</div>";
                    poemSide += "<div style='" + fonts + ";" + poemMargin + "'>" + R + "</div>";
                }
          }
          if (poemSerialNum > 0 && poemSideNum != "")
                  showPoemLine(preview, "<tr><td align=left valign=top style='" + fonts + "; color:" + poemSerialNumColor + "' nowrap>&nbsp;&nbsp;" + poemSideNum + "</td>");
          showPoemLine(preview, "<td align=center valign=middle style='" + fonts + ";padding-left:15px;padding-right:15px;' nowrap>" + poemSide + "</td></tr>");
          cr += 1;
          j = cr;
    }
        if (poemLine == 0) {
                poemSide = "<div style='height:" + poemPadding + "px;font-size:1'></div>";
                if (poemSerialNum > 0 && poemSideNum != "")
                  showPoemLine(preview, "<tr><td align=left valign=top style='" + fonts + "; color:" + poemSerialNumColor + "' nowrap>&nbsp;&nbsp;" + poemSideNum + "</td>");
                showPoemLine(preview, "<td align=center valign=middle style='" + fonts + ";padding-left:15px;padding-right:15px;' nowrap>" + poemSide + "</td></tr>");
        }

    showPoemLine(preview, "</table></div>");

        if (preview)
                poemPreview.innerHTML = poemPrevHTML;
        poemPrevHTML = "";

        // *******************************************
 /*       poemFontSize = facesize[poemFontSize - 1];

   poemFontName += "," + poemDefaultFont;

    poemTestWidth.style.fontFamily = poemFontName;
    poemTestWidth.style.fontSize = poemFontSize;
    poemTestWidth.style.fontWeight = poemFontBold;
    poemTestWidth.style.fontStyle = poemFontItalic;*/

        poem_textWidth("");
   
  }
    //////////// set style ///////////
    var facesize = new Array("xx-small","x-small","small","medium","large","x-large","xx-large");


    ///////////////////////////////////
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \\

// ******************* function smilie() ******************* //
function smilie(thesmilie) {
        var oSelect, oSelectRange;
        if (!document.vbform) {
                if (opener.document.vbform.message) {
                        opener.document.vbform.message.focus();
                        oSelect = opener.document.selection;
                        oSelectRange = oSelect.createRange();
                        oSelectRange.text = thesmilie;
                        document.body.focus();
                }
        }
        else {
                obj = document.vbform.message.focus();
                oSelect = document.selection;
                oSelectRange = oSelect.createRange();
                oSelectRange.text = thesmilie;
        }
}

// ******************* [glint] code ******************* //
setInterval("doGlintText()", 50);
document.write('<div tag="dummy" id="myglinttext" style="display:none;filter:alpha(opacity=100);width:100%"></div>');
function doGlintText() {
        try {
                var a, d;
                for (var i = 0; i < myglinttext.length; i++) {
                        if (myglinttext[i].tag == "dummy")
                                continue;
                        a = parseInt(myglinttext[i].filters.alpha.opacity);
                        d = parseInt(myglinttext[i].tag);
                        if (d == 1 || d == -1)        {
                                a += d * 5;
                                if (a <= 0) {
                                        myglinttext[i].tag = "1";
                                } if (a >= 100) {
                                        myglinttext[i].tag = "2";
                                }
                                myglinttext[i].filters.alpha.opacity = a;
                        } else if (d >= 10)
                                myglinttext[i].tag = -1;
                        else
                                myglinttext[i].tag = ++d;
                }
        } catch(e) {
        ;
        }
}

// ******************* [blink] code ******************* //
setInterval("doBlinkText()", 500);
document.write('<span id="myblinktext" style="display:none"></span>');
function doBlinkText() {
        try {
                for (var i = 1; i < myblinktext.length; i++)
                        if (myblinktext[i].style.visibility == "hidden")
                                myblinktext[i].style.visibility = "visible";
                        else
                                myblinktext[i].style.visibility = "hidden";
        } catch(e) {
        ;
        }
}

// ******************* Open My RealPlayer Window ******************* //
function OpenRealMediaWindow(url) {
        open("realmedia_form.php?url="+url, "", "width=340,height=340,left=0,top=0,fullscreen=no");
}

// ******************* [frame] code ******************* //
function drawFrame() {
        var found = 0;
        var d = document.getElementsByTagName("DIV");
        for (var i = d.length - 1; i >= 0; i--) {
                if (d[i].id == "myframe") {
                        div = d[i];
                        div.id = "";
                        found = 1;
                        break;
                }
        }
        if (found == 0) return;
        tag = div.tag.replace(/[ ]+/g, " ");
        tag = tag.split("|");
        wdth = tag[1];
        if (wdth > 100) wdth = 100;
        var html = ('<center><table dir="rtl" border="0" width="' + wdth + '%" cellpadding="0" cellspacing="0"><tr><td width="1%"><img border="0" src="' + bburl + 'images/toolbox/myframes/tl' + tag[0] + '.gif" style="filter:fliph"></td><td width="33%" background="' + bburl + 'images/toolbox/myframes/t' + tag[0] + '.gif"></td><td width="1%"><img border="0" src="' + bburl + 'images/toolbox/myframes/tl' + tag[0] + '.gif"></td></tr><tr><td width="1%" background="' + bburl + 'images/toolbox/myframes/l' + tag[0] + '.gif" style="filter:fliph"></td><td width="33%" background="' + bburl + 'images/toolbox/myframes/' + tag[0] + '.gif" style="padding:2">'+tag[2]);
        html += (div.innerHTML.replace(/^<br>/i, "").replace(/<br>$/i, ""));
        html += ('</td><td width="1%" background="' + bburl + 'images/toolbox/myframes/l' + tag[0] + '.gif"></td></tr><tr><td width="1%"><img border="0" src="' + bburl + 'images/toolbox/myframes/tl' + tag[0] + '.gif" style="filter:flipv fliph"></td><td width="33%" background="' + bburl + 'images/toolbox/myframes/t' + tag[0] + '.gif" style="filter:flipv"></td><td width="1%"><img border="0" src="' + bburl + 'images/toolbox/myframes/tl' + tag[0] + '.gif" style="filter:flipv"></td></tr></table></center>');
        div.innerHTML = html;
        div.style.display = "block";
}
// ******************* [/frame] code ******************* //

// ******************* [gradient] code ******************* //
// 1001 Astuces Nam@ni , la Source JavaScript!!
// http://www.namani.net
function gradient_gradient_browser() {
        gradient_browser = "unknown";
        gradient_version = 0;
        if (navigator.userAgent.indexOf("Opera") >= 0)
         gradient_browser = "opera";
        else if (navigator.userAgent.indexOf("obot") >= 0)
         gradient_browser = "robot";
        else if (navigator.appName.indexOf("etscape") >= 0)
         gradient_browser = "netscape";
        else if (navigator.appName.indexOf("icrosoft") >= 0)
         gradient_browser = "msie";
        gradient_version = parseFloat(navigator.appVersion);
        if (isNaN(gradient_version)) gradient_version = 0;
        if ((gradient_browser == "msie")&&(gradient_version == 2)) gradient_version = 3;
        gradient_tohex = new Array(256);
        var hex = "0123456789ABCDEF";
        var count = 0;
        for (var x=0; x<16; x++) {
         for (var y=0; y<16; y++) {
                gradient_tohex[count] = hex.charAt(x) + hex.charAt(y);
                count++;
         }
        }
}

function ColorCode(hexcode) {
  if (hexcode.length == 7) {
    this.gradient_r = parseInt(hexcode.substring(1,3),16);
    this.gradient_g = parseInt(hexcode.substring(3,5),16);
    this.gradient_b = parseInt(hexcode.substring(5,7),16);
  }
  else if (hexcode.length == 6) {
    this.gradient_r = parseInt(hexcode.substring(0,2),16);
    this.gradient_g = parseInt(hexcode.substring(2,4),16);
    this.gradient_b = parseInt(hexcode.substring(4,6),16);
  }
  else {
    this.gradient_r = this.gradient_g = this.gradient_b = 0;
  }
}

function ColorList(hexcodes) {
  var i = 0;
  var c = 0;
  this.gradient_codes = new Array(Math.round(hexcodes.length/7));
  while (i < hexcodes.length) {
    if (isNaN(parseInt(hexcodes.substring(i,i+6),16))) ++i;
    else {
      this.gradient_codes[c] = new ColorCode(hexcodes.substring(i,i+6));
      i += 7;
      ++c;
    }
  }
  this.len = c;
}

function interpolate (x1, y1, x3, y3, x2) {
  if (x3 == x1) return y1
  else return (x2-x1)*(y3-y1)/(x3-x1) + y1
}

function lowcolorindex (x, y, z) {
  if (y == 1) return 0
  else return Math.floor( (x*(z-1))/(y-1) )
}

function hicolorindex (x, y, z, low) {
  if ( low*(y-1) == x*(z-1) ) return low
  else if (y == 1) return 0
  else return Math.floor( (x*(z-1))/(y-1) + 1 )
}

function drawGradient() {
        var found = 0;
        var d = document.getElementsByTagName("DIV");
        for (var i = d.length - 1; i >= 0; i--) {
                if (d[i].id == "mygradient") {
                        d[i].id = "";
                        div = d[i];
                        found = 1;
                        break;
                }
        }
        if (found == 0) return;
        clr = div.tag
        clr = clr.replace(/\#/g, "");
        clr = clr.replace(/[ ]+/g, " ");
        clr += "      ";
        clr = clr.split(" ");
        gradient_gradient_browser();
        gradient_thecolors = "#" + clr[0].substr(0,6);
        gradient_thecolors += "#" + clr[1].substr(0,6);
        gradient_thecolors += "#" + clr[2].substr(0,6);
        gradient_thecolors += "#" + clr[3].substr(0,6);
        gradient_thecolors += "#" + clr[4].substr(0,6);

        var gradient_html = "";
        if (((gradient_browser == "netscape")||(gradient_browser == "msie")||(gradient_browser == "opera"))&&(gradient_version>=3.0)) {

                var colors = new ColorList(gradient_thecolors);
                if (colors.len < 2) {
                        div.style.display = "block";
                        return;
                }
                var numcolors = colors.len;
                var numchars = div.innerText.replace(/[\n\r\t ]/g, "").length;
                var rr = 0;
                var gg = 0;
                var bb = 0;
                var lci = 0; //lower color index
                var hci = 0; //high color index
                var chr, p = 0;
                for (i = 0; p < numchars; ++i) {
                        chr = div.innerText.charAt(i);
                        if (" \r\n\t".indexOf(chr) != -1) {
                                gradient_html += chr;
                        } else {
                                lci = lowcolorindex(p, numchars, numcolors);
                                hci = hicolorindex(p, numchars, numcolors, lci);
                                rr = Math.round(interpolate( lci/(numcolors-1), colors.gradient_codes[lci].gradient_r, hci/(numcolors-1), colors.gradient_codes[hci].gradient_r, p/(numchars-1)));
                                gg = Math.round(interpolate( lci/(numcolors-1), colors.gradient_codes[lci].gradient_g, hci/(numcolors-1), colors.gradient_codes[hci].gradient_g, p/(numchars-1)));
                                bb = Math.round(interpolate( lci/(numcolors-1), colors.gradient_codes[lci].gradient_b, hci/(numcolors-1), colors.gradient_codes[hci].gradient_b, p/(numchars-1)));
                                if (gradient_browser == "opera") {
                                        rr = 255 - rr;
                                        gg = 255 - gg;
                                        bb = 255 - bb;
                                }
                                gradient_html += chr.fontcolor(gradient_tohex[rr]+gradient_tohex[gg]+gradient_tohex[bb]);
                                p++;
                        }
                }
        } else
                gradient_html += div.innerText;
        div.innerHTML = gradient_html.replace(/\r/gi, "<br>");
        gradient_html = "";
        div.style.display = "block";
}
// *********** [/gradient] code *********** //

// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \\

var buttons = new Array();

var btn_backcolor_over, btn_backcolor_down, btn_bordercolor;
var toolbox_background,toolbox_backcolor;
var btn_obj = "";

function button_over(eButton, w) {
        if (w == "qkeys") {
                eButton.parentElement.background = bburl + "images/toolbox/key_2.gif";
                eButton.style.color = "white";
        } else {
                vbform.toolboxbar.style.color = statusColor;
                vbform.toolboxbar.value = w;
                doButton(btn_backcolor_over, 1, eButton);
        }
}

function button_out(eButton, w) {
        if (w == "qkeys") {
                eButton.parentElement.background = "transparent";
                eButton.style.color = "black";
        } else {
                vbform.toolboxbar.style.color = tipColor;
                vbform.toolboxbar.value = tip;
                doButton("transparent", 0, eButton);
        }
}

function button_down(eButton, w) {
        if (w != "qkeys")
                doButton(btn_backcolor_down, 1, eButton);
}

function button_up(eButton, w) {
        if (w != "qkeys")
                doButton(btn_backcolor_over, 1, eButton);
        eButton = null;
}

function doButton(bk, s, btn) {
        if (event.button == 2) return;
        btn.style.backgroundColor = bk;
        if (s == 0)        {
                btn.parentElement.style.backgroundColor = "transparent";
        } else {
                btn.parentElement.style.backgroundColor = btn_bordercolor;
        }
}

function do_button(c) {
        var bn, ob, k;
        ob = window.event.srcElement;
        if (bn=ob.tag) {
                if (bn.indexOf("|||") >= 0) {
                        if (ob.tagName == "IMG")
                                ob = ob.parentElement;
                        bn = bn.split("|||");
                        if (c == 1) //click
                                execTool(bn[0]);
                        else if (c == 2) //mouse over
                                button_over(ob, bn[1]);
                        else if (c == 3) //mouse out
                                button_out(ob, bn[1]);
                        else if (c == 4) //mouse down
                                button_down(ob, bn[1]);
                        else if (c == 5) //mouse up
                                button_up(ob, bn[1]);
                }
        }
}



function showColorsWindow() {
        var posX = event.screenX;
        var posY = event.screenY + 5;
        var screenW = screen.width;                                 // screen size
        var screenH = screen.height - 20;                           // take taskbar into account
        if (posX + 232 > screenW) { posX = posX - 232 - 40; }       // if mouse too far right
        if (posY + 164 > screenH) { posY = posY - 164 - 80; }       // if mouse too far down
        var wPosition = "dialogLeft:" +posX+ "; dialogTop:" +posY;
        return showModalDialog("magic_toolbox.php?todo=color", "",
                "dialogWidth:238px; dialogHeight: 195px; resizable: no; help: no; status: no; scroll: no; "        + wPosition);
}

function execTool(btn) {
        if (event.altKey) {
                if (btn.substr(0,6) != "qkeys_") {
                        open("magic_toolbox.php?todo=help&toolsel=" + btn, "help", "toolbar=no,scrollbars=yes,resizable=yes,width=550px,height=350px,left=50px,top=100px");
                }
        } else
                EditorFunctions(btn);
}
/// teke this
function Editor_getSelText() {
        var oSelect,oSelectRange;
        document.vbform.message.focus();
    oSelect = document.selection;
    oSelectRange = oSelect.createRange();
    return oSelectRange;
}

function Editor_addCode(tag1,tag2) {
  var oSelText = Editor_getSelText();
  if (oSelText.text == "")
     alert(vbphrase["mtool_highlight_first"]);
  else
     oSelText.text = tag1 + oSelText.text + tag2;
}

function EditorFunctions(tag) {
  if (tag.substr(0, 6) == "qkeys_") {  // Arabic Keyboard
        var oSelText = Editor_getSelText();
        tag = tag.substr(6);
        if (tag == "åÜ") tag = "å";
        oSelText.text = tag;
  }
  else if (tag == "rtl" || tag == "ltr") {
    document.vbform.message.dir=tag.substr(tag);
  }
  else if (tag == "bold") {
    Editor_addCode("[B]","[/B]");
  }
  else if (tag == "italic") {
    Editor_addCode("[I]","[/I]");
  }
  else if (tag == "uline") {
    Editor_addCode("[U]","[/U]");
  }
  else if (tag == "gradient") {
        var oSelText = Editor_getSelText();
        if (oSelText.text == "") {
                alert(vbphrase["mtool_highlight_first"]);
                return;
        }
    code = showModalDialog("magic_toolbox.php?todo=gradient","","help:no; center:yes; status:no; dialogHeight:220px; dialogWidth:500px");
        if (!code)
                return;
    oSelText.text = "[grade=\"" + code + "\"]" + oSelText.text + "[/grade]"
  }
  else if (tag == "left" || tag == "center" || tag == "right" || tag == "justify") {
    Editor_addCode("[align="+tag.toLowerCase()+"]","[/align]");
  }
  else if (tag == "link") {
    var oSelText = Editor_getSelText();
    var ob = window.prompt(vbphrase["insert_hyperlink"] + ":","http://");
    txt = oSelText.text;
    if (ob) {
                if (txt=="")
                  txt = window.prompt(vbphrase["enter_link_text"],"");
                if (txt)
                  oSelText.text = "[url="+ob+"]"+txt+"[/url]";
                else
                  oSelText.text = "[url]"+ob+"[/url]";
    }
  }
  else if (tag == "email") {
        var oSelText = Editor_getSelText();
    var ob = window.prompt(vbphrase["enter_email_link"],"@");
    if (ob)
          if (oSelText.text=="")
        oSelText.text = "[email]"+ob+"[/email]";
      else
        oSelText.text = "[email="+ob+"]"+oSelText.text +"[/email]";
  }
  else if (tag == "image") {
        var oSelText = Editor_getSelText();
        var link=((oSelText.text=="")?"http://":oSelText.text);
        var ob = window.prompt(vbphrase["enter_image_url"],link);
    if (ob)
      oSelText.text = "[img]"+ob+"[/img]";
  }
  else if (tag == "mleft" || tag == "mleft" || tag == "mright" || tag == "mup" || tag == "mdown") {
    Editor_addCode("[move="+tag.substr(1).toLowerCase()+"]","[/move]");
  }
  else if (tag == "quote") {
    Editor_addCode("[quote]","[/quote]");
  }
  else if (tag == "code") {
    Editor_addCode("[code]","[/code]");
  }
  else if (tag == "php") {
          Editor_addCode("[php]","[/php]");
  }
  else if (tag == "line") {
        var oSelText = Editor_getSelText();
    oSelText.text = "[line]";
  }
// [START HACK='Picture Signature' AUTHOR='uaeweb' VERSION='1.0' CHANGEID= 1 ]
  else if (tag == "signatureimage") {
        var oSelText = Editor_getSelText();
    oSelText.text = "[signatureimage]";
  }
// [END HACK='Picture Signature' AUTHOR='uaeweb' VERSION='1.0' CHANGEID= 1 ]
  else if (tag == "rplayer") {
        var oSelText = Editor_getSelText();
        var link=((oSelText.text=="")?"http://":oSelText.text);
    var ob = window.prompt(vbphrase["mtool_enter_ram_url"], link);
    if (ob) {
          t = window.prompt("" + vbphrase["mtool_sound_only"] + "= 0\r\n" + vbphrase["mtool_real_video"] + " = 1", 0);
          if (t) {
            if (t==0)
                        oSelText.text = "[rams]"+ob+"[/rams]";
                else
                        oSelText.text = "[ramv]"+ob+"[/ramv]";
          }
        }
  }
  else if (tag == "media") {
        var oSelText = Editor_getSelText();
        var link=((oSelText.text=="")?"http://":oSelText.text);
    var ob = window.prompt(vbphrase["mtool_sound_video"], link);
    if (ob)
      oSelText.text = "[media]"+ob+"[/media]";
  }
  else if (tag == "flash") {
        var oSelText = Editor_getSelText();
        var link=((oSelText.text=="")?"http://":oSelText.text);
        var ob = window.prompt(vbphrase["mtool_enter_flash_url"], link);
    if (!ob) return;
    var w = window.prompt(vbphrase["mtool_flash_hight"],"400");
    if (!w) return;
    var h = window.prompt(vbphrase["mtool_flash_width"],"350");
    if (!h) return;
    oSelText.text = "[flash="+ob+"]WIDTH="+w+" HEIGHT="+h+"[/flash]";
  }
  else if (tag == "web") {
        var oSelText = Editor_getSelText();
        var link=((oSelText.text=="")?"http://":oSelText.text);
    var ob = window.prompt(vbphrase["mtool_enter_page_url"], link);
    if (ob)
      oSelText.text = "[web]"+ob+"[/web]";
  }
  else if (tag == "poem") {
        var oSelText = Editor_getSelText();
        if (oSelText.text == "") {
                alert(vbphrase["mtool_poem_type"]);
                return;
        }
    code = showModalDialog("magic_toolbox.php?todo=poem","","help:no; center:yes; status:no; dialogHeight:400px; dialogWidth:800px");
        if (!code)
                return;
    oSelText.text = "[poem " + code + "]\n" + oSelText.text + "[/poem]"
  }
  else if (tag == "frame") {
        var oSelText = Editor_getSelText();
        if (oSelText.text == "") {
                alert(vbphrase["mtool_highlight_first"]);
                return;
        }
    code = showModalDialog("magic_toolbox.php?todo=frame","","help:no; center:yes; status:no; dialogHeight:250px; dialogWidth:450px");
        if (!code)
          return;
    oSelText.text = '[frame="' + code + '"]' + oSelText.text + '[/frame]';
  }
  else if (tag=="text") {
        var oSelText = Editor_getSelText();
        if (oSelText.text == "") {
                alert(vbphrase["mtool_highlight_first"]);
                return;
        }
    oSelText = showModalDialog("magic_toolbox.php?todo=text",oSelText,"help:no; center:yes; status:no; dialogHeight:400px; dialogWidth:700px");
  }
  else if (tag == "plain") {
        var oSelText = Editor_getSelText();
    if (oSelText.parentElement().name=="message") {
          var temp = oSelText.text;
          temp = temp.replace(/\[FLASH=([^\]]*)\]WIDTH=[0-9]{0,4} HEIGHT=[0-9]{0,4}\[\/FLASH\]/gi,"$1");
          temp = temp.replace(/\[VIDEO=([^\]]*)\]WIDTH=[0-9]{0,4} HEIGHT=[0-9]{0,4}\[\/VIDEO\]/gi,"$1");
          oSelText.text = temp.replace(/\[[^\]]*\]/gi,"");
        }
  }
  else if (tag == "list") {
    Editor_addCode("[list]\n","\n[/list]");
  }
  else if (tag == "blink") {
    Editor_addCode("[blink]","[/blink]");
  }
  else if (tag == "glint") {
    Editor_addCode("[glint]","[/glint]");
  }
  else if (tag == "cut" || tag == "copy" || tag == "paste" || tag == "delete") {
          var oSelText = Editor_getSelText();
          oSelText.execCommand(tag);
  }
  else if (tag == "smile") {
            window.open("magic_toolbox.php?todo=smilies", "smilies", "toolbar=no,status=no,scrollbars=yes,resizable=yes,width=440px,height=280px");
  }
  else if (tag == "undo") {
          alert(vbphrase["undo"]);
  }
  else if (tag == "redo") {
          alert(vbphrase["redo"]);
  }
  else if (tag == "keyb") {
          if (keyboardTable.style.display == "none") {
                  event.srcElement.src = bburl + "images/toolbox/keybx.gif";
                  keyboardTable.style.display = "inline";
                  event.srcElement.alt = "" + vbphrase["mtool_hide_keyboard"] + "";
          }
          else {
                  event.srcElement.src = bburl + "images/toolbox/keyb.gif";
                  keyboardTable.style.display = "none";
                  event.srcElement.alt = "" + vbphrase["mtool_keyboard"] + "";
          }
  }
  else if (tag == "preview") {
          var c = document.vbform.message.value.replace(/^[\r\n\t ]*|[\r\n\t ]*$/gi, "").length;
          if (c < minchars)
                  alert(vbphrase["mtool_message_too_short"] + " " + minchars);
          else if (c > maxchars)
                  alert(vbphrase["mtool_message_too_long"] + " " + maxchars);
          else
                  open("magic_toolbox.php?todo=preview", "postpreview");
  }
  else if (tag == "colorpicker") {
          var c = showColorsWindow();
          if (c) {
                var oSelText = Editor_getSelText();
                oSelText.text = c;
          }
  } else if (tag == "glow" || tag == "mark" || tag == "color") {
                var oSelText = Editor_getSelText();
                if (oSelText.text == "") {
                        alert(vbphrase["mtool_highlight_first"]);
                        return;
                }
                var c = showColorsWindow();
                if (c) {
                        oSelText.text = "[" + tag + "=" + c + "]" + oSelText.text + "[/" + tag + "]";
                }
  } else if (tag == "help") {
          open("magic_toolbox.php?todo=help", "help",  "toolbar=no,scrollbars=yes,resizable=yes,width=550px,height=350px,left=50px,top=100px");
  }
}

function Editor_addCommonWord(tag1) {
        if (tag1==0)
         {
                location.href='profile.php?do=cwlist';
                return false;
         }
  var oSelText = Editor_getSelText();
     oSelText.text = " " + tag1 + " ";
}