Kod

on $*:text:/^[!.]mesafe(.+)/Si:#:{
  if (!$3) { msg # > En az 2 Sehir  Yazmalisiniz }
  elseif $sock(mesafe) { msg # > Mesafe Sorgulamasi Yaparken 10 Saniye beklemelisiniz. }
  else {
    .set -u10 %mesafechan #
    var %:i1 $replace($lower($strip($2)),ç,c,ğ,g,ş,s,ı,i,ö,o,Ç,c,Ğ,g,Ş,s,İ,i,I,i,Ö,o)
    var %:i2 $replace($lower($strip($3)),ç,c,ğ,g,ş,s,ı,i,ö,o,Ç,c,Ğ,g,Ş,s,İ,i,I,i,Ö,o)
    sockopen mesafe igs.ircforumlari.net.tr 80
    sockmark mesafe $+(%:i1,-,%:i2,-arasi-kac-km)
  }
}
on *:sockopen:mesafe:{
  if $sockerr { .sockclose $sockname | echo -a Socket Hatasi }
  else {
    sockwrite -nt $sockname GET $+(/km.php?ara=,$sock($sockname).mark) HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -n $sockname Connection: keep-alive
    sockwrite -n $sockname Content-Type: text/html; charset=utf-8
    sockwrite -n $sockname Accept: */*
    sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:136.0) Gecko/20100101 Firefox/136.0
    sockwrite -n $sockname $crlf
  }
}

on *:sockread:mesafe:{
  var %:mesafe | sockread -f %:mesafe | tokenize 32 %:mesafe
  if $regex($1-,/Kilometre:(.+)<br />/Si) { msg %mesafechan Km: $regml(1) }
  elseif $regex($1-,/Sure: (.+) <br />/Si) { msg %mesafechan Süre: $regml(1) | sockclose $sockname }
}