Make(delphi) ver(4.04 build 185) Add(MainForm,2953706,21,105) { Width=1165 Height=589 } Add(Memo,14853124,1673,245) { Left=195 Width=945 Height=540 Font=[Courier New,10,0,0,204] ScrollBars=3 } Add(ChildPanelEx,7376631,385,84) { link(onLogin,7505021:doConnect,[(489,90)(489,251)]) } BEGIN_SDK Add(EditMultiEx,3062248,21,21) { EventCount=#7:onLogin|0:| VarCount=#8:Username|8:Password| Width=510 Height=305 link(Username,12350116:Text,[(27,204)(195,204)]) link(Password,8608692:Text,[(34,228)(223,228)]) } Add(Panel,14679607,35,105) { Left=5 Width=189 Height=87 } Add(Edit,12350116,189,49) { Left=85 Top=10 Width=95 Text="razumov" } Add(Label,1363595,119,49) { Left=10 Top=10 Width=67 Height=20 Caption="Username" } Add(Label,1066977,126,98) { Left=10 Top=35 Width=64 Height=20 Caption="Password" } Add(Edit,8608692,217,98) { Left=85 Top=35 Width=95 Text="123" } Add(Button,16373894,266,42) { Left=60 Top=60 Caption="Login" link(onClick,3062248:onLogin,[(380,48)(380,27)]) } END_SDK Add(Button,3375459,175,252) { Left=70 Top=155 Enabled=1 Caption="Join" } Add(Edit,4945925,294,28) { Left=60 Top=125 Width=115 } Add(Button,16776910,175,322) { Left=5 Top=155 Enabled=1 Caption="Setup" } Add(Button,4102436,175,287) { Left=15 Top=90 Enabled=1 Caption="List" } Add(Label,15555259,21,14) { Left=10 Top=125 Caption="Game:" } Add(MultiElementEx,7505021,560,245) { PColor(onRead,43520) link(onLog,14529936:doWork2,[(656,251)(656,69)]) link(onRead,4049391:doStrCat,[]) link(onConnect,16314109:doEvent1,[]) } BEGIN_SDK Add(EditMultiEx,11615648,21,21) { WorkCount=#9:doConnect|6:doSend|0:| EventCount=#5:onLog|6:onRead|9:onConnect| Width=1000 Height=592 link(doConnect,14708784:doOpen,[(189,27)(189,146)]) link(doSend,13130836:doStrCat,[(89,34)(89,321)(91,321)]) } Add(TCP_Client,14708784,357,140) { Port=6667 IP="192.168.56.101" Point(onError) MakeExt(IP,IP адрес IRC-сервера,IP) link(onRead,3220827:doReplace,[(513,146)(513,34)]) link(onConnect,11615648:onConnect,[(705,153)(705,41)]) link(onError,14581697:doStrCat,[(419,167)(419,209)]) } Add(StrCat,14581697,672,203) { Str1="[TCPCLIENT] " link(onStrCat,6110127:doWork2,[]) } Add(StrCat,13130836,518,315) { Str2="\r\n" link(onStrCat,7233794:doEvent1,[]) } Add(Hub,7233794,609,315) { PColor(onEvent2,16755200) link(onEvent1,5343958:doStrCat,[]) link(onEvent2,14708784:doSend,[(635,328)(635,244)(345,244)(345,160)]) } Add(StrCat,5343958,679,315) { Str1="C>>S: " } Add(HubEx,6110127,746,203) { Angle=3 PColor(onEvent,5614080) link(onEvent,11615648:onLog,[(750,27)]) } Add(Replace,3220827,567,28) { SubStr="\n" link(onReplace,11615648:onRead,[]) } END_SDK Add(TCP_Server,3336235,119,119) { Port=113 link(onRead,1276272:doString,[]) } Add(FormatStr,1276272,182,119) { Mask="%1 : USERID : UNIX : %2" link(onFString,3336235:doSend,[(228,125)(228,165)(107,165)(107,139)]) link(Str2,10278401:Var1,[(195,107)(291,107)(291,145)]) } Add(GetDataEx,10278401,385,140) { link(Data,7376631:Username,[]) } Add(Thread,14614115,427,427) { Delay=100 link(onExec,14651863:doEvent1,[]) } Add(Hub,16715691,742,504) { link(onEvent1,9534382:doStrCat,[(788,510)(788,496)]) link(onEvent2,8286392:doParse,[(788,517)(788,601)]) } Add(StrCat,9534382,812,490) { Str1="S>>C: " } Add(HubEx,14529936,1155,63) { link(onEvent,14853124:doAdd,[(1417,69)(1417,251)]) } Add(MultiElementEx,8286392,861,595) { link(onCommand,10443912:doCase,[]) } BEGIN_SDK Add(EditMultiEx,6423967,21,21) { WorkCount=#7:doParse|0:| EventCount=#9:onCommand|0:| Width=1476 Height=802 link(doParse,8003646:doTrim,[(35,27)(35,34)]) } Add(Memory,8538600,98,28) { link(onData,2171879:doCopy,[(142,34)(142,97)]) } Add(Copy,2171879,154,91) { Position=1 Count=1 link(onCopy,8501205:doCase,[]) } Add(Case,8501205,217,91) { Value=String(:) link(onNextCase,208496:doExec,[]) link(onTrue,344703:doExec,[(308,104)(308,132)]) } Add(ChanelToIndex,5314484,532,238) { link(onIndex,14191611:doIndex,[]) } Add(GetIndexData,14191611,630,238) { link(onIndex,9944115:doFor,[(674,244)(674,290)(527,290)(527,314)]) link(Data1,208496:Matches,[(636,209)(363,209)]) link(Data2,344703:Matches,[(643,198)(419,198)]) } Add(IndexToChanel,10347306,742,315) { Count=4 Point(Index) link(onEvent2,13982617:doValue,[(796,328)(796,258)]) link(onEvent3,6450649:doValue,[]) link(onEvent4,7856399:doValue,[(891,342)(891,363)]) link(Index,9944115:Position,[(748,303)(697,303)(697,354)(559,354)]) } Add(Trim,8003646,49,28) { link(onTrim,8538600:doValue,[]) } Add(IndexToChanel,688540,980,511) { Count=4 Point(Index) link(onEvent2,8480992:doValue,[(1038,524)(1038,454)]) link(onEvent3,15304393:doValue,[(1045,531)(1045,475)]) link(onEvent4,15842940:doValue,[(1052,538)(1052,496)]) link(Index,12022243:Position,[(986,464)(860,464)(860,548)(727,548)]) } Add(StrList,12929777,1204,588) { } Add(Hub,15619819,882,595) { OutCount=3 link(onEvent1,12929777:doClear,[]) link(onEvent2,5272880:doSplit,[(934,608)(934,657)]) link(onEvent3,16147241:doData,[(912,615)(912,732)(1173,732)(1173,685)]) } Add(GlobalVar,13982617,819,252) { Name="prefix" } Add(GlobalVar,6450649,1246,329) { Name="command" } Add(GlobalVar,7856399,924,357) { Name="params" } Add(GlobalVar,8480992,1064,448) { Name="nick" } Add(GlobalVar,15304393,1078,469) { Name="user" } Add(GlobalVar,15842940,1092,490) { Name="host" } Add(GlobalVar,13864880,1344,637) { Name="param_arr" } Add(DoData,16147241,1218,679) { link(onEventData,6632997:doEvent1,[]) link(Data,12929777:Array,[]) } Add(Hub,6632997,1267,679) { link(onEvent1,13864880:doValue,[(1313,685)(1313,643)]) link(onEvent2,14669540:doData,[]) } Add(DoData,14669540,1323,686) { link(onEventData,6423967:onCommand,[(1388,692)(1388,27)]) link(Data,6450649:Var,[(1329,518)(1252,518)]) } Add(RE_Search,208496,336,91) { @Hint=#16:irc_noprefix_rem| Expression="()(.*?) (.*)" Point(Matches) link(onMatch,5314484:doWork1,[(496,97)(496,244)]) link(SourceStr,15883476:Var2,[]) AddHint(66,-43,92,13,@Hint) } Add(RE_Search,344703,392,126) { @Hint=#14:irc_prefix_rem| Expression="(.*?) (.*?) (.*)" Point(Matches) link(onMatch,5314484:doWork2,[(478,132)(478,251)]) link(SourceStr,15883476:Var3,[(398,75)]) AddHint(125,-46,80,13,@Hint) } Add(MT_Get,8935814,693,308) { link(onGet,10347306:doEvent,[]) } Add(RE_Search,9978781,707,434) { Expression=":?([^!@]*)!?([^@]*)@?(.*)" Point(Matches) link(onMatch,12022243:doFor,[(751,440)(751,475)(709,475)(709,510)]) link(SourceStr,13982617:Var,[(713,347)(825,347)]) } Add(MT_Get,7046569,889,504) { link(onGet,688540:doEvent,[]) } Add(GetDataEx,15883476,336,70) { Angle=3 link(Data,8538600:Value,[(104,75)]) } Add(For,9944115,553,308) { Start=1 End=3 link(onEvent,15727596:doRead,[]) link(onStop,9978781:doExec,[(601,321)(601,440)]) } Add(ArrayRW,15727596,630,308) { link(onRead,8935814:doGet,[]) link(Array,14191611:Var,[]) } Add(For,12022243,721,504) { Start=1 End=3 link(onEvent,5700265:doRead,[]) link(onStop,13303537:doEvent,[(776,517)(776,601)]) } Add(ArrayRW,5700265,798,504) { link(onRead,7046569:doGet,[]) link(Array,9978781:Matches,[(804,485)(734,485)]) } Add(StrPart,5272880,973,651) { Char=":" Point(onNotFound) PColor(onPart,16755200) link(onSplit,7429046:doWork2,[]) link(onPart,10938950:doEnum,[(1041,664)(1041,678)]) link(Str,7856399:Var,[(979,568)(930,568)]) link(onNotFound,7429046:doWork3,[(1068,671)]) } Add(Str_Enum,10938950,1106,672) { Delimiter=" " link(onEnum,859527:doWork3,[(1157,678)]) } Add(HubEx,859527,1153,651) { Angle=3 link(onEvent,12929777:doAdd,[(1157,594)]) } Add(Debug,13303537,819,595) { link(onEvent,15619819:doEvent1,[]) } Add(HubEx,7429046,1064,651) { link(onEvent,859527:doWork2,[]) } END_SDK Add(GlobalVar,11783216,161,553) { Name="param_arr" } Add(GlobalVar,6704704,91,560) { Name="host" } Add(GlobalVar,7058174,91,539) { Name="user" } Add(GlobalVar,8673282,91,511) { Name="nick" } Add(GlobalVar,7713808,1015,546) { Name="params" } Add(GlobalVar,8859741,91,455) { Name="command" } Add(GlobalVar,12393268,98,406) { Name="prefix" } Add(SafeMode,3618376,630,427) { Name="LockParse" link(onSafeMode,10273865:doPop,[(940,433)(940,335)]) } Add(Hub,14651863,497,427) { link(onEvent1,3618376:doSafeMode,[]) link(onEvent2,1897944:doSafeMode,[(532,440)(532,510)]) } Add(MultiElementEx,10273865,1218,322) { @Hint=#15:Queue (с) nesco| link(onPop,14511007:doValue,[]) link(onEmpty,14511007:doClear,[]) AddHint(43,-27,94,13,@Hint) } BEGIN_SDK Add(EditMultiEx,14243851,21,21) { WorkCount=#6:doPush|5:doPop| EventCount=#5:onPop|7:onEmpty| Width=412 Height=165 VOffset=42 PColor(doPush,16755200) link(doPush,2507054:doCase,[]) link(doPop,16479268:doData,[(49,76)(49,125)]) } Add(StrList,12821464,245,56) { Point(doGetString) Point(onGetString) link(onGetString,16280060:doCase,[]) } Add(DoData,8252341,189,70) { Data=Integer(0) link(onEventData,12821464:doDelete,[]) } Add(DoData,16479268,189,119) { Data=Integer(0) link(onEventData,12821464:doGetString,[(233,125)(233,104)]) } Add(Case,16280060,294,63) { Value=String() DataOnTrue=String() link(onNextCase,12759087:doEvent1,[]) link(onTrue,14243851:onEmpty,[(349,76)(349,102)(406,102)(406,76)]) } Add(Hub,12759087,371,63) { link(onEvent1,14243851:onPop,[]) link(onEvent2,8252341:doData,[(397,76)(397,30)(159,30)(159,76)]) } Add(Case,2507054,77,63) { Value=String() link(onNextCase,12821464:doAdd,[(133,69)(133,62)]) } END_SDK Add(Str_Enum,15473682,1057,280) { Delimiter="\r" link(onEnum,9641378:doValue,[]) } Add(Memory,14511007,1337,322) { } Add(Thread,12627871,945,504) { Delay=1 FastStop=0 link(onSyncExec,16073302:doData,[]) } Add(Case,10443912,931,595) { Value=String(PING) link(onNextCase,4731593:doString,[(1102,601)(1102,538)]) link(onTrue,10611817:doStrCatDlm,[(985,608)(985,636)]) } Add(StrCatDelim,12388367,378,252) { Delimiter=" " Str1="NICK" link(onStrCatDlm,15799312:doWork2,[]) link(Str2,10278401:Var2,[]) } Add(FormatStr,5967935,420,329) { DataCount=1 Mask="USER %1 localhost courtnet.local %1" link(onFString,15799312:doWork3,[(466,335)]) link(Str1,10278401:Var3,[(426,145)]) } Add(Hub,8243244,294,252) { link(onEvent1,12388367:doStrCatDlm,[]) link(onEvent2,5967935:doString,[(357,265)(357,335)]) } Add(HubEx,15799312,462,252) { link(onEvent,13653910:doWork2,[]) } Add(InfoTip,2172124,70,56) { Info=#15:Эмуляция identd| Width=190 Height=123 } Add(InfoTip,6206330,518,189) { Info=#20:Связь с IRC-сервером| Font=[Arial,10,0,0,204] Width=92 Height=102 } Add(StrCatDelim,10611817,1008,630) { Delimiter=" " Str1="PONG" link(onStrCatDlm,9626861:doWork,[(1070,636)(1070,615)]) link(Str2,1540810:Var2,[]) } Add(LineBreakEx,9626861,1099,609) { Caption="Send" } Add(LineBreakEx,7234418,406,371) { Caption="Send" Type=1 link(OnEvent,13653910:doWork3,[(515,377)]) } Add(FormatStr,4731593,1155,532) { Mask="[REx] c:%1 p:%2" PColor(onFString,16755200) link(onFString,885901:doEvent2,[(1217,538)(1217,572)(870,572)(870,503)]) link(Str2,1540810:Var3,[(1168,520)(1096,520)(1096,579)]) } Add(GetDataEx,1540810,1015,574) { link(Data,7713808:Var,[]) } Add(HubEx,13653910,511,252) { link(onEvent,7505021:doSend,[]) } Add(MemFIFO,9641378,1113,280) { Default=String() Count=1 link(onData,10324965:doSafeMode,[(1153,286)(1153,251)]) } Add(StrCat,4049391,665,252) { link(onStrCat,15191763:doValue,[]) link(Str1,9641378:Value1,[(671,237)(650,237)(650,324)(1119,324)]) } Add(SafeMode,10324965,1162,245) { Name="LockParse" link(onSafeMode,10273865:doPush,[(1206,251)(1206,328)]) } Add(DoData,16073302,1015,511) { link(onEventData,1581848:In,[(1066,517)(1066,503)]) link(Data,14097093:Value,[]) } Add(Trim,2336682,616,504) { link(onTrim,13880492:doCase,[]) link(Text,14511007:Value,[(622,464)(1343,464)]) } Add(Memory,14097093,1015,413) { } Add(Hub,885901,882,490) { InCount=2 link(onEvent1,14097093:doValue,[(973,496)(973,419)]) link(onEvent2,12627871:doStart,[(933,503)(933,510)]) } Add(Hub,16314109,616,259) { PColor(onEvent1,16755200) link(onEvent1,8243244:doEvent1,[(645,265)(645,222)(282,222)(282,258)]) link(onEvent2,14614115:doStart,[(643,272)(643,392)(415,392)(415,433)]) } Add(Memory,15191763,735,252) { link(onData,1125139:doCopy,[]) } Add(Copy,1125139,784,252) { Position=1 Count=1 Direction=1 link(onCopy,1999391:doCase,[]) } Add(Case,1999391,847,252) { Value=String(\r) link(onNextCase,6241132:doData,[(915,258)(915,230)]) link(onTrue,8710347:doStrCat,[(895,265)(895,286)]) } Add(StrCat,8710347,931,280) { Str2="\r" link(onStrCat,9265124:doEvent2,[(985,286)(985,265)]) link(Str1,15564516:Var2,[]) } Add(DoData,6241132,952,224) { PColor(onEventData,5614080) link(onEventData,9265124:doEvent1,[(996,230)(996,258)]) link(Data,15564516:Var3,[(958,191)]) } Add(GetDataEx,15564516,931,186) { Angle=3 link(Data,15191763:Value,[(832,191)(832,296)(741,296)]) } Add(Hub,9265124,1008,252) { InCount=2 PColor(onEvent1,16755200) link(onEvent1,9641378:doClear,[(1099,258)(1099,293)]) link(onEvent2,15473682:doEnum,[(1040,265)(1040,286)]) } Add(LineBreak,1677854,1120,77) { link(Out,14529936:doWork3,[(1159,83)]) Primary=[1581848,-35,420] } Add(Case,13880492,672,504) { Value=String() link(onNextCase,16715691:doEvent1,[]) } Add(SafeMode,1897944,553,504) { Name="LockRex" link(onSafeMode,2336682:doTrim,[]) }