Code:

##default prefix !, You can replace it##set prefix "!"set canal_radio #chann1 set canal_djs #chann2set canal_admin #chann3bind pub oa|n [string trim $prefix]commands pub:helpbind msgm oa|n commands pub:helpproc pub:help {nick uhost hand chan args} {global botnick prefix canal_admin canal_djsset args [split [cleanarg $args]]if {(![matchattr $nick a|n]) && ([matchattr $nick +o])} {if {[llength $args]<1} {putmsg $nick "Commands list for Administrators"putmsg $nick [encoding convertfrom utf-8 " - [string trim $prefix]comm1 - task xxx perform "]putmsg $nick [encoding convertfrom utf-8 " - [string trim $prefix]comm2 - task xxx perform "]putmsg $nick [encoding convertfrom utf-8 " - [string trim $prefix]comm3 - task xxx perform "]### ....More help command.............###} else {if {[string index $args 0] == "$prefix"} { set args [string trimleft $args $prefix] }set lines [comm1 comm2 comm3]if {([lsearch -exact [string tolower $lines] $args] == -1)} { putmsg $chan "$nick Sorry I have no help for that command. \002$args.";return } switch [lindex $args 0] {"comm1" {putmsg $nick "\002\0036<===--- !comm1 ---===>\0036\002"putmsg $nick "Usage: [string trim $prefix]comm1 <nick Dj>"putmsg $nick "Usage channels: $canal_admin and $canal_djs"putmsg $nick [encoding convertfrom utf-8 "Function: xxxxxxx"]putmsg $nick "\002\0036<===--- End help comannd !comm1 ---===>\0036\002"}"comm2" {putmsg $nick "\002\0036<===--- !comm2 ---===>\0036\002"putmsg $nick "Usage: [string trim $prefix]comm2 <#channel>"putmsg $nick "Usage channels: $canal_admin and $canal_djs"putmsg $nick [encoding convertfrom utf-8 "Function: xxxxxxx"]putmsg $nick "\002\0036<===--- End help comannd !comm2 ---===>\0036\002"}"comm3" {putmsg $nick "\002\0036<===--- !comm3 ---===>\0036\002"putmsg $nick "Usage: [string trim $prefix]comm3 <nick>"putmsg $nick "Usage channels: $canal_admin and"putmsg $nick [encoding convertfrom utf-8 "Function: xxxxxxx"]putmsg $nick "\002\0036<===--- End help comannd !comm3 ---===>\0036\002"}}}} else {if {[llength $args]<1} {putmsg $nick "Commands list for Roots"putmsg $nick [encoding convertfrom utf-8 " - [string trim $prefix]comm1 - task xxx perform "]putmsg $nick [encoding convertfrom utf-8 " - [string trim $prefix]comm2 - task xxx perform "]putmsg $nick [encoding convertfrom utf-8 " - [string trim $prefix]comm3 - task xxx perform "]### ....More help command.............###} else {if {[string index $args 0] == "$prefix"} { set args [string trimleft $args $prefix] }set lines [comm1 comm2 comm3]if {([lsearch -exact [string tolower $lines] $args] == -1)} { putmsg $chan "$nick Sorry I have no help for that command. \002$args.";return } switch [lindex $args 0] {"comm1" {putmsg $nick "\002\0036<===--- !comm1 ---===>\0036\002"putmsg $nick "Usage: [string trim $prefix]comm1 <nick Dj>"putmsg $nick "Usage channels: $canal_admin and $canal_djs"putmsg $nick [encoding convertfrom utf-8 "Function: xxxxxxx"]putmsg $nick "\002\0036<===--- End help comannd !comm1 ---===>\0036\002"}"comm2" {putmsg $nick "\002\0036<===--- !comm2 ---===>\0036\002"putmsg $nick "Usage: [string trim $prefix]comm2 <#channel>"putmsg $nick "Usage channels: $canal_admin and $canal_djs"putmsg $nick [encoding convertfrom utf-8 "Function: xxxxxxx"]putmsg $nick "\002\0036<===--- End help comannd !comm2 ---===>\0036\002"}"comm3" {putmsg $nick "\002\0036<===--- !comm3 ---===>\0036\002"putmsg $nick "Usage: [string trim $prefix]comm3 <nick>"putmsg $nick "Usage channels: $canal_admin and"putmsg $nick [encoding convertfrom utf-8 "Function: xxxxxxx"]putmsg $nick "\002\0036<===--- End help comannd !comm3 ---===>\0036\002"}}}}}proc cleanarg {arg} { set temp ""for {set i 0} {$i < [string length $arg]} {incr i} {  set char [string index $arg $i]  if {($char != "\12") && ($char != "\15")} {   append temp $char  } } set temp [string trimright $temp "\}"] set temp [string trimleft $temp "\{"]return $temp}