easy tcl:)

roller · Post by **roller** » Sat May 08, 2004 9:29 am

i think its easy for you..

when i type !xy then the bot says yx to #chan1 and #chan2 rooms. Thnx!

roller · Post by **roller** » Sat May 08, 2004 9:38 am

oh, ive got 1 more request, sorry:)

--
!xy then the bot random choose a line from msg.txt and say it to the chan
--

thnx;)

Ofloo · Post by **Ofloo** » Sat May 08, 2004 11:31 am

next time look true the forum first

Code: Select all

bind pub - !xy xy:pub

proc xy:pub {nick host hand chan arg} {
  set rfile [open filename.txt r]
  while {![eof $rfile]} {
    gets $rfile line
    putserv "PRIVMSG $nick :$line"
  }
  close $rfile
}

this wil read every file and output it to the channel

Ofloo · Post by **Ofloo** » Sat May 08, 2004 11:36 am

and i think thats ur second request

Code: Select all

bind pub - !xy xy:pub 

proc xy:pub {nick host hand chan arg} { 
  set rfile [open filename.txt r]
  set randline [rand 5]; # [rand <totallines number>] change it 
  while {![eof $rfile]} {
    gets $rfile line 
    if {[info exists i]} {
      incr i
      if {$i == $randline} {
        putserv "PRIVMSG $nick :$line" 
      }
    } else {
      set i 0
      if {$i == $randline} {
        putserv "PRIVMSG $nick :$line" 
      }
    }
  } 
  close $rfile 
}

Ofloo · Post by **Ofloo** » Sun May 09, 2004 10:35 am

or you can use switch and set the like the contents in ur tcl like 8bal game or something ..