Best idea(s) of the millenium!

Yourname · Post by **Yourname** » Sun Dec 02, 2001 6:17 pm

heh,
As usual, Yourname is back with ideas.
/me feels l33t to get gr8 ideas like these.. but lame for not being able to materialize them

Well anywayz here it is :-
On DALnet, when a user joins, he identifies to his nickname. And when you do a /whois on the user you get output like..

Yourname is yourname@wants.to.dance.with.y0u.org * I Liké tô Bé a Kid.
Yourname on @#dragonshelp @#eggdrop @#idle.com @#yourname
Yourname using twisted.ma.us.dal.net Global NAPs - Quincy, MA
Yourname has identified for this nick
Yourname has been idle 50mins 28secs, signed on Sat Dec 01 13:23:14
yourname End of /WHOIS list.

Notice the 'identified' part? Well, this is what is gonna be used by the bot.
What i want the bot to do is, I just add a user by nick, (we will need a separate flag for this too) Ex:

.adduser !bla
.chattr bla +Bv (B,a custom flag)

Ok?..

Now what eggdrop has to do is, when bla enters the channel, it has to do a /whois on bla and find out whether bla has identified or not, it's searching for the word 'identified' .. if bla hasnt identified yet, it'll not voice it (the +v is also there) And then we can even set it to check for a number of times in a set time of interval.. and then give up, if bla has still not identified.
This way we will save up to add idiotic users who know how to CHAT... but dont know any commands IRC/Eggdrop.
I also think this is a bit CPU intensive.. But it can be made to do a lot of other things, this is just the basic idea to make a point. Well, that wuz for scripting a TCL script.

Err.. and i also had another suggestion to eggdev. Im not sure whether this has been previously brought up, but if it wuz, please ignore it.

When we have TCL errors in the partyline..

Code: Select all

[13:13] TCL error [repeat_action]: no value given for parameter "text" to "repea
t_action"

My suggestion is, cant we make it a bit more precise like instead of just giving the proc name, can there be a way to add the filename?
Im sure there are ways, but if cant be done, i'd like to be enlightened about the facts i overlooked.

As for the TCL scripting suggestion, get those brains into it guyz.. i know its a good one

hehehe

Petersen · Post by **Petersen** » Sun Dec 02, 2001 6:28 pm

re your second query. no, it can't output the filename. once a script is loaded, it doesn't have any identifiers with the filename it was from, it just exists as procs, namespaces, binds, timers and varables, and nothing else.

ppslim · Post by **ppslim** » Sun Dec 02, 2001 10:14 pm

As Petersen said, once the "source" command is used to load the script, the memory that it is stored in, acts like one large script.

As for the first idea. We would need to know the RAW numeric used by the server, to send the data back.

Wcc · Post by **Wcc** » Sun Dec 02, 2001 11:30 pm

ppslim · Post by **ppslim** » Mon Dec 03, 2001 12:09 am

Somthing else I should have asked, but what does the server send if the person is not identified.

Yourname · Post by **Yourname** » Mon Dec 03, 2001 3:23 am

Well, the 'identified' will be missing

Yourname · Post by **Yourname** » Mon Dec 03, 2001 3:25 am

seems like the second idea aint possible. well, isnt there a way to code it into eggdrop and ADD this functionality?

Wcc · Post by **Wcc** » Mon Dec 03, 2001 6:27 am

The problem with the 1st idea is that the server doesn't send a numeric when a nick isn't identified. In fact, it doesn't always send one if a nick IS identified. And, due to server lag, etc, you can't really base something on the condition that something diddn't happen, you need 2 conditions. That may have not made sence, but oh well, I'm tired

Yourname · Post by **Yourname** » Mon Dec 03, 2001 2:28 pm

Well, Why do we need to keep waiting for a numeric?

Why cant we do something like output the result of /whois $nick to a temp file. And then make eggdrop search for the particular string, in this case 'identified' and do what we want it to do. (which i already told what shud be done in my main post)

Regards lag, we can think of it later. Right now the main concept can be done. Lags, splits can come up later

Petersen · Post by **Petersen** » Mon Dec 03, 2001 4:03 pm

While my knowledge of dalnet is severly limited, I recall that you could ask nickserv if a user was registered with the /nickserv ACC $nick command, to which it would reply with a notice what access level the user was at (something like 0 for unregistered nick, 1 for not real owner, 2 for hostmask matching for the nick, and 3 for password identified. - check with nickserv help if I'm right about that). It would be better to use nickserv for this application because #1 thats what it this command was designed for, and #2 it always returns an answer, unlike the whois method which has the numeric missing if it aint identified.

Yourname · Post by **Yourname** » Mon Dec 03, 2001 4:23 pm

DAMN! yeah man!! Exactly!

LOL... i almost forgot that services can be of help too!

Well, there ya go guys.. that brings a very good turn now.

stdragon · Post by **stdragon** » Mon Dec 03, 2001 10:47 pm

I already wrote a script like that

http://home.dal.net/stdragon/eggdrop/hasidentified.tcl

It works like this..

Code: Select all

proc mycallback {nick ident} {
  if {$ident == 1} {
    # has identified
  } else {
    # hasn't identified
  }
}

hi_check stdragon mycallback

Yourname · Post by **Yourname** » Tue Dec 04, 2001 2:54 pm

I saw that script, but i didnt get much of a head & tail of it

But i take it that it'll need 2 more scripts to work properly from your site.

Anyways, the foundation is set, thanks to stdarg, now its for the contruction and the finishing ceremony!

All the best

Yourname · Post by **Yourname** » Sat Dec 08, 2001 8:21 am

I hope there is someone following this...

ppslim · Post by **ppslim** » Sat Dec 08, 2001 12:13 pm

Code: Select all

array set nickarray {}

bind join - "*" chk:join
proc chk:join {nick uh hand chan} {
  global nickarray
  lappend nickarray([string tolower $nick]) $chan
  hi_check $nick cb:voice
}
proc cb:voice {nick x} {
  global nickarray
  foreach chan $nickarray($nick) {
    if {(![isop $nick $chan]) && (![isvoice $nick $chan]) && ([onchan $nick $chan])} {
      pushmode $chan +v $nick
    }
    set nickarray($nick) [lrepleace $nickarray($nick) [set idx [lsearch -exact $nickarray($nick) "$chan"]] $idx]]
  }
}
bind time - "*" chk:time
proc chk:time {min hour day month year} {
  global nickarray
  set min [string trimleft $min 0]
  if {![expr $min % 5]} {
    foreach chan [channels] {
      foreach nick [chanlist $chan] {
        if {(![isop $nick $chan]) && (![isvoice $nick $chan])} {
          hi_check $nick cb:voice
          lappend nickarray([string tolower $nick] $chan
        }
      }
    }
  }
}

This isn't tested, nor fine tuned. It acts for all channels, and check all channels for no-voices every 5 mins.

You should load the script by stdarg first, then this.