IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Kod hakinda (https://www.ircforumlari.net/mirc-scripting-sorunlari/443466-kod-hakinda.html)

Cevap: Kod hakinda

hasan arkadaşın kodunun çalışma mantığı
km il ordu samsun
km ilce ordu fatsa
km il ordu-fatsa ankara-mamak gibidir

sunucu güncellemeleri nedeniyle yanıt vermiyor sanıyorum

Kod:

alias iller {  sockclose aziz

  set %sd $1-

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

}

on *:sockopen:aziz: {

  sockwrite -n aziz GET / $+ %sd $+ / HTTP/1.1

  sockwrite -n aziz Host: illerarasimesafe.com 

  sockwrite -n aziz $crlf

}

on *:SOCKREAD:aziz: { 

  var %a

  sockread %a

  if (Km'dir. isin %a) { echo -a $htmlfree(%a) }

  if (iline bağlıdır isin %a) { echo -a $htmlfree(%a) }

  if (Kaç Saat? isin %a) { echo -a $htmlfree(%a) }

  if (ortalama isin %a) { echo -a $htmlfree(%a) }

}

alias htmlfree { 

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 

  return %x 

}

siteye girip baktım bi göz kabaca birşeyler karaladım görünüm renk düzenini veya :text: bot kısımlarını kendinize göre ayarlayabilirsiniz
kullanımı
/iller ordu_samsun
/iller ankara_samsun gibi
il ilçe için
/iller ordu-fatsa
ilçeler arası sorgulama ise
/iller ordu-fatsa_samsun-terme

gibi kullanımlara ayarlıdır

Cevap: Kod hakinda

Kod:

;Yazan/Written by: L4roXyL - (Hasan AYDENİZ)

alias -l _ch { 

  if ($1 = _km_lo) { return $replace($lower($2-),ü,u,ı,i,İ,i,I,i,ö,o,ş,s,ğ,g,ç,c) }

  if ($1 = _km_up) { return $upper($replace($2-,ı,I,i,İ)) }

}

alias km { 

  if ($regex($1,/^(ilçe|il)$/i) && $2-3) { 

    %_km_wrng = Uygun sonuç bulunamadı. İl/ilçe isimlerini doğru girdiğinizden emin olun.

    %_km_let = ( $+ $regsubex($2,-,/) - $regsubex($3,-,/) $+ ) | $iif(sock(_km),sockclose _km)

    sockopen _km 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 

    if ($regex($1,/^ilçe$/i)) %_get_link = $+(/,$2,-,$3,/)

    if ($regex($1,/^il$/i)) %_get_link = $+(/,$2,_,$3,/)

  }

  else msg %kmchan Hatalı kullanım. Örnek: /km <il> il'ismi il'ismi -   /km <il> il-ilçe'ismi il-ilçe'ismi - /km <ilçe> il'ismi   ilçe'ismi

}

on *:sockopen:_km: {

  var %_km = $sockname,%_c = sockwrite -n 

  %_c %_km GET %_get_link HTTP/1.1

  %_c %_km Host: illerarasimesafe.com 

  %_c %_km $crlf

}

on *:sockread:_km: {

  var %_k | sockread %_k

  if ($regex(_km,%_k,/^<div id="sonuc"><span id="sonuc-km">(.+)</span><br />$/))   { 

    var %_l = $regml(_km,1) 

    %_km_locc = $iif($token(%_l,2,32),%_l)

    if (!%_km_locc) { msg %kmchan %_km_wrng | sockclose _km }

  }

  if ($regex(_time,%_k,/<span id="sonuc-saat">Ortalama <font   style="color:#F60;">(.+)</font></span>(</div>|<br   />)/)) {

    var %_time = $regml(_time,1)

    if (%_km_locc) {

      msg %kmchan $_ch(_km_up,%_km_let) arası: %_km_locc olup, saat'de 100   km hızla $iif(%_time,$iif($v1 != 0 saat 0 dakika,$v1)) $+ 'dır.

    }

  }

}
 
 on *:text:*:#:{ if ($1 == !km) { set %kmchan $chan | km $2- } }

Bot için editlenmiş Halidir.
Orjinalinde Yapılan Değişiklikler Anlaşılması İçin Kırmızı Renktedir.

Denem Görüntüsü

Alıntı:

<siLuet> !km il sinop samsun
<Bot> (SİNOP - SAMSUN) arası: 165 Km olup, saat'de 100 km hızla 1 saat 39 dakika'dır.
<siLuet> !km il sinop-gerze samsun-bafra
<Bot> (SİNOP/GERZE - SAMSUN/BAFRA) arası: 78 Km olup, saat'de 100 km hızla 1 saat 16 dakika'dır.
<siLuet> !km ilçe sinop gerze
<Bot> (SİNOP - GERZE) arası: 37 Km olup, saat'de 100 km hızla 22 dakika'dır.

Cevap: Kod hakinda

Kod:

alias htmlfree {  

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

  return %x  

}

alias hesap { 

  sockclose yolbul

  sockopen yolbul 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  

}  

on *:sockopen:yolbul: {  

  sockwrite -n $sockname GET / $+ %mbul $+ / HTTP/1.1

  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf  

}  

on *:sockread:yolbul: {  

  var %yolbul

  sockread %yolbul

  if (*<strong>*</strong></font>* iswm %yolbul) { /msg %pencere $remove($htmlfree(%yolbul),KaÃ§ Km?,KaÃ§ Saat?) }

}
 

on *:input:*: {

  if ($1 == !km) && ($2) && ($3) {

    .set %pencere $chan | .set %mbul $replacecs($lower($2),ı,i,ğ,g,ç,c,ö,o,ü,u,ş,s,Ü,u,Ö,o,Ğ,g,Ç,c,I,i,İ,i,Ş,s) $+ _ $+ $replacecs($lower($3),ı,i,ğ,g,ç,c,ö,o,ü,u,ş,s,Ü,u,Ö,o,Ğ,g,Ç,c,I,i,İ,i,Ş,s)

    .hesap $2-

  }

}

Sadece iller arası mesafeyi ve zamanı gösteriyor. Ekte bulunan resimdeki gibi.
Kullanımı: !km ŞehirAdı ŞehirAdı
Eğer kodu diğer kullanıcılar kullansın istersen
Bu satırı;

Kod:

on *:input:*: {

Bununla değiştir;

Kod:

on *:text:*:#: {

Cevap: Kod hakinda

feragat ın verdiği kod çalışıyor sende sorun var galiba?

Cevap: Kod hakinda

Feragat 'in verdiği kodeyi bende ekledim kodede sorun yok.

LOG :

Alıntı:

21:31] <04&Coldman> !km ankara istanbul
[21:31] <04&Coldman> Ankara ile Ä°stanbul arasÄ± 454 Km'dir.
[21:31] <04&Coldman> Bu mesafe, 4 saat 36 dakika sÃ¼recektir.

Cevap: Kod hakinda

Evet simdi farkina vardim net yavasti calismiyor sandim :)

Cevap: Kod hakinda

Artık calısmamakta kod.

Cevap: Kod hakinda