!list

quiki · Post by **quiki** » Thu Dec 11, 2003 7:06 am

I need a tcl that types messages when they type:
!list in the channel.
Could someone help me out please

Post by **CrazyCat** » Thu Dec 11, 2003 7:36 am

wich messages?

quiki · Post by **quiki** » Thu Dec 11, 2003 7:39 am

A commercial for shells. Like when they type !list, a list of shells turns up.

Post by **CrazyCat** » Thu Dec 11, 2003 7:44 am

CrazyCat wrote:wich messages?

Wich kind of message: where are they stored? file, internal variable, web page?

quiki · Post by **quiki** » Thu Dec 11, 2003 7:47 am

The messeges just need to be in the tcl like this:
"Commercial nr 1, line nr 1"
"Commercial nr 2, line nr 2"

In this way I just edit the list.tcl and .rehash the bot when I update the tcl

Post by **CrazyCat** » Thu Dec 11, 2003 8:09 am

I'll give you a small tcl to do this, but it's so simple that you'd better use it to learn tcl...

Code: Select all

set mychan "#channel"
set mylist {
"my first line, really beautifull"
"my second line, it's awfull"
...
...
"the last line? well done"
}

bind pub - "!list" read:shells

proc read:shells {nick uhost handle chan args} {
   global mychan mylist
   if {[string tolower $chan] != [string tolower $mychan] } { return 0 }
   foreach line $mylist {
      puthelp "PRIVMSG $mychan :$line"
   }
   return 1
}

quiki · Post by **quiki** » Thu Dec 11, 2003 9:15 am

Ok, thx man!