This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Sir can u add this to your fzcommands.tcl

Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
Post Reply
.
.pt
Halfop
Posts: 71
Joined: Wed Nov 16, 2005 10:14 am

Sir can u add this to your fzcommands.tcl

Post by .pt »

if u can and have the time for it, i would much apreciate

. the option of using also the botnick as a trigger

example:

now we use !op, i would like to use also botnick op

-----

ty in advance
.
.pt
Halfop
Posts: 71
Joined: Wed Nov 16, 2005 10:14 am

Post by .pt »

bumping in hope someone does this :P
d
doggo
Halfop
Posts: 97
Joined: Tue Jan 05, 2010 7:53 am
Contact:

Post by doggo »

Code: Select all

##############################################
# Rls: botdo.tcl                             #
# Date: 15/01/11                             #
# Coded by: doggo                            #
# Contact: #alt.binaries.inner-sanctum EFNET #
##############################################

# Usage: botnick op <nick>
#        botnick voive <nick>

# Script Starts Here

bind pubm - * botdo

proc botdo {nick host hand chan text} {
    set bot [lindex [split $text] 0]
    set do [lindex [split $text] 1]
    set who [join [lrange [split $text] 2 end]]
    if {![isbotnick $bot]} { return }
    switch -exact -- [string tolower $do] {
        "op" {
            if {![matchattr $hand o|o $chan]} { putserv "PRIVMSG $chan :you dont have the POWER!"; return }
            if {![onchan $who $chan]} { putserv "PRIVMSG $chan :$who ?"; return }
            putserv "MODE $chan +o $who"
        }
        "voice" {
            if {![matchattr $hand o|o $chan]} { putserv "PRIVMSG $chan :you dont have the POWER!"; return }
            if {![onchan $who $chan]} { putserv "PRIVMSG $chan :$who ?"; return }
            putserv "MODE $chan +v $who"
        }
        default {
            putserv "PRIVMSG $chan :hmm $do ?"
        }
    }
}

putlog "botdo.tcl loaded"
.
.pt
Halfop
Posts: 71
Joined: Wed Nov 16, 2005 10:14 am

Post by .pt »

ty u but i want fzcommands with that, can u prolly modify it to work with it?
Post Reply