SHOW:
|
|
- or go back to the newest paste.
| 1 | bind pub - "-k" kicker | |
| 2 | proc kicker { nick host hand chan txt } {
| |
| 3 | if {$txt!="" && [isop $nick]} {
| |
| 4 | puthelp "Kick $chan $txt" | |
| 5 | } | |
| 6 | } | |
| 7 | ||
| 8 | bind pub - "-kb" kber | |
| 9 | proc kber { nick host hand chan txt } {
| |
| 10 | if {$txt!="" && [isop $nick]} {
| |
| 11 | set gch "" | |
| 12 | set tpvar "" | |
| 13 | set mask "" | |
| 14 | - | set gch getchanhost $txt |
| 14 | + | set gch [getchanhost $txt] |
| 15 | - | set tpvar split $gch "@" |
| 15 | + | set tpvar [split $gch "@"] |
| 16 | - | set mask lindex $tpvar 1 |
| 16 | + | set mask [lindex $tpvar 1] |
| 17 | puthelp "Mode +b *!*@$mask" | |
| 18 | puthelp "Kick $txt" | |
| 19 | } | |
| 20 | } | |
| 21 | ||
| 22 | bind pub - "-bt" bter | |
| 23 | proc bter { nick host hand chan txt } {
| |
| 24 | if {$txt!="" && [isop $nick]} {
| |
| 25 | puthelp "Mode +b $txt" | |
| 26 | } | |
| 27 | } | |
| 28 | ||
| 29 | bind pub - "-bn" bner | |
| 30 | proc bner { nick host hand chan txt } {
| |
| 31 | if {$txt!="" && [isop $nick]} {
| |
| 32 | puthelp "Mode +b $txt!*@*" | |
| 33 | } | |
| 34 | } | |
| 35 | ||
| 36 | bind pub - "-bi" bier | |
| 37 | proc bier { nick host hand chan txt } {
| |
| 38 | if {$txt!="" && [isop $nick]} {
| |
| 39 | set gch "" | |
| 40 | set tpvar "" | |
| 41 | set mask "" | |
| 42 | - | set gch getchanhost $txt |
| 42 | + | set gch [getchanhost $txt] |
| 43 | - | set tpvar split $gch "@" |
| 43 | + | set tpvar [split $gch "@"] |
| 44 | - | set nident lindex $tpvar 0 |
| 44 | + | set nident [lindex $tpvar 0] |
| 45 | puthelp "Mode +b *!$nident@*" | |
| 46 | } | |
| 47 | } | |
| 48 | ||
| 49 | bind pub - "-bh" bher | |
| 50 | proc bher { nick host hand chan txt } {
| |
| 51 | if {$txt!="" && [isop $nick]} {
| |
| 52 | set gch "" | |
| 53 | set tpvar "" | |
| 54 | set mask "" | |
| 55 | - | set gch getchanhost $txt |
| 55 | + | set gch [getchanhost $txt] |
| 56 | - | set tpvar split $gch "@" |
| 56 | + | set tpvar [split $gch "@"] |
| 57 | - | set mask lindex $tpvar 1 |
| 57 | + | set mask [lindex $tpvar 1] |
| 58 | puthelp "Mode +b *!*@$mask" | |
| 59 | } | |
| 60 | } | |
| 61 | ||
| 62 | bind pub - "-ba" baer | |
| 63 | proc bter { nick host hand chan txt } {
| |
| 64 | if {$txt!="" && [isop $nick]} {
| |
| 65 | puthelp "Mode +b $txt!*@*" | |
| 66 | set gch "" | |
| 67 | set tpvar "" | |
| 68 | set mask "" | |
| 69 | - | set gch getchanhost $txt |
| 69 | + | set gch [getchanhost $txt] |
| 70 | - | set tpvar split $gch "@" |
| 70 | + | set tpvar [split $gch "@"] |
| 71 | - | set mask lindex $tpvar 1 |
| 71 | + | set mask [lindex $tpvar 1] |
| 72 | - | set nident lindex $tpvar 0 |
| 72 | + | set nident [lindex $tpvar 0] |
| 73 | puthelp "Mode +b *!$nident@*" | |
| 74 | puthelp "Mode +b *!*@$mask" | |
| 75 | } | |
| 76 | } | |
| 77 | ||
| 78 | # ><((((º>) |
