This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Search found 64 matches

by spyda
Tue Sep 22, 2020 3:20 pm
Forum: Script Requests
Topic: setting ban on msg followed by quit
Replies: 26
Views: 12228

Try this, my mistakes. bind PUBM - * pub:spam bind CTCP - ACTION ctcp:spam bind PART - * part:spam bind SIGN - * sign:spam array set spamlist {} proc pub:spam {nick uhost hand chan txt} { global spamlist set ::spamlist($chan,$nick) [unixtime] } proc ctcp:spam {nick uhost hand chan key txt} { global ...
by spyda
Tue Sep 22, 2020 2:33 pm
Forum: Script Requests
Topic: setting ban on msg followed by quit
Replies: 26
Views: 12228

Quickly coded, not fully tested. (Eggdrop 1.8.x with tcl 8.6) See if that works the same as the mirc code, script to my translation (mirc rusty) bind PUB - * pub:spam bind CTCP - ACTION ctcp:spam bind PART - * part:spam bind SIGN - * sign:spam proc pub:spam {nick uhost hand chan txt} { global spamli...
by spyda
Wed Feb 02, 2005 6:21 am
Forum: Archive
Topic: problem with evnt init-server [bracet error solved]
Replies: 3
Views: 2131

try a RAW bind

Code: Select all

bind RAW - 001 do:connection
001 = connection to IRCD

Hope that helps :)
by spyda
Sat Jan 29, 2005 11:19 am
Forum: Archive
Topic: blank spaces in DCC CHAT
Replies: 6
Views: 2536

[format value arg]

Thanx for the reply egghead.. Can you just give me a example on how I can add spaces to the start of the value using format. I worked on it to much that I give up and went searching. I found out that when it comes to mirc and dcc, any spaces that I add to the start of the value gets taken out. :( Th...
by spyda
Sat Jan 22, 2005 9:21 pm
Forum: Archive
Topic: blank spaces in DCC CHAT
Replies: 6
Views: 2536

blank spaces in DCC CHAT

I have been playing with a script that uses a DCC CHAT windows for all the game operations.... What I have had problem with is indenting clear spaces. [asustek] Enjoy you stay and always play nice :) [asustek] [asustek] [asustek] Genral Commands [asustek] -roll | Roll the dice [asustek] -quit | Quit...
by spyda
Mon Dec 20, 2004 4:36 am
Forum: Archive
Topic: mysqltcl problem
Replies: 5
Views: 2331

might help you

I had a sorta same problem with fedora..

I used this lines

Code: Select all

pkg_mkIndex /usr/local/lib/mysqltcl-2.51
lappend auto_path /usr/local/lib/mysqltcl-2.51
package require mysqltcl 2.51
Hope that helps you with mysqltcl.

------------
ThePope
by spyda
Wed Jun 23, 2004 2:38 am
Forum: Archive
Topic: trivia sql
Replies: 8
Views: 4747

trivia sql

Designing a trivia bot that will work with mysql. Dont know much about how sql works, but know enough to do what I want. Question is... Cause of all the data being stored on the same box the eggdrop is running from, that it is ok to connect to mysql on game start and d/c on stop(kick, split). Only r...
by spyda
Sun Apr 11, 2004 6:35 pm
Forum: Archive
Topic: How to delete a value in a variable?
Replies: 5
Views: 1519

this might help :)

You can use a few types of code. bind PUB - !remove remove:name proc remove:name {nick uhost hand chan text} { global avail #### Any check you need in here #### set who [lindex [split $text] 0] set newavail "" foreach takeout [split $avail] { if {[string match $takeout $who]} { set removed...
by spyda
Fri Nov 21, 2003 2:53 am
Forum: Archive
Topic: mIRC script to TCL
Replies: 12
Views: 3346

I might be able to help.

Email me a copy of the full script.. I will give it a try.
Done some conversons for my mates before :)

asustek@optusnet.com.au
------------
ThePope
by spyda
Fri Nov 21, 2003 2:51 am
Forum: Archive
Topic: Help Coding GotFrag TCL
Replies: 14
Views: 3280

Wrong Subject

Sorry

------------
ThePope
by spyda
Mon Nov 17, 2003 1:57 am
Forum: Archive
Topic: faster bind time??
Replies: 1
Views: 980

set looptimer "15" if {[utimerexists do:timer] != ""} {killutimer $doagain} proc do:timer {} { global looptimer if { do.what.you.what.here..... } set doagain [utimer $looptimer do:timer] } set doagain [utimer $looptimer do:timer] Hope that starts you. ------------ ThePope
by spyda
Wed Nov 05, 2003 1:32 am
Forum: Archive
Topic: Trivia.tcl
Replies: 4
Views: 1228

Trivia.tcl

At the TOP of the TCL file... There is a option to set the refresh setting..

Code: Select all

#  How often (in seconds) does the html file get updated. Set to 0
#  to disable HTML page.
set tghtmlrefresh 0
Hope that helps..
------------
ThePope
by spyda
Sat Nov 01, 2003 11:37 pm
Forum: Archive
Topic: what is wrong with this script?
Replies: 12
Views: 2706

tcl.commands

PUB bind pub <flags> <command> <proc> procname <nick> <user@host> <handle> <channel> <text> Description: used for commands given on a channel. The first word becomes the command and everything else is the text argument. Module: irc Found the in tcl-commands.doc (/eggdrop/docs/) mkluin #Anaroch's in...
by spyda
Tue Sep 23, 2003 4:45 am
Forum: Archive
Topic: is it possible to show window Uptime on channel ??
Replies: 11
Views: 3463

status.tcl

I released a uptime and statistics script in the egghelp tcl's

status.TCL v1.0.1

or

Code: Select all

unix uptime -  catch {exec uptime} boxuptime 
windows uptime - [duration [expr [clock clicks] / 1000]]
Hope that helps

------------
ThePope
by spyda
Fri Sep 19, 2003 8:52 pm
Forum: Archive
Topic: Why this not working ???
Replies: 0
Views: 504

Why this not working ???

I am working on a update to my status.tcl and for some reason in the live update i am not getting the right information :( proc stats:opcount {chan} { set userops 0 putlog "$chan" foreach person [chanlist $chan] { if {[isop $person $chan] && ![isvoice $person $chan]} { incr userops...