egghelp/eggheads community

Public commands and channel management

2021-03-30T19:39:31-04:00

ComputerTech;

Thank you so much for your response and help. And thank you those who responded to my request.

Thanks guys

Statistics: Posted by Mike05 — Tue Mar 30, 2021 7:39 pm

Public commands and channel management

2021-03-29T15:12:01-04:00

And for your !flag code

Code:

bind PUB ofmn|ofmn "!autovoice" auto:voiceproc auto:voice {nick host hand chan text} {#Sets $nick2 which will be !autovoice thisnickhere  set nick2 [lindex [split $text] 0]   #Checks if nick2 is on the channel and if not, will stop the script and return with a error messageif {![onchan $nick2 $chan]} {       puthelp "PRIVMSG $chan :I don't see $nick2 on $chan"      return    } #Grabs the handle of the nickset hand2 [nick2hand $nick2]  #sets userflag +g on specified nick on the channelchattr $hand2 +g $chan  #Message puthelp "PRIVMSG $chan :{$nick2}(with handle $hand2) now has Autovoice on $chan"   }

simply use !autovoice Nick

and it will give the nick userflag +g which will autovoice on join for the channel the command was used on.

I also added comments explaining how the code works, try reading them and see if you can understand them

Links:

https://docs.eggheads.org/ << Documentation of Eggdrop

http://suninet.the-demon.de/ << a great basic guide to Tcl

Hope this helps

Statistics: Posted by ComputerTech — Mon Mar 29, 2021 3:12 pm

Public commands and channel management

2021-03-29T14:23:35-04:00

I personally recommend Bass's Seen script

There are however, many other's

http://tclarchive.org/search.php?Seen

Statistics: Posted by ComputerTech — Mon Mar 29, 2021 2:23 pm

Public commands and channel management

2021-03-29T13:15:05-04:00

Friends;

Please recommend me the best seen script, and Please guide me how to set the seen private, example if a user performs seen on his/her friends the seen result must be visible to the user who perform seen, not for the whole channel.

And how to add custom alias command , example, !nbon that should prevent users to change their nick, example, !nboff, now users can change their nick . How to set auto voice flag. example. !flag +V Nick.
I would highly appreciate your help

Thanks in advance

Statistics: Posted by Mike05 — Mon Mar 29, 2021 1:15 pm

Public commands and channel management

2021-03-29T13:10:32-04:00

Thank you so much for your response and help.
Much appreciate.

Thanks again friends

Statistics: Posted by Mike05 — Mon Mar 29, 2021 1:10 pm

Public commands and channel management

2021-03-29T06:25:58-04:00

Since binds expect a certain amount of arguments it will just crash.

On top of that "my code" isn't quite what he really needs, not to mention that code has room for improvements.

Speaking about code, yours has some logic faults and won't get the expected results. For example:

Code:

proc op:proc {nick host hand chan text} { if {![botisop $chan]} {return} if {![botisop $chan]} {return} if {[lindex [split $text] 0] == ""} {  putquick "MODE $chan +o [lindex [split $text] 0]" } else {  foreach vnick [split $text] {  pushmode $chan +o $vnick  } }}

3rd if line says if first element of the list is empty (most likely is a typo and you wanted to negate not make it equal) then do +o on the first element, that is like I just said empty, else loop over the list and do +o on each element. You don't bother using onchan to see if the list contains valid elements or not, nor if any of the names already has the @.

Statistics: Posted by caesar — Mon Mar 29, 2021 6:25 am

Public commands and channel management

2021-03-29T05:30:47-04:00

I've a little doubt about:

Code:

bind PUB $foo(flag) [split $foo(vtrig)] voice:proc

I never heard about using a list as keyword/mask.

Statistics: Posted by CrazyCat — Mon Mar 29, 2021 5:30 am

Public commands and channel management

2021-03-28T19:35:58-04:00

Try the following

SirFz's FZcommands
Download

My Code CTcommands
Download

caesar's code
Here

Lol'z tools
Download

or this code i just made for you
Untested

Code:

### Flags for script usageset foo(flag) "ofmn"### Voice triggersset foo(vtrig) "voice v"### Devoice triggersset foo(dvtrig) "devoice dv"### Op triggersset foo(otrig) "op o"### Deop triggersset foo(dotrig) "deop do"### Kick triggersset foo(kick) "kick k"### Ban triggers {"ban" "b"}set foo(ban) "ban b"### Kickban triggersset foo(kickb) "kickban kb"######Stop#############bind PUB $foo(flag) [split $foo(vtrig)] voice:procbind PUB $foo(flag) [split $foo(dvtrig)] devoice:procbind PUB $foo(flag) [split $foo(otrig)] op:procbind PUB $foo(flag) [split $foo(dotrig)] deop:procbind PUB $foo(flag) [split $foo(kick)] kick:procbind PUB $foo(flag) [split $foo(kickb)] kb:procbind PUB $foo(flag) [split $foo(ban)] ban:procproc voice:proc {nick host hand chan text} { if {![botisop $chan]} {return} if {[lindex [split $text] 0] == ""} {   putquick "MODE $chan +v [lindex [split $text] 0]" } else {   foreach vnick [split $text] {   pushmode $chan +v $vnick  }  }}proc devoice:proc {nick host hand chan text} { if {![botisop $chan]} {return} if {![isbotnick $nick]} {return} if {[lindex [split $text] 0] == ""} {  putquick "MODE $chan -v [lindex [split $text] 0]" } else {  foreach vnick [split $text] {  pushmode $chan -v $vnick  } }}proc op:proc {nick host hand chan text} { if {![botisop $chan]} {return} if {![botisop $chan]} {return} if {[lindex [split $text] 0] == ""} {  putquick "MODE $chan +o [lindex [split $text] 0]" } else {  foreach vnick [split $text] {  pushmode $chan +o $vnick  } }}proc deop:proc {nick host hand chan text} { if {[isbotnick $nick]} {return} if {![botisop $chan]} {return} if {[lindex [split $text] 0] == ""} {  putquick "MODE $chan -o [lindex [split $text] 0]" } else {  foreach vnick [split $text] {  pushmode $chan -o $vnick  } }}proc kick:proc {nick host hand chan text} { if {[isbotnick $nick]} {return} if {![botisop $chan]} {return} if {[lindex [split $text] 0] == ""} {  putquick "KICK $chan [lindex [split $text] 0]" } else {  foreach vnick [split $text] {  putkick $chan $vnick  } }}proc kb:proc {nick host hand chan text} { if {[isbotnick $nick]} {return} if {![botisop $chan]} {return} if {[lindex [split $text] 0] == ""} {  putquick "MODE $chan +b [lindex [split $text] 0]"  putquick "KICK $chan [lindex [split $text] 0]" } else {  foreach vnick [split $text] {  set bhost "[maskhost $vnick![getchanhost $vnick $chan] 2]"  pushmode $chan +b $bhost  putkick $chan $vnick  } }}proc ban:proc {nick host hand chan text} { if {[isbotnick $nick]} {return} if {![botisop $chan]} {return} if {[lindex [split $text] 0] == ""} {  set vnick [lindex [split $text] 0]  set bhost "[maskhost $vnick![getchanhost $vnick $chan] 2]"  putquick "MODE $chan +b $bhost" } else {  foreach vnick [split $text] {  set bhost [maskhost $vnick![getchanhost $vnick $chan] 2]  pushmode $chan +b $bhost  } }}

Statistics: Posted by ComputerTech — Sun Mar 28, 2021 7:35 pm

Public commands and channel management

2021-03-28T16:34:40-04:00

Hello Friends;

Please recommend me the best tcl script with public commands and channel management.

Example: !k !b !kb !v !op !nb (nick ban) !flag +V Nick (autovoice).

And how to add custom commands ?

Thanks in advance. I would highly appreciate your help.

Thanks

Statistics: Posted by Mike05 — Sun Mar 28, 2021 4:34 pm