egghelp/eggheads community

My PCW scripts

2008-03-11T14:33:04-04:00

the thing is that I have been given some help around in different irc channels, someone posted me a simple way of displaying text and that was obviously through http

feel free to post "corrections" which will help!

and I will be using puthelp instead

Statistics: Posted by to2 — Tue Mar 11, 2008 2:33 pm

My PCW scripts

2008-03-11T14:19:12-04:00

Use puthelp instead of putserv, then it won't flood. Also, since you're sending notices to the nick $n, the only thing to worry about is exceeding sendq, not necessarily channel flooding.

Statistics: Posted by rosc2112 — Tue Mar 11, 2008 2:19 pm

My PCW scripts

2008-03-11T13:31:01-04:00

Wait, if you access the file at "/home/to2/website/pw.txt", why do you use the http package?

That seems horribly silly to me.

Statistics: Posted by metroid — Tue Mar 11, 2008 1:31 pm

My PCW scripts

2008-03-11T10:34:50-04:00

Hi all! the scripts is working great and all as for now. What I would like is some feedback on i.e. excess flood if the script is used to often and so on.

The script is used as follows:
Gamers seeking war and HAVE server use the !addpcw command
Gamers seeking war WITHOUT server use "!listpcw" which will display the last 10 entrys to "!addpcw", using notice from my egg (this is where I an afraid of excess flood if the script is used very often)

First the "addpcw" script:

Code:

set minkanal "#clan-war"bind pub - !addpcw addpcwmsgproc addpcwmsg {n u h c t} {######global minkanal if {[string tolower $c] != $minkanal} {    putserv "NOTICE $n : Join #Clan-War to get full use of the seek and add Clan-War features!"    return 0}###### set filename "/home/to2/website/pw.txt" set fid [open $filename "a"] puts $fid "$n: Have Server! $t" close $fid puthelp "NOTICE $n :Your PCW:  have been added."}

and second the "listpcw" script:

Code:

package require httpset minkanal "#clan-war"bind pub - !listpcw listplayersproc listplayers {n u h c t} {######global minkanalif {[string tolower $c] != $minkanal} {    putserv "NOTICE $n : Join #Clan-War to get full use of the seek and add Clan-War features!"    return 0}######set x [::http::geturl http://localhost/pw.txt]set lines [lrange [split [::http::data $x] \n] end-9 end]foreach e $lines {puthelp "NOTICE $n :$e"}::http::cleanup $x}

Thanks in advance for all useful feedback! ^^

Statistics: Posted by to2 — Tue Mar 11, 2008 10:34 am