This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

how do i get my bot to !list voice?

Old posts that have not been replied to for several years.
User avatar
Alchera
Revered One
Posts: 3344
Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:

Post by Alchera »

K.. you're missing the point regarding a scripter's intellectual property.

So I quote from strikelight:
Nice to see ......... respect End user agreements.... ie. the fine print: 'By downloading my scripts from this (tclscript.com) site, you agree not to modify them in any form' ...

Sort of thing that may encourage me to stop writing scripts for the public at all any more.... Already production from slennox/kungfo0/mc8 have ceased to a standstill, amongst others... if this is what you are after, keep it up, and you'll find another lost scripter...
And:
The point is to prevent people like you from editting it, stealing the source, etc.. etc..
Now, regarding what you have stated:
People, when having knowledge of something that others may not have may choose to/or not to impart it. That is the purpose of this forum in my humble opinion, sharing knoweldge.
All are happy to share knowledge with any one regarding eggdrop/modules/scripting problems &c BUT, we are not here to tell any one how to undo a process that a scripter has used to protect his scripts just so they can be "hacked".

You may take this matter up with strikelight if you wish. strikelight just may take your suggestions on board for future updates. You'll never know unless you ask. :)
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM
User avatar
AxS
Halfop
Posts: 46
Joined: Wed Apr 09, 2003 11:57 am

Post by AxS »

Fair enough. I agree on and understand this perspective. I'll ask him if he'd like to work on some ideas I have, I guess all can benefit if he decides to take upon them. He is probably one of the best scriptors so anything I try to do will be a joke compared to what he can do. Anyhow... Strike? You open to workin on something together? :)
User avatar
Alchera
Revered One
Posts: 3344
Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:

Post by Alchera »

Excellent :)
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM
m
meij

Post by meij »

heres a script i made, ive updated it to work on multiple channels and i havnt tested it myself. so use at your own risk, but it should do what you want :).

Code: Select all

# Channels you want the script to run on
set autovchan  "#channel1 #channel2"
# Text you want people to get voiced on (wildcards accepted)
set autovtext   { "*fserve*" "*ftp*" "*file server*" "*tdcc*" "*sysreset*" "*i-n-v-i-s-i-o-n*" "*polaris*" }

# will voice on the 40'th min of every hour       
bind time  -  "40 * * * *"        autovoice          
# anyone with the n user flags can force an update by typing !voice
bind pub  n|n !voice              autovoice
bind notc  -  *                   autovnotc 

proc autovoice {minute hour day month year} {
  global autovchan autovnick

  foreach chan $autovchan {
    if {[botisop $chan]} {
      set autovnick($chan) ""
      # if your using this in alot of channels, maybe putserv is better, 
      # otherwise this is the best as to not waste time from the timer.
      putquick "PRIVMSG $chan :!list"
      utimer 30 autovgive
    }
  }
}

proc autovnotc {nick uhost handle text dest} {
  global botnick autovnick autovchan

  foreach chan $autovchan {
    if {[info exists autovnick($chan)]} {
      if {($dest == $botnick) && (![isvoice $nick $chan]) && ([onchan $nick $chan]) && ([botisop $chan])} {
        regsub -all {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026} $text "" text
        foreach match $autovnick($chan) {
          if {[string match -nocase $match $text]} {
            foreach mnick $autovnick($chan) { if {$mnick == $nick} { unset nick } }
            if {[info exists nick]} {
              lappend autovnick($chan) $nick
              break
            }  
          }
        }
      }
    }
  }
}

proc autovgive {} {
  global autovnick autovchan 

  foreach chan $autovchan {
    if {[info exists autovnick($chan)]} {
      foreach nick $autovnick($chan) {
        # if and elseif could probably be merged, i know it works as is so im not gonna bother changing it.
        if {![info exists list]} { lappend list $nick } elseif {[llength $list] < 4} { lappend list $nick } else { putserv "MODE $chan +vvvv [join $list]" ; unset list }
      }
      if {[info exists nick]} { putserv "MODE $chan +[string repeat "v" [llength $list]] [join $list]" }
      unset autovnick($chan)
    }
  }
}
(edit) fixed spelling
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

I doubt someone will like give you hints how to "de-Obfuscate" strikelight's scripts..
Once the game is over, the king and the pawn go back in the same box.
Locked