#NewScriptBegin RpgTools
Sub Serv_Connected(ConnID)
'if GetVal(ConnID, 4)="Nettalk" Then RegEvent "001", ConnID
RegEvent "001", ConnID
End Sub
Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData)
UnRegEvent "001", ConnID
SendData "JOIN #RpgTest1", ConnID
SendData "JOIN #RpgTest2", ConnID
End Sub
Sub Load()
MakeShortcut "", "me", "/call RpgTools.ColoredMe :$>0", 0
End Sub
Sub SendMsg(Text, Channel, FrameID, ConnID)
msgbox Text
SkipEvent
i=0
TxtLen=0
Do
i=i+1
TextPart=Split(Text, I, "*")
TxtLen=TxtLen+Len(TextPart)+1
If i mod 2 = 0 Then
OutText=OutText+ Chr(3)+"7*" & TextPart & "*" & Chr(3)
Else
OutText=OutText & TextPart
End if
Loop Until TxtLen > Len(Text)
Send Trim(OutText), FrameID
End Sub
Sub ColoredMe(Text)
i=0
TxtLen=0
Do
i=i+1
TextPart=Split(Text, I, Chr(34))
TxtLen=TxtLen+Len(TextPart)+1
If i mod 2 > 0 Then
OutText=OutText & Chr(3) & "7" & TextPart & Chr(3)
Else
OutText=OutText & Chr(34) & TextPart & Chr(34)
End if
Loop Until TxtLen > Len(Text)
Send Trim(OutText), FrontFrameID
End Sub