egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-08-02T16:42:02-04:00 https://forum.eggheads.org/app.php/feed/topic/5137 2003-08-02T16:42:02-04:00 2003-08-02T16:42:02-04:00 https://forum.eggheads.org/viewtopic.php?p=24281#p24281 <![CDATA[Needing some help in converting mIRC -> TCL]]> 2. I'll try.
3. "nobody is in the mood or has time to make your scripts." <- *sigh* Sorry for asking how it's done by "volunteering experts". :-?

Statistics: Posted by Guest — Sat Aug 02, 2003 4:42 pm

]]> 2003-08-02T09:47:03-04:00 2003-08-02T09:47:03-04:00 https://forum.eggheads.org/viewtopic.php?p=24274#p24274 <![CDATA[Needing some help in converting mIRC -> TCL]]> for example second script "Anti Autojoin -kick" (I'll leave the others for you):

Code: 

#what prefix do you want to use ?set prefix "!"#code goes herebind pub n|n "${prefix}infkick" kick:nickproc kick:nick {nick uhost hand chan arg} { set vict [lindex [split $arg] 0] set rso [lindex [split $arg] 1 end] if {$vict == $::botnick} { putserv "PRIVMSG $nick :No"; return 0} #set your ban type.. lets call it $ban for example putserv "MODE $chan +b $ban" putserv "KICK $chan $vict :$rsn"} else { putserv "PRIVMSG $nick :Correct syntax: $::{prefix}infkick <target> <reason>"}
try to understand it, then do the other scripts... cuz nobody is in the mood or has time to make your scripts.

Statistics: Posted by Sir_Fz — Sat Aug 02, 2003 9:47 am

]]> 2003-08-02T08:16:36-04:00 2003-08-02T08:16:36-04:00 https://forum.eggheads.org/viewtopic.php?p=24272#p24272 <![CDATA[Needing some help in converting mIRC -> TCL]]> ) These mIRC scripts are in beta because I planned them for my friend and suddenly got one shell -account to run eggdrop in. You'll get the poin what it should do.
Oh, and I started to study TCL -scripting about two days ago, so...

1. Prefix'o'matic

Code: 

on 1600:text:*prefix*:#: {  if ($1 == %prefix $+ prefix ) {    set %prefix $2  }  else { halt }  halt}
This code sets the prefix of all chancommands. (it's usualy "!") 1600 means owner. I don't actualy know how "$+" should be done.

2. Anti Autojoin -kick

Code: 

on 1600:text:*infkick*:#: {  if ($1 == %prefix $+ infkick) {     if ($2 == $me) { /msg $nick No. | halt }    /ban $chan $2 -u3    /msg $2 Anti autojoin -kick (3 sec ban)    /kick $chan $2 $3- (Infernal Kick)    set %last.command infkick $2 | set %last.user $nick  }  else { /msg $nick Correct syntax: %prefix $+ infkick <target> <reason> }  halt}
This script first checks if prefix is right, then if it's going to kick himself, (witch it prevents) bans the target for 3 secs, sends some spam to the target, kicks the target, sets %last.command and %last.user. As I test this while i write, the un-ban needs some coding to work. You still got the point.

3a. Silent Night on/off

Code: 

on 1600:text:*silentnight*:#certain.channel:{  if ($1 == %prefix $+ silentnight) {    if ($2 == on) { .set %silentnight on | mode $chan +m | .msg $chan 4Silent night activated, stfu or get kicked! | set %last.command silentnight on | set %last.user $nick | halt }    if ($2 == off) { .set %silentnight off | mode $chan -m | .msg $chan 4Silent night deactivated. | set %last.command silentnight off | set %last.user $nick | halt }  }  else { halt }}
Sets Silent night on or off and sets +/-m to that channel in addition to normal prefix -checks ect.

3b. Silent Night scan

Code: 

on 1:text:*:#certain.channel: {  if ($nick == negu) { halt }  if ($nick == Svir) { halt }  if (%silentnight == on) { kick $chan $nick Stfu! }  else { halt }}
Nothing special here. Just kicks people if they speak when Silent Night is on.

-------------------------------------------
There is lots of other small scripts, but maby these will help me to start understanding tcl enough to convert 'em myself.
Sorry for possible bad english :wink:

Statistics: Posted by Guest — Sat Aug 02, 2003 8:16 am

]]>