Clan Script if possible...

Magma · Post by **Magma** » Mon Jun 06, 2005 4:12 pm

hmm added a bracket but i tried the commands in IRC and it wont work.

bind pub - * triggers 

proc triggers {nick uhost hand chan arg} { 
    set trigger [lindex [split $arg] 0] 
    
    switch -exact -- [string tolower $trigger] { 
        "!url" { 
            putserv "NOTICE $nick :Visit us at http://11th-wolverines.net" 
        } 
        "!contact" { 
            putserv "NOTICE $nick :Contact us through our public forums http://11thwolverines.forumsplace.com " 
        } 
        "!forums" { 
            putserv "NOTICE $nick :Check out our forums at http://11thwolverines.forumsplace.com" 
        } 
        "!staff" { 
            putserv "NOTICE $nick :Staff List is incomplete at this time" 
        } 
        "!help" { 
            putserv "NOTICE $nick :Commands for the bot are !url, !contact, !forums, !staff" 
        } 
        default { 
            putserv "NOTICE $nick :Unknown command: $trigger" 
        } 
    } 
}

^DooM^ · Post by **^DooM^** » Mon Jun 06, 2005 4:55 pm

Hmm odd. ok try it this way

Code: Select all

bind pub - * triggers

proc triggers {nick uhost hand chan arg} {
    set trigger [lindex [split $arg] 0]
    set command [string tolower $trigger]

    switch -- $command {
        "!url" {
            putserv "NOTICE $nick :Visit us at http://11th-wolverines.net"
        }
        "!contact" {
            putserv "NOTICE $nick :Contact us through our public forums http://11thwolverines.forumsplace.com "
        }
        "!forums" {
            putserv "NOTICE $nick :Check out our forums at http://11thwolverines.forumsplace.com"
        }
        "!staff" {
            putserv "NOTICE $nick :Staff List is incomplete at this time"
        }
        "!help" {
            putserv "NOTICE $nick :Commands for the bot are !url, !contact, !forums, !staff"
        }
        default {
            putserv "NOTICE $nick :Unknown command: $trigger"
        }
    }
}

spock · Post by **spock** » Mon Jun 06, 2005 5:43 pm

not odd at all considering that the pub bind doesnt support wildcards

Magma · Post by **Magma** » Mon Jun 06, 2005 6:02 pm

spock wrote:not odd at all considering that the pub bind doesnt support wildcards

so I have to bind each command then...

^DooM^ · Post by **^DooM^** » Mon Jun 06, 2005 6:08 pm

Ooooooops my bad. change 'pub' to 'pubm'

Decl · Post by **Decl** » Sun Jul 17, 2005 1:30 pm

But how to make these commands work only on some specific channels ? For example at clan's private channel only, not the other channels this bot is on ???

^DooM^ · Post by **^DooM^** » Sun Jul 17, 2005 1:49 pm

Add an if statement to it.

Code: Select all

set clanchan "#clanchan"

if { [string tolower $chan] != [string tolower $clanchan] } {
    return
} else {
    ... do the rest of the code ...
}

Post by **Sir_Fz** » Sun Jul 17, 2005 1:51 pm

Code: Select all

set clanchans "#chan1 #chan2 #chan3"

# and inside the proc add:
if {[lsearch -exact [string tolower $::clanchans] [string tolower $chan]] == -1} { return 0 }

Edit: ^DooM^ was faster

^DooM^ · Post by **^DooM^** » Sun Jul 17, 2005 1:58 pm

heh I may of been faster but your way is more usefull in the long run so I would suggest to you decl that you use Sir_Fz's code as it supports multiple channels rather than my way which only supports 1 channel.

Future Proofing is the way to go baby yeahhhh

Decl · Post by **Decl** » Mon Jul 18, 2005 2:15 am

Thank you

Works perfectly...

Decl · Post by **Decl** » Wed Aug 31, 2005 5:02 am

Another question. If I want the commands work on 2 channels ?
In clan case, two different priv channels, so different commands on them.. How to do so that #chan1 and #chan2 would have different commands ? But ONLY these two channels.. ? :f

Post by **Sir_Fz** » Wed Aug 31, 2005 8:26 am

Probably not the best way to do it, load the same script with different commands and different channels.

Decl · Post by **Decl** » Wed Aug 31, 2005 1:14 pm

It doesn't work by some reason.. :f Any more suggestions ?