Add files via upload

BlackTools/Commands/BT.ChanCmds.tcl

@@ -290,23 +290,6 @@ if {[regexp {^[&#]} $tr] && [matchattr $hand nmo|MAO $tr]} {
 	}
 }
 
-guestnick {
-if {[matchattr $hand nmo|M $chan]} {
-	set who [lindex [split $arg] 1]
-	set modul "guestnick"
-	set type 0
-	set chan1 $chan
-	set gnick [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-if {[regexp {^[&#]} $who] && [matchattr $hand nmo|M $who]} {
-	set who [lindex [split $arg] 2]
-	set gnick [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-		}
-	guestnick:process $nick $char $hand $chan $chan1 $who $gnick $type $number $modul
-	}
-}
-
 badhost {
 if {[matchattr $hand nmo|M $chan]} {
 	set type 0

BlackTools/Commands/BT.ForCmds.tcl

@@ -297,23 +297,6 @@ if {[regexp {^[&#]} $tr] && [matchattr $hand nmo|MAO $tr]} {
 	}
 }
 
-guestnick {
-if {[matchattr $hand nmo|M $chan]} {
-	set who [lindex [split $arg] 3]
-	set modul "guestnick"
-	set type 1
-	set chan1 $chan
-	set gnick [join [lrange [split $arg] 4 end]]
-	set number [lindex [split $arg] 4]
-if {[regexp {^[&#]} $who] && [matchattr $hand nmo|M $who]} {
-	set who [lindex [split $arg] 4]
-	set gnick [join [lrange [split $arg] 5 end]]
-	set number [lindex [split $arg] 5]
-		}
-	guestnick:process $nick $host $hand $chan $chan1 $who $gnick $type $number $modul
-	}
-}
-
 badhost {
 if {[matchattr $hand nmo|M $chan]} {
 	set type 1

BlackTools/Commands/BT.H.tcl

@@ -808,12 +808,12 @@ switch $type {
 
 module {
 
-set allmodules "Anunt AutoBroadcast BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg CloneScan EGG ChanLink SecureMode Private GuestNick Greet Leave Count Topic Timer Next TopWords BackChan ReportNick Quote Note Language AutoUpdate Alias"
-set manager_module "Anunt BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg Clonescan Securemode Private Guestnick Greet Leave Count Topic Next TopWords BackChan ReportNick Quote Note Language Alias"
-set owner_modules "Anunt AutoBroadcast BadChan Idle Limit CloneScan XTools Xonly Seen VoiceMe VoiceOnMsg CloneScan EGG ChanLink SecureMode Private GuestNick Greet Leave Count Topic Timer Next TopWords BackChan ReportNick Quote Note Language Alias"
+set allmodules "Anunt AutoBroadcast BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg CloneScan EGG ChanLink SecureMode Private Greet Leave Count Topic Timer Next TopWords BackChan ReportNick Quote Note Language AutoUpdate Alias"
+set manager_module "Anunt BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg Clonescan Securemode Private Greet Leave Count Topic Next TopWords BackChan ReportNick Quote Note Language Alias"
+set owner_modules "Anunt AutoBroadcast BadChan Idle Limit CloneScan XTools Xonly Seen VoiceMe VoiceOnMsg CloneScan EGG ChanLink SecureMode Private Greet Leave Count Topic Timer Next TopWords BackChan ReportNick Quote Note Language Alias"
 set module_output ""
 set other_module "Note Alias"
-set master_module "Anunt BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg Clonescan Securemode Private Guestnick Greet Leave Count Topic Next TopWords BackChan ReportNick Quote Note Language Alias"
+set master_module "Anunt BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg Clonescan Securemode Private Greet Leave Count Topic Next TopWords BackChan ReportNick Quote Note Language Alias"
 
 if {[matchattr $hand n]} {
 	set current_modules $allmodules
@@ -1002,13 +1002,6 @@ if {[setting:get $chan private]} {
 } else { lappend module_output "[black:color 4 $hand $m]\[-\]" }	
 }
 
-
-guestnick {
-if {[setting:get $chan guestnick]} {
-	lappend module_output "[black:color 2 $hand $m]\[+\]"
-} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
-}
-
 greet {
 if {[setting:get $chan greet]} {
 	lappend module_output "[black:color 2 $hand $m]\[+\]"

BlackTools/Commands/BT.Manual.tcl

@@ -1495,16 +1495,6 @@ if {[matchattr $hand nmo|M $chan]} {
 	}
 }
 
-guestnick {
-if {[matchattr $hand nmo|M $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 man.838 none
-	blacktools:tell $nick $host $hand $chan $chan1 man.839 none
-	blacktools:tell $nick $host $hand $chan $chan1 man.840 none
-	blacktools:tell $nick $host $hand $chan $chan1 man.841 none
-	blacktools:tell $nick $host $hand $chan $chan1 man.showtip none
-	}
-}
-
 cp {
 if {[matchattr $hand nmo|M $chan]} {
 	blacktools:tell $nick $host $hand $chan $chan1 man.842 none

BlackTools/Commands/BT.MeCmds.tcl

@@ -296,23 +296,6 @@ if {[regexp {^[&#]} $tr] && [matchattr $hand nmo|MAO $tr]} {
 	}
 }
 
-guestnick {
-if {[matchattr $hand nmo|M $chan]} {
-	set who [lindex [split $arg] 2]
-	set modul "guestnick"
-	set type 1
-	set chan1 $chan
-	set gnick [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {[regexp {^[&#]} $who] && [matchattr $hand nmo|M $who]} {
-	set who [lindex [split $arg] 3]
-	set gnick [join [lrange [split $arg] 4 end]]
-	set number [lindex [split $arg] 4]
-		}
-	guestnick:process $nick $host $hand $chan $chan1 $who $gnick $type $number $modul
-	}
-}
-
 badhost {
 if {[matchattr $hand nmo|M $chan]} {
 	set type 1

BlackTools/Commands/BT.PrvCmds.tcl

@@ -1853,23 +1853,6 @@ if {$mychan_use == "1"} {
 	}
 }
 
-guestnick {
-if {[matchattr $hand nmo|M $chan]} {
-	set who [lindex [split $arg] 2]
-	set modul "guestnick"
-	set type 2
-	set chan1 $chan
-	set gnick [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set who [lindex [split $arg] 1]
-	set gnick [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-}
-	guestnick:process $nick $input $hand $chan $chan1 $who $gnick $type $number $modul
-	}
-}
-
 badhost {
 if {[matchattr $hand nmo|M $chan]} {
 	set type 2