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.

BotAdmin - Need lil help

Support & discussion of released scripts, and announcements of new releases.
Post Reply
c
cache
Master
Posts: 306
Joined: Tue Jan 10, 2006 4:59 am
Location: Mass

BotAdmin - Need lil help

Post by cache »

Ok I put this script on my bot and set the flags to a|a and restarted..

Code: Select all

#################################################
# Script: BotAdmin              Version: 0.2    #
# Author: FriedCPU                              #
#-----------------------------------------------#
#              What Does It Do?                 #
# Provides commands that usually need to be     #
# executed on the partyline, saving time having #
# tobe in dcc-chat / telnet with bot.           #
#-----------------------------------------------#
#              What Commands?                   #
# rehash - rehashes bot                         #
# restart - restarts bot                        #
# hop - makes bot hop (part then join) the chan #
# die - kills the bot                           #
# Note: if a command is not specified, then it  #
# responds with a random come back              #
#-----------------------------------------------#
#              How?                             #
# Usage: <botname> <command>                    #
# if the bots name was charlie...               #
# charlie rehash                                #
# charlie restart                               #
# charlie hop                                   #
# etc...etc...                                  #
#################################################

bind pub - $botnick admin:sort

proc formatize { text } { return "\002\00314\[\002$text\002\]\003\002" }
proc admincheck { handle } {
    if {![matchattr $handle a|a]} 
        return "no"
    } else {
        return "yes"
    }
}
proc axxdenied { n } {
    return "[formatize "$n"] Access Denied"
}

set randresponce {
    "What?"
    "Huh?"
    "What do you want?"
    "Arrrrghh"
    "Stop calling my name!"
    "What you talkin' about Willis?"
    "I am Reptar hear me rawrr!"
    "Rawwrrr"
    "Again Again!"
    "I'l Be Back"
    "Astalavista, Baby"
    "When it all gets to much, fukitol"
}
proc admin:sort { n u h c t } {
    global randresponce
    if {$t == "rehash"} {
        if {[admincheck $h] == "yes"} {
            rehash
            putserv "PRIVMSG $c :[formatize "$n"] Rehash Complete"
        } else {
            putserv "PRIVMSG $c :[axxdenied]"
        }
    } elseif {$t == "restart"} {
        if {[admincheck $h] == "yes"} {
            putserv "PRIVMSG $c :[formatize "$n"] Restarting..."
            utimer 2 "restart"
        } else {
            putserv "PRIVMSG $c :[axxdenied]"
        }
    } elseif {$t == "hop"} {
        if {[admincheck $h] == "yes"} {
            putserv "PRIVMSG $c :[formatize "$n"] Hopping Channel"
            putserv "PART $c :Hop Hop Hop"
        } else {
            putserv "PRIVMSG $c :[axxdenied $n]"
        }
    } elseif {$t == "die"} {
        if {[admincheck $h] == "yes"} {
            die "Connection Rest by $n"
        } else {
            putserv "PRIVMSG $c :[axxdenied]"
        }
    } else {
        putserv "PRIVMSG $c :[lindex $randresponce [rand [llength $randresponce]]]"
    }
}

putlog "\002BotAdmin\002 v\0020.2\002 by \002FriedCPU\002 Loaded"
It worked...

[10:09am] <cache> X restart
[10:09am] <@X> [cache] Restarting...
[10:09am] * Parts: @X(X@X)
[10:10am] * Joins: X (X@X)

Problem is.. if I reboot, or end process to bot and reload it by clicking eggdrop.exe and bot reconnects to chat...

It stops working.... weird thing is, it starts working if I go in putty and 'rehash'.

All my nick has is an 'a' flag - didn't want to use owner flags.

Anyone know why? Or have a suggestion of a better script?

Thanks :x
Last edited by cache on Fri Jan 13, 2006 6:32 pm, edited 1 time in total.
User avatar
Sir_Fz
Revered One
Posts: 3793
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

That's because $botnick is still unknown before the bot has connected. Change

Code: Select all

bind pub - $botnick admin:sort
to

Code: Select all

bind pub - $nick admin:sort
c
cache
Master
Posts: 306
Joined: Tue Jan 10, 2006 4:59 am
Location: Mass

Post by cache »

Thanks Sir, that worked!! :D
Post Reply