tcl

[Corlet]

Right, i'm not lazy, just dont have alot of time. Just i created a script for an eggdrop, but i did it in irc script, not in tcl. So the question is, is anyone willing to convert it inot tcl for me, as i dont know the language, and yes i would do it, if i knew it and had the time to do it. I expect most of you to say no, but must be atleast one kind person who would do this for me.

on *:text:rastabot:#:/msg $chan ya mon
on *:text:*hello rastabot:#:/msg $chan peace
on *:text:*lo rastabot:#:/msg $chan peace
on *:text:*hi rastabot:#:/msg $chan peace
on *:text:*hey rastabot:#:/msg $chan peace
on *:text:*where do you live*:#:/msg $chan in da good land of jamaica
on *:text:*you smell rastabot*:#:/msg $chan only of ganja
on *:text:*u smell rastabot*:#:/msg $chan only of ganja
on *:text:*how do you smoke yours*:#:/msg $chan in a fat blunt
on *:text:*joint*:#:/msg $chan i could do with a joint right now
on *:invite:#:/join $chan | /timer 1 3 /describe $chan skins up and passes the joint around in $chan
on *:text:*weed*:#:/describe $chan sniffs around..... | /timer 1 2 /msg $chan ok, whos got a bag of ganja.... hand it over
on *:text:*bong*:#:/msg $chan bongs are the [censored], you see my 8 ft bong
on *:text:*website*:#:/msg $chan someone say website? hmmmm www.tokeonthis.co.uk
on *:text:*rastabot say*:#:/msg $chan $3-
on *:action:steels rastabots ganja:#:/msg $chan oi $nick give me my ganja back
on *:action:is goin to steel rastabots ganja:#:/describe $chan wags finger at $nick
on *:text:*bb rastabot*:#:/msg $chan peace
on *:text:*nn rastabot*:#:/msg $chan peace
on *:text:*i want a rastabot*:#:/msg $chan go to #tokeonthis to find out how to get me in your channel
on *:text:*how do i get a rastabot*:#:/msg $chan go to #tokeonthis to find out how to get me in your channel
on *:text:*how do you get a rastabot*:#:/msg $chan go to #tokeonthis to find out how to get me in your channel
on *:text:*how do u get a rastabot*:#:/msg $chan go to #tokeonthis to find out how to get me in your channel
on *:text:*where do u get the rastabot from*:#:/msg $chan go to #tokeonthis to find out how to get me in your channel
on *:text:*where do you get the rastabot from*:#:/msg $chan go to #tokeonthis to find out how to get me in your channel
on *:text:*where did u get the rastabot from*:#:/msg $chan go to #tokeonthis to find out how to get me in your channel
on *:text:*where did you get the rastabot from*:#:/msg $chan go to #tokeonthis to find out how to get me in your channel
on *:text:*herb*:#:/msg $chan i smoke da herb
on *:text:*mashed*:#:/msg $chan mashed? get some more precious herb into your lungs
on *:action:steels rastabots weed:#:/msg $chan oi $nick give me my weed back
on *:action:is goin to steel rastabots weed:#:/describe $chan wags finger at $nick
on *:action:is gunna steel rastabots weed:#:/describe $chan wags finger at $nick
on *:action:steels rastabots ganja:#:/msg $chan oi $nick give me my ganja back
on *:action:is goin to steel rastabots ganja:#:/describe $chan wags finger at $nick
on *:action:is gunna steel rastabots ganja:#:/describe $chan wags finger at $nick
on *:text:*marley*:#:/msg $chan marley is me main mon
on *:text:*!time*:#:/msg $chan who needs time when you live in jamaica, when everyday is a good day
on *:text:*ganja*:#:/msg $chan of all the words for ganja, this be me favourite
on *:text:*cannabis*:#:/msg $chan cannabis is the root of all that is good
on *:text:*marijuana*:#:/msg $chan give me hope joanna
on *:text:*copy*:#:/msg $chan monkey see, monkey do
on *:text:*effort*:#:/msg $chan One coco full basket
on *:text:*toke it*:#:/msg $chan if you can toke it..... smoke it www.tokeonthis.co.uk
on *:text:*tokeit*:#:/msg $chan if you can toke it..... smoke it www.tokeonthis.co.uk
on *:text:*smoke*:#:/describe $chan skins up another joint | /describe admires tokeonthis.co.uk as he smokes
on *:text:*:?:/describe $nick is to busy smoking a fat blunt, go to #tokeonthis for more info
on *:text:*rastabot smells*:#:/msg $chan only of ganja

[^DooM^]

First of all this post should of been in the TCL help or Script request section. So yes you are lazy for not reading the forum rules.

Code: Select all

bind  pub   -   theword  theproc
proc theproc {n u h c t} {
putserv "PRIVMSG $c :blah blah blah"
}

Here is a simple script on the trigger 'theword' it calls theproc procedure and prints 'blah blah blah' to the channel the !trigger was typed in. Add as many as you need. Be warned tho that anyone can use this command and therefor if a lot of people all at once decide to hammer your bot with all the commands it uses it could flood your bot. If you want only ops that are in your bots userlist to have access to this command change the - in the bind to o|o

[De Kus]

I would suggest to keep you binds at a reasonable amount to structure the proc like that:

Code: Select all

bind pubm - * theproc
proc theproc {n u h c t} {
  switch -glob -- $t {
    "*first match" -
    "*first match alternate" {puthelp "PRIVMSG $c :first text"}
    "*second match" {puthelp "PRIVMSG $c :second text"}
  }
}

for actions, you have to use:
bind ctcp - ACTION theproc2
and put them via:
puthelp "PRIVMSG $c :\001ACTION is cool\001"

refer http://www.tcl.tk/man/tcl8.4/TclCmd/ and the TCL-Commands.doc for more informations about the commands. Believe me, looking for 2min into these will help you faster than waiting for replys on the board.