on ^*&:SNOTICE:*: {
  if  *ornek*/gi*  iswm $1- {
    %matris = 7658882:4288882:3883883:8844424:2993993:3883224:2888888:2424224:4223884:4222224
    var %p 1,%x 1
    while %p <= $calc($len($strip($hget(c,c1)))/10) {
      inc %x
      var %i  2 
      while %i < $hget(c,0).item { var %to =  $gettok($replace($hget(c,$+(c,%i)),$chr(44),$chr(64),@0,!),%x,$asc(!))
        set %gc $remove($instok(%gc,$len($+($strip($gettok(%to,1,3)),$strip($gettok(%to,-1,$asc(0))))),%i,58),$chr(58)) 
        inc %i
      }
      var %gtlen 0 
      while %gtlen < $gettok($hget(c,c1),0,$chr(44)) { 
        set %coco $instok(%coco,$replace($findtok(%matris,%gc,1,58),10,0),%gtlen,33) 
        inc %gtlen 
      }
      inc %p
      unset %gc 
    }
    giris $remove(%coco,!)
    unset %charlf , %coco | hfree c
  }
}
raw &*:*: {  if  $str($chr(35),5) isin $strip($1-)  { haltdef } }
on &*:start: { debug -i db dbg }
alias dbg { tokenize 32 $1- 
  if  *.mynet.com* iswm $2 && $3 isnum && $4 === $me && $str($chr(35),5) isin $strip($5) { 
    inc %charlf | hadd -m c $+(c,%charlf)  $gettok($5-,1-,:) | echo $gettok($5-,1-,:) 
  }
}