------------ Дoбавленo в 19.38:
LainX, а теперь попробуй выделить текст
можно так
Add(MainForm,2953706,21,133)
{
Height=324
Caption="Антимат"
}
Add(Memo,3579293,245,119)
{
Width=385
Height=240
AddType=1
Point(Position)
Point(doSetSelStart)
}
Add(Replace,500536,245,357)
{
SubStr="хуй"
DestStr="***"
link(onReplace,9769468:doEvent1,[])
link(Str,3066823:Var2,[])
}
Add(ChildPanel,5830191,35,280)
{
}
BEGIN_SDK
Add(EditMulti,15627059,21,21)
{
}
Add(Panel,4717714,35,105)
{
Top=240
Width=380
Height=45
Caption="Ругаться запрещается!"
}
END_SDK
Add(Timer,14567084,21,189)
{
Interval=10000
link(onTimer,2340420:doEvent1,[(89,195)(89,216)])
}
Add(GetDataEx,8107856,196,210)
{
Angle=3
link(Data,3579293:Text,[(251,215)])
}
Add(Length,1835944,133,329)
{
link(onLength,3579293:doSetSelStart,[(174,335)(174,167)])
link(Str,8107856:Var2,[(139,253)(202,253)])
}
Add(Hub,2340420,126,210)
{
link(onEvent1,15058073:doEvent1,[(179,216)(179,363)])
link(onEvent2,1835944:doLength,[(152,223)(152,279)(128,279)(128,335)])
}
Add(GetDataEx,3066823,245,280)
{
link(Data,16021056:Var2,[])
}
Add(Replace,1638807,231,434)
{
SubStr="бля"
DestStr="*****"
link(onReplace,9769468:doEvent2,[(296,440)(296,370)])
link(Str,3066823:Var3,[(237,360)(260,360)(260,285)])
}
Add(Hub,9769468,336,357)
{
InCount=6
OutCount=1
link(onEvent1,3579293:doText,[(362,363)(362,209)(163,209)(163,146)])
}
Add(Hub,15058073,189,357)
{
OutCount=6
link(onEvent1,500536:doReplace,[])
link(onEvent2,1638807:doReplace,[(213,370)(213,440)])
link(onEvent3,14922975:doReplace,[(224,377)(224,517)])
link(onEvent4,3251515:doReplace,[(224,384)(224,573)])
link(onEvent5,1872006:doReplace,[(227,391)(227,622)])
link(onEvent6,6607600:doReplace,[(221,398)(221,678)])
}
Add(Replace,14922975,238,511)
{
SubStr="сука"
DestStr="****"
link(onReplace,9769468:doEvent3,[(307,517)(307,377)])
link(Str,3066823:Var1,[(244,398)(242,398)(242,285)])
}
Add(GetDataEx,16021056,245,238)
{
link(Data,15169736:Var2,[])
}
Add(Replace,3251515,245,567)
{
SubStr="пизда"
DestStr="*****"
link(onReplace,9769468:doEvent4,[(307,573)(307,384)])
link(Str,16021056:Var3,[(251,405)(260,405)(260,243)])
}
Add(Replace,1872006,238,616)
{
SubStr="ебал"
DestStr="****"
link(onReplace,9769468:doEvent5,[(310,622)(310,391)])
link(Str,16021056:Var1,[(244,243)])
}
Add(Replace,6607600,238,672)
{
SubStr="ебать"
DestStr="****"
link(onReplace,9769468:doEvent6,[(303,678)(303,398)])
link(Str,15169736:Var3,[(244,222)])
}
Add(GetDataEx,15169736,245,217)
{
link(Data,8107856:Var3,[(251,215)])
}

------------ Дoбавленo в 20.03:
Кстати интересная идея с переборам масива
