#NewScriptBegin remcolors

Sub Load()
  RegEvent "PRIVMSG", 0
End Sub

Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData)
i=1
wri=0
do
  if asc(mid(Text, i, 1))=3 or asc(mid(Text, i, 1))=2 Then
    if (len(Text)-i)<5 Then 
      Text= Text + String(5, " ")
    End if    
    Text=left(Text, (i-1)) & remcoldigs(right(left(Text, (i+5)),5)) & right(Text,(len(Text)-i-5))
    i=i-1
    wri=1
    SkipEvent  
  End if
  i=i+1
loop until i>=len(Text)
if wri = 1 Then
  framename = Split(RawData, 3)
  zielframe = GetFrame(ConnID, framename)
  nick = Split(Split(RawData, 1), 0, "!" )
  if framename=GetVal(ConnID, 5) Then   
    send "/query " & Sender, zielframe 
    framename = Sender
    zielframe = GetFrame(ConnID, framename)
    SetFrameIcon zielframe, 3
    SetTrayIcon 4    
  End if
  if Instr(1, Text, GetVal(ConnID, 5))>0 Then
    SetLineIcon zielframe, 0
    SetFrameIcon zielframe, 3
    SetTrayIcon 4
  End if
  SetFrameIcon zielframe, 2
  print "<" & Sender & ">" , zielframe , valcSender
  print Text , zielframe , valcText,  1
End if
End Sub
 
Sub remcoldigs(Text)
  if (asc(Text)<58 and asc(Text)>47) Then
     Text=right(Text, (len(Text)-1))
  End if
  if (asc(Text)<58 and asc(Text)>47) Then
     Text=right(Text, (len(Text)-1))
  End if 
  if left(Text, 1) = "," Then
    if (asc(mid(Text, 2, 1))<58 and asc(mid(Text, 2, 1))>47) Then              
      Text=right(Text, (len(Text)-2))
      if (asc(left(Text, 1) )<58 and asc(left(Text, 1))>47) Then
        Text=right(Text, (len(Text)-1))
      End if
    End if
  End if
  remcoldigs=Text
End Sub