on *:text:*:*: {
  if !$regex($nick,/(s-bot|burcbot|komiksoz|sozbot|Kelime|yarismaci|Soru|BiLemezki|test|OzelKoruma|SirinFm|chanserv|operserv)/i) {
    if $istok($strip($1-),$me,32) {
      Notice $nick 3,4Allah7'ın Sözü $regsubex($read(belge.txt),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2))  $readn
    }
    if ($1 == !ayt) { set %nic $nick  | set %ayet $replace($2-,ü,$chr(37) $+ FC,Ü,$chr(37) $+ DC,ö,$chr(37) $+ F6,Ö,$chr(37) $+ D6,ı,$chr(37) $+ FD,İ,$chr(37) $+ DD,ğ,$chr(37) $+ F0,Ğ,$chr(37) $+ D0,ş,$chr(37) $+ FE,Ş,$chr(37) $+ DE,ç,$chr(37) $+ E7,Ç,$chr(37) $+ C7)
      if !$2 { msg $chan Lütfen ayet konusunu belirtiniz. Örn; !ayt ezan | halt }
      if $sock(ayet) { msg %nic 3:-4Şu anda başka bir Ayet alınıyor lütfen daha sonra tekrar deneyiniz. | halt }
      ayet
      remove gg.txt
    }
  }
}
alias sy { var %tgk $1 | amsg $regsubex($read(belge.txt,%tgk),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2)) }
alias tr  { var %v 10 | set %s 1 | var %ft 1, %x 1, %d 1
  set %t $gettok($read(gg.txt,%s),0,32)
  var %ff $left($gettok($read(gg.txt,%s),0,32),1)
  while %x <= %t {
    .timer 1 %ft msg %nic $gettok($read(gg.txt,%s), $+ %x $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %d) { .timer 1 %ft gh }
    inc %x 10
    inc %d
  }
}
alias gh {
  set %s $calc(%s + 1)
  set %t $gettok($read(gg.txt,%s),0,32)
  tg
}
alias tg {
  var %ft 1, %v 10, %i 1, %ı 1
  var %ff $left($gettok($read(gg.txt,%s),0,32),1)
  while %i <= %t {
    .timer 1 %ft msg %nic $gettok($read(gg.txt,%s), $+ %i $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %ı) { .timer 1 %ft gh }
    inc %i 10
    inc %ı
  }
}
alias ayet { sockopen ayet meal.ihya.org 80 }
on *:sockopen:ayet: {
  sockwrite -n $sockname GET /meal.php?t2=elmali&ara= $+ $strip(%ayet) $+ &sn=0&an=0 HTTP/1.1
  sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */*
  sockwrite -n $sockname Referer: meal.ihya.org, Kuran, Kur'an, Kuran-i Kerim, kuranikerim, Quran, qur'an, Al qur'an, Quran, holyquran, holy, coran, kuruan, koran, corano,koraani, islam, muslim, allah, arabic, türkçe,meal, der heilige Koran, islam, muslim, chinese al qur'an, el sagra
  sockwrite -n $sockname Accept-Language: tr-TR
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
  sockwrite -n $sockname Host: meal.ihya.org
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ayet: {
  var %a
  sockread %a
  if (<strong>ARAMA SONUCLARI: isin $strip(%a)) { msg %nic :- 3Uygun Ayetler Aranıyor 4 %nic }
  if (valign=top> isin $strip(%a)) {
    write gg.txt :- $htmlfree(%a) 
    .timerde 1 5 tr
  }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}