Clan Script if possible...

[Magma]

So I want to setup some stuff for my bot.

I want it so that if anyone with a name which starts with [11W] they get a +v when they join the channel

Along with something basic were if a user says a command it will be done.

So if they say !url

the bot will respond with our URL to our site

!url
!contact
!forums
!staff

basic commands were the bot is just gonna say it in the channel or in a PM or something.

The rest of the channel OP's and half-ops will be through Chanserv, just need a wild card for the +v

[Alchera]

Have we bothered to even attempt a search of either the TCL Achive or the forums?

[Magma]

I dont know what im looking for that would auto voice any user with [11W] before there name

[Dizzle]

well this will autovoice pll with the tag [11W] on

Code: Select all

#onjoin voice with the right tag 

bind join - "*" voice:nicks 

proc voice:nicks {nick uhost hand chan} { 
if {[botisop $chan] && ([string match "[11W]*" $nick])} { 
pushmode $chan +v $nick
} 
}

## nichchange with the right tag 

bind nick - "*" voice:nickch

proc voice:nickch {nick uhost hand chan newnick} { 
if {[botisop $chan] && ([string match "[11W]*" $newnick])} { 
pushmode $chan +v $newnick 
} 
} 

[Magma]

so would I save that as a tcl script now...

sorry im super new to eggdrop

[metroid]

nope dizzle, that wouldn't.

You can't use braces because it will think it's a command

Code: Select all

#onjoin voice with the right tag

bind join - "*" voice:nicks

proc voice:nicks {nick uhost hand chan} {
if {[botisop $chan] && ([string match "\[11W\]*" $nick])} {
pushmode $chan +v $nick
}
}

[kanibus]

and the other stuff is pretty easy too

Code: Select all

bind pub -|- !url show_url
bind pub -|- !contact show_contact
bind pub -|- !forums show_forums
bind pub -|- !staff  show_staff

proc show_url {nick host hand chan text } {
  putserv "NOTICE $nick : Visit us at www.mysitehere.com !!"
}


proc show_contact {nick host hand chan text } {
  putserv "NOTICE $nick : You can contact me at my@email.com !!"
}


proc show_forums {nick host hand chan text } {
  putserv "NOTICE $nick : Check out our forums at www.mysitehere.com/forums !!"
}


proc show_staff {nick host hand chan text } {
  putserv "NOTICE $nick : the staff here, add more notices if you need"
}

you can have it send the info by pm simply by changing NOTICE with PRIVMSG

[^DooM^]

and the other stuff is pretty easy too

Code: Select all

bind pub -|- !url show_url
bind pub -|- !contact show_contact
bind pub -|- !forums show_forums
bind pub -|- !staff  show_staff

proc show_url {nick host hand chan text } {
  putserv "NOTICE $nick : Visit us at www.mysitehere.com !!"
}


proc show_contact {nick host hand chan text } {
  putserv "NOTICE $nick : You can contact me at my@email.com !!"
}


proc show_forums {nick host hand chan text } {
  putserv "NOTICE $nick : Check out our forums at www.mysitehere.com/forums !!"
}


proc show_staff {nick host hand chan text } {
  putserv "NOTICE $nick : the staff here, add more notices if you need"
}

you can have it send the info by pm simply by changing NOTICE with PRIVMSG

What kanibus wrote will work fine but you end up with loads and loads of binds on your bot i would suggest using something like this that will keep your binds down to a minimum.

Code: Select all

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 www.mysitehere.com !!"
        }
        "!contact" {
            putserv "NOTICE $nick :You can contact me at my@email.com !!"
        }
        "!forums" {
            putserv "NOTICE $nick :Check out our forums at www.mysitehere.com/forums !!"
        }
        "!staff" {
            putserv "NOTICE $nick :the staff here, add more notices if you need"
        }
        default {
            putserv "NOTICE $nick :Unknown command: $trigger"
        }
    }
}

hope this helps.

[kanibus]

thanks for the tip doom

[^DooM^]

Pleasure

[Magma]

so if I need to add more commands later I can just add something like

Code: Select all

"!command" { 
            putserv "NOTICE $nick :info here" 
        } 

Right?

Also do I just save that into a TCL script?

[Dizzle]

Right

[^DooM^]

so if I need to add more commands later I can just add something like

Code: Select all

"!command" { 
            putserv "NOTICE $nick :info here" 
        } 

Right?

Also do I just save that into a TCL script?

As Dizzle Said that is correct but what he forgot to point out was it has to be above 'default' in the switch statement else you will break it

And yes just save that as triggers.tcl place it into your scripts directory and load it by putting

Code: Select all

source scripts/triggers.tcl

at the bottom of your config file

[Magma]

Code: Select all

[13:36] Tcl error in file '11wpao.conf':
[13:36] missing close-brace
    while executing
"proc triggers {nick uhost hand chan arg} {
    set trigger [lindex [split $arg] 0]

    switch -exact -- [string tolower $trigger] {
        "!..."
    (file "scripts/paocommand.tcl" line 3)
    invoked from within
"source scripts/paocommand.tcl"
    (file "11wpao.conf" line 1338)
[13:36] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
Connection closed by foreign host.

what did I do wrong :s

[^DooM^]

you are missing a close-brace. Paste your trigger script in here so i can see it please