iller Arası Mesafe
Kod:
on $*:text:/^[!.]mesafe(.+)/Si:#:{
if (!$3) { msg # > En az 2 Sehir Yazmalisiniz }
elseif $sock(mesafe) { msg # > Mesafe Sorgulamasi Yaparken 10 Saniye beklemelisiniz. }
else {
.set -u10 %mesafechan #
var %:i1 $replace($lower($strip($2)),ç,c,ğ,g,ş,s,ı,i,ö,o,Ç,c,Ğ,g,Ş,s,İ,i,I,i,Ö,o)
var %:i2 $replace($lower($strip($3)),ç,c,ğ,g,ş,s,ı,i,ö,o,Ç,c,Ğ,g,Ş,s,İ,i,I,i,Ö,o)
sockopen mesafe igs.ircforumlari.net.tr 80
sockmark mesafe $+(%:i1,-,%:i2,-arasi-kac-km)
}
}
on *:sockopen:mesafe:{
if $sockerr { .sockclose $sockname | echo -a Socket Hatasi }
else {
sockwrite -nt $sockname GET $+(/km.php?ara=,$sock($sockname).mark) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname Content-Type: text/html; charset=utf-8
sockwrite -n $sockname Accept: */*
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:136.0) Gecko/20100101 Firefox/136.0
sockwrite -n $sockname $crlf
}
}
on *:sockread:mesafe:{
var %:mesafe | sockread -f %:mesafe | tokenize 32 %:mesafe
if $regex($1-,/Kilometre:(.+)<br />/Si) { msg %mesafechan Km: $regml(1) }
elseif $regex($1-,/Sure: (.+) <br />/Si) { msg %mesafechan Süre: $regml(1) | sockclose $sockname }
}
Kodu remoteye ekledikden sonra kanalda !mesafe il diğer ilin adını yazın Örnek; !mesafe elazığ istanbul İlçeler arası mesafe içinde kullanabilirsiniz örnek: !mesafe ankara mamak |
