|
bøCek Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
Yok Arkadas Bende Olmuyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yapamadim Ya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kodu Aldim mIRC'e koydum Ardına #iftar yazanlari #turkiye yazdim Turkiye kanalında.
<boCek> *istanbul
<Casus_Bot> [Istanbul] 1
<Casus_Bot> İmsak - 2
<Casus_Bot> Güneş - 3
<Casus_Bot> Öğle - 4
<Casus_Bot> İkindi- 5
<Casus_Bot> Akşam - 6 (İftar)
<Casus_Bot> Yatsı - 7
yazdim yukardaki gibi cikiyor denedim herseyi eyledim ama cIx
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
on $*:text:/^[\*](\S+)$/i:#turkiye:{
if $sock(ramazan,1).status == active { msg $chan S?rada bekleyen bilgi al?n?yor,lütfen bitmesini bekleyiniz | halt }
set -e %\/ $lower($replace($regml(1),?,i,?,i,?,s,?,s,Ö,o,ö,o, Ü,u,ü,u,ç,c,Ç,c,?,g,?,g))
set -e %\/zeki $address($nick,2)
msg $chan Bilgiler aliniyor Lütfen 30 Saniye Bekleyiniz..
imsakiye
}
on !*:join:#turkiye:{
.notice $nick 0,4Hos geldiniz Hayirli Ramazanlar
.notice $nick 0,4Bulundugunuz ilin bugünkü imsakiye bilgileri için kanala 0,1*sehir yaziniz.Örnek: *istanbul
.notice $nick 0,4Hosca vakitler..Hayirli Ramazanlar
}
alias imsakiye {
$iif($isfile(ramazan.txt),.remove ramazan.txt)
$iif($window(@yeah),window -c @yeah)
.fopen -n difuzyon ramazan.txt
window -nh @yeah
sockclose ramazan
sockopen ramazan imsakiyeler.net 80
sockmark ramazan .fwrite -n difuzyon
}
on *:sockopen:ramazan:{
sockwrite -n $sockname GET $+(/ramazan-imsakiyeleri/,%\/,-imsakiyesi) HTTP/1.1
sockwrite -n $sockname Host: imsakiyeler.net $str($crlf,2)
}
on *:sockread:ramazan:{
if ($sockerr) { msg #turkiye Veri Alaninda hata olustu. | .fclose difuzyon | halt }
else {
var %dify
sockread %dify
if $regex(%dify,/404 Not Found/i) { sockclose $sockname | .fclose difuzyon | window -c @yeah | ignore -u10 $evalnext(%\/zeki) | msg #turkiye Verdiginiz bilgi tanimli degil Türkiye Harici Bilgi Gösterilmemektedir.60 sn. sonra yeni veri girebilirsiniz. | unset %\/* | halt }
if $regex(%dify,/<td>([^R]+)<\/td>/) { $sock($sockname).mark $regml(1) }
}
}
on *:sockclose:ramazan:{
if $read(ramazan.txt,w,$+(*,$token($regsubex($fulldat e,/((\d{2}[^\s]){2}\d{2})/,),3,32),*,2010,*)) {
filter -fwr $+($readn,-,$calc($readn +6)) ramazan.txt @yeah
.fclose difuzyon
msg #turkiye $+(7,[,1,$regsubex(%\/,/^(.)/,$upper(\1)),7]1) $replace($fline(@yeah,*,1).text,pt,Pazartesi,sa,Sa l?,ca,Çarsamba,pe,Persembe,cu,Cuma,Ct,Cumartesi,pa ,Pazar)
msg #turkiye imsak - $fline(@yeah,*,2).text
msg #turkiye Günes - $fline(@yeah,*,3).text
msg #turkiye Ögle $+($chr(160),-) $fline(@yeah,*,4).text
msg #turkiye ikindi- $fline(@yeah,*,5).text
msg #turkiye Aksam - $fline(@yeah,*,6).text 2(iftar icin )1 $iif($regex($duration($calc(($duration($+($fline(@ yeah,*,6).text,:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),4 Kalan Süre: $replace($regml(1),mins,dakika,secs,saniye,hrs,saa t))
msg #turkiye Yatsi - $fline(@yeah,*,7).text
unset %\/*
}
Bunu Copyle Remoteye Yapistir Birde öyle Dene Bakalim.
Kod Yapimcinin Ellerine Saglik