egghelp/eggheads community

script i made

2004-06-27T15:17:11-04:00

For making private message binds with
procedures use this.

This should get you started.

Code:

bind msg n settopic my_procedureproc my_procedure {nick host hand text} { ........................}

U'll have to do some things on your own and not wait for
people to make scripts for you, always.

I didn't know abc of tcl, but I knew a bit C++ and from there
on I catched it on by using the trial and error method and mainly
by looking at other scripts done by other pro scripters.

If your logic is write, say the pseudocode, or your procedure
of employment eventually you can solve them problem.

Statistics: Posted by awyeah — Sun Jun 27, 2004 3:17 pm

script i made

2004-06-27T14:13:59-04:00

Yes, but i don't want to use a different script :<

Statistics: Posted by metroid — Sun Jun 27, 2004 2:13 pm

script i made

2004-06-26T19:38:28-04:00

There is script from MC_8 where you can change autolimit number (so bot change limit + lx every some time | x - is number which you set in partyline) in partyline.You can change dcc to msg command....

Statistics: Posted by ]Kami[ — Sat Jun 26, 2004 7:38 pm

script i made

2004-06-26T19:27:04-04:00

Nono, the thing is, If you say autolimit #how many on/off it will set the autolimit, but i wanted it to respond on msg, fx: /msg autolimit #number on/off instead of in public

Statistics: Posted by metroid — Sat Jun 26, 2004 7:27 pm

script i made

2004-06-26T18:35:33-04:00

It's not filtered in newer eggdrop versions or Tcl, because this is intended behaviour, when used correctly...

For example, using the last code segment you posted...
Do: /msg !limit [die] + 5

Statistics: Posted by strikelight — Sat Jun 26, 2004 6:35 pm

script i made

2004-06-26T16:38:44-04:00

Hmm yeah.. I took a look at it.

Anyway I tested my scripts with channels and nicks
containing characters [ ] \ { } " and they seemed to
work fine and didnt choke on these characters.

I've tested this thing with most of my scripts and other
scripts as well, this was an error/bug in the older versions
of eggdrop I think, now they filter it.

I think the newer versions of eggdrops filters out
these words in the procedure parameters of the binds.

So I think even if you are running the latest tcl version
and latest eggdrop version your scripts even if you use
special tcl characters in it on variables such as nicks and
channels they will not choke on those special characters.

Statistics: Posted by awyeah — Sat Jun 26, 2004 4:38 pm

script i made

2004-06-26T16:07:22-04:00

Awyeah, take a look at http://peterre.com/characters.html. SPLIT $text before using LIST commands on it (like lindex, lrange, or lset). $text is a string, using list commands on it b0rks the [censored]. Read the page. :]

Statistics: Posted by dollar — Sat Jun 26, 2004 4:07 pm

script i made

2004-06-26T03:55:51-04:00

Umm... yeah sorry for that lrange thing, I forgot to add the 'end' in a hurry... as everything has a starting range, it has an ending range

As for the script you have posted?
Why would you want it to respond to msgs?

It has nothing todo with public commands.
The bind is set for join, and the bot would automatically
change the limits when people part or join a channel depending
upon the ranges you will have set in the script.

If you want to enable and disable the script at times, well for that
you can add a procedure to kill the timers or utimers of that autolimit
script and maybe unbind the auto limit setting procedure, that should do it and vice versa.

If you want to make a script to respond to private messages
and change a limit of a channel, that is almost the same as
the code as for the settopic which I had made.

Use this as:

Code:

/msg  !limit <#channel> <+/->

Code:

bind msg o !limit msg:limit proc msg:limit {nick host hand text} {  global botnick   set chan [lindex $text 0]   if {[botisop $chan]} {    set range "[lindex $text 1]l"; set limit [lindex $text 2]   putserv "MODE $chan :$range $topic"  } }

If you want it in this way

Code:

/msg  !limit <#channel> <+/- limit>

Then you will need to split them up and process them seperately.

Statistics: Posted by awyeah — Sat Jun 26, 2004 3:55 am

script i made

2004-06-25T12:05:32-04:00

I was wondering, If i wanted this script to respond to msg's would i just have to alter the proc etc or everything?

Code:

bind pub  n|m "autolimit" autolimit:pubbind join -|- * autolimit:joinsetudef str "autolimit"proc autolimit:start {} {  foreach channel [channels] {    if {[channel get $channel "autolimit"] == ""} {      channel set $channel "autolimit" "0"    }  }  utimer 60 autolimit}proc autolimit:join {nickname hostname handle channel} {  if {![isbotnick $nickname]} {    return 0  }  if {[channel get $channel "autolimit"] == ""} {    channel set $channel "autolimit" "0"  }}proc autolimit:pub {nickname hostname handle channel arguments} { global lastbind  set argumentc [llength [split $arguments { }]]  set option [lindex $arguments 0]  set users [llength [chanlist $channel]]  if {$argumentc < 1} {    set currentlimit [channel get $channel "autolimit"]    if {$currentlimit > 0} {      putserv "NOTICE $nickname :Current auto-limit is: [channel get $channel "autolimit"]"    } else {      putserv "NOTICE $nickname :Argument should start with a '#' and a digit. (eg. #10 or on|off)"    }    return  }  if {([regexp -nocase -- {(#[0-9]+|off|on)} $option tmp result]) && (![regexp -nocase -- {\S#} $option])} {    switch $result {      on {        channel set $channel "autolimit" "10"        putserv "MODE $channel +l [expr $users + 10]"        puthelp "NOTICE $nickname :Auto-limit is changed to: +10"      }      off {        channel set $channel "autolimit" "0"        putserv "MODE $channel -l *"        puthelp "NOTICE $nickname :Done. Auto-limit disabled successfully."      }      default {        if {([regexp {#[0-9]} $result]) && ([string index $result 0] == "#")} {          regexp {#([0-9]+)} $result tmp result          if {($result < 2)} {            set result 2          } elseif {($result > 500)} {            set result 500          }          channel set $channel "autolimit" "$result"          putserv "MODE $channel +l [expr $users + $result]"          puthelp "NOTICE $nickname :Auto-limit is changed to: $result"        }      }    }  } else {    puthelp "NOTICE $nickname :Argument should start with a '#' and a digit. (eg. #10 or on|off)"  }}proc autolimit {} {  if {![string match *autolimit* [utimers]]} {    utimer 60 autolimit  }  foreach channel [channels] {    set autolimit [channel get $channel "autolimit"]    if {(![botisop $channel]) || ($autolimit == "0")} {      continue    }    set users [llength [chanlist $channel]]    set newlimit [expr $users + $autolimit]    set chanmodes [getchanmode $channel]    if {[string match *l* [lindex $chanmodes 0]]} {      regexp {\S[\s]([0-9]+)} $chanmodes tmp currentlimit    } else {      set currentlimit 0    }    if {$newlimit == $currentlimit} {continue}    if {$newlimit > $currentlimit} {      set difference [expr $newlimit - $currentlimit]    } elseif {$newlimit < $currentlimit} {      set difference [expr $currentlimit - $newlimit]    }    if {($difference <= [expr round($autolimit * 0.5)]) && ($autolimit > 5)} {      continue    } elseif {($difference < [expr round($autolimit * 0.38)]) && ($autolimit <= 5)} {      continue    }    putserv "mode $channel +l $newlimit"  }}autolimit:startWould i have to change:[code]proc autolimit:pub {nickname hostname handle channel arguments} {

or?

Statistics: Posted by metroid — Fri Jun 25, 2004 12:05 pm

script i made

2004-06-25T12:05:59-04:00

That fixed it, thnx

Statistics: Posted by metroid — Fri Jun 25, 2004 11:55 am

script i made

2004-06-25T11:49:13-04:00

change this line

Code:

set topic [lrange $text 1]

into

Code:

set topic [lrange $text 1 end]

Statistics: Posted by greenbear — Fri Jun 25, 2004 11:49 am

script i made

2004-06-25T11:44:45-04:00

I get a tcl error when doing the settopic command

[17:39] Tcl error [msg:q:topic]: wrong # args: should be "lrange list first last"

and the Qban cmd works perfectly

Statistics: Posted by metroid — Fri Jun 25, 2004 11:44 am

script i made

2004-06-25T08:21:36-04:00

For changing the banmask to a users host use this.
This would ban and IP Address in the following format:

Code:

*!*@127.0.0.1

Code:

proc pub:qban {nick uhost hand chan text} {  if {[string length $text] > 0} { set tnick [lindex $text 0] } set userhost [getchanhost $tnick $chan] set banmask "*!*@[lindex [split $userhost @] 1]" ................................... ....................................... ............................................ putserv "MODE $chan +b $banmask" ............................................ ........................................ .................................... }}

The topic thingy is quite easy as well.
Use this in the following format:

Code:

/msg  settopic <#channel>

Try using this code, this should work:

Code:

bind msg o settopic msg:q:topic proc msg:q:topic {nick host hand text} { global botnick  set chan [lindex $text 0]  if {[botisop $chan]} {    set topic [lrange $text 1]   putserv "PRIVMSG Q :settopic $chan $topic" }}

Statistics: Posted by awyeah — Fri Jun 25, 2004 8:21 am

script i made

2004-06-25T06:54:14-04:00

Hey awyeah, I was wondering if you could convert this for me

bind pub o settopic q:topic

proc q:topic {nick uhost hand chan text} {
putserv "PRIVMSG Q :settopic $chan $text"
}

This script is a public script where when u say settopic *topic* the bot makes Q set it, I was wondering if you guys could make it a msg, for example:

/msg settopic

I've tried myself but it failed

bind msg o settopic msg:q:topic

proc msg:q:topic {nick uhost hand text} {

I don't know what to do further

Statistics: Posted by metroid — Fri Jun 25, 2004 6:54 am

script i made

2004-06-25T05:38:35-04:00

Works like a charm, Thanks

Here is the result

Channel with Q :

[11:37:32] !qban sheepbot
[11:37:34] * sheepbot was kicked by |A| (You have been Qbanned by MeTroiD)
[11:37:36] -|A|- Done.
[11:37:56] * sheepbot (v1per@sh33pb0tt0r.users.quakenet.org) has joined #sheep.go.meh
[11:37:56] * Q sets mode: +b *!*@sh33pb0tt0r.users.quakenet.org
[11:37:56] * Info: This *!*@sh33pb0tt0r.users.quakenet.org ban affects sheepbot
[11:37:56] * sheepbot was kicked by Q (You are BANNED from this channel.)

Channel with L :

[11:36:23] !qban sheepbot
[11:36:24] -|A|- There is no Q on this channel.
[11:36:25] * |A| sets mode: +b sheepbot!*@*
[11:36:27] * sheepbot was kicked by |A| (Due to no Q being in this channel you are being kicked.)

Now need to know how to change the ban on his nick to a ban on his host

Statistics: Posted by metroid — Fri Jun 25, 2004 5:38 am