script to capture ip addresses and return with command

2010-10-03T23:53:17-04:00

I have this script in .mrc language

Code:

on *:TEXT:*189.*:#: {  set %ipset $1-  set %ipnick $nick  set %iptime $time}on *:TEXT:*200.*:#: {  set %ipset $1-  set %ipnick $nick  set %iptime $time}on *:TEXT:*201.*:#: {  set %ipset $1-  set %ipnick $nick  set %iptime $time}on *:TEXT:*187.*:#: {  set %ipset $1-  set %ipnick $nick  set %iptime $time}on *:TEXT:!mix:#: {  set %timer $remove($time,:)  if %timer > 235959 {    set %timer $calc(%timer - 235959)  }  if $calc(%timer2 - %timer) > 15 {    set %timer2 000000  }  if %timer > %timer2 {    set %timer2 $calc(%timer + 15)    if %timer2 > 235959 {      set %timer2 $calc(%timer2 - 235959)    }    /msg $chan 7,1Ultimo mix enviado: %ipset   1,8[ 5Enviado por10,8 %ipnick 5,8às10,8 %iptime 1,8]  }  else {    set %left $calc(%timer2 - (%timer + 1))    /notice $nick O canal $chan limita o uso do comando !mix. Aguarde %left segundo(s) para poder usa-lo.    }}

the objective of this script is capture the last message with containing some ip address and return the ip address when someone say !mix (public command), the command !mix can be used only once every 15 seconds, otherwise returns a message informing how much time remains to complete 15 seconds

would look like in tcl?

Statistics: Posted by luishfer — Sun Oct 03, 2010 11:53 pm

egghelp/eggheads community

script to capture ip addresses and return with command