on 1:connect:{ clear | join #asarut
  if ($window(@asarut) == $null)  window -ls @asarut
  list 
}
on 1:TEXT:*#*x**:#: {
  if ($window(@asarut) == $null) { window -ls @asarut }
  %a = $chan * $nick *=> $1-
  %p = $calc($pos(%a,*=>,1) + 5)
  %a1 = $strip($mid(%a,%p,$calc($len(%a) - %p +1 )))
  %p1 = $calc($pos(%a1,],1) + 2)
  %a2 = $mid(%a1,%p1,$calc($len(%a1) - %p1 +1 ))
  %a3 = $mid(%a1,$pos(%a1, $nick  %a2 * %a3 ***==>>  $chan  <<==***|=>  $nick <=|***=> %pac
}
on 1:NOTICE:*#*x**:?: {
  if ($window(@asarut) == $null) { window -ls @asarut }
  %chan = $comchan($nick,1)
  %a = %chan * $nick *=> $1-
  %p = $calc($pos(%a,*=>,1) + 5)
  %a1 = $strip($mid(%a,%p,$calc($len(%a) - %p +1 )))
  %p1 = $calc($pos(%a1,],1) + 2)
  %a2 = $mid(%a1,%p1,$calc($len(%a1) - %p1 +1 ))
  %a3 = $mid(%a1,$pos(%a1, $nick  %a2 * %a3 ***==>>  %chan  <<==***|=>  $nick <=|***=> %pac
}
menu @asarut {
  dclick { 
    %b = $sline(@asarut,1)
    %r1 = $calc($pos(%b,***==>>,1) + 8 ) |  %r2 = $pos(%b,<<==***|,1)
    %bchan = $mid(%b,%r1,$calc( %r2 - %r1 - 1 ))
    %r1 = $calc( %r2 + 11 ) | %r2 = $pos(%b,<=|***=>,1)
    %bnick = $mid(%b,%r1,$calc( %r2 - %r1 - 1 ))
    %r1 = $calc( %r2 + 9 ) |  %r2 = $calc( %r1 + 5 )
    %bpack = $mid(%b,%r1,$calc( %r2 - %r1 ))
    /echo 2 in %bchan  $chan(%bchan)
    if ($chan(%bchan) == $null) { join %bchan }  
    /msg %bchan/msg %bnick xdcc send %bpack
    /timer 0 5000 /msg %bchan/msg %bnick xdcc send %bpack
    dline @asarut $fline(@asarut,%b)  
    aline -ni 4 @asarut %b
    /echo %b
  }