RPG-Tools

#NewScriptBegin RpgTools
 
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