egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-03-12T06:20:06-04:00 https://forum.eggheads.org/app.php/feed/topic/11498 2006-03-12T06:20:06-04:00 2006-03-12T06:20:06-04:00 https://forum.eggheads.org/viewtopic.php?p=61002#p61002 <![CDATA[mute]]>

Code: 

proc myavoice {n u h c} {  if {![string equal -nocase $c "#game-fair.dk"]} {return}  global mutedhosts  if {[lsearch -exact $mutedhosts $u] == -1} {    pushmode $c +v $n  } else { puthelp "PRIVMSG $c :\002$n\002 (\002*!*$u\002) have been a bad boy, You have to wait 2 mins." }}
somehow it just started to work (i had tryed that one befor)

but i still wish to sold Bug 2:
«11:15:43» {@Mulle^:#game-fair.dk} !mute l0rn|Mortar^off l0rn|RR^Off
«11:15:44» « Mode » {[Game-Fair]} sets {-vv l0rn|Mortar^off l0rn|RR^Off}
«11:17:43» « Mode » {[Game-Fair]} sets {+v l0rn|Mortar^off}

Statistics: Posted by Ecimo — Sun Mar 12, 2006 6:20 am

]]> 2006-03-11T19:55:08-04:00 2006-03-11T19:55:08-04:00 https://forum.eggheads.org/viewtopic.php?p=60997#p60997 <![CDATA[mute]]>

Code: 

if {[lsearch -exact $mutedhosts $u] == 1} {
This means if $u is the 2nd element in the list $mutedhosts then perform... I guess you mean

Code: 

if {[lsearch -exact $mutedhosts $u] != -1} {
this means if $u exists in $mutedhosts then ...

Statistics: Posted by Sir_Fz — Sat Mar 11, 2006 7:55 pm

]]> 2006-03-11T15:53:59-04:00 2006-03-11T15:53:59-04:00 https://forum.eggheads.org/viewtopic.php?p=60995#p60995 <![CDATA[mute]]>

Code: 

set mutedhosts ""bind join -|- * myavoicebind PUB -|- !mute mymutebind PUB -|- !demute demute2proc myavoice {n u h c} {  if {![string equal -nocase $c "#game-fair.dk"]} {return}  global mutedhosts  if {[lsearch -exact $mutedhosts $u] == 1} {    puthelp "PRIVMSG $c :\002$n\002 (\002*!*$u\002) have been a bad boy, You have to wait 2 mins."  } else { pushmode $c +v $n }}proc mymute {n u h c a} {  if {![string equal -nocase $c "#game-fair.dk"] || ![isop $n $c]} {return}  global mutedhosts  foreach v [split $a] {    if {[onchan $v $c]} {      lappend mutedhosts [set uh [getchanhost $v $c]]      pushmode $c -v $v      utimer 120 [list demute $v $uh $c]    }  }}proc demute2 {n u h c a} {  if {![string equal -nocase $c "#game-fair.dk"] || ![isop $n $c] || ![onchan $a $c]} {return}  foreach v [split $a] {  demute $v [getchanhost $v $c] $c  }}proc demute {n h c} {  global mutedhosts  if {[set pos [lsearch -exact $mutedhosts $h]] == -1} {return}  while {[set pos [lsearch -exact $mutedhosts $h]] != -1} {    set mutedhosts [lreplace $mutedhosts $pos $pos]]  }  if {[onchan $n $c]} {    pushmode $c +v $n    } {    foreach curuser [chanlist $c] {      if {[getchanhost $curuser] == $h && ![isvoice $curuser $c]} {pushmode $c +v $curuser}    }  }}
Bug 1:
«20:49:00» {@Mulle^:#game-fair.dk} !mute fishbot
«20:49:01» « Mode » {[Game-Fair]} sets {-v fishbot}
«20:49:04» « Kick » {fishbot} was kicked by {Mulle^} {{me off is one of your skills @ 27th}}
«20:49:07» « {fishbot} has been invited to join {#game-fair.dk}
«20:49:07» « Join » {fishbot} {fish@go.moo.oh.yes.they.do} {Clones: 0 @ n/a}
«20:49:07» » fishbot:#game-fair.dk m00s contentedly at Mulle^.
«20:49:14» « Mode » {[Game-Fair]} sets {+v fishbot}

it didnt msg the channel it sould do

Bug 2:
«20:11:53» {@Mulle^:#game-fair.dk} !mute [S]CZukini`bnc fishbot
«20:12:02» « GM highlighted you in #tcl: loc-: i was talking to Mulle^
«20:12:15» « Mode » {[Game-Fair]} sets {-vv [S]CZukini`bnc fishbot}
«20:13:54» « Mode » {[Game-Fair]} sets {+v [S]CZukini`bnc}

why dont it voice both?

now i looked over it for like 7-8 hours cant find the bug!

Statistics: Posted by Ecimo — Sat Mar 11, 2006 3:53 pm

]]>