on $*:text:/([*!.]iftar)/i:#iftar:{
  var %ulke hollanda isvicre avusturya almanya turkiye fransa belcika
  if ($regex($2,/ulke/i)) { msg # Ulkeler: $replace(%ulke,$chr(32),$+($chr(32),-,$chr(32))) | halt }
  if (!$2) { msg # Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt }
  if (!$3) { msg # Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt }
  if (!$istok(%ulke,$2,32)) { msg # Belirtiginiz ulke listemde bulunmamaktadir! | halt }
  var %1 $lower($replace($2,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)) 
  var %2 $lower($replace($3,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)) 
  if ($sock($+(ramazan,*,%1))) { msg #  $3 zaten kontrol ediliyor.. | halt }
  sockopen $+(ramazan,*,%2) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  sockmark $+(ramazan,*,%2) $+(%1,*,%2)
  msg # 6 $upper($2) 2ulkesi 6 $upper($3) 2 bilgileri alinyor..
}
on *:sockopen:ramazan*: {
  sockwrite -nt $sockname GET $+(/,$gettok($sock($sockname).mark,1,42),/,$gettok($sock($sockname).mark,2,42),-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,$gettok($sock($sockname).mark,1,42),2) ulkesinden $(6,$gettok($sock($sockname).mark,2,42),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 Bulunduğunuz ulkenin imsakiye bilgileri için kanala !iftar Ulke Sehir yazınız
  notice $nick Örnek: !iftar almanya altena
  notice $nick Ulke listesini gormek icin: !iftar ulke
  .notice $nick Hoşca vakitler..
}
alias free {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}

[01:53] <Set> !iftar
[01:53] <@Aeg> Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir
[01:53] <Set> !iftar ulke
[01:53] <@Aeg> Ulkeler: hollanda - isvicre - avusturya - almanya - turkiye
[01:53] <Set> !iftar almanya altena
[01:53] <@Aeg>  ALMANYA ulkesi  ALTENA  bilgileri alinyor..
[01:53] <@Aeg>  "Tarih"  08 Agustos 2011 Pazartesi
[01:53] <@Aeg>  "Imsak"  04:28
[01:53] <@Aeg>  "Gunes"  05:58
[01:53] <@Aeg>  "Ogle"  13:42
[01:53] <@Aeg>  "Ikindi"  17:45
[01:53] <@Aeg>  "Aksam"  21:13  "Iftar"  Kalan Sure: 19saats 19dakika 32saniye
[01:53] <@Aeg>  "Yatsi"  22:33