egghelp/eggheads community

too many procedure

2002-09-24T15:55:40-04:00

Here's a sysop script I started working on over a year ago and never got round to testing or finishing.

Some of it probably works, but it will need a fair bit of work doing on it and hasnt had the security checking routines put into it yet either.

It was a work in progress, but as my interest in eggdrop scripting gets less and less due to having no spare time, if anyone can make use of this then they are welcome to it.

http://www.highlandfox.com/downloads/system_bot.tcl

Note this was written initially for my server which runs Unreal IRCd and Auspice Services so not all commands may be appropriate.

Let me know if its any use and how you get on with it.

Regards

Ian-Highlander

Statistics: Posted by Ian-Highlander — Tue Sep 24, 2002 3:55 pm

too many procedure

2002-09-24T08:51:56-04:00

in the proc dcc:oper you should get your variables onick and pass first, then it would look like this:

Code:

proc dcc:oper {nick host text}  {global onick passputserv "oper $onick $pass"}

in the second proc, it tells you too many arguments ... a dcc bind will pass 3 variables to the procedure: handle, idx and text. You did it correct in your first proc, but you forgot text in dcc:kill

Code:

bind dcc O kill dcc:killproc dcc:kill {nick idx text} {putserv "kill $nick"}

but this would kill the user on your server with the nick of your handle ... so I guess you want to do in the pline "kill ", then the proc should look like this:

Code:

bind dcc O kill dcc:killproc dcc:kill {nick idx text} {set target [lindex [split $text] 0] putserv "kill $target"}

Statistics: Posted by mortician — Tue Sep 24, 2002 8:51 am

too many procedure

2002-09-24T08:51:11-04:00

See tcl-commands.doc for information, on what arguments each procedure ois provided, for each type of bind.

You can't just use

proc dcc:kill {nick host} {

And expect the script, to know what information you want providing.

The reality is, you should be knowing what the eggdrop is providing the script.

Statistics: Posted by ppslim — Tue Sep 24, 2002 8:51 am

too many procedure

2002-09-24T08:05:51-04:00

Code:

#########Oper##################set onick "nick"set pass "password"bind dcc O oper dcc:operproc dcc:oper {nick host text} {putserv "oper $onick $pass"}###########KILL#################bind dcc O kill dcc:killproc dcc:kill {nick host} {putserv "kill $nick"}################and after second procedure,bot say to me "too many arguments"#why?##

[/code]

Statistics: Posted by Guest — Tue Sep 24, 2002 8:05 am