;# komut başına gelecek sembol-işaret ne olacak:
set semb "."

;# hangi komutla sorgu yapılacak:
set kmt "man"

;# gösterilmesini istediğiniz maksimum satır sayısı:
set sonuc "5"

;# komutları kullanma hakkı hangi kullanıcı flaglarına tanınacak:
set kflags "mn|oa"

;#############ayarlar bitti############################################################################### 

bind pub $::kflags $::semb$::kmt nix:man

 proc nix:man {nick uhost hand chan text} {
  set a [join [lrange [split $text] 0 end]]
  if {$a == ""} { puthelp "privmsg $chan :\002kullanımı :\002 \00314$::lastbind komut\00304 ..." return 0;}
  set b "man -k $a"
  catch {eval exec $b} c
  set output $c
  set i 0
  foreach line [split $output "\n"] {
    if {$i == $::sonuc} break
      putserv "privmsg $chan :\00304$line\00304"
     incr i
     }
   return 0
}

putlog "ok...."