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 
}

;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- } }