from mirc.ini to eggdrop.tcl help

[BLASSON]

i kinda need help with converting my mirc bot script to an eggdrop bot. i dont know TCL at all, and dont have time right now to learn it with school and all.

Code: Select all

on *:TEXT:*:*:{
  if ($1 == -assign) { invite $me $2 | join $2 | notice $nick I am now monitoring $2 for you, for a list of commands type -cmds | timersop 1 3 os raw mode $2 +a $me } 
  if ($1 == -unassign) { part $2 | notice $nick I am not monitoring $2 for you anymore $nick $+ . | notice $nick To re-assign me type /msg BLASSON -assign #chan | part $2 Help! I'm being unassigned by $nick $+ ! }
 

there is 2 lines, basically how the entire thing is.. some guy told me it is basic tcl stuff and told me it shouldn't be too hard to do. ill give anyone a free ssh acct if they help me out. just as long as you keep it clean :-p. Thanks.

[user]

Hi there mr. attitude problem. How about telling us what the script does instead of assuming everybody knows that mirc crap? Or do you want the tcl version to behave just as stupid as the mirc version? (parting twice, no sanity checks etc...)

[BLASSON]

WTF? how do i have an attitude with that last message? i asked a simple question. (i mean.. i had a freikin ":-p". To me that is a sign of being nice, and joking) Your the only idiot with an attitude. So STFU. Thanks. Appreciate it. I can careless if your the "owner". I did nothing to get treated that way. What comes around goes around. Remember that. (not a threat, i mean in the way of if you talk to me that way, ill do it back. So please don't be surprised if im not the only one.

[user]

WTF? how do i have an attitude with that last message? i asked a simple question. (i mean.. i had a freikin ":-p". To me that is a sign of being nice, and joking) Your the only idiot with an attitude. So STFU. Thanks. Appreciate it. I can careless if your the "owner". I did nothing to get treated that way. What comes around goes around. Remember that. (not a threat, i mean in the way of if you talk to me that way, ill do it back. So please don't be surprised if im not the only one.

That's what i'm talking about (you stopped by an irc channel i'm on yesterday) You don't seem that eager to solve your problem, because you spend far more time talking about how everybody else are idiots etc.

[BLASSON]

oh ok. so posting in 3 forums, going to irc channels isnt eager to get my problem solved? i WILL NOT sit there and let someone talk [censored] to me. I am not a lil bi**h and take that stuff. If you don't like me, Like what i do, then DON'T worry about me. thanks.

P.S. you ARE an idiot.

[awyeah]

Remember:
We do not help you just because you need help, or for the sake of it, nor do you pay us we only do it if we have free time.

mIRC scripting is crap and bullshit for what I would say, because it cannot be utilized anywhere else other than in mIRC itself, but tcl can be so its basically of no use to me. It has all the functions avaliable and defined in the library you just have to make use of them nothing big.

user:
$1/$parm1 is like [lindex $text 0]
$2/$spam2 is like [lindex $text 1]

Here's the translated code. Although the logic seems sucky, but then again I don't care, it's been translated into TCL.

Code: Select all

#Usage: -assign|-unassign <#channel>

Code: Select all

bind msg - "-assign" assign
bind msg - "-unassign" unassign


proc assign {nick uhost hand text} {
 global botnick
 if {([lindex $text 0] != "") && ([string equal "#" [string index [lindex $text 0] 0]])} {
  putserv "INVITE $botnick [string tolower [lindex $text 0]]"
  putserv "JOIN [string tolower [lindex $text 0]]"
  putserv "NOTICE $nick :I am now monitoring [string tolower [lindex $text 0]] for you, for a list of commands type -cmds"
  #timersop 1 3 os raw mode $2 +a $me
  #what does this do, huh?
   return 0
  }
}

proc unassign {nick uhost hand text} {
 global botnick
 if {([lindex $text 0] != "") && ([string equal "#" [string index [lindex $text 0] 0]])} {
  putserv "PART [string tolower [lindex $text 0]]"
  putserv "NOTICE $nick :I am not monitoring [string tolower [lindex $text 0]] for you, anymore $nick."
  putserv "NOTICE $nick :To re-assign me type /msg $botnick -assign #chan"
  putserv "PART [string tolower [lindex $text 0]] Help I'm being unassigned by $nick!"
   return 0
  }
}

[BLASSON]

i understand that about the mirc, tcl stuff. that is why i want to get it converted :-p, but thanks for being kind and not rude like that other guy. appreaciate it. Thanks. Have a nice day. i have seen you help others on ALOT of other posts. keep up the good work.

[awyeah]

By the way, if you are looking for a script which makes the bot join a channel and part a channel, you need to add that channel to the channel list to make it monitor it and remove it from the list to make the bot leave that channel.

Take a look at this:
(binds on private messages /msg)

http://forum.egghelp.org/viewtopic.php?t=7349

[BLASSON]

Yea. well. i have more lines (like 35-40) but i dont think you would want to do all that? lol. it is basically the same way as the other two you just did for me. but. i dont want to flood this forum if noone will do it. If you dont mind and have free time, i CAN/WILL post it for you and for everyone that would like to have it. I dont mind sharing :-p. thanks in advanced

[YooHoo]

Yea. well. i have more lines (like 35-40) but i dont think you would want to do all that? lol. it is basically the same way as the other two you just did for me. but. i dont want to flood this forum if noone will do it. If you dont mind and have free time, i CAN/WILL post it for you and for everyone that would like to have it. I dont mind sharing :-p. thanks in advanced

I think this type of topic, mirc script conversion, bites I believe it would be better for everyone if instead of asking for a mirc script to be converted (which is inexact, time consuming, and a general pain in the keester ) but rather just request the functions/commands/output/ect desired... it truly would benefit all, since as user pointed out, not all of us use mirc, nor care to learn its 1,000,000 special scripting rules that to me seem like they are coming straight out as Martian Standard ffs, i still don't know what that damn script is really supposed to do.....

[awyeah]

It binds on text, meaning in tcl binding on a pub trigger, bind pub.
Wildcard * is specified so it can be a channel or a private message. # specifies a channel and ? a private message.

$1 = Public trigger
$2 = [lindex $arg 0]
$me = $botnick

Rest I hope you can determine yourself, heh.

[BLASSON]

http://irc.bum-fight-krew.com:8080/services.ini

That is the full script. Could anyone translate that to a .tcl?

[awyeah]

19kb file? Woah. Even that is zipped (wonder how much would it be when unzipped).

Sorry dude I don't have so much free time to write a 20kb script that also from translation from mIRC to tcl. If you would consider giving something to someone for the translation, then people *might* think about it!

[BLASSON]

zippped? That isn't zipped.. it's a regular .ini file for mirc and like 1/10th of it is ";;;;;;;;;;;;;;;" to divite some of the sections....

[Alchera]

A suggestion; learn TCL and do it yourself. There are enough links on this site pointing to all the information you need.