Em 2004 Tcl Script

[PBBOwner]

Hallo,
da es ja kein em 2004 TCl script gibt wollte ich mal fragen ob das hier jemand vom mirc zu eggdrop umschreiben kann ?

alias emA { sockclose emSock | sockopen emSock www.em2004.de 80 | sockmark emSock $+(/index.php?kat=8_65,$chr(9),A) }
 alias emB { sockclose emSock | sockopen emSock www.em2004.de 80 | sockmark emSock $+(/index.php?kat=8_66,$chr(9),B)  }
 alias emC { sockclose emSock | sockopen emSock www.em2004.de 80 | sockmark emSock $+(/index.php?kat=8_67,$chr(9),C)  }
 alias emD { sockclose emSock | sockopen emSock www.em2004.de 80 | sockmark emSock $+(/index.php?kat=8_68,$chr(9),D)  }
 on *:sockopen:emSock:{
   sockwrite -n $sockname GET $gettok($sock($sockname).mark,1,9) HTTP/1.1
   sockwrite -n $sockname Host: www.em2004.de $str($crlf,2)
   hadd -m emSock 2 1 | if ($hget(emSock,1)) { hdel emSock 1 }
   msg #obervorschütz  EM - Gruppe $gettok($sock($sockname).mark,2,9)
 }
 on *:sockread:emSock:{
   var %a | sockread %a
   if ($regex(%a,<DIV>(.*?)</DIV>)) {
 	if ($remove($regml(1),$chr(9),$chr(32))) {
 	  hinc emSock 2
 	  hadd -m emSock 1 $iif($hget(emSock,1),$hget(emSock,1) ::,) $regml(1)
 	  if ($hget(emSock,2) == 7) { msg # $hget(emSock,1) | hdel emSock 1 | hadd emSock 2 1 }
 	}
   }
 }
 
 on *:TEXT:!gruppe *:#obervorschütz:{ 
   if (%floodtimerEM == 1) && ($2 == A) { emA | set %floodtimerEM 0 | timer 1 30 /set %floodtimerEM 1 } 
   if (%floodtimerEM == 1) && ($2 == B) { emB | set %floodtimerEM 0 | timer 1 30 /set %floodtimerEM 1 }
   if (%floodtimerEM == 1) && ($2 == C) { emC | set %floodtimerEM 0 | timer 1 30 /set %floodtimerEM 1 }
   if (%floodtimerEM == 1) && ($2 == D) { emD | set %floodtimerEM 0 | timer 1 30 /set %floodtimerEM 1 }
   else {  if (%floodtimerEM == 1) { msg # - Es gibt nur Gruppe A - D also "!Gruppe A/B/C/D" klaro? :P -  | halt } }
 }