#######################
alias opers return Aeg 123456
alias botnick return RamazanBOT
alias sunucu return irc.rekornet.com 6667
alias ramazanchan return #iftar
#######################
alias bagla { sockclose iftar | sockopen iftar $sunucu }
alias kopar { sockclose iftar }
alias sw { if $sock($1).status == active { sockwrite -nt $1- } }
on *:SOCKOPEN:iftar: {
  sw $sockname nick $+(Guard,$r(0,999))
  sw $sockname USER 63 " " : $+ $+([,,IFTAR,,]) System v1 by Difuzyon
}
on *:sockread:iftar: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $opers
    sw $sockname join 0,
    sw $sockname nick $botnick
    sw $sockname join $ramazanchan
  }
  if ($2 == privmsg) {
    var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4,-1), %text = $right($4-,-1), %k = $3 
    if ($regex(%m,/[*!.+]iftar/i)) && ($ramazanchan == %k) {
      var %ulke = hollanda isvicre avusturya almanya turkiye fransa belcika
      if ($regex($5,/ulke/i)) { sw $sockname privmsg %k Ulkeler: $replace(%ulke,$chr(32),$+($chr(32),-,$chr(32))) | halt }
      if (!$5) { sw $sockname privmsg %k Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt }
      if (!$6) { sw $sockname privmsg %k Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt }
      if (!$istok(%ulke,$5,32)) { sw $sockname privmsg %k Belirtiginiz ulke listemde bulunmamaktadir! | halt }
      var %1 $lower($replace($5,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)) 
      var %2 $lower($replace($6,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)) 
      sockclose $+(ramazan,*,%2) 
      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)
      sw $sockname privmsg %k  6 $upper($5) 2ulkesi 6 $upper($6) 2 bilgileri alinyor..
    }
  }
  if ($2 == join) && ($right($3,-1) == $ramazanchan) {
    sw $sockname notice $gettok($gettok($1,1,33),1,58) Merhaba hos geldiniz $ramazanchan kanal'ina .
    sw $sockname notice $gettok($gettok($1,1,33),1,58) Bulunduğunuz ulkenin imsakiye bilgileri için kanala !iftar Ulke Sehir yazınız
    sw $sockname notice $gettok($gettok($1,1,33),1,58) Örnek: !iftar almanya altena
    sw $sockname notice $gettok($gettok($1,1,33),1,58) Ulke listesini gormek icin: !iftar ulke
    sw $sockname notice $gettok($gettok($1,1,33),1,58) Hoşca vakitler..
  }
}
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)) { sw iftar privmsg $ramazanchan 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)),sw iftar privmsg $ramazanchan 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)),sw iftar privmsg $ramazanchan 6 $qt(Imsak) 2 $free($gettok(%63,7,34)))
    $iif($free($gettok(%63,9,34)),sw iftar  privmsg $ramazanchan 6 $qt(Gunes) 2 $free($gettok(%63,9,34)))
    $iif($free($gettok(%63,11,34)),sw iftar privmsg $ramazanchan 6 $qt(Ogle) 2 $free($gettok(%63,11,34)))
    $iif($free($gettok(%63,13,34)),sw iftar privmsg $ramazanchan 6 $qt(Ikindi) 2 $free($gettok(%63,13,34)))
    $iif($free($gettok(%63,15,34)),sw iftar privmsg $ramazanchan 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)),sw iftar privmsg $ramazanchan 6 $qt(Yatsi) 2 $free($gettok(%63,17,34)))
  }
}
alias free {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}

#######################
alias opers return Aeg 123456
alias botnick return RamazanBOT
alias sunucu return irc.rekornet.com 6667
alias ramazanchan return #iftar
#######################