egghelp/eggheads community

Need script: messages

2006-04-25T10:41:00-04:00

Can You make that user couldn't write only !zinute without text (bot would notice - Please use !zinute ), and if user tries to write second message in < 20s bot would notice - You can write only 1 message in 20s. Thanks. It would be great...

Statistics: Posted by [Lt]im — Tue Apr 25, 2006 10:41 am

Need script: messages

2006-04-21T19:34:22-04:00

Thank You.

Statistics: Posted by [Lt]im — Fri Apr 21, 2006 7:34 pm

Need script: messages

2006-04-21T18:51:34-04:00

Code:

set admin_chan "#chans"set public_chan "#chan"bind pub - !zinute pub:admproc pub:adm {nick uhost hand chan arg} { global admin_chan public_chan didcmd if {![info exists didcmd([set nick [string tolower $nick]])] || [unixtime]-$didcmd($nick) > 20} {  set didcmd($nick) [unixtime] } {return 0} if {[string equal -nocase $public_chan $chan]} {  putquick "privmsg $admin_chan :\002!!\002 Zinute adminams \002!!\002 \002$nick\002: $arg"  putquick "notice $nick :\002Jusu zinute sekmingai nusiusta CS:S Geras administratoriams.\002" }}

Statistics: Posted by Sir_Fz — Fri Apr 21, 2006 6:51 pm

Need script: messages

2006-04-21T18:34:36-04:00

Anyone?

Statistics: Posted by [Lt]im — Fri Apr 21, 2006 6:34 pm

Need script: messages

2006-04-20T07:45:26-04:00

Thank You

I need some more help. I have the code:

Code:

set admin_chan "#chans"set public_chan "#chan"bind pub - !zinute pub:adm proc pub:adm {nick uhost hand chan arg} { global admin_chan global public_chanif {[string equal -nocase $public_chan $chan]} {   putquick "privmsg $admin_chan :\002!!\002 Zinute adminams \002!!\002 \002$nick\002: $arg"  putquick "notice $nick :\002Jusu zinute sekmingai nusiusta CS:S Geras administratoriams.\002"  }  }

I want that user could only use this comand once in 20 seconds. Can You help me?

Statistics: Posted by [Lt]im — Thu Apr 20, 2006 7:45 am

Need script: messages

2006-04-19T18:08:53-04:00

Changing utimer to timer wouldn't be a solution. If you want it in minutes, then instead of

Code:

set msgtime 5

use

Code:

set msgtime !5

But the code should be fixed:

Code:

set msgchans #channelset msgtime 5set msgtext { "text 1" "text 2" "text 3"}if {[string index $msgtime 0] == "!"} { set msgtime [expr {60*[string trim $msgtime !]}] }if {[lsearch [utimers] "* go *"] == -1} { utimer $msgtime go }proc go {} { global msgchans msgtime msgtext msgindex set length [llength $msgtext] if {![info exists msgindex] || $msgindex == $length} { set msgindex 0 } foreach chan $msgchans {  putserv "privmsg $chan :[lindex $msgtext $msgindex]" } incr msgindex timer $msgtime go}

the ! should be trimmed.

Statistics: Posted by Sir_Fz — Wed Apr 19, 2006 6:08 pm

Need script: messages

2006-04-19T09:46:19-04:00

Thank You. It's working.

Statistics: Posted by [Lt]im — Wed Apr 19, 2006 9:46 am

Need script: messages

2006-04-19T03:25:36-04:00

Code:

set msgchans #channelset msgtime 5set msgtext { "text 1" "text 2" "text 3"}if {[string index $msgtime 0] == "!"} { set msgtime [expr {60*$msgtime}] }if {[lsearch [utimers] "* go *"] == -1} { utimer $msgtime go }proc go {} { global msgchans msgtime msgtext msgindex set length [llength $msgtext] if {![info exists msgindex] || $msgindex == $length} { set msgindex 0 } foreach chan $msgchans {  putserv "privmsg $chan :[lindex $msgtext $msgindex]" } incr msgindex timer $msgtime go}

Would probably work as you want it too.
Don't forget to replace the text1, text2, text3 with whatever you want.

Statistics: Posted by metroid — Wed Apr 19, 2006 3:25 am

Need script: messages

2006-04-18T12:54:13-04:00

When i tested your tcl i got error:

Code:

[19:52:38] * Joins: CssGeras (improx@plieninis.tiltas.lt)[19:52:49]  text 1[19:52:51] * ChanServ sets mode: +o CssGeras[19:52:56]  text 2[19:52:58]  text 3[19:53:11]  text 1[19:53:13]  text 2[19:53:15]  text 3...

Where is the problem? He is allways writing these 3 lines

Statistics: Posted by [Lt]im — Tue Apr 18, 2006 12:54 pm

Need script: messages

2006-04-18T12:38:47-04:00

Code:

set msgchans #channelset msgtime 5set msgtext { "text 1" "text 2" "text 3"}if {[string index $msgtime 0] == "!"} { set msgtime [expr {60*$msgtime}] }if {[lsearch [utimers] "* go *"] == -1} { utimer $msgtime go }proc go {} { global msgchans msgtime msgtext msgindex set length [llength $msgtext] if {![info exists msgindex] || $msgindex == $length} { set msgindex 0 } foreach chan $msgchans {  putserv "privmsg $chan :[lindex $msgtext $msgindex]" } incr msgindex utimer $msgtime go}

Statistics: Posted by Sir_Fz — Tue Apr 18, 2006 12:38 pm

Need script: messages

2006-04-18T11:32:58-04:00

I have a script:

Code:

set channel "#chan"set time 5set text {"YOUR TXT""YOUR TXT2""YOUR TXT3"}if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }proc go {} {global channel time text timerforeach chan $channel {foreach line $text { putserv "PRIVMSG $chan :$line" }}if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }}

Bot writes all 3 messages every 5 mins.
But i want taht bot would write only 1 message.
For example: first text1, then after 5 mins text2, then text3,... and again text1... Can anyone help me?

Statistics: Posted by [Lt]im — Tue Apr 18, 2006 11:32 am