BotAdmin v0.2

+ 0 likes

Please Register to submit score.

Average Score	4.5
Scores Submitted	2
Date Added	Dec 04, 2005
Last Updated	Dec 04, 2005
Tags	admin bot commands die hop rehash restart

Introduction

Provides commands you can use within the channel if you are the owner of the bot (+m flag). Commands are: rehash, restart, hop, die
which usually you need to be on the partyline for, just makes it easier.

How to use: <botname> <cmd>
ie: somebot rehash
and it should respond with [yournick] rehash complete
if you dont have access it will respond with [yournick] access denied.

hope some people find this useful :)

Grab the Code

#################################################
# 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 m|m]} {
        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"

Comments

(2) RSS

Go to Bottom

vampslim

Comments: 31

TCL Snippet: BotAdmin v0.2
Posted on Dec 5, 2005 5:01 pm

And if there is no +m flag for the user? What then?

FriedCPU

Comments: 1

TCL Snippet: BotAdmin v0.2
Posted on Dec 5, 2005 5:32 pm

Just replied to your PM, but basically, this is intended for owners of the bot, which if you are, you have a m flag.

BotAdmin v0.2

Introduction

Grab the Code

Comments

FriedCPU

My Snippet Tags

Contact

Sponsors


Last seen: Nov 12, 2006 Profile Snippets (1) Comments Received (2) Comments Submitted (1)