egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2007-01-08T18:21:08-04:00 https://forum.eggheads.org/app.php/feed/topic/12921 2007-01-08T18:21:08-04:00 2007-01-08T18:21:08-04:00 https://forum.eggheads.org/viewtopic.php?p=69559#p69559 <![CDATA[Q auth]]> Statistics: Posted by innu — Mon Jan 08, 2007 6:21 pm

]]> 2007-01-06T15:53:53-04:00 2007-01-06T15:53:53-04:00 https://forum.eggheads.org/viewtopic.php?p=69514#p69514 <![CDATA[Q auth]]>

(it's also not that good as it doesn't always remove the binds, I made a better one later)

Statistics: Posted by metroid — Sat Jan 06, 2007 3:53 pm

]]> 2007-01-06T17:54:38-04:00 2007-01-06T07:17:50-04:00 https://forum.eggheads.org/viewtopic.php?p=69503#p69503 <![CDATA[Q auth]]> Statistics: Posted by innu — Sat Jan 06, 2007 7:17 am

]]> 2007-01-06T00:07:29-04:00 2007-01-06T00:07:29-04:00 https://forum.eggheads.org/viewtopic.php?p=69496#p69496 <![CDATA[Q auth]]>

Code: 

# Author : MeTroiD, #v1per on Quakenet.# Please don't be lame and rip my script.# I've made it for Quakenet but i assume if the ircd you want to use it on has the same RAW's you can use it just fine.set whois(author) "MeTroiD, #v1per on Quakenet"# Version History# 0.1      - Made a start, first expermimental test.# 0.2-0.5  - Finished some more code# 0.6-0.8  - The script was fully functional# 0.9      - Removed some silly crap that didnt work for Quakenet anyhow (shows which server he was on)# 1.0      - Cleaned some of the code, and it works fine on Quakenet, It also shows idle time and signon time now.set whois(version) "0.10"# End of Version History# Config:# What is the minimum access someone needs to perform a whois with the bot?# o = global op, m = global master, n = global owner# |o = channel op, |m = channel master, |n = channel ownerset whois(acc) "n|n"# End of Configbind pub $whois(acc) "!whois" whois:nickproc whois:nick { nickname hostname handle channel arguments } {global whois      set target [lindex [split $arguments] 0]if {$target == ""} {putquick "PRIVMSG $channel :Please choose a target first."return 0}if {[string length $target] >= "14"} {putquick "PRIVMSG $channel :Sorry, That nickname is too long. Please try a user with less than 14 characters."; return}if {[regexp -all -- {[~\[\]\{\}\|\_\\]} $target]} {putquick "PRIVMSG $channel :Sorry, I can't whois a user with special characters in it."; return}putquick "WHOIS $target $target"      set ::whoischannel $channelset ::whoistarget $targetbind RAW - 401 whois:nosuchbind RAW - 311 whois:infobind RAW - 319 whois:channelsbind RAW - 301 whois:awaybind RAW - 313 whois:ircopbind RAW - 330 whois:authbind RAW - 317 whois:idle}proc whois:putmsg { channel arguments } {putquick "PRIVMSG $channel :$arguments"}proc whois:info { from keyword arguments } {set channel $::whoischannelset nickname [lindex [split $arguments] 1]set ident [lindex [split $arguments] 2]set host [lindex [split $arguments] 3]set realname [string range [join [lrange $arguments 5 end]] 1 end]whois:putmsg $channel "$nickname - $ident@$host * $realname"unbind RAW - 311 whois:info}proc whois:ircop { from keyword arguments } {set channel $::whoischannelset target $::whoistargetwhois:putmsg $channel "$target is an IRC Operator"unbind RAW - 313 whois:ircop}proc whois:away { from keyword arguments } {set channel $::whoischannelset target $::whoistargetset awaymessage [string range [join [lrange $arguments 2 end]] 1 end]whois:putmsg $channel "$target is away: $awaymessage"unbind RAW - 301 whois:away}proc whois:channels { from keyword arguments } {set channel $::whoischannelset channels [string range [join [lrange $arguments 2 end]] 1 end]set target $::whoistargetwhois:putmsg $channel "$target on $channels"unbind RAW - 319 whois:channels}proc whois:auth { from keyword arguments } {set channel $::whoischannelset target $::whoistargetset authname [lindex [split $arguments] 2]whois:putmsg $channel "$target is authed as $authname"unbind RAW - 330 whois:auth}proc whois:nosuch { from keyword arguments } {set channel $::whoischannelset target $::whoistargetwhois:putmsg $channel "No such nickname \"$target\""unbind RAW - 401 whois:nosuch}proc whois:idle { from keyword arguments } {set channel $::whoischannelset target $::whoistargetset idletime [lindex [split $arguments] 2]set signon [lindex [split $arguments] 3]whois:putmsg $channel "$target has been idle for [duration $idletime]. signon time [ctime $signon]"unbind RAW - 317 whois:idle}putlog "Public whois script $whois(version) by $whois(author)"

Statistics: Posted by smash — Sat Jan 06, 2007 12:07 am

]]> 2007-01-05T10:44:10-04:00 2007-01-05T10:44:10-04:00 https://forum.eggheads.org/viewtopic.php?p=69480#p69480 <![CDATA[Q auth]]>

Code: 

bind raw - 354 qauth:who_infobind raw - 315 qauth:end_of_whobind pub - !auth qauth:who_pubcmdproc getchanlogin {nick} {  if {$nick == ""} { return }   putquick "WHO $nick n%na"  sleep 1000  global whois_replyarray  set auth $whois_replyarray($nick)  return $auth}proc qauth:who_info {from keyword text} {  global whois_replyarray  set targetnick [lindex $text 1]  set auth [lindex $text 2]  set whois_replyarray($targetnick) $auth}proc qauth:end_of_who {from keyword text} {  global whois_replyarray  set targetnick [lindex [split $text] 1]  if {![info exists whois_replyarray($targetnick)]} {    set whois_replyarray($targetnick) 0  }}proc sleep {time} {  after $time set end 1  vwait end}proc qauth:who_pubcmd {nick host hand chan text} {  putchan "#secretchannel" [getchanlogin $text]}
I need to get auth from nick. I have seen many scripts, but they usually are taking auth name only from nicks who are in same channel where is the bot. I need to get their auth even, if he isn't in any channel.
This code problem, is that it dosent show auth name on first request.

Statistics: Posted by innu — Fri Jan 05, 2007 10:44 am

]]>