egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2016-07-14T01:12:14-04:00 https://forum.eggheads.org/app.php/feed/topic/20189 2016-07-14T01:12:14-04:00 2016-07-14T01:12:14-04:00 https://forum.eggheads.org/viewtopic.php?p=105250#p105250 <![CDATA[mrc to tcl]]> string match wasn't getting the proper result due to the elements order. Now it's fixed and should work as expected.

Code: 

* Rejoined channel #help<@bot> bot banned *!*@*.users.undernet.org on #mainchan 2 minutes 12 seconds ago<@bot> bot banned caesar!*@* on #mainchan 4 seconds ago
where the #mainchan had two bans: *!*@*.users.undernet.org and caesar!*@*

Apart the order I also added:

Code: 

set bywho [lindex [split $bywho "!"] 0]
cos as it previously was, the result would have been the entire address and not just the nick of the person setting the ban, for example:

Code: 

<@bot> bot!bot@hidden.host banned *!*@*.users.undernet.org on #mainchan 4 minutes 24 seconds ago
if you wish to have this rather than the nick then remove the above mentioned line from the code.

Statistics: Posted by caesar — Thu Jul 14, 2016 1:12 am

]]> 2016-07-13T15:49:59-04:00 2016-07-13T15:49:59-04:00 https://forum.eggheads.org/viewtopic.php?p=105249#p105249 <![CDATA[..]]> Statistics: Posted by albozz — Wed Jul 13, 2016 3:49 pm

]]> 2016-07-14T01:09:35-04:00 2016-07-13T11:36:18-04:00 https://forum.eggheads.org/viewtopic.php?p=105248#p105248 <![CDATA[mrc to tcl]]>

Code: 

namespace eval banCheck {set setup(help) "#help"set setup(main) "#mainchan"set setup(message) "%bywho banned %ban on %channel %when ago"   set setup(duration) {604800 {" week" " weeks"}86400 {" day" " days"}3600 {" hour" " hours"}60 {" minute" " minutes"}1 {" second" " seconds"}}   # don't edit past this line unless you know what you are doingbind join * * [namespace current]::checkproc check {nick uhost hand chan} {variable setupif {[isbotnick $nick] || ![string equal -nocase $setup(help) $chan]} returnif {![validchan $setup(main)] || ![botonchan $setup(main)]} returnset chanbans [chanbans $setup(main)]set mask "$nick!$uhost"foreach {ban bywho age} [join $chanbans] {if {[string match -nocase $ban $mask]} {set when [elapsedTime $age]set bywho [lindex [split $bywho "!"] 0]set message [string map [list "%bywho" $bywho "%ban" $ban "%channel" $setup(main) "%when" $when] $setup(message)]puthelp "PRIVMSG $chan :$message"}}}   # user's awesome duration http://forum.egghelp.org/viewtopic.php?p=79046#79046proc elapsedTime {time} {variable setupforeach {secs names} $setup(duration) {if {$time<$secs} continueset val [expr {$time/$secs}]lappend out $val[lindex $names [expr {$val!=1}]]if {![incr time [expr {-$val*$secs}]]} break}join $out}}
If i got this right with my limited knowledge of mIRC's scripting language then give this a try cos i haven't done any testing what so ever so let me know if dose/doesn't do what you asked for. :)

Feel free to change the message or the order of the words as you please as long as you keep the %variable as is and it will be replaced with the actual value.

Edit: Fixed.

Statistics: Posted by caesar — Wed Jul 13, 2016 11:36 am

]]> 2016-07-13T06:39:34-04:00 2016-07-13T06:39:34-04:00 https://forum.eggheads.org/viewtopic.php?p=105247#p105247 <![CDATA[mrc to tcl]]>

Code: 

on *!:join:#help:{  var %n = 1, %chan = #mainchan  while ($ibl(%chan,%n)) {    var %b = $ifmatch    if (%b iswm $fulladdress) msg #help  $nick  has banned on #mainchan  from $gettok($ibl(%chan,%n).by,1,33) For $duration($calc($ctime - $ibl(%chan,%n).ctime)) Adress: ( %b )    inc %n  }}
Anyone can help me to make it tcl for egg?

Statistics: Posted by albozz — Wed Jul 13, 2016 6:39 am

]]>