#NewScriptBegin TopicView
Dim TempFrID
Sub Load()
TopicList("0")=""
RegEvent 332, 0
End Sub
Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData)
Dat=RemColors(Text)
if Len(Dat)> 64 Then Dat=Left(Dat,61)+"..."
TopicList(Split(RawData,4))=Dat
if TempFrID=FrontFrameID Then ShowInfo Dat, valcText, 0, 0, 16
if GetCaption(TempFrID)=Split(RawData,4) Then
SkipEvent
TempFrID=0
end if
End Sub
Sub FrameChange(OldFrameID, NewFrameID)
if GetFrameType(NewFrameID)=0 Then
Dat=TopicList(GetCaption(NewFrameID))
ShowInfo GetCaption(NewFrameID)
if Len(Dat)=0 Then
TempFrID=NewFrameID
Send "/topic " & GetCaption(TempFrID), TempFrID
ShowInfo ""
else
ShowInfo Dat, valcText, 0, 0, 16
end if
else
ShowInfo ""
end if
End Sub
function RemColors(Text)
TextNoColor=""
i=0
Do
i2=i
i=InStr(i2+1, Text, Chr(2))
i4=InStr(i2+1, Text, Chr(3))
if (i4<i or i=0) and i4>0 Then i=i4
i3=i
if i = 0 Then
i=Len(Text)+1
i3=i
else
Do
i=i+1
Dat=Mid(Text, i, 1)
Loop until (Asc(Dat) > 57 or Asc(Dat) < 48) and Dat<>","
i=i-1
end if
if i3-i2 > 1 Then TextNoColor=TextNoColor+Mid(Text, i2+1, i3-i2-1)
loop until i3=Len(Text)+1
RemColors = TextNoColor
End function