Tekil Mesaj gösterimi
Alt 18 Ocak 2024, 17:31   #1
Çevrimiçi
Forbidden
~ BuSohbet.Com ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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,&#39;,',&#214;,Ö,&#252;,ü,İ,I,ı,i,&#214;,Ö,&#246;,ö,&#220;,Ü,&#252;,ü,&#199;,Ç,&#231;,ç,Ğ,Ğ,ğ,ğ,Ş,Ş,ş,ş,$& 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,$&circ;R,R,rsquo;yi,`yi,ccedil;,ç,ouml;,ö,&#231;,ç,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))

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
Beni yoran yıllar değil, namert kullar.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet