| manikdepresif | 05 Şubat 2024 19:17 |
Namaz vakitleri sorgulama
-------------------------------------------- Kullanim: !namaz şehir
-------------------------------------------- Kod:
on *:input:*:{
if $regex($1-,/^[!.]namaz (.+)/i) {
.set -u10 %namazchan $chan
namazvakit $2-
}
}
on $*:Text:/^[!.]namaz (.+)/i:#sohbet,#felsefe,#radyo,#mirchelp:{
if %namazchan {
msg # < $+ $nick $+ > Namaz vakit sorgulamasi yaparken 10 sn beklemelisiniz.
return
}
.set -eu10 %namazchan $chan
.set -eu10 %namaznick $nick
namazvakit $2-
}
alias namazvakit {
set %namaz_ $trkarakter($1-)
sockclose namazvakit | sockopen namazvakit
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:namazvakit:{
if $sockerr { .sockclose $sockname | echo -a Socket Hatasi }
var %ko = sockwrite -n $sockname
%ko GET /search?client=opera&q= $+ $replacex(%namaz_,$chr(32),+) $+ + $+ namaz+vakitleri $+ &sourceid=opera&ie=UTF-8&oe=UTF-8 HTTP/1.0
%ko Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:namazvakit:{
var %nam
sockread -f %nam
if *hab?rt?rk* iswm %nam {
if $regex(%nam,/NAMAZ VAKİTLERİ · İmsak (\d+:\d+) · Güneş (\d+:\d+) · Öğle (\d+:\d+) · İkindi (\d+:\d+) · Akşam (\d+:\d+) · Yatsı (\d+:\d+)(.+)/i) {
msg %namazchan < $+ %namaznick $+ > <Namaz Vakitleri> Imsak: $regml(1) Gunes: $regml(2) Ogle: $regml(3) Ikindi: $regml(4) Aksam: $regml(5) Yatsi: $regml(6)
sockclose namazvakit
}
}
}
alias -l trkarakter return $replacex($1-,ı,$eval(%C4%B1,0),İ,$eval(%C4%B0,0),ğ,$eval(%C4%9F,0),Ğ,$eval(%C4%9E,0),Ş,$eval(%C5%9E,0),ş,$eval(%C5%9F,0),ö,$eval(%C3%B6,0),Ö,$eval(%C3%96,0),ç,$eval(%C3%A7,0),Ç,$eval(%C3%87,0),ü,$eval(%C3%BC,0),Ü,$eval(%C3%9C,0))
|
