egghelp/eggheads community

Whats wrong in this code :/

2009-04-23T15:34:49-04:00

Yup, it'll only voice members having the v userflag.

Statistics: Posted by nml375 — Thu Apr 23, 2009 3:34 pm

Whats wrong in this code :/

2009-04-23T15:33:23-04:00

yeah, i updated all bug fixers.. thanks well +g is for autovoice too i guess, so we need to .adduser for this?

Statistics: Posted by Salik83 — Thu Apr 23, 2009 3:33 pm

Whats wrong in this code :/

2009-04-23T15:31:21-04:00

Nice you got it working.

I hope you are aware that there's been numerous bugfixes since 1.6.2, several of them critical.

Statistics: Posted by nml375 — Thu Apr 23, 2009 3:31 pm

Whats wrong in this code :/

2009-04-23T15:22:37-04:00

cant use new version, i know it comes with slowvoice feature, have to get some auto voice script so i can add some exemptions, i cant ignore *!*@119.* from bot because most of master are using same ip. thanks nml.. code worked. (F)!

Statistics: Posted by Salik83 — Thu Apr 23, 2009 3:22 pm

Whats wrong in this code :/

2009-04-23T10:02:43-04:00

Darn!
Thanks for pointing it out. I'll update my post in a sec.

Statistics: Posted by nml375 — Thu Apr 23, 2009 10:02 am

Whats wrong in this code :/

2009-04-23T05:15:50-04:00

In a string match the pattern comes first and the string to match it against second. I think you have it the wrong way about.

I do the same thing quite a lot because lsearch for lists is the opposite way. List first and pattern second.

Confusing!

Statistics: Posted by arfer — Thu Apr 23, 2009 5:15 am

Whats wrong in this code :/

2009-04-23T10:04:14-04:00

Quite like your code, but it should do the trick:
Or do you need DNS resolving as well?

Btw, mind if I ask why you are using such an old eggdrop?

Code:

