on $*:text:/^[\*](\S+)$/i:#iftar:{
  var %1 $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)) 
  if ($sock($+(ramazan,*,%1))) { echo -a $regml(1) zaten kontrol ediliyor.. | halt }
  sockopen $+(ramazan,*,%1) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  sockmark $+(ramazan,*,%1) %1
  msg # 6 $upper($regml(1)) 2ili bilgileri alinyor..
}
on *:sockopen:ramazan*: {
  sockwrite -nt $sockname GET $+(/turkiye/,$sock($sockname).mark,-ezan-vakti.html) HTTP/1.1
  sockwrite -nt $sockname HOST: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:ramazan*: {
  var %63 | sockread %63
  if ($regex(%63,Sayfama hosgeldiniz)) { msg #iftar 2Belirtiginiz $(6,$qt($sock($sockname).mark),2) adresi ile ilgili bilgi bulunamamistir. | halt }
  if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) {
    $iif($free($gettok(%63,5,34)),msg #iftar 6 $qt(Tarih) 2 $replace($free($gettok(%63,5,34)),pa,Pazar,pt,Pazartesi,sa,Salı,ca,Çarşamba,pe,Perşembe,cu,Cuma,Ct,Cumartesi))
    $iif($free($gettok(%63,7,34)),msg #iftar 6 $qt(Imsak) 2 $free($gettok(%63,7,34)))
    $iif($free($gettok(%63,9,34)),msg #iftar 6 $qt(Gunes) 2 $free($gettok(%63,9,34)))
    $iif($free($gettok(%63,11,34)),msg #iftar 6 $qt(Ogle) 2 $free($gettok(%63,11,34)))
    $iif($free($gettok(%63,13,34)),msg #iftar 6 $qt(Ikindi) 2 $free($gettok(%63,13,34)))
    $iif($free($gettok(%63,15,34)),msg #iftar 6 $qt(Aksam) 2 $free($gettok(%63,15,34)) 6 $qt(Iftar) 2 $iif($regex($duration($calc(($duration($+($free($gettok(%63,15,34)),:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),Kalan Sure: $replace($regml(1),mins,dakika,secs,saniye,hr,saat)))
    $iif($free($gettok(%63,17,34)),msg #iftar 6 $qt(Yatsi) 2 $free($gettok(%63,17,34)))
  }
}
on !*:join:#iftar:{
  .notice $nick ..Hoş geldiniz
  .notice $nick Bulunduğunuz ilin bugünkü imsakiye bilgileri için kanala *şehir yazınız.Örnek: *İstanbul
  .notice $nick Hoşca vakitler..
}
alias free {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}

[04:19] <Dify> *gümüşhane
[04:19] <@Cenk> Bilgiler alınıyor..
[04:19] <@Cenk> [Gumushane] 11 Agu 2010 - Çarşamba
[04:19] <@Cenk> İmsak - 03:26
[04:19] <@Cenk> Güneş - 05:20
[04:19] <@Cenk> Öğle - 12:37
[04:19] <@Cenk> İkindi - 16:28
[04:19] <@Cenk> Akşam - 19:36 (İftar) Kalan Süre: 15saat 16dakika 48saniye
[04:19] <@Cenk> Yatsı - 21:14