public note script

[Kimmi]

yeah me again whing for a script...

I wanted a script that does the following:
U can:
/msg <bot> whois <myrealname>
the info is stored in a file, and then ppl can type in the channel:
!whois <nick>
and the bot reply in notice:
<nick>`s realname is <myrealname>

There was some scripts inn the tcl-archive tryed to modify a bit, but didnt go so well.

[Turambar]

What should be the purpose of this?
Why not just /whois that person and read the realname?

[Kimmi]

well the script could ve like this:

/msg <bot> os <Windows 3.11>
the info is stored in a file, and then ppl can type in the channel:
!os <nick>
and the bot reply in notice:
<nick> is using os <Windows 3.11>

It could just as well do this... and well its a fun script.

[]Kami[]

This should work:

Code: Select all

bind pub -|- !os pub:os


proc pub:os {nick host hand chan arg} {
	putquick "PRIVMSG $chan :My operating system: [unames]"
	putcmdlog "<<$nick>> !$hand! os"
}

Or, if you want to put own info, then goes like this:

Code: Select all

bind pub -|- !os pub:os


proc pub:os {nick host hand chan arg} {
	putquick "PRIVMSG $chan :My operating system: Windows 98"
	putcmdlog "<<$nick>> !$hand! os"
}

Where is Windows 98 put your own text and bot will show this..

[Kimmi]

ohhh... hehe thanx but that wasnt what ment
Gona try to explain one more time:

I msg the bot:
/msg <bot> web <www.cnn.com> (web is a trigger)
then the bot stores this info in a file.
then ppl can trigger inn the channel:
!web <nick>
The bot looks in the file and looks up my nick and webpage, then reply in notice:
<nick>`s homepage is <www.cnn.com>

Anyone knows of such a script...??
Or knows how to make...?


Thanx for the script ]Kami[ I tested it, and it was cool.

[Sir_Fz]

Code: Select all

bind msg - web user:web
bind pub - !web display:web
proc user:web {nick uhost hand arg} {
global web
set user [string tolowe $nick]
if {$arg != ""} {
 set web($user) [lindex [splot $arg] 0]
 }
}

proc display:web {nick uhost hand chan arg} {
global web
set wnick [string tolower [lindex [split $arg] 0]]
if {[info exists web($wnick)]} {
 putserv "PRIVMSG $chan :$wnick site - $web($wnick)"
} else {
 putserv "PRIVMSG $chan :$wnick has no site."
 }
}

to begin with.

but the info will be gone when you .restart

[Kimmi]

oki thanx...
but the rest... I dunno [censored]...