Msl script to tcl.

[mistAr]

Hey, can anyone make this MSL script do an TCL Script?

Script can be found at: http://pastebin.com/m5544b86b

and here:

Code: Select all

on *:connect: {
  .timerGETNeWS 0 300 Get:NEWS
}

alias Get:NEWS:again {
  unset %Link.H %Link.M %Link.S
  get:news
}

alias Get:NEWS {
  ;Logo
  set %logo 7,0[NeWS]1,0
  sockclose GetNEWS_M
  sockclose GetNEWS_H
  sockclose GetNEWS_S

  sockopen GetNEWS_H www.HLTV.org 80
  .timer 1 5 sockopen GetNEWS_M www.myMYM.com 80
  .timer 1 10 sockopen GetNEWS_S www.sk-gaming.com 80
}

on *:sockopen:GetNEWS*:{
  if ($right($sockname,1) = M) {
    sockwrite -n $sockname GET /en/rss/news/cs.xml HTTP/1.1
    ;/en/archiv.html?game=cs&author=0&after=dd-mm-yyyy&before=dd-mm-yyyy&n_mainnews=0&am p;submit=Filter
    sockwrite -n $sockname Host: www.myMYm.com $+ $crlf $+ $crlf
  }
  if ($right($sockname,1) = S) {
    sockwrite -n $sockname GET /rss/channel/cs HTTP/1.1
    sockwrite -n $sockname Host: www.sk-gaming.com $+ $crlf $+ $crlf
  }
  if ($right($sockname,1) = H) {
    sockwrite -n $sockname GET / HTTP/1.1
    sockwrite -n $sockname Host: www.hltv.org $+ $crlf $+ $crlf
  }
}

on *:sockread:GetNEWS*:{
  unset %x
  sockread %x
  if ($right($sockname,1) = M) {
    if (<title> isin $gettok(%x,1,32)) {
      if (%Des) { 
        set %Title $left($right(%x,-9),-9)
      }
    }
    elseif (<link> isin $gettok(%x,1,32)) {
      if (%Des) { 
        set %Link $left($right(%x,-8),-8)
      } 
    }
    elseif (<description> isin $gettok(%x,1,32)) {
      if (%Des) { 
        unset %Des
        set %Tekst $left($right(%x,-15),-15)
        if (%Link = %Link.M) { goto done1 }
        set %Link.M %Link
        /msg #chan %logo www.myMyM.com %logo %Title %Logo %Tekst %logo %Link %logo NeWS brought by Patty %logo
        :done1
        sockclose $sockname 
        unset %x %link %title %des %tekst
        halt 
      }
      else { set -u5 %Des 1 }
    }
  }


  if ($right($sockname,1) = S) {
    set %x $remove(%x,![CDATA[)
    if (<title> isin $gettok(%x,1,32)) {
      if (%Des = 2) { 
        set %Title $left($right(%x,-11),-11)
      }
      else { inc %Des 1 }
    }
    elseif (<link> isin $gettok(%x,1,32)) {
      if (%Des = 2) { 
        set %Link $left($right(%x,-9),-7)
      } 
    }
    elseif (<description> isin $gettok(%x,1,32)) {
      if (%Des = 2) { 
        set %Tekst $remove($left($gettok(%x,3,62),-2),&quot;))
        if (%Link = %Link.S) { goto done3 }
        set %Link.S %Link
        /msg #chan %logo www.SK-Gaming.com %logo %Title %Logo %Tekst %logo %Link %logo NeWS brought by Patty %logo
        :done3
        sockclose $sockname 
        unset %x %link %title %des %tekst
        halt 
      }
    }
  }




  if ($right($sockname,1) = H) {
    if (%Temp.Data >= 1) { 
      if (!$gettok(%x,16,34)) {
        unset %Temp.data
        ;echo -a INTET
        sockclose GetNEWS_H
        sockopen GetNEWS_H www.HLTV.org 80
        ;set %Temp.data 0
        halt
      }
      set %Link $remove($gettok(%x,12,34),amp;) 
      if (%Link = %Link.H) { goto DONE2 }
      set %Link.H %Link 
      /msg #chan %Logo www.HLTV.org %logo $gettok(%x,16,34) %logo www.HLTV.org $+ %Link %logo brought by Patty %logo
      :DONE2 
      dec %Temp.data 
      unset %x %link
      sockclose $sockname
    }
    elseif (*<div*class=*newsRight*>* iswm %x) { 
      set -u5 %Temp.data 1 
    }
  }
  unset %x
}