Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ##### Script Name : Public Commands Requiring Ops
- ##### Script Version : NK0005.0.tcl
- ##### Edited & Bug Fixed By : Kyros Koh (i.am@kyroskoh.com)
- ##### Pre-Loaded Settings #####
- putlog "NK0005.tcl Loaded. Functions Enabled..."
- ###################################### Edit Below #########################################
- ##### Bind Command (Edit Only The Flags Below. Format: global|channel) #####
- ##### Comment Out Commands That You Do Not Want To Use #####
- ##### You Can Change The Command Name #####
- bind pub n|n !opme NK0005-pub:!opme
- bind pub n|n !deopme NK0005-pub:!deopme
- bind pub n|n !voiceme NK0005-pub:!voiceme
- bind pub n|n !devoiceme NK0005-pub:!devoiceme
- bind pub n|n !ovme NK0005-pub:!ovme
- bind pub n|n !deovme NK0005-pub:!deovme
- bind pub n|n !op NK0005-pub:!op
- bind pub n|n !deop NK0005-pub:!deop
- bind pub n|n !voice NK0005-pub:!voice
- bind pub n|n !devoice NK0005-pub:!devoice
- bind pub n|n !ov NK0005-pub:!ov
- bind pub n|n !deov NK0005-pub:!deov
- bind pub n|n !ban NK0005-pub:!ban
- bind pub n|n !unban NK0005-pub:!unban
- bind pub n|n !kick NK0005-pub:!kick
- bind pub n|n !kickban NK0005-pub:!kickban
- bind pub n|n !topic NK0005-pub:!topic
- bind pub n|n !clearops NK0005-pub:!clearops
- bind pub n|n !clearvoice NK0005-pub:!clearvoice
- bind pub n|n !clearbans NK0005-pub:!clearbans
- bind pub n|n !clear NK0005-pub:!clear
- bind pub n|n !mode NK0005-pub:!mode
- bind pub n|n !invite NK0005-pub:!invite
- bind pub n|n !kickr NK0005-pub:!kickr
- ##### You Can Change The Command Name #####
- ##### Comment Out Commands That You Do Not Want To Use #####
- ##### Bind Command (Edit Only The Flags Above. Format: global|channel) #####
- ###################################### Edit Above #########################################
- ##### Opme Command #####
- proc NK0005-pub:!opme { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] != 0 } {
- putquick "NOTICE $nickname : Syntax : !opme"
- } else {
- if { [botisop $channel] == 1 } {
- if { [isop $nickname $channel] == 1 } {
- putquick "NOTICE $nickname : You Are Already Opped On $channel"
- } else {
- putquick "MODE $channel +o $nickname"
- putquick "NOTICE $nickname : Opping You On $channel"
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Deopme Command #####
- proc NK0005-pub:!deopme { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] != 0 } {
- putquick "NOTICE $nickname : Syntax : !deopme"
- } else {
- if { [botisop $channel] == 1 } {
- if { [isop $nickname $channel] == 0 } {
- putquick "NOTICE $nickname : You Are Not Opped On $channel"
- } else {
- putquick "MODE $channel -o $nickname"
- putquick "NOTICE $nickname : Deopping You On $channel"
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Voiceme Command #####
- proc NK0005-pub:!voiceme { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] != 0 } {
- putquick "NOTICE $nickname : Syntax : !voiceme"
- } else {
- if { [botisop $channel] == 1 } {
- if { [isvoice $nickname $channel] == 1 } {
- putquick "NOTICE $nickname : You Are Already Voiced On $channel"
- } else {
- putquick "MODE $channel +v $nickname"
- putquick "NOTICE $nickname : Voicing You On $channel"
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Devoiceme Command #####
- proc NK0005-pub:!devoiceme { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] != 0 } {
- putquick "NOTICE $nickname : Syntax : !devoiceme"
- } else {
- if { [botisop $channel] == 1 } {
- if { [isvoice $nickname $channel] == 0 } {
- putquick "NOTICE $nickname : You Are Not Voiced On $channel"
- } else {
- putquick "MODE $channel -v $nickname"
- putquick "NOTICE $nickname : Devoicing You On $channel"
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Op/Voice Me Command #####
- proc NK0005-pub:!ovme { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] != 0 } {
- putquick "NOTICE $nickname : Syntax : !ovme"
- } else {
- if { [botisop $channel] == 1 } {
- if { [isop $nickname $channel] == 1 && [isvoice $nickname $channel] == 1 } {
- putquick "NOTICE $nickname : You Are Already Opped And Voiced On $channel"
- } elseif {
- if { [isop $nickname $channel] == 0 && [isvoice $nickname $channel] == 0 } {
- putquick "MODE $channel +ov $nickname $nickname"
- putquick "NOTICE $nickname : Opping And Voicing You On $channel"
- return
- }
- if { [isop $nickname $channel] == 0 } {
- putquick "MODE $channel +o $nickname"
- putquick "NOTICE $nickname : Opping You On $channel"
- }
- if { [isvoice $nickname $channel] == 0 } {
- putquick "MODE $channel +v $nickname"
- putquick "NOTICE $nickname : Voicing You On $channel"
- }
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Deop/Devoice Me Command #####
- proc NK0005-pub:!deovme { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] != 0 } {
- putquick "NOTICE $nickname : Syntax : !deovme"
- } else {
- if { [botisop $channel] == 1 } {
- if { [isop $nickname $channel] == 0 && [isvoice $nickname $channel] == 0 } {
- putquick "NOTICE $nickname : You Are Not Opped Or Voiced On $channel"
- } elseif {
- if { [isop $nickname $channel] == 1 && [isvoice $nickname $channel] == 1 } {
- putquick "MODE $channel -ov $nickname $nickname"
- putquick "NOTICE $nickname : Deopping And Devoicing You On $channel"
- return
- }
- if { [isop $nickname $channel] == 1 } {
- putquick "MODE $channel -o $nickname"
- putquick "NOTICE $nickname : Deopping You On $channel"
- }
- if { [isvoice $nickname $channel] == 1 } {
- putquick "MODE $channel -v $nickname"
- putquick "NOTICE $nickname : Devoicing You On $channel"
- }
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Op Command #####
- proc NK0005-pub:!op { nickname userhost handle channel text } {
- global botnick
- set NK0005-pub:!op-nicks ""
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !op <nickname1> \[nickname2\]..."
- } else {
- if { [botisop $channel] == 1 } {
- for { set i 0 } { $i < [llength $text] } { incr i } {
- if { [isop [lindex $text $i] $channel] == 0 } {
- pushmode $channel +o [lindex $text $i]
- set NK0005-pub:!op-nicks "${NK0005-pub:!op-nicks} [lindex $text $i]"
- }
- }
- putquick "NOTICE $nickname : Opping ([llength ${NK0005-pub:!op-nicks}]) ${NK0005-pub:!op-nicks} On $channel"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Deop Command #####
- proc NK0005-pub:!deop { nickname userhost handle channel text } {
- global botnick
- set NK0005-pub:!deop-nicks ""
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !deop <nickname1> \[nickname2\]..."
- } else {
- if { [botisop $channel] == 1 } {
- for { set i 0 } { $i < [llength $text] } { incr i } {
- if { [isbotnick [lindex $text $i]] == 0 } {
- if { [isop [lindex $text $i] $channel] == 1 } {
- pushmode $channel -o [lindex $text $i]
- set NK0005-pub:!deop-nicks "${NK0005-pub:!deop-nicks} [lindex $text $i]"
- }
- }
- }
- putquick "NOTICE $nickname : Deopping ([llength ${NK0005-pub:!deop-nicks}]) ${NK0005-pub:!deop-nicks} On $channel"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Voice Command #####
- proc NK0005-pub:!voice { nickname userhost handle channel text } {
- global botnick
- set NK0005-pub:!voice-nicks ""
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !voice <nickname1> \[nickname2\]..."
- } else {
- if { [botisop $channel] == 1 } {
- for { set i 0 } { $i < [llength $text] } { incr i } {
- if { [isvoice [lindex $text $i] $channel] == 0 } {
- pushmode $channel +v [lindex $text $i]
- set NK0005-pub:!voice-nicks "${NK0005-pub:!voice-nicks} [lindex $text $i]"
- }
- }
- putquick "NOTICE $nickname : Voicing ([llength ${NK0005-pub:!voice-nicks}]) ${NK0005-pub:!voice-nicks} On $channel"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Devoice Command #####
- proc NK0005-pub:!devoice { nickname userhost handle channel text } {
- global botnick
- set NK0005-pub:!devoice-nicks ""
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !devoice <nickname1> \[nickname2\]..."
- } else {
- if { [botisop $channel] == 1 } {
- for { set i 0 } { $i < [llength $text] } { incr i } {
- if { [isbotnick [lindex $text $i]] == 0 } {
- if { [isvoice [lindex $text $i] $channel] == 1 } {
- pushmode $channel -v [lindex $text $i]
- set NK0005-pub:!devoice-nicks "${NK0005-pub:!devoice-nicks} [lindex $text $i]"
- }
- }
- }
- putquick "NOTICE $nickname : Devoicing ([llength ${NK0005-pub:!devoice-nicks}]) ${NK0005-pub:!devoice-nicks} On $channel"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Op/Voice Command #####
- proc NK0005-pub:!ov { nickname userhost handle channel text } {
- global botnick
- set NK0005-pub:!ov-ops ""
- set NK0005-pub:!ov-voices ""
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !ov <nickname1> \[nickname2\]..."
- } else {
- if { [botisop $channel] == 1 } {
- for { set i 0 } { $i < [llength $text] } { incr i } {
- if { [isop [lindex $text $i] $channel] == 0 } {
- pushmode $channel +o [lindex $text $i]
- set NK0005-pub:!ov-ops "${NK0005-pub:!ov-ops} [lindex $text $i]"
- }
- if { [isvoice [lindex $text $i] $channel] == 0 } {
- pushmode $channel +v [lindex $text $i]
- set NK0005-pub:!ov-voices "${NK0005-pub:!ov-voices} [lindex $text $i]"
- }
- }
- putquick "NOTICE $nickname : Opping ([llength ${NK0005-pub:!ov-ops}]) ${NK0005-pub:!ov-ops} On $channel"
- putquick "NOTICE $nickname : Voicing ([llength ${NK0005-pub:!ov-voices}]) ${NK0005-pub:!ov-voices} On $channel"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Deop/Devoice Command #####
- proc NK0005-pub:!deov { nickname userhost handle channel text } {
- global botnick
- set NK0005-pub:!deov-ops ""
- set NK0005-pub:!deov-voices ""
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !deov <nickname1> \[nickname2\]..."
- } else {
- if { [botisop $channel] == 1 } {
- for { set i 0 } { $i < [llength $text] } { incr i } {
- if { [isbotnick [lindex $text $i]] == 0 } {
- if { [isop [lindex $text $i] $channel] == 1 } {
- pushmode $channel -o [lindex $text $i]
- set NK0005-pub:!deov-ops "${NK0005-pub:!deov-ops} [lindex $text $i]"
- }
- if { [isvoice [lindex $text $i] $channel] == 1 } {
- pushmode $channel -v [lindex $text $i]
- set NK0005-pub:!deov-voices "${NK0005-pub:!deov-voices} [lindex $text $i]"
- }
- }
- }
- putquick "NOTICE $nickname : Deopping ([llength ${NK0005-pub:!deov-ops}]) ${NK0005-pub:!deov-ops} On $channel"
- putquick "NOTICE $nickname : Devoicing ([llength ${NK0005-pub:!deov-voices}]) ${NK0005-pub:!deov-voices} On $channel"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Ban Command #####
- proc NK0005-pub:!ban { nickname userhost handle channel text } {
- global botnick
- set NK0005-pub:!ban-addresses ""
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !ban <nickname1/address1> \[nickname2/address2\]..."
- } else {
- if { [botisop $channel] == 1 } {
- for { set i 0 } { $i < [llength $text] } { incr i } {
- if { [string match -nocase "*!*" [lindex $text $i]] == 0 } {
- if { [isbotnick [lindex $text $i]] == 0 && [ischanban [maskhost [getchanhost [lindex $text $i]]] $channel] == 0 } {
- pushmode $channel +b [maskhost [getchanhost [lindex $text $i]]]
- set NK0005-pub:!ban-addresses "${NK0005-pub:!ban-addresses} [maskhost [getchanhost [lindex $text $i]]]"
- }
- } else {
- if { [string match -nocase "[lindex $text $i]" $botnick*!*[getchanhost $botnick]] == 0 && [ischanban [lindex $text $i] $channel] == 0 } {
- pushmode $channel +b [lindex $text $i]
- set NK0005-pub:!ban-addresses "${NK0005-pub:!ban-addresses} [lindex $text $i]"
- }
- }
- }
- putquick "NOTICE $nickname : Banning ([llength ${NK0005-pub:!ban-addresses}]) ${NK0005-pub:!ban-addresses} On $channel"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Unban Command #####
- proc NK0005-pub:!unban { nickname userhost handle channel text } {
- global botnick
- set NK0005-pub:!unban-addresses ""
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !unban <nickname1/address1> \[nickname2/address2\]..."
- } else {
- if { [botisop $channel] == 1 } {
- for { set i 0 } { $i < [llength $text] } { incr i } {
- if { [string match -nocase "*!*" [lindex $text $i]] == 0 } {
- if { [ischanban [maskhost [getchanhost [lindex $text $i]]] $channel] == 1 } {
- pushmode $channel -b [maskhost [getchanhost [lindex $text $i]]]
- set NK0005-pub:!unban-addresses "${NK0005-pub:!unban-addresses} [maskhost [getchanhost [lindex $text $i]]]"
- }
- } else {
- if { [ischanban [lindex $text $i] $channel] == 1 } {
- pushmode $channel -b [lindex $text $i]
- set NK0005-pub:!unban-addresses "${NK0005-pub:!unban-addresses} [lindex $text $i]"
- }
- }
- }
- putquick "NOTICE $nickname : Unbanning ([llength ${NK0005-pub:!unban-addresses}]) ${NK0005-pub:!unban-addresses} From $channel"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Kick Command #####
- proc NK0005-pub:!kick { nickname userhost handle channel text } {
- global botnick
- set NK0005-pub:!kick-nicks ""
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !kick <nickname1> \[nickname2\]..."
- } else {
- if { [botisop $channel] == 1 } {
- for { set i 0 } { $i < [llength $text] } { incr i } {
- if { [onchan [lindex $text $i] $channel] == 1 && [isbotnick [lindex $text $i]] == 0 } {
- putquick "KICK $channel [lindex $text $i]"
- set NK0005-pub:!kick-nicks "${NK0005-pub:!kick-nicks} [lindex $text $i]"
- }
- }
- putquick "NOTICE $nickname : Kicking ([llength ${NK0005-pub:!kick-nicks}]) ${NK0005-pub:!kick-nicks} From $channel"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Kick Ban Command #####
- proc NK0005-pub:!kickban { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !kickban <nickname> \[reason\]"
- } else {
- if { [botisop $channel] == 1 } {
- if { [onchan [lindex $text 0] $channel] == 1 } {
- putkick $channel [lindex $text 0] [lrange $text 1 end]
- if { [ischanban [maskhost [getchanhost [lindex $text 0]]] $channel] == 0 } {
- pushmode $channel +b [maskhost [getchanhost [lindex $text 0]]]
- putquick "NOTICE $nickname : Kicking And Banning [lindex $text 0] With Address : [maskhost [getchanhost [lindex $text 0]]] From $channel"
- } else {
- putquick "NOTICE $nickname : Kicking [lindex $text 0] From $channel"
- }
- } else {
- putquick "NOTICE $nickname : [lindex $text 0] Is Not On $channel"
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Topic Command #####
- proc NK0005-pub:!topic { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !topic <topic>"
- } else {
- if { [botisop $channel] == 1 || [string match "*t*" [lindex [getchanmode $channel] 0]] == 0 } {
- putquick "TOPIC $channel $text"
- putquick "NOTICE $nickname : Changing Topic Of $channel To : $text"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel And $channel Is In +t Mode"
- }
- }
- }
- ##### Clear Ops Command #####
- proc NK0005-pub:!clearops { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] != 0 } {
- putquick "NOTICE $nickname : Syntax : !clearops"
- } else {
- if { [botisop $channel] == 1 } {
- putquick "NOTICE $nickname : Clearing Ops For $channel"
- for { set i 0 } { $i < [llength [chanlist $channel]] } { incr i } {
- if { [isop [lindex [chanlist $channel] $i] $channel] == 1 } {
- if { [nick2hand [lindex [chanlist $channel] $i]] == "*" || ([isbotnick [lindex [chanlist $channel] $i]] == 0 && [string match -nocase "*[nick2hand [lindex [chanlist $channel] $i]]*" [bots]] == 0 && [matchattr [nick2hand [lindex [chanlist $channel] $i]] n] == 0) } {
- pushmode $channel -o [lindex [chanlist $channel] $i]
- }
- }
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Clear Voice Command #####
- proc NK0005-pub:!clearvoice { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] != 0 } {
- putquick "NOTICE $nickname : Syntax : !clearvoice"
- } else {
- if { [botisop $channel] == 1 } {
- putquick "NOTICE $nickname : Clearing Voice For $channel"
- for { set i 0 } { $i < [llength [chanlist $channel]] } { incr i } {
- if { [isop [lindex [chanlist $channel] $i] $channel] == 1 } {
- if { [nick2hand [lindex [chanlist $channel] $i]] == "*" || ([isbotnick [lindex [chanlist $channel] $i]] == 0 && [string match -nocase "*[nick2hand [lindex [chanlist $channel] $i]]*" [bots]] == 0 && [matchattr [nick2hand [lindex [chanlist $channel] $i]] n] == 0) } {
- pushmode $channel -v [lindex [chanlist $channel] $i]
- }
- }
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Clear Bans Command #####
- proc NK0005-pub:!clearbans { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] != 0 } {
- putquick "NOTICE $nickname : Syntax : !clearbans"
- } else {
- if { [botisop $channel] == 1 } {
- putquick "NOTICE $nickname : Clearing Bans For $channel"
- for { set i 0 } { $i < [llength [chanbans $channel]] } { incr i } {
- pushmode $channel -b [lindex [lindex [chanbans $channel] $i] 0]
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Clear Command #####
- proc NK0005-pub:!clear { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] > 1 || ([string match -nocase "TAKEOVER" [lindex $text 0]] == 0 && [llength $text] == 1) } {
- putquick "NOTICE $nickname : Syntax : !clear \[TAKEOVER\]"
- } else {
- if { [botisop $channel] == 1 } {
- putquick "NOTICE $nickname : Clearing Channel...$channel"
- NK0005-pub:!clearops $nickname $userhost $handle $channel
- NK0005-pub:!clearvoice $nickname $userhost $handle $channel
- NK0005-pub:!clearbans $nickname $userhost $handle $channel
- if { [string match -nocase "TAKEOVER" [lindex $text 0]] == 1 } {
- putquick "MODE $channel +bntimslk *!*@* 1 [rand 99999]"
- for { set i 0 } { $i < [llength [chanlist $channel]] } { incr i } {
- if { [lindex [chanlist $channel] $i] != "$nickname" && [isbotnick [lindex [chanlist $channel] $i]] == 0 } {
- putkick $channel [lindex [chanlist $channel] $i]
- }
- }
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Mode Command #####
- proc NK0005-pub:!mode { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !mode <modes> \[parameters\]"
- } else {
- if { [botisop $channel] == 1 } {
- putquick "MODE $channel [lindex $text 0] [lrange $text 1 end]"
- putquick "NOTICE $nickname : Attempting To Change Modes To : $text"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Invite User #####
- proc NK0005-pub:!invite { nickname userhost handle channel text } {
- global botnick
- set NK0005-pub:!invite-nicks ""
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !invite <nickname1> \[nickname2\]..."
- } else {
- if { [botisop $channel] == 1 } {
- for { set i 0 } { $i < [llength $text] } { incr i } {
- if { [onchan [lindex $text $i] $channel] == 0 } {
- putquick "INVITE [lindex $text $i] $channel"
- set NK0005-pub:!invite-nicks "${NK0005-pub:!invite-nicks} [lindex $text $i]"
- }
- }
- putquick "NOTICE $nickname : Inviting ([llength ${NK0005-pub:!invite-nicks}]) ${NK0005-pub:!invite-nicks} To $channel"
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
- ##### Kick With Reason Command #####
- proc NK0005-pub:!kickr { nickname userhost handle channel text } {
- global botnick
- if { [llength $text] == 0 } {
- putquick "NOTICE $nickname : Syntax : !kickr <nickname> \[reason\]..."
- } else {
- if { [botisop $channel] == 1 } {
- if { [onchan [lindex $text 0] $channel] == 1 } {
- if { [isbotnick [lindex $text 0]] == 0 } {
- putkick $channel [lindex $text 0] [lrange $text 1 end]
- putquick "NOTICE $nickname : Kicking [lindex $text 0] From $channel With Reason : [lrange $text 1 end]"
- } else {
- putquick "NOTICE $nickname : I Will Not Kick Myself"
- }
- } else {
- putquick "NOTICE $nickname : [lindex $text 0] Is Not On $channel"
- }
- } else {
- putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement