egghelp/eggheads community

Need help converting a script to tcl

2003-06-10T13:13:39-04:00

In eggdrop, we use the 'bind' command instead of 'on'. Check tcl-commands.doc for different bind types -- you need the 'join' bind.

Next, the 'maskhost' command will give you a mask in the form *!ident@*.domain.com.

Then get the channel list with 'chanlist' and cycle through it, getting each host with 'getchanhost' and matching it with 'string match'. You can use 'isop', 'ishalfop', and 'isvoice' to check if the matched nicks have those flags.

Then use newchanban and putkick to ban and kick.

Statistics: Posted by stdragon — Tue Jun 10, 2003 1:13 pm

Need help converting a script to tcl

2003-06-10T12:33:19-04:00

NE1?

Statistics: Posted by Guest — Tue Jun 10, 2003 12:33 pm

Need help converting a script to tcl

2003-06-08T13:50:15-04:00

hi. i have a small script, a few lines of code that automatically kick clones and guest nicks as soon as they join my channel. i was wonderin if someone could help me convert it to a tcl so i can load it onto my eggy. thanks

Code:

ON *:JOIN:#Godz-Zone: {  if ( $ialchan( $wildsite, $chan, 0 ) > 1) {    if ( ( $ialchan( $wildsite, $chan, 1 ).nick isop $chan ) || ( $ialchan( $wildsite, $chan, 2 ).nick isop $chan ) ) { halt }    if ( ( $ialchan( $wildsite, $chan, 1 ).nick ishop $chan ) || ( $ialchan( $wildsite, $chan, 2 ).nick ishop $chan ) ) { halt }    if ( ( $ialchan( $wildsite, $chan, 1 ).nick isvoice $chan ) || ( $ialchan( $wildsite, $chan, 2 ).nick isvoice $chan ) ) { halt }    ban -u1800 $chan $nick 9    kick $chan $nick Clones are not allowed in $chan $+ . 30 min ban.  }  if ( $lower( $left( $nick, 6 ) ) == [godz]- ) {    .mode $chan +v $nick  }  if ( $lower( $left( $nick, 5 ) ) == guest ) {    ban -u60 $chan $nick 9    kick $chan $nick Guest nicks are not allowed this channel. Please change your nick. 1 min ban.  }}ON *:NICK: {  if ( $newnick isin #Godz-Zone ) {    ban -u60 $chan $newnick 9    kick $chan $nick Guest nicks are not allowed this channel. Please change your nick. 1 min ban.  }}

Statistics: Posted by Guest — Sun Jun 08, 2003 1:50 pm