#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