Code:

bind msg o|o act cmd:actbind msg o|o notice cmd:noticebind msg o|o forcejoin cmd:forcejoinbind msg o|o sapart cmd:sapartbind msg o|o tempshun cmd:tempshunbind msg o|o kill cmd:killbind msg o|o tempgline cmd:tempglineproc cmd:act {nick uhost hand arg} {   set chan [lindex [split $arg] 0]   set text [lrange [split $arg] 1 end]   putserv "PRIVMSG $chan :\001ACTION $text\001" }proc cmd:notice {nick uhost hand arg} {  set chan [lindex [split $arg] 0]   set text [lrange [split $arg] 1 end]   putserv "NOTICE $chan :$text"}proc cmd:forcejoin {nick uhost hand args} {  set args [join $args]  set nick [lindex $args 0]  set chan [lrange $args 1 end]  putserv "SAJOIN $nick :$chan"}proc cmd:sapart {nick uhost hand args} {  set args [join $args]  set nick [lindex $args 0]  set chan [lrange $args 1 end]  putserv "SAPART $nick :$chan"}proc cmd:tempshun {nick uhost hand arg} {  set nick [lindex [split $arg] 0]   set reason [lrange [split $arg] 1 end]   putserv "TEMPSHUN $nick :$reason"  } proc cmd:kill {nick uhost hand arg} {   set username [lindex [split $arg] 0]    set reason [lrange [split $arg] 1 end]    putserv "KILL $username :$reason"  } proc cmd:tempgline {nick uhost hand args} {  set args [join $args]  set username [lindex $args 0]  set reason [lrange $args 1 end]  putserv "GLINE $username 4H :$reason"  } all seems to work ok many thanks for your help

Code:

bind msg o|o act cmd:actbind msg o|o notice cmd:noticebind msg o|o forcejoin cmd:forcejoinbind msg o|o tempshun cmd:tempshunbind msg o|o kill cmd:killproc cmd:act {nick uhost hand args} {  set args [join $args]  set chan [lindex $args 0]  set text [lrange $args 1 end]   putserv "PRIVMSG $chan :\001ACTION $text\001"}proc cmd:notice {nick uhost hand args} {  set args [join $args]  set chan [lindex $args 0]  set text [lrange $args 1 end]   putserv "NOTICE $chan :$text"}proc cmd:forcejoin {nick uhost hand args} {  set args [join $args]  set nick [lindex $args 0]  set chan [lrange $args 1 end]   putserv "SAJOIN $nick :$chan"}proc cmd:tempshun {nick uhost hand args} {  set args [join $args]  set nick [lindex $args 0]  set reason [lrange $args 1 end]   putserv "TEMPSHUN $nick :$reason"}proc cmd:kill {nick uhost hand args} {  set args [join $args]  set username [lindex $args 0]  set reason [lrange $args 1 end]   putserv "KILL $username :$reason"}

Code:

# syntax /msg botnick sajoin ?nick? <channel># forces ?nick? to join <channel># acts on the script user in the absence of the optional argument ?nick?# requires script user to have global owner bot flag# requires bot to have Csop priviledgesbind MSG n sajoin msg:sajoinproc msg:sajoin {nick uhost hand text} {    # declare as global and set command user for use in further error messages    global cmduser    set cmduser $nick    # unset the global variable cmduser in case of ircd response not occuring within a reasonable timescale    utimer 10 [list unset cmduser]    # remove any spurious leading/trailing space characters from the text arguments    set arguments [string trim $text]    # check the number of text arguments provided and assign variables accordingly    # notice the script user with error message if an incorrect number of arguments is provided    switch -- [llength [split $arguments]] {        1 {            set username $nick            set channel $arguments        }        2 {            set username [lindex [split $arguments] 0]            set channel [lindex [split $arguments] 1]        }        default {            putserv "NOTICE $nick :-error- correct syntax is /msg botnick sajoin ?nick? <channel>"            return 0        }    }    # check that the username argument provided is in the format of a valid irc nick    # otherwise notice the script user with error message    if {[regexp -- {^[\x41-\x7D][-\d\x41-\x7D]*$} $username]} {                  # check that the channel argument proovided is in the format of a valid irc channel        # otherwise notice the script user with error message        if {[regexp -- {^#} $channel]} {            # send the sajoin command to the ircd            putserv "sajoin $username $channel"        } else {putserv "NOTICE $nick :-error- $channel is not in the format of a valid irc channel"}    } else {putserv "NOTICE $nick :-error- $username is not in the format of a valid irc nick"}    return 0}# syntax /msg botnick kill <nick> ?reason?# forcibly disconnects <nick> from all linked servers for ?reason? if specified# provides default reason text if optional ?reason? argument is not specified# requires script user to have global owner bot flag# requires bot to have IRCop priviledgesbind MSG n kill msg:killproc msg:kill {nick uhost hand text} {    # declare as global and set command user for use in further error messages    global cmduser    set cmduser $nick    # unset the global variable cmduser in case of ircd response not occuring within a reasonable timescale    utimer 10 [list unset cmduser]    # remove any spurious leading/trailing space characters from the text arguments    set arguments [string trim $text]    # check the number of text arguments provided and assign variables accordingly    # notice the script user with error message if an incorrect number of arguments is provided    switch -- [llength [split $arguments]] {        0 {            putserv "NOTICE $nick :-error- correct syntax is /msg botnick kill <nick> ?reason?"            return 0        }        1 {            set username $arguments            set reason "no reason specified"        }        default {            set username [lindex [split $arguments] 0]            set reason [join [lrange [split $arguments] 1 end]]        }    }    # check that the username argument provided is in the format of a valid irc nick    # otherwise notice the script user with error message    if {[regexp -- {^[\x41-\x7D][-\d\x41-\x7D]*$} $username]} {                  # send the kill command to the ircd        putserv "kill $username $reason"    } else {putserv "NOTICE $nick :-error- $username is not in the format of a valid irc nick"}    return 0}# a raw 481 is received by the bot from the ircd server if it tries to use oper commands but does not have oper privilegesbind RAW - 481 msg:raw481proc msg:raw481 {from keyword text} {    # allow use of global variable cmduser within this proc    global cmduser        # if the global variable cmduser exists, notice the command user and unset cmduser    if {[info exists cmduser]} {        putserv "NOTICE $cmduser :Permission denied, I do not have the correct irc operator privileges"        unset cmduser    }    return 0}

Code:

bind msg o kill msg:killbind msg o act msg:actbind msg o tempshun msg:tempshunbind msg o sajoin msg:sajoinbind msg o GLINE msg:GLINE proc msg:kill {nick uhost hand arg} {  set target [lindex [split $arg] 0]  putserv "kill $target" }proc msg:act {nick uhost hand arg} {  set target [lindex [split $arg] 0]  putserv "act $target" }proc msg:tempshun {nick uhost hand arg} {  set target [lindex [split $arg] 0]  putserv "tempshun $target" }proc msg:sajoin {nick uhost hand arg} {  set target [lindex [split $arg] 0]  putserv "sajoin $target" }proc msg:Gline {nick uhost hand arg} {  set target [lindex [split $arg] 0]  putserv "GLINE $target" }