Dies ist eine alte Version des Dokuments!
RPG-Tools
#NewScriptBegin RpgTools Sub SendMsg(Text, Channel, FrameID, ConnID) 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