// +----------------------------------------------------------------------+
// |                      Tools Vbcode Buttons Hack                                          |
// +----------------------------------------------------------------------+
// |   Copyright © 2002-2003 HiSquad.net So of Group WebSites Arabic™.    |
// |                       All rights reserved                            |
// +----------------------------------------------------------------------+
// |      http://www.hisquad.net                    http://www.ArabicTM.com          |
// +----------------------------------------------------------------------+
// |               Author: Ahmad Aloufi <webmaster@hisquad.net>                  |
// |                        MSN  <msn@arabictm.com>                       |
// |                       Date:   2003-01-01                             |
// |                      Lunch of Ver. 3.6 Arabic                        |
// |               This file written by Alawi Hussain BaAqeel             |                                  |
// +----------------------------------------------------------------------+
//
// Version 3.6 Arabic
// *******************************************************
////////////////////////// set default parameters //////////////////////////
function poet_setDefaultVar() {

  // إذا لم يوجد الخط الذي حدده المستخدم
  // فإن الاتش تي ام ال يختار تلقائيا واحد من الخطوط التالية علىالترتيب
  // فإن لم يجد الأول انتقل إلى الثاني وهكذا

  poetDefaultFont = "tahoma,ms sans serif,verdana,arial,helvetica";

  poetType = "0",
  poetLine = "200%",
  poetAlign = "right",
  poetUse = "sp";

  poetFontName = "",
  poetFontSize = "12",
  poetFontColor = "",
  poetFontBold = "",
  poetFontItalic = "";

  poetBackColor = "none",
  poetBackImage = "none";

  poetBorderStyle = "none",
  poetBorderWidth = "medium",
  poetBorderColor = "black";

  poetChar = "";

  poetSerialNum = "0",
  poetSerialNumColor = "";

  //table element style (HTML)
  style = "";
}
//////////////////////////////////////////////////////////////////////////

  var poetBodyStyle = "", poetMiddleStyle = "", poetSerialNumStyle = "";
  var poetSide, poetSideNum, poetSpaceWidth, poetExtendWidth;
  var poetToolFix, poetDiff;

  var poetLetters1 = "اأإآؤءدذرزوةى"
  var poetLetters2 = "اأإآؤئبتثجحخدذرزسشصضطظعغفقكلمنهويةى";
  var poetLetters3 = "ًٌٍَُِّْ";

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

  function poet_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 poet_getDefault(p, d) {
    p = poet_trim(p);
    return poet_trim((p?p:d));
  }

  function poet_setArg(arg) {
    var par;
    poetBodyStyle = "";
    poetMiddleStyle = "";

    par = poet_getValue("style", arg);
    style = poet_getDefault(par, style);

    par = poet_getValue("font", arg) + ",,,,";  //comas = number of arrays - 1
    par = par.split(",");
    poetFontName = poet_getDefault(par[0], poetFontName);
    poetFontSize = poet_getDefault(par[1], poetFontSize);
    poetFontColor = poet_getDefault(par[2], poetFontColor);
    poetFontBold = poet_getDefault(par[3], poetFontBold);
    poetFontItalic = poet_getDefault(par[4], poetFontItalic);

    par = poet_getValue("border", arg) + ",,";
    par = par.split(",");
    poetBorderStyle = poet_getDefault(par[0], poetBorderStyle);
    poetBorderWidth = poet_getDefault(par[1], poetBorderWidth);
    poetBorderColor = poet_getDefault(par[2], poetBorderColor);

    par = poet_getValue("num", arg) + ",";
    par = par.split(",");
    poetSerialNum = poet_getDefault(par[0], poetSerialNum);
    poetSerialNumColor = poet_getDefault(par[1], poetSerialNumColor);

    par = poet_getValue("type", arg);
    poetType = poet_getDefault(par, poetType);

    par = poet_getValue("line", arg);
    poetLine = poet_getDefault(par, poetLine);

    par = poet_getValue("align", arg);
    poetAlign = poet_getDefault(par, poetAlign);

    par = poet_getValue("use", arg);
    poetUse = poet_getDefault(par, poetUse).toLowerCase();

    par = poet_getValue("fname", arg);
    poetFontName = poet_getDefault(par, poetFontName);

    par = poet_getValue("fsize", arg);
    poetFontSize = poet_getDefault(par, poetFontSize);

    par = poet_getValue("fcolor", arg);
    poetFontColor = poet_getDefault(par, poetFontColor);

    par = poet_getValue("fbold", arg);
    poetFontBold = poet_getDefault(par, poetFontBold);

    par = poet_getValue("fitalic", arg);
    poetFontItalic = poet_getDefault(par, poetFontItalic);

    par = poet_getValue("bkcolor", arg);
    poetBackColor = poet_getDefault(par, poetBackColor);

    par = poet_getValue("bkimage", arg);
    poetBackImage = poet_getDefault(par, poetBackImage);

    par = poet_getValue("bstyle", arg);
    poetBorderStyle = poet_getDefault(par, poetBorderStyle);

    par = poet_getValue("bwidth", arg);
    poetBorderWidth = poet_getDefault(par, poetBorderWidth);

    par = poet_getValue("bcolor", arg);
    poetBorderColor = poet_getDefault(par, poetBorderColor);

    par = poet_getValue("char", arg);
    poetChar = poet_getDefault(par, poetChar);

    par = poet_getValue("charcolor", arg);
    poetSerialNumColor = poet_getDefault(par, poetSerialNumColor);

    //////////// set style ///////////

    poetFontName += "," + poetDefaultFont;

    poetBodyStyle += "; " + style;
    poetBodyStyle += "; font-family:" + poetFontName;
    poetBodyStyle += "; font-size:" + poetFontSize + "pt ";
    poetBodyStyle += "; color:" + poetFontColor;
    poetBodyStyle += "; font-weight:" + poetFontBold;
    poetBodyStyle += "; font-style:" + poetFontItalic;
    poetBodyStyle += "; line-height:" + poetLine;
    poetBodyStyle += "; background-color:" + poetBackColor;
    poetBodyStyle += "; background-image:url(" + poetBackImage + ")";
    poetBodyStyle += "; border:" + poetBorderWidth + " " + poetBorderStyle + " " + poetBorderColor;

    poetSerialNumStyle = "color:" + poetSerialNumColor + "; display:" + ((poetSerialNum=="0")?"none":"block");

    testWidth.style.fontFamily = poetFontName;
    testWidth.style.fontSize = poetFontSize + "pt ";
    testWidth.style.fontWeight = poetFontBold;
    testWidth.style.fontStyle = poetFontItalic;

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

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

  function poet_textWidth(t) {
    testWidth.innerHTML= t.replace(/ /g, "&nbsp;");
    return (testWidth.clientWidth - 2) * 0.75;
  }

  function poet_strReplace(t, s1, s2, c) {
    var i = 0, len1 = s1.length; len2 = s2.length;
    while (1) {
      i = t.indexOf(s1, i);
      if (i == -1)
        break;
      else {
        t = t.substr(0, i) + s2 + t.substr(i+len1);
        i += len2;
        if (--c == 0) break;
     }
    }
    return t
  }

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

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

  function poet_createExtend(t) {
    var alef = "اأإآ";
    var s = "";
    var befor = "", ch = "";
    t = t.replace(/الله/g,"@");
    for (i = 0; i < t.length; i++) {
      ch = t.charAt(i);
      if (poetLetters2.indexOf(ch.charAt(0)) != -1 || ch.charAt(0) == "ء") {
        if (befor != "")
          if (poetLetters1.indexOf(befor.charAt(0)) == -1 && poetLetters2.indexOf(ch.charAt(0)) != -1
            && (befor.charAt(0) != "ل"
            || alef.indexOf(ch.charAt(0)) == -1))
            s += "^";
        befor = ch;
        s += ch;
      }
      else {
        s += ch;
        if (poetLetters3.indexOf(ch.charAt(0)) == -1)
          befor = "";
      }
    }
    s = s.replace(/@/g,"الله");
    return s;
  }

  function poet_extend(n) {
    if (n <= 1)
      return "ـ";
    return  "ـ" + poet_extend(n-1);
  }

  function poet_justifyBYextend(t, w) {
    var ex = 0, i, d, n, p, m;
    t = poet_createExtend(t);
    ex = poet_count(t, "^");
    if (ex == 0) return t;
    d = Math.floor((w - poet_textWidth(t.replace(/\^/g,""))) / poetExtendWidth);
    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 = 0; i < t.length; i++) {
      ex = poet_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, "^" + poet_extend(n));
      if (d % ex > 0)
        t[i] = poet_strReplace(t[i], "^", poet_extend(1), d % ex);
    }
    t = t.join(" ");
    t = t.replace(/\^/g, "");
    return t;
  }

  function poet_justifyBYspace(t, w, dir) {
    var sp = 0, i, d, tw, n;
    sp = poet_count(t, " ");
    if (sp != 0) {
      d = Math.floor((w - poet_textWidth(t)) / poetSpaceWidth);
      n = Math.floor(d / sp);
      if (n > 0)
        t = t.replace(/ /g, poet_space(n + 1));
      if (d % sp > 0)
        t = poet_strReplace(t, poet_space(n + 1), poet_space(n + 2), d % sp);
    }
    tw = w - poet_textWidth(t);
    if (tw > 0) {
      i = t.lastIndexOf(" ");
      if (i == -1)
        if (dir == 0)
          return t;
        else
          i = ((dir==2)?-1:t.length-1);
      tw -= poetDiff;
      t = t.substr(0, i+1) + poetToolFix.replace(/letter-spacing:normal/,"letter-spacing:"+tw+"pt ") + t.substr(i+1);
    }
    return t;
  }

  function poet_justify(t, w, dir) {
    if (poetUse == "ex") t = poet_justifyBYextend(t, w);
    return poet_justifyBYspace(t, w, dir);
  }

  function doPoetry() {
    poet_setDefaultVar();
    var d = document.getElementsByTagName("DIV");
    document.write(poet_doJustify(d[d.length-1].innerText, d[d.length-1].tag));
  }

  function poet_doJustify (poetry, arg) {
    var L, R, MTW, i, j, cr

    create_testWidth_table();

    poet_setArg(arg);

    poetToolFix = "<span style='font-size:1pt;letter-spacing:normal;visibility:hidden;'>ii</span>";
    testWidth.innerHTML = poetToolFix;
    poetDiff = (testWidth.clientWidth - 2) * 0.75;
    poetToolFix = poetToolFix.replace(/ /g,"^");

    poetry = poet_trim(poetry);
    poetry = poetry.replace(/[\^@ـ]/g,"");
    poetry = poetry.replace(/[ ]+/g," ");
    poetry = poetry.replace(/^[\r\n]+/,"");
    poetry = poetry.replace(/[\r\n]+$/,"");
    poetry = poetry.replace(/\n/g,"");
    poetry = poetry.replace(/[ ]*\r[ ]*/g,"\r");
    poetry = poetry.replace(/[ ]*=[ ]*/g,"=");
    poetry = poet_trim(poetry);
    poetry += "\r";

    poetExtendWidth = poet_textWidth("ش" + "ــ" + "ش");
    poetExtendWidth -= poet_textWidth("ش" + "ـ" + "ش");
    poetSpaceWidth = poet_textWidth("ش" + "&nbsp;&nbsp;" + "ش");
    poetSpaceWidth -= poet_textWidth("ش" + "&nbsp;" + "ش");

    var nbsp = "";
    while (1) {
      nbsp += "&nbsp;";
      if (poet_textWidth(nbsp) > 12) break;
    }

    MTW = poet_textWidth(poetry.replace(/\r/g,"<br>").replace(/=/g,"<br>"));
    poetSideNum = "";
    poetSide = "";
    cr = 0;
    j = 0;
    var sn = 0;
    while (1) {
      cr = poetry.indexOf("\r", cr);
      if (cr == -1) break;
      if (poetry.substring(j, cr) != "") {
        i = poetry.indexOf("=", j);
        if (i == -1 || i > cr) i = cr; //no '=' in this line

        L = poetry.substring(j, i);
        L = poet_justify(L, MTW, ((i==cr)?0:1));
        L = L.replace(/ /g, "&nbsp;");
        L = L.replace(/\^/g, " ");

        R = poetry.substring(i+1, cr);
        R = poet_justify(R, MTW, 2);
        R = R.replace(/ /g, "&nbsp;");
        R = R.replace(/\^/g, " ");

        if (poetType == 0) {
          if (i != cr)
            poetSide += L + nbsp + poetChar + nbsp + R + "<br>";
          else
            poetSide += "<div align=center>" + L + "</div>";
          poetSideNum += ++sn + "<br>";
        }
        else if (poetType == 1) {
          if (i != cr) {
            poetSide += "<div style='margin-left:"+Math.round(MTW)+"pt'>" + L + "</div>";
            poetSide += "<div style='margin-right:"+Math.round(MTW)+"pt'>" + R + "</div>";
            poetSideNum += ++sn + "<br>-<br>";
          }
          else {
            poetSide += "<div align=center>" + L + "</div>";
            poetSideNum += ++sn + "<br>";
          }
        }
        else if (poetType == 2) {
          if (i != cr) {
            poetSide += "<div style='margin-left:"+Math.round(MTW/1.5)+"pt'>" + L + "</div>";
            poetSide += "<div style='margin-right:"+Math.round(MTW/1.5)+"pt'>" + R + "</div>";
            poetSideNum += ++sn + "<br>-<br>";
          }
          else {
            poetSide += "<div align=center>" + L + "</div>";
            poetSideNum += ++sn + "<br>";
          }
        }
        else if (poetType == 3) {
          poetSideNum += ++sn + "<br>";
          poetSide += L + "<br>";
          if (i != cr) {
            poetSide += R + "<br>";
            poetSideNum += "-<br>";
            poetSide += "<br>";
            poetSideNum += "<br>";
          }
        }
      }
      else {
        poetSide += "<br>";
        poetSideNum += "<br>";
      }
      cr += 1;
      j = cr;
    }
    poetSideNum = poetSideNum.replace(/(<br>)+$/i, "");
    poetSide = poetSide.replace(/(<br>)+$/i, "");
    return poet_ToHTML();
  }

  function poet_showhidenum(o) {
    o = o.getElementsByTagName("TD")[0];
    if (o.style.display == "none")
      o.style.display = "block";
    else
      o.style.display = "none";
  }

  function poet_ToHTML() {
    var HTML = "<table ondblclick='poet_showhidenum(this)' cellspacing=10 cellpadding=5 dir=rtl border=0 width=0 style='" + poetBodyStyle + "'>";
    HTML += "<tr>";
    HTML += "<td width=0 align=center valign=top style='" + poetSerialNumStyle + "' nowrap>" + poetSideNum + "</td>";
    HTML += "<td width=0 align=center valign=top nowrap>" + poetSide + "</td>";
    HTML += "</tr></table>";

    return ("<div align='" + poetAlign + "'>" + HTML + "</div>");
  }

  function poetryDialog(theform) {
    c = showModalDialog("editpoet.htm","","help:no; center:yes; status:no; dialogHeight:340px; dialogWidth:420px");
    if (c) {
      theform.message.value += c;
      theform.message.focus();
    }
  }