Mesafe öðrenme kodu socket
Kodun amacý ilce ilce sehir sehir ülke ülke mesafelerin kaç km oldugunu ögrenmek.
Komut: !mesafe sehir sehir
Örnek komut: !mesafe istanbul bursa
Örnek komut: !mesafe almanya türkiye Kod:
on $*:Text:/^[!.]mesafe(.+)/i:#sohbet,#felsefe,#radyo,#mirchelp:{
if !$3 { msg # > En az 2 sehir yazmalisiniz | return }
if %mesafechan {
msg # > Mesafe sorgulamasi yaparken 10 sn beklemelisiniz.
return
}
.set -u10 %mesafechan $chan
.set -u10 %mesafeci $2-
mesafe $2-
}
alias mesafe {
set %mesafe $replacex($trkarakter($1-),$chr(32),+)
sockclose mesafe | sockopen mesafe www.google.com 80
}
on *:sockopen:mesafe:{
if $comerr { .sockclose $sockname | echo -a Socket Hatasi }
var %ko = sockwrite -n $sockname
%ko GET /search?q= $+ %mesafe $+ +aras%C4%B1+ka%C3%A7+km HTTP/1.0
%ko Host: www.google.com
%ko $crlf
}
on *:sockread:mesafe:{
var %mes
sockread -f %mes
var %mesafetr = /span class="FCUp0c rQMQod (.+)">(.+)</span>(.+)</div></span><span><div class="BNeawe tAd8D AP7Wnd/i
if $regex(%mes,%mesafetr) {
msg %mesafechan [Mesafe] %mesafeci $+($xturkceforbx($regml(2))) $xturkceforbx($regml(3)) $xturkceforbx($regml(4))
}
}
alias -l xturkceforbx {
return $replacexcs($1-,?®,i,â,a,Ü,Ü,Þ,Þ,Ð,Ð,Ç,Ç,Ý,Ý,Ö,Ö,ü,ü,þ,þ,ð,ð,?§,ç,ý,ý,ö,ö,ê,?,?,$chr(32),?,$chr(32),’,",‘,',“,",–,-,?,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ,$&
Ccedil;,Ç,A»,?,circ;s,s,icirc;,i,Uuml;,Ü,i ldquo;,i,hrdquo;,h,acirc;,a,ý,ý,circ;I,I,uml;B,B,nýrsquo;,`,$chr(195),A,$ˆR,R,rsquo;yi,`yi,ccedil;,ç,ouml;,ö,ç,ç,uuml;,ü,rsquo;,',ý,i,ð,ð,dk.,dakika,sa.,saat)
}
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))
|
