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]} {
|
| 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]} {
|
| 10 | + | if {$txt!="" && [isop $nick]} {
|
| 11 | - | puthelp "Mode +b " |
| 11 | + | set gch "" |
| 12 | - | puthelp "Kick $txt" |
| 12 | + | set tpvar "" |
| 13 | set mask "" | |
| 14 | set gch getchanhost $txt | |
| 15 | set tpvar split $gch "@" | |
| 16 | set mask lindex $tpvar 1 | |
| 17 | puthelp "Mode +b *!*@$mask" | |
| 18 | - | if {$txt!="" && isop[$nick]} {
|
| 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 | - | if {$txt!="" && isop[$nick]} {
|
| 25 | + | |
| 26 | } | |
| 27 | } | |
| 28 | ||
| 29 | bind pub - "-bn" bner | |
| 30 | proc bner { nick host hand chan txt } {
| |
| 31 | if {$txt!="" && [isop $nick]} {
| |
| 32 | - | if {$txt!="" && isop[$nick]} {
|
| 32 | + | |
| 33 | - | $gch set "" |
| 33 | + | |
| 34 | - | $tpvar set "" |
| 34 | + | |
| 35 | - | $mask set "" |
| 35 | + | |
| 36 | - | $gch set getchanhost $txt |
| 36 | + | |
| 37 | - | $tpvar set split $gch "@" |
| 37 | + | |
| 38 | - | $nident set lindex $tpvar 0 |
| 38 | + | if {$txt!="" && [isop $nick]} {
|
| 39 | set gch "" | |
| 40 | set tpvar "" | |
| 41 | set mask "" | |
| 42 | set gch getchanhost $txt | |
| 43 | set tpvar split $gch "@" | |
| 44 | set nident lindex $tpvar 0 | |
| 45 | - | if {$txt!="" && isop[$nick]} {
|
| 45 | + | |
| 46 | - | $gch set "" |
| 46 | + | |
| 47 | - | $tpvar set "" |
| 47 | + | |
| 48 | - | $mask set "" |
| 48 | + | |
| 49 | - | $gch set getchanhost $txt |
| 49 | + | |
| 50 | - | $tpvar set split $gch "@" |
| 50 | + | |
| 51 | - | $mask set lindex $tpvar 1 |
| 51 | + | if {$txt!="" && [isop $nick]} {
|
| 52 | set gch "" | |
| 53 | set tpvar "" | |
| 54 | set mask "" | |
| 55 | set gch getchanhost $txt | |
| 56 | set tpvar split $gch "@" | |
| 57 | set mask lindex $tpvar 1 | |
| 58 | - | if {$txt!="" && isop[$nick]} {
|
| 58 | + | |
| 59 | } | |
| 60 | - | $gch set "" |
| 60 | + | |
| 61 | - | $tpvar set "" |
| 61 | + | |
| 62 | - | $mask set "" |
| 62 | + | |
| 63 | - | $gch set getchanhost $txt |
| 63 | + | |
| 64 | - | $tpvar set split $gch "@" |
| 64 | + | if {$txt!="" && [isop $nick]} {
|
| 65 | - | $mask set lindex $tpvar 1 |
| 65 | + | |
| 66 | - | $nident set lindex $tpvar 0 |
| 66 | + | set gch "" |
| 67 | set tpvar "" | |
| 68 | set mask "" | |
| 69 | set gch getchanhost $txt | |
| 70 | set tpvar split $gch "@" | |
| 71 | set mask lindex $tpvar 1 | |
| 72 | - | putlog "Kicker by My1 set." |
| 72 | + | set nident lindex $tpvar 0 |
| 73 | puthelp "Mode +b *!$nident@*" | |
| 74 | puthelp "Mode +b *!*@$mask" | |
| 75 | } | |
| 76 | } | |
| 77 | ||
| 78 | # ><((((º>) |
