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

sockopen wiki tr.wikipedia.org 80

sockopen -e wiki tr.wikipedia.org 443

<?php
if (!isset($_GET['kelime'])) exit;
$kelime = $_GET['kelime'];
$url = "https://tr.wikipedia.org/w/api.php?action=query&prop=extracts&exintro&explaintext&format=json&titles=" . urlencode($kelime);
$json = file_get_contents($url);
$data = json_decode($json, true);
$page = array_values($data['query']['pages'])[0];
$extract = iconv("UTF-8", "Windows-1254//TRANSLIT", $page['extract']);

header('Content-Type: text/plain; charset=windows-1254');
echo $extract;

alias wiki {
  if ($1 == $null) { echo -a 4 Kullanım: /wiki <kelime> | return }
  var %term = $replace($1-, $chr(32), +)
  sockclose wiki
  if ($isfile(wikipedia_db.txt)) { .remove wikipedia_db.txt }
  set %wikiKelime %term
  set %wikwik 0
  sockopen -e wiki siteadresiniz.com 443
  echo -a 3 HTTPS ile bağlanılıyor: %term
}
on *:sockopen:wiki:{
  sockwrite -n $sockname GET /wiki.php?kelime= $+ %wikiKelime HTTP/1.1
  sockwrite -n $sockname Host: siteadresiniz.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:sockread:wiki:{
  var %line
  sockread %line
  if ($sockerr) return

  if (%wikwik == 0) {
    if (%line == $null) {
      set %wikwik 1
    }
    return
  }

  while ($len(%line) > 0) {
    write wikipedia_db.txt $left(%line, 400)
    var %line = $mid(%line, 401)
  }
}
on *:sockclose:wiki:{
  if (!$isfile(wikipedia_db.txt)) {
    echo -a 3 Veri alınamadı
    unset %wikiKelime
    unset %wikwik
    return
  }

  var %i = 1
  echo -a 4 Wikipedia Özeti: %wikiKelime
  while ($read(wikipedia_db.txt, %i) != $null) {
    echo -a $read(wikipedia_db.txt, %i)
    inc %i
  }

  echo -a 4 https://tr.wikipedia.org/wiki/ $+ %wikiKelime

  .remove wikipedia_db.txt
  unset %wikiKelime
  unset %wikwik
}

/wiki ankara
/wiki adana

alias conv {
  return $replace($1-,\u00fc,ü, \u015f, ş, \u011f, ğ, \u00e7, ç, \u00c7, Ç, \u00e2, â, \u0131, ı, \u0130, i, \u00f6, ö, \u015e, Ş)
}

alias wiki {
  if ($1 == $null) { echo -a Lütfen bir arama terimi girin. | return }
  var %term = $replace($1-, $chr(32), %20)
  sockclose wiki
  sockopen -e wiki tr.wikipedia.org 443
  set %wikiterm %term
}
on *:sockopen:wiki:{
  if ($sockerr > 0) { echo -a HATA: $sock($sockname).wsmsg ** sock($sockname).wserr | 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: $conv($replace(%summary, \n, $crlf))
    }
  }
}