mIRC !iftar Şehir kodu

on *:TEXT:*:#: {
  if $regex($strip($1),/(^[.!\-*][iİı]ftar)$/i) && $2 && (%iftarsehri) { msg $chan Şu an komut meşgul lütfen 5 saniye sonra deneyiniz. | halt  }
  if $regex($strip($1),/(^[.!\-*][iİı]ftar)$/i) && $2 && (!%iftarsehri) && (%iftarsehiruyari) { msg $chan Veri tabanı güncelleniyor. Lütfen 5 dakika sonra deneyiniz. | halt }
  if $regex($strip($1),/(^[.!\-*][iİı]ftar)$/i) && $2 && (!%iftarsehri) && (!%iftarsehiruyari) { set -u6 %iftarkanal $chan | .iftarx $strip($2) }
}

alias iftarsaat {  //Timerifx -o 18:00 1 1 /iftarsehiruyari }

alias iftarx {
  if $regex($1,/(^[iİ]stanbul|[iİı]zm[iİı]r$)/i) {
    set -u5 %iftarsehri $replace($lower($1),İ,i,ı,i,I,i)
    if $sock(iftar) { sockclose iftar }
    sockopen iftar www.namazzamani.net 80
    .halt
  }
  if $regex($1,/(^afyon|afyonkarah[iİı]sar$)/i) {
    set -u5 %iftarsehri Afyonkarahisar
    if $sock(iftar) { sockclose iftar }
    sockopen iftar www.namazzamani.net 80
    .halt
  }
  if $regex($1,/(^[ıIiİ][Ğğg]d[ıIiİ]r$)/i) {
    set -u5 %iftarsehri Igdir
    if $sock(iftar) { sockclose iftar }
    sockopen iftar www.namazzamani.net 80
    .halt
  }
  if $regex($1,/(^[ıIiİ]sparta$)/i) {
    set -u5 %iftarsehri Isparta
    if $sock(iftar) { sockclose iftar }
    sockopen iftar www.namazzamani.net 80
    .halt
  }
  if $regex($1,/(^kocael[iİı]|[iİı]zm[iİı]t$)/i) {
    set -u5 %iftarsehri Kocaeli_(izmit)
    if $sock(iftar) { sockclose iftar }
    sockopen iftar www.namazzamani.net 80
    .halt
  }
  if $regex($1,/(^sakarya|adapazar[iİı]$)/i) {
   set -u5 %iftarsehri Sakarya_(Adapazari)
    if $sock(iftar) { sockclose iftar }
    sockopen iftar www.namazzamani.net 80
    .halt
  }
  set -u5 %iftarsehri $replace($+($upper($left($1,1)),$right($lower($1),-1)),ı,i,ü,u,Ş,S,ş,s,Ü,U,ğ,g,Ğ,G,Ö,O,ö,o,ç,c,Ç,C)
  if $sock(iftar) { sockclose iftar }
  sockopen iftar www.namazzamani.net 80
}

on *:sockopen:iftar:{
  sockwrite -n $sockname GET $+(/,%iftarsehri,-namaz-vakitleri-m.tr) HTTP/1.1
  sockwrite -n $sockname Host: namazzamani.net
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -n $sockname $crlf
}

on *:sockread:iftar: {
  var %iftar
  sockread %iftar
  if ("aksam" isin %iftar) && (!%iftarsehiruyari) {
    $iif($regex($replace($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58),09,9),/(^0[123456780]$)/i),msg %iftarkanal $+($+($chr(3),4,$replace(%iftarsehri,_,$chr(32)),$chr(3)) için İftar Saati:,$chr(3),4,$chr(32),$gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),:0,$calc($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58)+1),$chr(3),$chr(32),-,$chr(32),Tarih:,$chr(32),$chr(3),4,$+([,$date,]),$chr(3)),msg %iftarkanal $+($+($chr(3),4,$replace(%iftarsehri,_,$chr(32)),$chr(3)) için İftar Saati:,$chr(3),4,$chr(32),$gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),:,$calc($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58)+1),$chr(3),$chr(32),-,$chr(32),Tarih:,$chr(32),$chr(3),4,$+([,$date,]),$chr(3)))
    sockclose iftar
  }
  if ("aksam" isin %iftar) && (%iftarsehiruyari) {
    $iif($regex($replace($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58),09,9),/(0[123456780])/i),.Timer -o $+($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),$chr(58),$chr(48),$calc($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58)+1)) 1 1 /amsg $+($chr(3),4,$replace(%iftarsehri,_,$chr(32)),$chr(3)) için İftar Vakti Geldi. $+(SAAT:,$chr(3),4,$chr(32),$gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),$chr(58),$chr(48),$calc($replace($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58),09,9)+1),$chr(3)),.Timer -o $+($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),:,$calc($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58)+1)) 1  1 /amsg $+($chr(3),4,$replace(%iftarsehri,_,$chr(32)),$chr(3)) için İftar Vakti Geldi. $+(SAAT:,$chr(3),4,$chr(32),$gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),:,$calc($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58)+1)))
  }
}

