[Che]

örnek; /wiki Ankara

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias wiki {
  if ($1 == $null) { echo -a Lütfen bir arama terimi girin. | return }
  var %term = $replace($1-, $chr(32), %20)
  sockclose wiki
  sockopen wiki tr.wikipedia.org 80
  set %wikiterm %term
}
on *:sockopen:wiki:{
  if ($sockerr > 0) return
  sockwrite -n $sockname GET /w/api.php?action=query&prop=extracts&exintro&explaintext&format=json&titles= $+ %wikiterm HTTP/1.1
  sockwrite -n $sockname Host: tr.wikipedia.org
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:sockread:wiki:{
  var %tmp
  sockread %tmp
  if (%tmp != $null) {
    if ($regex(%tmp, /"extract":"([^"]+)"/)) {
      var %summary = $regml(1)
      echo -a Wikipedia özeti: $replace(%summary, \n, $crlf)
    }
  }
}