egghelp/eggheads community

Sorry I wrote something else.. and it was not what he wanted so I deled it



----------
ThePope

Quote ceasar..

set mask [maskhost [getchanhost $luser [strlwr $dest]]

chage it to..
Hope the helps.
-----------
ThePope

With what you have said about your problem, I did a sort file for my trivia chan and i used this method. set ofile [open $filename r] set ranks [lsort -dict -decreasing [split [gets $ofile]]] close $ofile With using this code. You will need to change the way the data is entered in the file... Meks.....

bind pub - !quote pub_quote proc pub_quote {nick mask hand channel args} { global moviequote puthelp "PRIVMSG $channel :[lindex $moviequote [rand [llength $moviequote]]]" } set moviequote { "\"You're scared of Room 237, ain't ya?. The Shining (1980)\"" "\"Som...

Hi all again.. Lost all my data, so i have started my TCL's again! Got a little problem with timers. Try to set a value to count in milliseconds until stop and changed into real time. But everytime it goes and exec it.. I get a error :cry: proc status:evnt:connect {filter} { if {![info exits $testup...

I have been looking for a way to remove the line '*** ThePope joined the party line' when a person joins the DCC partyline.

Didn't find any dcc command to turn it off and I am not sure about editing the files to do it.

Thanks for anyhelp anyone has.

------------
ThePope

Lame as much as it is.. I have been working on a like chan TCL for over botnet. linking two channels on different networks.. I am having problems with TCL exp. ({}[]) coming over the network msg. EG Network 1. [23:09] <Kissmine> testing [23:09] <Kissmine> {} [] Network 2. [23:09] <Asustek> Kissmine ...

Sorry I was talking about taking the value from the configure file and puting it into TCL... eg: proc testproc {} { global botnick puthelp "PRIVMSG ThePope :$botnick" } That will allow for me to use $botnick. BUT.. when I try and replace the $botnick with $botnet-nick. The bot crashs! proc...

Merry Xmas all and Happy New Year. Finally got some time to do some more scripting..... :) I am just making a http live stats TCL. The question that I have is mostlikly stupid, but I cant find the value. set botnet-nick "PopeOp" set botnick "PopeBot" I know how to pull the $botni...

When a nick has of course {}()_ or any of them other ones.. I have been working on my script and still cant make it take the {} from around value for the last two days.. I have come to my last idea! while {$asus_number <= [string length [lrange $msg 0 end]]} { set asus_key [string index [split $asus...

I started to write a encrption program that will work with my mirc one. But i cant get it to tell me what the number of the $chr is. Mirc. : $calc($asc($mid($1-,%enc.letter,1))+$asc($left(%key,1)) Tcl : [expr [string index [split $vasus] $asus_quest]]] + [string index [split $vasus] 0]]] But i cant ...

utimer <seconds> <tcl-command> Description: executes the given Tcl command after a certain number of seconds have passed Returns: a timerID Module: core Ok. havn't realy worked with timers much. But I will give it a go! I am not sure how many ways you can use a timer, but there is one way that I kn...

To start with you need to set where the file is on the box set file "/path/to/where/it/is" That will tell the eggdrop where the file is located, and is set to a global value but can also be done within the script too. Next is to open the file read the data and set it in a string so that yo...

foreach asus_nick [userlist] { if {[getuser $asus_nick HOSTS] == [lindex [split $text] 0]} { #do what you want it to do if the host matchs } That will do a search for all the hosts and every nick in the user file, then match it to the value you set with /msg $botnick search text. ------------ ThePope

set asus(port) "8000" bind MSG - dcc_chat asus_dcc proc asus_dcc {nick uhost hand vasus} { global asus botnick ## Do all ya check stuff here## ## ![validuser $hand] ## putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $asus(port)\001" } listen $asus(port) script asus_catch proc a...