mIRC Scripting

mIRC Scripting (https://www.mircscripting.net/)
-   Snippets - Parça kodlar (https://www.mircscripting.net/snippets-parca-kodlar/)
-   -   İller arası kaç km, kaç saat? (https://www.mircscripting.net/snippets-parca-kodlar/499-yller-arasy-kac-km-kac-saat.html)

L4roXyL 22 Eylül 2010 17:40

İller arası kaç km, kaç saat?
 
Evet arkadaşlar can sıkıntısından yazdığım bir kod.
İsteyen alıp kendine göre uyarlayabilir, script-i için dialoglar katarak add-on vb. şeyler haline getirebilir. IRC sunucusu için kanalda kullanıcılara hizmet için kullanılabilir. Bu size ve birazda kod bilginize kalmış.

-

Kodun işlevleri:

1- Kod socket ile verileri webden(illerarasimesafe.com) alır.(Bilgisayarınızda internet bağlantısı gereklidir.)
2- Belirtilen ilk il ile belirtilen ikinci il arasındaki yol mesafesini(km cinsinden) hesablar. Ve ortalama kaç saat olduğunu gösterir.
3- Belirtilen il ile ilçe arasındaki mesafeyi aynı şekilde gösterir.
4- Belirtilen il-ilçe ile ikinci belirtilen il-ilçe arasındaki mesafeyi yine aynı şekilde gösterir.

Kod/code:

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 www.illerarasimesafe.com 80
    if ($regex($1,/^ilçe$/i)) %_get_link = $+(/?il=,$_ch(_km_lo,$2),&ilce=,$_ch(_km_lo,$3))
    if ($regex($1,/^il$/i)) %_get_link = $+(/?nereden=,$_ch(_km_lo,$2),&nereye=,$_ch(_km_lo,$3))
  }
  else echo -ae 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) { echo -ae %_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) {
      echo -ae $_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.
    }
  }
}

-
Alias ismi: /km
Ek kullanımlar: /km <il|ilçe>(bunlar arama biçimidir)

-

Kullanım şekli/using:

Bir il ile diğer il arasındaki mesafeyi öğrenmek için: /km il ilk-il-ismi ikinci-il-ismi
Örnek: /km il İstanbul Elazığ

-

Bir ilçe ile diğer ilçe arasındaki mesafeyi öğrenmek için: /km il ilk_il_ismi-ilçe_ismi ikinci_il_ismi-ilçe_ismi
Örnek: /km il İstanbul-Bakırköy Edirne-Havsa

-

Bir il ile o ile ait ilçe arasındaki mesafeyi öğrenmek için: /km ilçe il-ismi ilçesinin_ismi
Örnek: /km ilçe Çanakkale Gülpınar

-

Kodu biraz incelerseniz daha farklı kullanımlar sezebilirsiniz. Kolay gelsin.

L4roXyL - (Hasan AYDENİZ)


++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz.   Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.



mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials



User Alert System provided by Advanced User Tagging v3.1.3 (Lite) - vBulletin Mods & Addons Copyright © 2026 DragonByte Technologies Ltd. Runs best on HiVelocity Hosting.

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76

SEO by vBSEO 3.6.1