egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-04-07T02:43:35-04:00 https://forum.eggheads.org/app.php/feed/topic/11624 2006-04-07T02:43:35-04:00 2006-04-07T02:43:35-04:00 https://forum.eggheads.org/viewtopic.php?p=61712#p61712 <![CDATA[Slap with subject read from file]]>

Code: 

set slap "./slap.txt"set slapmsg [string range [randomline $slap] 0 end]# Insert your own procedure.proc randomline { filename } {  set position [rand [expr [file size $filename] - 1024]]  set fd [open $filename r]  catch {    seek $fd $position    set text [read $fd 1024]  }  close $fd  set lines [split $text \n]  set lineno [randrange 1 [expr [llength $lines] - 1]]  return [lindex $lines $lineno]}
Of course you'd have already created "slap.txt" in the ~scripts folder and inserted your own custom messages.

Statistics: Posted by Alchera — Fri Apr 07, 2006 2:43 am

]]> 2006-04-06T23:45:35-04:00 2006-04-06T23:45:35-04:00 https://forum.eggheads.org/viewtopic.php?p=61707#p61707 <![CDATA[Slap with subject read from file]]>

Code: 

bind pub o- .slap slap:targetproc slap:target {nick uhost hand chan arg} {set target "[lindex [split $arg] 0]" ; set reason "[join [lrange [split $arg] 1 end]]"putserv "PRIVMSG $chan :\001ACTION slaps $target around with a hord of bots!! $reason\001"}
Is there anyway I could make it read from a file containing various stuff for the slap subject?
I mean if I type .slap nick around with <the stuf from the file>
it would then read from a file random.

Statistics: Posted by starpossen — Thu Apr 06, 2006 11:45 pm

]]>