Alias Hicri {
  if (33 // $1) { 
    if (%HicriBak == on) { set -u5 %Hicriver $calc($calc($1 - $calc($1 / 33)) + 622) }
    elseif (%HicriBak != on) { echo -a $chr(22) $1 Hicri Yılı $calc($calc($1 - $calc($1 / 33)) + 622) Miladi Yılına Denk Gelir | Takvim }
  }
  elseif (33 \\ $1) { 
    var %HicriBol $calc($1 / 33)
    var %HicriYuvarla $mid($gettok(%HicriBol,2,46),1,1)
    var %HicriAna $gettok(%HicriBol,1,46)
    if (%HicriYuvarla >= 5) {  
      if (%HicriBak == on) { set -u5 %Hicriver $calc($calc($1 - $calc(%HicriAna + 1)) + 622) }
      elseif (%HicriBak != On) { echo -a $chr(22) $1 Hicri Yılı $calc($calc($1 - $calc(%HicriAna + 1)) + 622) Miladi Yılına Denk Gelir | Takvim }
    }
    else { 
      var %HicriBol $calc($1 / 33)
      var %HicriAna $gettok(%HicriBol,1,46)
      var %HicriSon $calc($1 - %HicriAna)
      if (%HicriBak == on) { set -u5 %Hicriver $calc(%HicriSon + 622) }
      elseif (%HicriBak != on) { echo -a $chr(22) $1 Hicri Yılı $calc(%HicriSon + 622) Miladi Yılına Denk Gelir | Takvim }
    }
  }
}
Alias Miladi {
  Var %Bir $1
  var %Cikar $calc(%Bir - 621)
  if (33 \\ %Cikar) {
    var %MiladBol $calc(%Cikar / 33)
    var %MiladYuvarla $mid($gettok(%MiladBol,2,46),1,1)
    var %MiladNokta $gettok(%MiladBol,1,46)
    if (%MiladYuvarla >= 5) { 
      if (%MiladiBak == on) { set -u5 %Miladiver $calc($calc(%MiladNokta + 1) + %Cikar) }
      elseif (%MiladiBak != on) { echo -a $chr(22) $1 Miladi Yılı $calc($calc(%MiladNokta + 1) + %Cikar) Hicri Yılına Denk Gelir | Takvim }
    }
    elseif (%MiladYuvarla < 5) { 
      if (%MiladiBak == on) { set -u5 %Miladiver $calc(%MiladNokta + %Cikar) }
      elseif (%MiladiBak != on) { echo -a $chr(22) $1 Miladi Yılı $calc(%MiladNokta + %Cikar) Hicri Yılına Denk Gelir. | Takvim }
    }
  }
  if (33 // %Cikar) { 
    if (%MiladiBak == on) { set -u5 %Miladiver $calc($calc(%Cikar / 33) + %Cikar) }
    elseif (%MiladiBak != on) { echo -a $chr(22) $1 Miladi Yılı $calc($calc(%Cikar / 33) + %Cikar) Hicri Yılına Denk Gelir. | Takvim }
  }
}
Alias Takvim {
  if (%MiladiBak == on) || (%HicriBak == on) { Set %Echo /msg %TakvimChan | TakvimBilgi }
  else { set %Echo Echo -a | TakvimBilgi }
}
Alias TakvimBilgi { 
  %Echo 4HİCRİ TAKVİM BİLGİSİ
  %Echo * Hicri Takvim Hz. Muhammed'in Mekke'den Medine'ye hicretini (622 Yılı) başlangıç kabul eden ve ayın dünya çevresinde dolanımını esas alan bir takvim sistemidir.
  %Echo * Ay Esaslı Takvimdir.
  %Echo -
  %Echo 4MİLADİ TAKVİM BİLGİSİ
  %Echo * Hz. İsa'nın doğum gününü (0 Yılı) tarih başlangıcı olarak alınmıştır.
  %Echo * Dünyanın Güneş Etrafında Dönüşünü Esas Aldığı için Güneş Esaslı Bir Takvimdir.
  %Echo * Julien Takvimi Olarak da Bilinir.
%Echo * Türkiye Bu Takvimi 1926 Yılından İtibaren Kullanmıştır.
  unset %TakvimChan %Echo
}
on *:TEXT:*:#: {
  if $regex($1,/(^[!.]H(i|İ|ı)cr(i|İ|ı)$)/i) && !$2 { msg $chan Lütfen Tarih Belirtin! | halt }
  if $regex($1,/(^[!.]H(i|İ|ı)cr(i|İ|ı)$)/i) && !$regex($2,\d) { msg $chan şşş $nick Sen Hiç Yazıyla Rakam Gördün mü? Tarih Kısmı Rakamdan Oluşmalıdır! }
  elseif $regex($1,/(^[!.]H(i|İ|ı)cr(i|İ|ı)$)/i) && $2 && $regex($2,\d) {
    set %HicriBak on
    set %TakvimChan $Chan
    $hicri($2)
    msg $chan $chr(22) $2 Hicri Yılı %Hicriver Miladı Yılına Denk Gelir. | .Takvim | unset %HicriBak
  }
  if $regex($1,/(^[!.]M(i|İ|ı)lad(i|İ|ı)$)/i) && !$2 { msg $chan Lütfen Tarih Belirtiniz. Kullanımı: !Miladi 2010 }
  elseif $regex($1,/(^[!.]M(i|İ|ı)lad(i|İ|ı)$)/i) && ($2 < 622) { Msg $Chan Hicri Takvim Başlangıcı 622 Senesidir. O Yüzden Verdiğiniz Tarihten Önceki Yıllara Hicri Öncesi Yıllar Denilir ve Tarihi Verilmez! | halt  }  
  elseif $regex($1,/(^[!.]M(i|İ|ı)lad(i|İ|ı)$)/i) && $2 && !$regex($2,\d) { msg $chan şşş $nick Sen Hiç Yazıyla Rakam Gördün mü? Tarih Kısmı Rakamdan Oluşmalıdır! }
  elseif $regex($1,/(^[!.]M(i|İ|ı)lad(i|İ|ı)$)/i) && $2 && $regex($2,\d) {
    set %MiladiBak on
    set %TakvimChan $Chan
    $miladi($2)
    msg $chan $chr(22) $2 Miladi Yılı %Miladiver Hicri Yılına Denk Gelir. | .Takvim | unset %MiladiBak
  }
}