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

Kod:

on *:sockopen:il:{ sockwrite -nt $sockname GET $+(/,$sock($sockname).mark,/) HTTP/1.1 | sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf }

on *:sockread:il:{ 

  var %:il | sockread %:il 

  if (*<span id="result-distance">* iswm %:il)  { echo -a 4KM: $htmlfree(%:il) } 

  if (*<span id="result-hour">* iswm %:il)  { echo -a 4SAAT: $htmlfree(%:il) } 

  if (*<span class="ajaxHarita">* iswm %:il)  { echo -a 4HARITA: $token(%:il,4,34) } 

}

alias _bak { if ($1) { sockopen il illerarasimesafe.com 80 | sockmark il $1 } }

alias htmlfree { 

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

  return %x 

}

/_bak izmir_konya

Kod:

4KM: 562 Km

4SAAT: YaklaÅŸÄ±k 6 saat 39 dakika

4HARITA: http://www.illerarasimesafe.com/izmir_konya/yolharitasi

Cevap: Kod hakinda

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ın son güncelleme yaptığı hala aktif durumda , kod'a sorun yok ve çalışıyor.

[20:42] <@R> !km ankara istanbul
[20:42] <@R> Ä°stanbul ile Ankara arasÄ± 454 Km'dir.
[20:42] <@R> Bu mesafe, 4 saat 39 dakika sÃ¼recektir.
[20:42] <@R> !km Yozgat Bolu
[20:42] <@R> Bolu ile Yozgat arasÄ± 400 Km'dir.
[20:42] <@R> Bu mesafe, 4 saat 10 dakika sÃ¼recektir.
[20:45] <@R> !km Sivas Hakkari
[20:45] <@R> Sivas ile Hakkari arasÄ± 988 Km'dir.
[20:45] <@R> Bu mesafe, 14 saat 45 dakika sÃ¼recektir.

Cevap: Kod hakinda

Öncelikle @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] a paylaşımı için teşekkür ederim. Biraz renk katması açısından bende ilk yaptığım halini biraz düzenledim.
Kodu 1 yılı aşkın süre önce düzenlemiştim. Kodda pek çok gereksiz bölüm (ve ufak tefek mantık hataları) vardı. Yeniden güncelledim ve daha kısa hale getirdim. Kod şuan hemen hemen aynı işlevi yerine getiriyor. Fakat siteyi ve kodu incelerken bir şey daha dikkatimi çekti. Bazı iller arası mesafe sorgusuna yanıt vermiyor. Örnek: !km antalya ankara
Böyle bir durumda, illeri ters şekilde yazdığınızda yanıt alabiliyorsunuz. Örnek: !km ankara antalya

Not: Kod, geliştirilebilir veya daha farklı yollarla da yazılabilir. (Belki daha kısa da yapılabilir veya üstte belirttiğim hata giderilebilir.) Uğraşmak isteyen düzenleyebilir. Lütfen saçma sapan yorumlardan kaçınalım.

Kod:

alias -l 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:var %_ sockwrite -n $sockname | %_ GET / $+ %m $+ / HTTP/1.1 | %_ host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:yolbul:var %yolbul | sockread %yolbul | if $regex(%yolbul,/<strong>.+<\/strong><\/font>.*/Sg) { msg %p $replace($regsubex(%yolbul,/\x3C.+\x3E/gUS,), KaÃ§ Km?, Mesafe:,  KaÃ§ Saat?, Zaman:) }

on *:input:#:{ if $regex($1-,/^[.!]km\s+\S+\s+\S+$/Si) { set %p # | set -e %m $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 } }

Kullanımı: !km <il> <il> Örnek: !km ankara istanbul

Sonuç:

Kod:

 <Feragat> !km ankara istanbul

 <Feragat> Mesafe: Ä°stanbul ile Ankara arasÄ± 454 Km'dir.

 <Feragat> Zaman: Bu mesafe, 4 saat 39 dakika sÃ¼recektir.

Cevap: Kod hakinda

Kod:

alias -l 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:{ 

  var %_ sockwrite -n $sockname 

  %_ GET $+(/,%m,/) HTTP/1.1 

  %_ host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:yolbul:{ 

  var %yolbul 

  sockread %yolbul 

  if <h1> isin %yolbul || <span class=orange id=dInfoMile> isin %yolbul || <span class=orange id=dInfoHour> isin %yolbul { 

    msg %p $iif(? isin %yolbul, $token($regsubex(%yolbul,/\x3C.+\x3E/gUS,),2,63), $regsubex(%yolbul,/\x3C.+\x3E/gUS,)) 

  }

}

on *:input:#:{ 

  if $regex($1-,/^[.!]km\s+\S+\s+\S+$/Si) { 

    set %p $chan 

    set -e %m $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 

  } 

}

Sonuç:

Kod:

[00:08] <deneme1> !km istanbul izmir

[00:08] <deneme1> Ä°zmir ile Ä°stanbul arasÄ± mesafe

[00:08] <deneme1> 568 Km

[00:08] <deneme1> 8 saat 30 dakika

Cevap: Kod hakinda

Kod sorunsuz çalışmakta. Aynısını otobüs durakları mesafi içinde olabilir mi ? Hatta otobüsün geliş saatleri ve vakitlerini gösterebilen çalışma olabilirse katmerli kadayıf olur. Sevgiler.