Alıntı:
BlackForce Nickli Üyeden Alıntı
(Mesaj 1915709)
Kod:
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... }
}
}
[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
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ış :gulumseme:
|
Emeğine sağlık kırmızı Renkle belirlediğim yer hatalıdır farkındamısınız Hocam? Kod:
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... }
}
}
|
