[BlackForce]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias trFix { return $replacecs($1-,ğ,g,ü,u,ş,s,ı,i,ö,o,ç,c,Ğ,G,Ü,U,Ş,S,İ,I,Ö,O,Ç,C) }
alias iftarsorgu { var %bfAPI $r(999,9999) | sockopen $+(SockID-,%bfAPI) bfsistem.com 80 | sockmark $+(SockID-,%bfAPI) $+($1, $chr(126), $trFix($2), $chr(126), $trFix($3)) }
on *:sockopen:SockID-*:{
  if ($sockerr) { sockclose $sockname }
  else { sockwrite -nt $sockname GET $+(/apiveri.php?sehir=,$gettok($sock($sockname).mark, 2, 126), $iif($gettok($sock($sockname).mark, 3, 126), $+(&ilce=, $gettok($sock($sockname).mark, 3, 126)))) HTTP/1.1 | sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname Connection: close | sockwrite -nt $sockname $crlf }
}

on *:sockread:SockID-*:{

  var %b, %k = $gettok($sock($sockname).mark, 1, 126) | sockread -f %b | echo -a %b
  if $regex(%b, (.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)) {

    var %tarih = $regml(1), %sehir = $regml(2), %imsak = $regml(3), %gunes = $regml(4), %ogle = $regml(5)
    var %ikindi = $regml(6), %aksam = $regml(7), %yatsi = $regml(8)
    var %sure = $iif($gettok($regml(9), 1, 42) == 1, ~4 İftara Kalan:2 $gettok($regml(9), 2-, 42), ~4 Sahura Kalan:2 $gettok($regml(9), 2-, 42))

    msg %k ~4 Tarih:2 %tarih - 4Şehir:2 %sehir
    msg %k ~4 İmsak:2 %imsak - 4Güneş:2 %gunes - 4Öğle:2 %ogle - 4İkindi:2 %ikindi - 4Akşam:2 %aksam - 4Yatsı:2 %yatsi
    msg %k %sure

  }

  elseif $regex(%b, Hata: (.*)) { msg %k ~4 Hata:2 $regml(1)  }

}


on *:text:*:#: {
  if $regex($1,/^[!\.][İiIı]ftar$/Si) { if !$2 { msg $chan Lütfen şehir belirtin. } | else { iftarsorgu $chan $2- } }
}

alias vakitTakip { var %bfAPITakip $r(999,9999) | sockopen $+(VakitID-,%bfAPITakip) bfsistem.com 80 }
on *:sockopen:VakitID-*:{
  if ($sockerr) { sockclose $sockname }
  else { sockwrite -nt $sockname GET $+(/apiveri.php?timer=1) HTTP/1.1 | sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname Connection: close | sockwrite -nt $sockname $crlf }
}

on *:sockread:VakitID-*:{
  var %s | sockread -f %s | tokenize 32 %s
  if !$regex($1, (HTTP|Date|Content)) && $3 && !$hget(VakitTakip, $1) {
    if $2 == $date(H:n) { hadd -msu100 VakitTakip $1 ok... | msg #iftar $1 için İftar vakti, Allah kabul etsin... }
    elseif $3 == $date(H:n) { hadd -msu100 VakitTakip $1 ok... | msg #iftar $1 için Sahur vakti, Allah kabul etsin... }
  }
}

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kullanım:

!iftar [şehir] [ilçe]

Örn:

!iftar ığdır

İlçe ile sorgu:

!iftar ığdır tuzluca

vakitTakip aliası ile de duyuru geçebilirsiniz, timer'a bağlamanız yeterli (Denenmedi.):

.timervakitTakip 0 40 vakitTakip

İsteğinize göre kodlamak size kalmış

[Mylife]

Eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[AEKyazılım]

eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[idyllic]

elinize emeğinize sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[NeverLove]

Eline sağlık. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[bjorn]

BlackForce Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! alias trFix { return $replacecs($1-,ğ,g,ü,u,ş,s,ı,i,ö,o,ç,c,Ğ,G,Ü,U,Ş,S,İ,I,Ö,O,Ç,C) } alias iftarsorgu { var %bfAPI $r(999,9999) | sockopen $+(SockID-,%bfAPI) bfsistem.com 80 | sockmark $+(SockID-,%bfAPI) $+($1, $chr(126), $trFix($2), $chr(126), $trFix($3)) } on *:sockopen:SockID-*:{ if ($sockerr) { sockclose $sockname } else { sockwrite -nt $sockname GET $+(/apiveri.php?sehir=,$gettok($sock($sockname).mark, 2, 126), $iif($gettok($sock($sockname).mark, 3, 126), $+(&ilce=, $gettok($sock($sockname).mark, 3, 126)))) HTTP/1.1 | sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname Connection: close | sockwrite -nt $sockname $crlf } } on *:sockread:SockID-*:{ var %b, %k = $gettok($sock($sockname).mark, 1, 126) | sockread -f %b | echo -a %b if $regex(%b, (.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)) { var %tarih = $regml(1), %sehir = $regml(2), %imsak = $regml(3), %gunes = $regml(4), %ogle = $regml(5) var %ikindi = $regml(6), %aksam = $regml(7), %yatsi = $regml(8) var %sure = $iif($gettok($regml(9), 1, 42) == 1, ~4 İftara Kalan:2 $gettok($regml(9), 2-, 42), ~4 Sahura Kalan:2 $gettok($regml(9), 2-, 42)) msg %k ~4 Tarih:2 %tarih - 4Şehir:2 %sehir msg %k ~4 İmsak:2 %imsak - 4Güneş:2 %gunes - 4Öğle:2 %ogle - 4İkindi:2 %ikindi - 4Akşam:2 %aksam - 4Yatsı:2 %yatsi msg %k %sure } elseif $regex(%b, Hata: (.*)) { msg %k ~4 Hata:2 $regml(1) } } on *:text:*:#: { if $regex($1,/^[!\.][İiIı]ftar$/Si) { if !$2 { msg $chan Lütfen şehir belirtin. } | else { iftarsorgu $chan $2- } } } alias vakitTakip { var %bfAPITakip $r(999,9999) | sockopen $+(VakitID-,%bfAPITakip) bfsistem.com 80 } on *:sockopen:VakitID-*:{ if ($sockerr) { sockclose $sockname } else { sockwrite -nt $sockname GET $+(/apiveri.php?timer=1) HTTP/1.1 | sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname Connection: close | sockwrite -nt $sockname $crlf } } on *:sockread:VakitID-*:{ var %s | sockread -f %s | tokenize 32 %s if !$regex($1, (HTTP|Date|Content)) && $3 && !$hget(VakitTakip, $1) { if $2 == $date(H:n) { hadd -msu100 VakitTakip $1 ok... | msg #iftar $1 için İftar vakti, Allah kabul etsin... } elseif $3 == $date(H:n) { hadd -msu100 VakitTakip $1 ok... | msg #iftar $1 için Sahur vakti, Allah kabul etsin... } } } Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Kullanım: !iftar [şehir] [ilçe] Örn: !iftar ığdır İlçe ile sorgu: !iftar ığdır tuzluca vakitTakip aliası ile de duyuru geçebilirsiniz, timer'a bağlamanız yeterli (Denenmedi.): .timervakitTakip 0 40 vakitTakip İsteğinize göre kodlamak size kalmış

çok riskli bir kod. ama yine de size güveniyoruz...

[EceNaz]

çok iyiymiş bu emeğinize sağlık..