alias iftarsehiruyari {
  .set -u415 %iftarsehiruyari 1
  .timeriftar5 1 5 .iftarx Adana
  .timeriftar10 1 10 .iftarx Adiyaman
  .timeriftar15 1 15 .iftarx Afyonkarahisar
  .timeriftar20 1 20 .iftarx Agri
  .timeriftar25 1 25 .iftarx Aksaray
  .timeriftar30 1 30 .iftarx Amasya
  .timeriftar35 1 35 .iftarx Ankara
  .timeriftar40 1 40 .iftarx Antalya
  .timeriftar45 1 45 .iftarx Ardahan
  .timeriftar50 1 50 .iftarx Artvin
  .timeriftar55 1 55 .iftarx Aydin
  .timeriftar60 1 60 .iftarx Balikesir
  .timeriftar65 1 65 .iftarx Bartin
  .timeriftar70 1 70 .iftarx Batman
  .timeriftar75 1 75 .iftarx Bayburt
  .timeriftar80 1 80 .iftarx Bilecik
  .timeriftar85 1 85 .iftarx Bingol
  .timeriftar90 1 90 .iftarx Bitlis
  .timeriftar95 1 95 .iftarx Bolu
  .timeriftar100 1 100 .iftarx Burdur
  .timeriftar105 1 105 .iftarx Bursa
  .timeriftar110 1 110 .iftarx Canakkale
  .timeriftar115 1 115 .iftarx Cankiri
  .timeriftar120 1 120 .iftarx Corum
  .timeriftar125 1 125 .iftarx Denizli
  .timeriftar130 1 130 .iftarx Diyarbakir
  .timeriftar135 1 135 .iftarx Duzce
  .timeriftar140 1 140 .iftarx Edirne
  .timeriftar145 1 145 .iftarx Elazig
  .timeriftar150 1 150 .iftarx Erzincan
  .timeriftar155 1 155 .iftarx Erzurum
  .timeriftar160 1 160 .iftarx EskiSehir
  .timeriftar165 1 165 .iftarx Gaziantep
  .timeriftar170 1 170 .iftarx Giresun
  .timeriftar175 1 175 .iftarx GumuShane
  .timeriftar180 1 180 .iftarx Hakkari
  .timeriftar185 1 185 .iftarx Hatay
  .timeriftar190 1 190 .iftarx Igdir
  .timeriftar195 1 195 .iftarx Isparta
  .timeriftar200 1 200 .iftarx istanbul
  .timeriftar205 1 205 .iftarx izmir
  .timeriftar210 1 210 .iftarx KahramanmaraS
  .timeriftar215 1 215 .iftarx Karabuk
  .timeriftar220 1 220 .iftarx Karaman
  .timeriftar225 1 225 .iftarx Kars
  .timeriftar230 1 230 .iftarx Kastamonu
  .timeriftar235 1 235 .iftarx Kayseri
  .timeriftar240 1 240 .iftarx Kilis
  .timeriftar245 1 245 .iftarx Kirikkale
  .timeriftar250 1 250 .iftarx Kirklareli
  .timeriftar255 1 255 .iftarx KirSehir
  .timeriftar260 1 260 .iftarx Kocaeli
  .timeriftar265 1 265 .iftarx Konya
  .timeriftar270 1 270 .iftarx Kutahya
  .timeriftar275 1 275 .iftarx Malatya
  .timeriftar280 1 280 .iftarx Manisa
  .timeriftar285 1 285 .iftarx Mardin
  .timeriftar290 1 290 .iftarx Mersin
  .timeriftar295 1 295 .iftarx Mugla
  .timeriftar300 1 300 .iftarx MuS
  .timeriftar305 1 305 .iftarx NevSehir
  .timeriftar310 1 310 .iftarx Nigde
  .timeriftar315 1 315 .iftarx Ordu
  .timeriftar320 1 320 .iftarx Osmaniye
  .timeriftar325 1 325 .iftarx Rize
  .timeriftar330 1 330 .iftarx Sakarya
  .timeriftar335 1 335 .iftarx Samsun
  .timeriftar340 1 340 .iftarx Sanliurfa
  .timeriftar345 1 345 .iftarx Siirt
  .timeriftar350 1 350 .iftarx Sinop
  .timeriftar355 1 355 .iftarx Sivas
  .timeriftar360 1 360 .iftarx Sirnak
  .timeriftar365 1 365 .iftarx Tekirdag
  .timeriftar370 1 370 .iftarx Tokat
  .timeriftar375 1 375 .iftarx Trabzon
  .timeriftar380 1 380 .iftarx Tunceli
  .timeriftar385 1 385 .iftarx USak
  .timeriftar390 1 390 .iftarx Van
  .timeriftar395 1 395 .iftarx Yalova
  .timeriftar400 1 400 .iftarx Yozgat
  .timeriftar405 1 405 .iftarx Zonguldak
  timer -o 18:10 1 1 /iftarsaat
}

on *:input:#:{
  if $regex($strip($1),/(^[.!\-*]x[iİı]ftar)$/i) && !$2  { msg $chan $nick Şehir ismi yazmadınız. Kullanımı: $+($chr(3),4,!iftar istanbul,$hr(3)) | halt }
  if $regex($strip($1),/(^[.!\-*]x[iİı]ftar)$/i) && $2 && (%iftarsehri) { msg $chan Şu an komut meşgul lütfen 5 saniye sonra deneyiniz. | halt  }
  if $regex($strip($1),/(^[.!\-*]x[iİı]ftar)$/i) && $2 && (!%iftarsehri) && (%iftarsehiruyari) { msg $chan Veri tabanı güncelleniyor. Lütfen 5 dakika sonra deneyiniz. | halt }
  if $regex($strip($1),/(^[.!\-*]x[iİı]ftar)$/i) && $2 && (!%iftarsehri) && (!%iftarsehiruyari) { set -u6 %iftarkanal $chan | .iftarx $strip($2) }
}