Dies ist eine alte Version des Dokuments!
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