tcl script needed please

[khano]

can anyone help me with a TCL script please.
i have it on my onw mIRC and it works fine, but i want it on my eggdrop..

I want it to respond to commands like !server or !site.
So like when someone comes in the channel and says !site it has to display a one line url information, which they can click in mIRC and visit then.

Thanks in advance

[Guest]

Here it is:

Code: Select all

# Enter the URL for !server info here
set infoserv "http://www.123.com"

# Enter the URL for !site info here
set infosite "http://www.123.com"

bind pub - !site pub:site
proc pub:site {nick uhost hand chan text} {
 global infosite
 puthelp "NOTICE $nick :Here's the info... $infosite"
 putlog "$nick message me for !site"
}

bind pub - !server pub:server
proc pub:server {nick uhost hand chan text} {
  global infoserv
  puthelp "NOTICE $nick :Here's the server info... $infoserv"
  putlog "$nick messaged me for !server"
} 

Hope it helps

_________________
Tomorrow's rain will wash the stains away, but something in our minds will always stay

<font size=-1>[ This Message was edited by: plexus on 2001-12-11 02:25 ]</font>

[khano]

ok it all works fine and mucho thanks )
But got some questions again.

-How will it display the info in main chat,
-how will it posted in main chat so anyone can see it,
-why can't i use ] and [,
-how can i get the colors like 4mIRC
-how can i display more lines??

thanks again

[caesar]

To display the info in main chat replace:

from:
-
puthelp "NOTICE $nick :Here's the info... $infosite"
puthelp "NOTICE $nick :Here's the server info... $infoserv"
-

to:
-
puthelp "PRIVMSG $chan :Here's the info... $infosite"
-
puthelp "PRIVMSG $chan :Here's the server info... $infoserv"
-

For colors here is an example:
035your msg in here035
And you replace 5 with what collor do you want from 0 to 15, as mIRC colors.

You can use ] and [ but this depends where you are using them.

To display more lines just add more lines:

- Lines -
puthelp "PRIVMSG $chan :An line added by you where do you want."
puthelp "PRIVMSG $chan :An other line added by you where do you want."
- Lines -

This 2 lines are do display in channel. For a notice to user modify to:

- Lines -
puthelp "NOTICE $nick :An line added by you where do you want."
puthelp "NOTICE $nick :An other line added by you where do you want."
- Lines -

[Guest]

Ok, Here it is...

>How will it display the info in main chat,
>how will it posted in main chat so anyone can see it,

Code: Select all

# Enter the URL for !server info here
set infoserv "Infohere"

# Enter the URL for !site info here
set infosite "Sitehere"

bind pub - !site pub:site
proc pub:site {nick uhost hand chan text} {
 global infosite
 puthelp "PRIVMSG $chan :Here's the info... $infosite"
 putlog "$nick message me for !site"
}

bind pub - !server pub:server
proc pub:server {nick uhost hand chan text} {
  global infoserv
  puthelp "PRIVMSG $chan :Here's the server info... $infoserv"
  putlog "$nick messaged me for !server"
} 

>why can't i use ] and [,
To use ] [, you need to put a before the brackets.

Example:
[http://www.something.net]
Get the idea?

>how can i get the colors like 4mIRC
Simply put a 03(follow by the colour code)

Example:
034Colour

As for multiline, I'll try coding it for you asap

Hope it works