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)

s.a simdi bole bi kod var elimde ama calismiyor kodun islevi
!km il il ayrica remoteye yuklerken siliyor ne yapmaliyiz kod bu, simdiden tskler.

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 = $+(/?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 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- } }

Cevap: Kod hakinda

yardim eden yok sanirim?

Cevap: Kod hakinda

sanirim zor geldi :))

Cevap: Kod hakinda

Kodu düzgün bir şekil de kopyalarsan yardım eden arkadaşlar olacaktır.

Cevap: Kod hakinda

;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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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 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- } }

code yapinca kodu iyi gostermiyor

Cevap: Kod hakinda

sanirim kimse yardim etmiyecek

Cevap: Kod hakinda

Mircinedemi bu sekilde koyuyorsun?

Böyle bir Copy et icine koy olucakmi:

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 = $+(/?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.

    }

  }

}

Cevap: Kod hakinda

hocam kod mirce yukleniyor ama !km ankara istanbul yazinca
statste sole cikiyor

ankara bu kişi şuanda sunucuda bulunmuyor

Cevap: Kod hakinda

Kullanimi /km Sehir Sehir

degilmi?

Cevap: Kod hakinda

yok ben bot icin istemistim ayrica olede olmuyor

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

yaziyor