set sv(delay) 60:180set sv(voiceops) 0set sv(method) 2if {$numversion < 1060200} {   bind join v|v * join:sv   proc join:sv {nick host hand chan} { global sv      utimer [expr [lindex [split $sv(delay) :] 0] + [rand [lindex [split $sv(delay) :] 1]]] [list sv:voice $nick $host $hand $chan]   }   proc sv:voice {nick host hand chan} {      if {[botisop $chan]} { global sv         switch -- "$sv(method)" {            "1" {               if {[string match "*@116.*" $host] || [string match "*@119.*" $host]} {return}               if {((![isbotnick $nick]) && (![isbotnick [hand2nick $hand $chan]]))} {                  if {(([onchan $nick $chan]) && ("[getchanhost $nick $chan]" == "$host") && (![isvoice $nick $chan]) && (($sv(voiceops)) || (![isop $nick $chan])))} {                     # They still have the nick they joined with.                     puthelp "MODE $chan +v $nick"                  } elseif {((![onchan $nick $chan]) && ([handonchan $hand $chan]) && (![isvoice [hand2nick $hand $chan] $chan]) && (($sv(voiceops)) || (![isop [hand2nick $hand $chan] $chan])))} {                     # They most likely changed nicks after joining.                     puthelp "MODE $chan +v [hand2nick $hand $chan]"                  }               }            }            "2" {               foreach u "[chanlist $chan]" {                  set uhost [getchanhost $u]                  if {[string match "*@116.*" $uhost] || [string match "*@119.*" $uhost]} {continue}                  if {((![isvoice $u $chan]) && ([matchattr [nick2hand $u $chan] v|v $chan]) && (![isbotnick $u]) && (($sv(voiceops)) || (![isop $u $chan])))} {                     pushmode $chan +v $u                  }               }            }         }      }   }   if {"[info commands isbotnick]" == ""} {      proc isbotnick {nick} { global botnick         if {"[string tolower $nick]" == "[string tolower $botnick]"} { set nick 1 } { set nick 0 }      }   }   foreach c "[channels]" { channel set "$c" -autovoice }   catch { unset $c }} else {   putlog "slowvoice.tcl: Your Eggdrop version already supports delayed auto-voiceing."}putlog "slowvoice.tcl v1.4 by FireEgl@EFNet  - Loaded."

Edit:
Fixed issue with "string match". Thanks for pointing it out, arfer.

Statistics: Posted by nml375 — Wed Apr 22, 2009 7:17 pm

Whats wrong in this code :/

2009-04-22T15:28:05-04:00

Code:

set sv(delay) 60:180set sv(voiceops) 0set sv(method) 2if {$numversion < 1060200} {   bind join v|v * join:sv   proc join:sv {nick host hand chan} { global sv      utimer [expr [lindex [split $sv(delay) :] 0] + [rand [lindex [split $sv(delay) :] 1]]] [list sv:voice $nick $host $hand $chan]   }   proc sv:voice {nick host hand chan} {      if {[botisop $chan]} { global sv         switch -- "$sv(method)" {            "1" {               if {((![isbotnick $nick]) && (![isbotnick [hand2nick $hand $chan]]))} {                  if {(([onchan $nick $chan]) && ("[getchanhost $nick $chan]" == "$host") && (![isvoice $nick $chan]) && (($sv(voiceops)) || (![isop $nick $chan])))} {                     # They still have the nick they joined with.                     puthelp "MODE $chan +v $nick"                  } elseif {((![onchan $nick $chan]) && ([handonchan $hand $chan]) && (![isvoice [hand2nick $hand $chan] $chan]) && (($sv(voiceops)) || (![isop [hand2nick $hand $chan] $chan])))} {                     # They most likely changed nicks after joining.                     puthelp "MODE $chan +v [hand2nick $hand $chan]"                  }               }            }            "2" {               foreach u "[chanlist $chan]" {                  if {((![isvoice $u $chan]) && ([matchattr [nick2hand $u $chan] v|v $chan]) && (![isbotnick $u]) && (($sv(voiceops)) || (![isop $u $chan])))} {                     pushmode $chan +v $u                  }               }            }         }      }   }   if {"[info commands isbotnick]" == ""} {      proc isbotnick {nick} { global botnick         if {"[string tolower $nick]" == "[string tolower $botnick]"} { set nick 1 } { set nick 0 }      }   }   foreach c "[channels]" { channel set "$c" -autovoice }   catch { unset $c }} else {   putlog "slowvoice.tcl: Your Eggdrop version already supports delayed auto-voiceing."}putlog "slowvoice.tcl v1.4 by FireEgl@EFNet  - Loaded."

here is a complete code.. all i want to add *!*@119.* and *!*@116.* ips to ignore by this script. so people matching those ips wont get +v :/.

Statistics: Posted by Salik83 — Wed Apr 22, 2009 3:28 pm

Whats wrong in this code :/

2009-04-21T18:06:16-04:00

It would seem part of the code was cut from the post on the right side.

From what I can see, the code is not coherent, as when $sv(method) is set to 1, the check for 116/119 IP's is not done. Try adding the "string match" checks to the first case, in the beginning.

Statistics: Posted by nml375 — Tue Apr 21, 2009 6:06 pm

Whats wrong in this code :/

2009-04-21T16:24:44-04:00

Code:

if {$numversion < 1060200} {   bind join v|v * join:sv   proc join:sv {nick host hand chan} { global sv      utimer [expr [lindex [split $sv(delay) :] 0] + [rand [lindex [split $sv(delay) :] 1]]] [list sv:voice $nick $host $hand   }   proc sv:voice {nick host hand chan} {      if {[botisop $chan]} { global sv         switch -- "$sv(method)" {            "1" {               if {((![isbotnick $nick]) && (![isbotnick [hand2nick $hand $chan]]))} {                  if {(([onchan $nick $chan]) && ("[getchanhost $nick $chan]" == "$host") && (![isvoice $nick $chan]) && (($sv                     # They still have the nick they joined with.                     puthelp "MODE $chan +v $nick"                  } elseif {((![onchan $nick $chan]) && ([handonchan $hand $chan]) && (![isvoice [hand2nick $hand $chan] $chan                     # They most likely changed nicks after joining.                     puthelp "MODE $chan +v [hand2nick $hand $chan]"                  }               }            }            "2" {               foreach u "[chanlist $chan]" {                  if {[string match {*@119.*} [getchanhost $u $chan]]} { return }                  if {[string match {*@116.*} [getchanhost $u $chan]]} { return }                  if {((![isvoice $u $chan]) && ([matchattr [nick2hand $u $chan] v|v $chan]) && (![isbotnick $u]) && (($sv(voi                     pushmode $chan +v $u                  }               }            }         }      }   }   if {"[info commands isbotnick]" == ""} {      proc isbotnick {nick} { global botnick         if {"[string tolower $nick]" == "[string tolower $botnick]"} { set nick 1 } { set nick 0 }      }   }}

i want this script to exempt users from *!*@119.* and *!*@116.* , not to voice them :/

Edit:
Placed the code within proper tags to ease reading.
/NML_375

Statistics: Posted by Salik83 — Tue Apr 21, 2009 4:24 pm