Kelime Tamamlama Addonu

menu channel,status,menubar {
  &Kelime Tamamlama
  .Kelime Tamamlamayi Aç:.enable #kelimetamam | .disable #ifadeler | .disable #şifreli | .disable #HoLyyazı | echo -a ß!& 4Kelime Tamamlama Addonu Açıldı  %logo
  .Kelime Tamamlamayi Kapat:.disable #kelimetamam | .enable #ifadeler | .disable #şifreli | .disable #HoLyyazı | echo -a ß!& 12Kelime Tamamlama Addonu Kapatildi  %logo
  .Kelime Ekle:/write kelime.txt  $?="Örnek Ekleme S.a=aLeykum Selam Şeklinde"
  .Kelime Dosyasi:/run kelime.txt
}

#kelimetamam on
on *:input:#: {
  if (/* !iswm $1-) {
    var %i 1,%q $1-
    while %i <= $lines(kelime.txt) {
      %q = $replace(%q,$gettok($read(kelime.txt,%i),1,$asc(=)),$gettok($read(kelime.txt,%i),2,$asc(=)))
      inc %i
    }
    say %q
    halt
  }
}

#kelimetamam end

on *:ACTIVE:@tooltip: {
  window -a $qt($lactive)
  window -o @tooltip
}
on *:APPACTIVE: if (!$appactive) && ($window(@tooltip)) window -c @tooltip

alias tooltip {
  if ($window(@tooltip)) window -c @tooltip
  var %font = Tahoma, %fontsize = 11, %time = 4, %rgb = 14811135
  var %x = 1, %long = $gettok($1-,%x,13)
  while ($gettok($1-,%x,13)) {
    if ($len($v1) > $len(%long)) %long = $gettok($1-,%x,13)
    inc %x
  }
  var %w = $width(%long,%font,%fontsize,0,1) + 7, %h = $calc($gettok($1-,0,13) * $height($1-,%font,%fontsize) + 5)
  window -pBhdo +dL @tooltip $mouse.dx $calc($mouse.dy - 20) %w %h
  drawfill -r @tooltip %rgb %rgb 0 0
  drawrect @tooltip 1 0.5 0 0 %w %h
  %x = 1
  while ($gettok($1-,%x,13)) {
    drawtext -p @tooltip 1 %font %fontsize $iif($left($v1,1) == $chr(2),3,4) $iif(%x == 1,1,$calc((%x - 1) * 13)) $gettok($1-,%x,13)
    inc %x
  }
  window -a @tooltip
  .timertip 0 %time window -c @tooltip
}