[Услуги] Расшифрую *.xml скрипты WP

[DarkNiko]

Расшифровываю xml скрипты от Wicked Patcher


Пример на скрипте автолока:

<?xml version="1.0"?><program><var pos="2:5"><ident text="iCountPack" pos="2:15"/><ident text="iPos" pos="2:21"/><ident text="i" pos="2:24"/><ident text="ras" pos="2:29"/><ident text="s2" pos="2:33"/><ident text="s3" pos="2:37"/><ident text="s4" pos="2:41"/><ident text="lastPackEndPos" pos="2:57"/><ident text="lastPackStartPos" pos="2:75"/><ident text="MyCoordX" pos="2:85"/><ident text="MyCoordY" pos="2:95"/><ident text="xTarget" pos="2:104"/><ident text="yTarget" pos="2:113"/><type text="integer" pos="2:122"/></var><var pos="3:5"><ident text="sStr" pos="3:9"/><ident text="s" pos="3:12"/><ident text="nearestTarget" pos="3:27"/><ident text="X" pos="3:30"/><ident text="MyCorp" pos="3:38"/><type text="string" pos="3:46"/></var><var pos="4:5"><ident text="slPacket" pos="4:13"/><ident text="TargetList" pos="4:25"/><ident text="MyCorpList" pos="4:37"/><type text="TStringList" pos="4:50"/></var><var pos="5:5"><ident text="wTemp" pos="5:10"/><ident text="Key" pos="5:15"/><type text="word" pos="5:21"/></var><function pos="7:1"><name text="Ochistka" pos="7:18"/><parameters pos="7:18"><var pos="7:19"><ident text="s" pos="7:20"/><type text="string" pos="7:28"/></var></parameters><type text="string" pos="7:37"/><var pos="8:5"><ident text="p" pos="8:6"/><type text="integer" pos="8:15"/></var><compoundstmt pos="9:1"><repeatstmt pos="10:3"><assignstmt pos="11:5"><dsgn pos="11:5"><node text="p" pos="11:6"/></dsgn><expr pos="11:10" pos1="11:28"><dsgn pos="11:10"><node text="Pos" pos="11:13"/><expr pos="11:14" pos1="11:24"><dsgn pos="11:14"><node text="Hstr" pos="11:18"/><expr pos="11:19" pos1="11:23"><string text="'20'" pos="11:23"/></expr></dsgn></expr><expr pos="11:26" pos1="11:27"><dsgn pos="11:26"><node text="s" pos="11:27"/></dsgn></expr></dsgn></expr></assignstmt><ifstmt pos="12:5"><expr pos="12:8" pos1="12:11"><dsgn pos="12:8"><node text="p" pos="12:9"/></dsgn><op text=">" pos="12:10"/><number text="0" pos="12:11"/></expr><thenstmt pos="13:5"><compoundstmt pos="13:5"><callstmt pos="14:7"><dsgn pos="14:7"><node text="delete" pos="14:13"/><expr pos="14:14" pos1="14:15"><dsgn pos="14:14"><node text="s" pos="14:15"/></dsgn></expr><expr pos="14:17" pos1="14:18"><dsgn pos="14:17"><node text="p" pos="14:18"/></dsgn></expr><expr pos="14:20" pos1="14:21"><number text="1" pos="14:21"/></expr></dsgn></callstmt></compoundstmt></thenstmt></ifstmt><expr pos="16:9" pos1="16:12"><dsgn pos="16:9"><node text="p" pos="16:10"/></dsgn><op text="<" pos="16:11"/><number text="1" pos="16:12"/></expr></repeatstmt><assignstmt pos="17:3"><dsgn pos="17:3"><node text="result" pos="17:9"/></dsgn><expr pos="17:13" pos1="17:14"><dsgn pos="17:13"><node text="s" pos="17:14"/></dsgn></expr></assignstmt></compoundstmt><types/></function><procedure pos="21:1"><name text="OnCreate" pos="21:19"/><compoundstmt pos="22:1"><assignstmt pos="23:3"><dsgn pos="23:3"><node text="TargetList" pos="23:13"/></dsgn><expr pos="23:17" pos1="23:35"><dsgn pos="23:17"><node text="TStringList" pos="23:28"/><node text="create" pos="23:35"/></dsgn></expr></assignstmt><assignstmt pos="24:3"><dsgn pos="24:3"><node text="MyCorpList" pos="24:13"/></dsgn><expr pos="24:17" pos1="24:35"><dsgn pos="24:17"><node text="TStringList" pos="24:28"/><node text="create" pos="24:35"/></dsgn></expr></assignstmt><callstmt pos="25:3"><dsgn pos="25:3"><node text="MyCorpList" pos="25:13"/><node text="LoadFromFile" pos="25:26"/><expr pos="25:27" pos1="25:46"><string text="'custom/MyCorp.txt'" pos="25:46"/></expr></dsgn></callstmt><assignstmt pos="26:3"><dsgn pos="26:3"><node text="TargetList" pos="26:13"/><node text="Sorted" pos="26:20"/></dsgn><expr pos="26:24" pos1="26:28"><dsgn pos="26:24"><node text="True" pos="26:28"/></dsgn></expr></assignstmt><assignstmt pos="27:3"><dsgn pos="27:3"><node text="TargetList" pos="27:13"/><node text="Duplicates" pos="27:24"/></dsgn><expr pos="27:28" pos1="27:37"><dsgn pos="27:28"><node text="dupIgnore" pos="27:37"/></dsgn></expr></assignstmt><assignstmt pos="28:3"><dsgn pos="28:3"><node text="slPacket" pos="28:11"/></dsgn><expr pos="28:15" pos1="28:33"><dsgn pos="28:15"><node text="TStringList" pos="28:26"/><node text="create" pos="28:33"/></dsgn></expr></assignstmt><assignstmt pos="29:3"><dsgn pos="29:3"><node text="slPacket" pos="29:11"/><node text="Delimiter" pos="29:21"/></dsgn><expr pos="29:25" pos1="29:35"><dsgn pos="29:25"><node text="Hstr" pos="29:29"/><expr pos="29:30" pos1="29:34"><string text="'7C'" pos="29:34"/></expr></dsgn></expr></assignstmt></compoundstmt></procedure><procedure pos="32:1"><name text="OnDestroy" pos="32:20"/><compoundstmt pos="33:1"><callstmt pos="34:3"><dsgn pos="34:3"><node text="MyCorpList" pos="34:13"/><node text="free" pos="34:18"/></dsgn></callstmt><callstmt pos="35:3"><dsgn pos="35:3"><node text="TargetList" pos="35:13"/><node text="free" pos="35:18"/></dsgn></callstmt><callstmt pos="36:3"><dsgn pos="36:3"><node text="slPacket" pos="36:11"/><node text="free" pos="36:16"/></dsgn></callstmt></compoundstmt></procedure><compoundstmt pos="39:1"><assignstmt pos="41:3"><dsgn pos="41:3"><node text="MyCorp" pos="41:9"/></dsgn><expr pos="41:13" pos1="41:26"><dsgn pos="41:13"><node text="MyCorpList" pos="41:23"/><node text="[" pos="41:24"/><expr pos="41:24" pos1="41:25"><number text="1" pos="41:25"/></expr></dsgn></expr></assignstmt><ifstmt pos="42:3"><expr pos="42:6" pos1="42:18"><op text="(" pos="42:7"/><expr pos="42:7" pos1="42:17"><dsgn pos="42:7"><node text="_gFromServ" pos="42:17"/></dsgn></expr><op text=")" pos="42:18"/></expr><thenstmt pos="44:1"><compoundstmt pos="44:1"><assignstmt pos="45:3"><dsgn pos="45:3"><node text="iCountPack" pos="45:13"/></dsgn><expr pos="45:17" pos1="45:18"><number text="1" pos="45:18"/></expr></assignstmt><callstmt pos="46:3"><dsgn pos="46:3"><node text="slPacket" pos="46:11"/><node text="Clear" pos="46:17"/></dsgn></callstmt><repeatstmt pos="47:3"><assignstmt pos="48:5"><dsgn pos="48:5"><node text="iCountPack" pos="48:15"/></dsgn><expr pos="48:19" pos1="48:78"><dsgn pos="48:19"><node text="ScanPck5" pos="48:27"/><expr pos="48:28" pos1="48:34"><dsgn pos="48:28"><node text="_gBuff" pos="48:34"/></dsgn></expr><expr pos="48:36" pos1="48:46"><dsgn pos="48:36"><node text="iCountPack" pos="48:46"/></dsgn></expr><expr pos="48:47" pos1="48:51"><string text="'ah'" pos="48:51"/></expr><expr pos="48:52" pos1="48:56"><dsgn pos="48:52"><node text="sStr" pos="48:56"/></dsgn></expr><expr pos="48:57" pos1="48:62"><dsgn pos="48:57"><node text="wTemp" pos="48:62"/></dsgn></expr><expr pos="48:63" pos1="48:67"><dsgn pos="48:63"><node text="NULL" pos="48:67"/></dsgn></expr><expr pos="48:68" pos1="48:72"><dsgn pos="48:68"><node text="NULL" pos="48:72"/></dsgn></expr><expr pos="48:73" pos1="48:77"><dsgn pos="48:73"><node text="NULL" pos="48:77"/></dsgn></expr></dsgn></expr></assignstmt><assignstmt pos="49:5"><dsgn pos="49:5"><node text="iPos" pos="49:9"/></dsgn><expr pos="49:13" pos1="49:29"><dsgn pos="49:13"><node text="Pos" pos="49:16"/><expr pos="49:17" pos1="49:23"><string text="'0|C|'" pos="49:23"/></expr><expr pos="49:24" pos1="49:28"><dsgn pos="49:24"><node text="sStr" pos="49:28"/></dsgn></expr></dsgn></expr></assignstmt><assignstmt pos="50:5"><dsgn pos="50:5"><node text="sStr" pos="50:9"/></dsgn><expr pos="50:13" pos1="50:27"><dsgn pos="50:13"><node text="Ochistka" pos="50:21"/><expr pos="50:22" pos1="50:26"><dsgn pos="50:22"><node text="sStr" pos="50:26"/></dsgn></expr></dsgn></expr></assignstmt><ifstmt pos="51:5"><expr pos="51:8" pos1="51:18"><op text="(" pos="51:9"/><expr pos="51:9" pos1="51:17"><dsgn pos="51:9"><node text="iPos" pos="51:13"/></dsgn><op text=">" pos="51:15"/><number text="0" pos="51:17"/></expr><op text=")" pos="51:18"/></expr><thenstmt pos="52:7"><compoundstmt pos="52:7"><assignstmt pos="53:9"><dsgn pos="53:9"><node text="slPacket" pos="53:17"/><node text="DelimitedText" pos="53:31"/></dsgn><expr pos="53:35" pos1="53:39"><dsgn pos="53:35"><node text="sStr" pos="53:39"/></dsgn></expr></assignstmt><ifstmt pos="54:9"><expr pos="54:12" pos1="54:30"><dsgn pos="54:12"><node text="slPacket" pos="54:20"/><node text="[" pos="54:21"/><expr pos="54:21" pos1="54:22"><number text="9" pos="54:22"/></expr></dsgn><op text="<>" pos="54:26"/><string text="'0'" pos="54:30"/></expr><thenstmt pos="55:11"><compoundstmt pos="55:11"><ifstmt pos="56:13"><expr pos="56:16" pos1="56:37"><dsgn pos="56:16"><node text="slPacket" pos="56:24"/><node text="[" pos="56:25"/><expr pos="56:25" pos1="56:26"><number text="9" pos="56:26"/></expr></dsgn><op text="<>" pos="56:30"/><dsgn pos="56:31"><node text="MyCorp" pos="56:37"/></dsgn></expr><thenstmt pos="57:13"><compoundstmt pos="57:13"><forstmt pos="58:15"><ident text="i" pos="58:20"/><expr pos="58:24" pos1="58:25"><number text="0" pos="58:25"/></expr><expr pos="58:29" pos1="58:47"><dsgn pos="58:29"><node text="TargetList" pos="58:39"/><node text="Count" pos="58:45"/></dsgn><op text="-" pos="58:46"/><number text="1" pos="58:47"/></expr><compoundstmt pos="59:15"><ifstmt pos="60:17"><expr pos="60:20" pos1="60:59"><dsgn pos="60:20"><node text="slPacket" pos="60:28"/><node text="[" pos="60:29"/><expr pos="60:29" pos1="60:30"><number text="2" pos="60:30"/></expr></dsgn><op text="=" pos="60:33"/><dsgn pos="60:34"><node text="copy" pos="60:38"/><expr pos="60:39" pos1="60:52"><dsgn pos="60:39"><node text="TargetList" pos="60:49"/><node text="[" pos="60:50"/><expr pos="60:50" pos1="60:51"><dsgn pos="60:50"><node text="i" pos="60:51"/></dsgn></expr></dsgn></expr><expr pos="60:54" pos1="60:55"><number text="1" pos="60:55"/></expr><expr pos="60:57" pos1="60:58"><number text="8" pos="60:58"/></expr></dsgn></expr><thenstmt pos="61:17"><compoundstmt pos="61:17"><callstmt pos="62:19"><dsgn pos="62:19"><node text="TargetList" pos="62:29"/><node text="Delete" pos="62:36"/><expr pos="62:37" pos1="62:38"><dsgn pos="62:37"><node text="i" pos="62:38"/></dsgn></expr></dsgn></callstmt><callstmt pos="63:19"><dsgn pos="63:19"><node text="TargetList" pos="63:29"/><node text="add" pos="63:33"/><expr pos="63:34" pos1="63:85"><dsgn pos="63:34"><node text="slPacket" pos="63:42"/><node text="[" pos="63:43"/><expr pos="63:43" pos1="63:44"><number text="2" pos="63:44"/></expr></dsgn><op text="+" pos="63:47"/><string text="'|'" pos="63:51"/><op text="+" pos="63:53"/><dsgn pos="63:54"><node text="slPacket" pos="63:62"/><node text="[" pos="63:63"/><expr pos="63:63" pos1="63:64"><number text="7" pos="63:64"/></expr></dsgn><op text="+" pos="63:67"/><string text="'|'" pos="63:71"/><op text="+" pos="63:73"/><dsgn pos="63:74"><node text="slPacket" pos="63:82"/><node text="[" pos="63:83"/><expr pos="63:83" pos1="63:84"><number text="8" pos="63:84"/></expr></dsgn></expr></dsgn></callstmt></compoundstmt></thenstmt></ifstmt></compoundstmt></forstmt><callstmt pos="66:15"><dsgn pos="66:15"><node text="TargetList" pos="66:25"/><node text="add" pos="66:29"/><expr pos="66:30" pos1="66:73"><dsgn pos="66:30"><node text="slPacket" pos="66:38"/><node text="[" pos="66:39"/><expr pos="66:39" pos1="66:40"><number text="2" pos="66:40"/></expr></dsgn><op text="+" pos="66:42"/><string text="'|'" pos="66:45"/><op text="+" pos="66:46"/><dsgn pos="66:46"><node text="slPacket" pos="66:54"/><node text="[" pos="66:55"/><expr pos="66:55" pos1="66:56"><number text="7" pos="66:56"/></expr></dsgn><op text="+" pos="66:58"/><string text="'|'" pos="66:61"/><op text="+" pos="66:62"/><dsgn pos="66:62"><node text="slPacket" pos="66:70"/><node text="[" pos="66:71"/><expr pos="66:71" pos1="66:72"><number text="8" pos="66:72"/></expr></dsgn></expr></dsgn></callstmt></compoundstmt></thenstmt></ifstmt></compoundstmt></thenstmt></ifstmt></compoundstmt></thenstmt></ifstmt><ifstmt pos="70:5"><expr pos="70:8" pos1="70:26"><dsgn pos="70:8"><node text="Pos" pos="70:11"/><expr pos="70:12" pos1="70:18"><string text="'0|1|'" pos="70:18"/></expr><expr pos="70:19" pos1="70:23"><dsgn pos="70:19"><node text="sStr" pos="70:23"/></dsgn></expr></dsgn><op text=">" pos="70:25"/><number text="0" pos="70:26"/></expr><thenstmt pos="71:5"><compoundstmt pos="71:5"><callstmt pos="72:7"><dsgn pos="72:7"><node text="slPacket" pos="72:15"/><node text="Clear" pos="72:21"/></dsgn></callstmt><assignstmt pos="73:7"><dsgn pos="73:7"><node text="slPacket" pos="73:15"/><node text="DelimitedText" pos="73:29"/></dsgn><expr pos="73:33" pos1="73:37"><dsgn pos="73:33"><node text="sStr" pos="73:37"/></dsgn></expr></assignstmt><ifstmt pos="74:7"><expr pos="74:10" pos1="74:33"><dsgn pos="74:10"><node text="length" pos="74:16"/><expr pos="74:17" pos1="74:28"><dsgn pos="74:17"><node text="slPacket" pos="74:25"/><node text="[" pos="74:26"/><expr pos="74:26" pos1="74:27"><number text="2" pos="74:27"/></expr></dsgn></expr></dsgn><op text="=" pos="74:31"/><number text="8" pos="74:33"/></expr><thenstmt pos="75:7"><compoundstmt pos="75:7"><forstmt pos="76:9"><ident text="i" pos="76:14"/><expr pos="76:18" pos1="76:19"><number text="0" pos="76:19"/></expr><expr pos="76:23" pos1="76:41"><dsgn pos="76:23"><node text="TargetList" pos="76:33"/><node text="Count" pos="76:39"/></dsgn><op text="-" pos="76:40"/><number text="1" pos="76:41"/></expr><compoundstmt pos="77:9"><ifstmt pos="78:11"><expr pos="78:14" pos1="78:55"><op text="(" pos="78:15"/><expr pos="78:15" pos1="78:54"><dsgn pos="78:15"><node text="slPacket" pos="78:23"/><node text="[" pos="78:24"/><expr pos="78:24" pos1="78:25"><number text="2" pos="78:25"/></expr></dsgn><op text="=" pos="78:28"/><dsgn pos="78:29"><node text="copy" pos="78:33"/><expr pos="78:34" pos1="78:47"><dsgn pos="78:34"><node text="TargetList" pos="78:44"/><node text="[" pos="78:45"/><expr pos="78:45" pos1="78:46"><dsgn pos="78:45"><node text="i" pos="78:46"/></dsgn></expr></dsgn></expr><expr pos="78:49" pos1="78:50"><number text="1" pos="78:50"/></expr><expr pos="78:52" pos1="78:53"><number text="8" pos="78:53"/></expr></dsgn></expr><op text=")" pos="78:55"/></expr><thenstmt pos="79:11"><compoundstmt pos="79:11"><callstmt pos="80:13"><dsgn pos="80:13"><node text="TargetList" pos="80:23"/><node text="Delete" pos="80:30"/><expr pos="80:31" pos1="80:32"><dsgn pos="80:31"><node text="i" pos="80:32"/></dsgn></expr></dsgn></callstmt><callstmt pos="81:13"><dsgn pos="81:13"><node text="TargetList" pos="81:23"/><node text="add" pos="81:27"/><expr pos="81:28" pos1="81:79"><dsgn pos="81:28"><node text="slPacket" pos="81:36"/><node text="[" pos="81:37"/><expr pos="81:37" pos1="81:38"><number text="2" pos="81:38"/></expr></dsgn><op text="+" pos="81:41"/><string text="'|'" pos="81:45"/><op text="+" pos="81:47"/><dsgn pos="81:48"><node text="slPacket" pos="81:56"/><node text="[" pos="81:57"/><expr pos="81:57" pos1="81:58"><number text="3" pos="81:58"/></expr></dsgn><op text="+" pos="81:61"/><string text="'|'" pos="81:65"/><op text="+" pos="81:67"/><dsgn pos="81:68"><node text="slPacket" pos="81:76"/><node text="[" pos="81:77"/><expr pos="81:77" pos1="81:78"><number text="4" pos="81:78"/></expr></dsgn></expr></dsgn></callstmt></compoundstmt></thenstmt></ifstmt></compoundstmt></forstmt></compoundstmt></thenstmt></ifstmt></compoundstmt></thenstmt></ifstmt><ifstmt pos="86:5"><expr pos="86:8" pos1="86:26"><dsgn pos="86:8"><node text="Pos" pos="86:11"/><expr pos="86:12" pos1="86:18"><string text="'0|R|'" pos="86:18"/></expr><expr pos="86:19" pos1="86:23"><dsgn pos="86:19"><node text="sStr" pos="86:23"/></dsgn></expr></dsgn><op text=">" pos="86:25"/><number text="0" pos="86:26"/></expr><thenstmt pos="87:5"><compoundstmt pos="87:5"><assignstmt pos="88:7"><dsgn pos="88:7"><node text="slPacket" pos="88:15"/><node text="DelimitedText" pos="88:29"/></dsgn><expr pos="88:33" pos1="88:37"><dsgn pos="88:33"><node text="sStr" pos="88:37"/></dsgn></expr></assignstmt><ifstmt pos="89:7"><expr pos="89:10" pos1="89:33"><dsgn pos="89:10"><node text="length" pos="89:16"/><expr pos="89:17" pos1="89:28"><dsgn pos="89:17"><node text="slPacket" pos="89:25"/><node text="[" pos="89:26"/><expr pos="89:26" pos1="89:27"><number text="2" pos="89:27"/></expr></dsgn></expr></dsgn><op text="=" pos="89:31"/><number text="8" pos="89:33"/></expr><thenstmt pos="90:7"><compoundstmt pos="90:7"><forstmt pos="91:9"><ident text="i" pos="91:14"/><expr pos="91:18" pos1="91:19"><number text="0" pos="91:19"/></expr><expr pos="91:23" pos1="91:41"><dsgn pos="91:23"><node text="TargetList" pos="91:33"/><node text="Count" pos="91:39"/></dsgn><op text="-" pos="91:40"/><number text="1" pos="91:41"/></expr><compoundstmt pos="92:9"><ifstmt pos="93:11"><expr pos="93:14" pos1="93:55"><op text="(" pos="93:15"/><expr pos="93:15" pos1="93:54"><dsgn pos="93:15"><node text="slPacket" pos="93:23"/><node text="[" pos="93:24"/><expr pos="93:24" pos1="93:25"><number text="2" pos="93:25"/></expr></dsgn><op text="=" pos="93:28"/><dsgn pos="93:29"><node text="copy" pos="93:33"/><expr pos="93:34" pos1="93:47"><dsgn pos="93:34"><node text="TargetList" pos="93:44"/><node text="[" pos="93:45"/><expr pos="93:45" pos1="93:46"><dsgn pos="93:45"><node text="i" pos="93:46"/></dsgn></expr></dsgn></expr><expr pos="93:49" pos1="93:50"><number text="1" pos="93:50"/></expr><expr pos="93:52" pos1="93:53"><number text="8" pos="93:53"/></expr></dsgn></expr><op text=")" pos="93:55"/></expr><thenstmt pos="94:11"><compoundstmt pos="94:11"><callstmt pos="95:13"><dsgn pos="95:13"><node text="TargetList" pos="95:23"/><node text="Delete" pos="95:30"/><expr pos="95:31" pos1="95:32"><dsgn pos="95:31"><node text="i" pos="95:32"/></dsgn></expr></dsgn></callstmt></compoundstmt></thenstmt></ifstmt></compoundstmt></forstmt></compoundstmt></thenstmt></ifstmt></compoundstmt></thenstmt></ifstmt><expr pos="100:9" pos1="100:23"><dsgn pos="100:9"><node text="iCountPack" pos="100:19"/></dsgn><op text="=" pos="100:21"/><number text="0" pos="100:23"/></expr></repeatstmt></compoundstmt></thenstmt></ifstmt><ifstmt pos="103:1"><expr pos="103:4" pos1="103:20"><op text="(" pos="103:5"/><expr pos="103:5" pos1="103:19"><op text="not" pos="103:8"/><dsgn pos="103:9"><node text="_gFromServ" pos="103:19"/></dsgn></expr><op text=")" pos="103:20"/></expr><thenstmt pos="104:3"><compoundstmt pos="104:3"><ifstmt pos="105:5"><expr pos="105:8" pos1="105:54"><dsgn pos="105:8"><node text="Pos" pos="105:11"/><expr pos="105:12" pos1="105:44"><dsgn pos="105:12"><node text="HStr" pos="105:16"/><expr pos="105:17" pos1="105:43"><string text="'357C627C317C313030300A00'" pos="105:43"/></expr></dsgn></expr><expr pos="105:45" pos1="105:51"><dsgn pos="105:45"><node text="_gBuff" pos="105:51"/></dsgn></expr></dsgn><op text=">" pos="105:53"/><number text="0" pos="105:54"/></expr><thenstmt pos="106:5"><compoundstmt pos="106:5"><callstmt pos="107:7"><dsgn pos="107:7"><node text="gSys" pos="107:11"/><node text="SendS" pos="107:17"/><expr pos="107:18" pos1="107:54"><dsgn pos="107:18"><node text="HStr" pos="107:22"/><expr pos="107:23" pos1="107:33"><string text="'53454C7C'" pos="107:33"/></expr></dsgn><op text="+" pos="107:36"/><dsgn pos="107:37"><node text="nearestTarget" pos="107:50"/></dsgn><op text="+" pos="107:52"/><dsgn pos="107:53"><node text="X" pos="107:54"/></dsgn></expr></dsgn></callstmt><assignstmt pos="108:7"><dsgn pos="108:7"><node text="_gOutBuff" pos="108:16"/></dsgn><expr pos="108:20" pos1="108:23"><dsgn pos="108:20"><node text="nil" pos="108:23"/></dsgn></expr></assignstmt></compoundstmt></thenstmt></ifstmt><callstmt pos="110:5"><dsgn pos="110:5"><node text="slPacket" pos="110:13"/><node text="Clear" pos="110:19"/></dsgn></callstmt><assignstmt pos="111:5"><dsgn pos="111:5"><node text="X" pos="111:6"/></dsgn><expr pos="111:8" pos1="111:21"><dsgn pos="111:8"><node text="HSTR" pos="111:12"/><expr pos="111:13" pos1="111:20"><string text="'0A 00'" pos="111:20"/></expr></dsgn></expr></assignstmt><assignstmt pos="112:5"><dsgn pos="112:5"><node text="lastPackEndPos" pos="112:19"/></dsgn><expr pos="112:21" pos1="112:34"><dsgn pos="112:21"><node text="Pos" pos="112:24"/><expr pos="112:25" pos1="112:26"><dsgn pos="112:25"><node text="X" pos="112:26"/></dsgn></expr><expr pos="112:27" pos1="112:33"><dsgn pos="112:27"><node text="_gBuff" pos="112:33"/></dsgn></expr></dsgn></expr></assignstmt><assignstmt pos="113:5"><dsgn pos="113:5"><node text="lastPackStartPos" pos="113:21"/></dsgn><expr pos="113:23" pos1="113:39"><dsgn pos="113:23"><node text="Pos" pos="113:26"/><expr pos="113:27" pos1="113:31"><string text="'1|'" pos="113:31"/></expr><expr pos="113:32" pos1="113:38"><dsgn pos="113:32"><node text="_gBuff" pos="113:38"/></dsgn></expr></dsgn></expr></assignstmt><ifstmt pos="114:5"><expr pos="114:8" pos1="114:71"><op text="(" pos="114:9"/><expr pos="114:9" pos1="114:29"><dsgn pos="114:9"><node text="lastPackStartPos" pos="114:25"/></dsgn><op text=">" pos="114:27"/><number text="0" pos="114:29"/></expr><op text=")" pos="114:30"/><op text="and" pos="114:35"/><op text="(" pos="114:37"/><expr pos="114:37" pos1="114:70"><dsgn pos="114:37"><node text="lastPackEndPos" pos="114:51"/></dsgn><op text=">" pos="114:53"/><dsgn pos="114:54"><node text="lastPackStartPos" pos="114:70"/></dsgn></expr><op text=")" pos="114:71"/></expr><thenstmt pos="115:5"><compoundstmt pos="115:5"><assignstmt pos="116:7"><dsgn pos="116:7"><node text="ras" pos="116:10"/></dsgn><expr pos="116:12" pos1="116:17"><number text="10000" pos="116:17"/></expr></assignstmt><assignstmt pos="117:7"><dsgn pos="117:7"><node text="s" pos="117:8"/></dsgn><expr pos="117:10" pos1="117:71"><dsgn pos="117:10"><node text="copy" pos="117:14"/><expr pos="117:15" pos1="117:21"><dsgn pos="117:15"><node text="_gBuff" pos="117:21"/></dsgn></expr><expr pos="117:22" pos1="117:38"><dsgn pos="117:22"><node text="lastPackStartPos" pos="117:38"/></dsgn></expr><expr pos="117:39" pos1="117:70"><dsgn pos="117:39"><node text="lastPackEndPos" pos="117:53"/></dsgn><op text="-" pos="117:54"/><dsgn pos="117:54"><node text="lastPackStartPos" pos="117:70"/></dsgn></expr></dsgn></expr></assignstmt><assignstmt pos="118:7"><dsgn pos="118:7"><node text="s2" pos="118:9"/></dsgn><expr pos="118:11" pos1="118:43"><dsgn pos="118:11"><node text="Pos" pos="118:14"/><expr pos="118:15" pos1="118:18"><string text="'|'" pos="118:18"/></expr><expr pos="118:19" pos1="118:40"><dsgn pos="118:19"><node text="copy" pos="118:23"/><expr pos="118:24" pos1="118:25"><dsgn pos="118:24"><node text="s" pos="118:25"/></dsgn></expr><expr pos="118:26" pos1="118:27"><number text="3" pos="118:27"/></expr><expr pos="118:28" pos1="118:39"><dsgn pos="118:28"><node text="length" pos="118:34"/><expr pos="118:35" pos1="118:36"><dsgn pos="118:35"><node text="s" pos="118:36"/></dsgn></expr></dsgn><op text="-" pos="118:38"/><number text="2" pos="118:39"/></expr></dsgn></expr></dsgn><op text="+" pos="118:42"/><number text="2" pos="118:43"/></expr></assignstmt><assignstmt pos="119:7"><dsgn pos="119:7"><node text="s3" pos="119:9"/></dsgn><expr pos="119:11" pos1="119:48"><dsgn pos="119:11"><node text="Pos" pos="119:14"/><expr pos="119:15" pos1="119:18"><string text="'|'" pos="119:18"/></expr><expr pos="119:19" pos1="119:44"><dsgn pos="119:19"><node text="copy" pos="119:23"/><expr pos="119:24" pos1="119:25"><dsgn pos="119:24"><node text="s" pos="119:25"/></dsgn></expr><expr pos="119:26" pos1="119:30"><dsgn pos="119:26"><node text="s2" pos="119:28"/></dsgn><op text="+" pos="119:29"/><number text="1" pos="119:30"/></expr><expr pos="119:31" pos1="119:43"><dsgn pos="119:31"><node text="length" pos="119:37"/><expr pos="119:38" pos1="119:39"><dsgn pos="119:38"><node text="s" pos="119:39"/></dsgn></expr></dsgn><op text="-" pos="119:41"/><dsgn pos="119:41"><node text="s2" pos="119:43"/></dsgn></expr></dsgn></expr></dsgn><op text="+" pos="119:46"/><dsgn pos="119:46"><node text="s2" pos="119:48"/></dsgn></expr></assignstmt><assignstmt pos="120:7"><dsgn pos="120:7"><node text="s4" pos="120:9"/></dsgn><expr pos="120:11" pos1="120:48"><dsgn pos="120:11"><node text="Pos" pos="120:14"/><expr pos="120:15" pos1="120:18"><string text="'|'" pos="120:18"/></expr><expr pos="120:19" pos1="120:44"><dsgn pos="120:19"><node text="copy" pos="120:23"/><expr pos="120:24" pos1="120:25"><dsgn pos="120:24"><node text="s" pos="120:25"/></dsgn></expr><expr pos="120:26" pos1="120:30"><dsgn pos="120:26"><node text="s3" pos="120:28"/></dsgn><op text="+" pos="120:29"/><number text="1" pos="120:30"/></expr><expr pos="120:31" pos1="120:43"><dsgn pos="120:31"><node text="length" pos="120:37"/><expr pos="120:38" pos1="120:39"><dsgn pos="120:38"><node text="s" pos="120:39"/></dsgn></expr></dsgn><op text="-" pos="120:41"/><dsgn pos="120:41"><node text="s3" pos="120:43"/></dsgn></expr></dsgn></expr></dsgn><op text="+" pos="120:46"/><dsgn pos="120:46"><node text="s3" pos="120:48"/></dsgn></expr></assignstmt><assignstmt pos="121:7"><dsgn pos="121:7"><node text="MyCoordX" pos="121:15"/></dsgn><expr pos="121:17" pos1="121:47"><dsgn pos="121:17"><node text="StrToInt" pos="121:25"/><expr pos="121:26" pos1="121:46"><dsgn pos="121:26"><node text="copy" pos="121:30"/><expr pos="121:31" pos1="121:32"><dsgn pos="121:31"><node text="s" pos="121:32"/></dsgn></expr><expr pos="121:33" pos1="121:37"><dsgn pos="121:33"><node text="s3" pos="121:35"/></dsgn><op text="+" pos="121:36"/><number text="1" pos="121:37"/></expr><expr pos="121:38" pos1="121:45"><dsgn pos="121:38"><node text="s4" pos="121:40"/></dsgn><op text="-" pos="121:41"/><dsgn pos="121:41"><node text="s3" pos="121:43"/></dsgn><op text="-" pos="121:44"/><number text="1" pos="121:45"/></expr></dsgn></expr></dsgn></expr></assignstmt><assignstmt pos="122:7"><dsgn pos="122:7"><node text="MyCoordY" pos="122:15"/></dsgn><expr pos="122:17" pos1="122:52"><dsgn pos="122:17"><node text="StrToInt" pos="122:25"/><expr pos="122:26" pos1="122:51"><dsgn pos="122:26"><node text="copy" pos="122:30"/><expr pos="122:31" pos1="122:32"><dsgn pos="122:31"><node text="s" pos="122:32"/></dsgn></expr><expr pos="122:33" pos1="122:37"><dsgn pos="122:33"><node text="s4" pos="122:35"/></dsgn><op text="+" pos="122:36"/><number text="1" pos="122:37"/></expr><expr pos="122:38" pos1="122:50"><dsgn pos="122:38"><node text="length" pos="122:44"/><expr pos="122:45" pos1="122:46"><dsgn pos="122:45"><node text="s" pos="122:46"/></dsgn></expr></dsgn><op text="-" pos="122:48"/><dsgn pos="122:48"><node text="s4" pos="122:50"/></dsgn></expr></dsgn></expr></dsgn></expr></assignstmt><forstmt pos="123:7"><ident text="i" pos="123:12"/><expr pos="123:14" pos1="123:15"><number text="0" pos="123:15"/></expr><expr pos="123:19" pos1="123:39"><op text="(" pos="123:20"/><expr pos="123:20" pos1="123:38"><dsgn pos="123:20"><node text="TargetList" pos="123:30"/><node text="Count" pos="123:36"/></dsgn><op text="-" pos="123:37"/><number text="1" pos="123:38"/></expr><op text=")" pos="123:39"/></expr><compoundstmt pos="124:7"><assignstmt pos="125:9"><dsgn pos="125:9"><node text="slPacket" pos="125:17"/><node text="DelimitedText" pos="125:31"/></dsgn><expr pos="125:35" pos1="125:48"><dsgn pos="125:35"><node text="TargetList" pos="125:45"/><node text="[" pos="125:46"/><expr pos="125:46" pos1="125:47"><dsgn pos="125:46"><node text="i" pos="125:47"/></dsgn></expr></dsgn></expr></assignstmt><assignstmt pos="126:9"><dsgn pos="126:9"><node text="xTarget" pos="126:16"/></dsgn><expr pos="126:18" pos1="126:39"><dsgn pos="126:18"><node text="StrToInt" pos="126:26"/><expr pos="126:27" pos1="126:38"><dsgn pos="126:27"><node text="slPacket" pos="126:35"/><node text="[" pos="126:36"/><expr pos="126:36" pos1="126:37"><number text="1" pos="126:37"/></expr></dsgn></expr></dsgn></expr></assignstmt><assignstmt pos="127:9"><dsgn pos="127:9"><node text="yTarget" pos="127:16"/></dsgn><expr pos="127:18" pos1="127:39"><dsgn pos="127:18"><node text="StrToInt" pos="127:26"/><expr pos="127:27" pos1="127:38"><dsgn pos="127:27"><node text="slPacket" pos="127:35"/><node text="[" pos="127:36"/><expr pos="127:36" pos1="127:37"><number text="2" pos="127:37"/></expr></dsgn></expr></dsgn></expr></assignstmt><ifstmt pos="128:9"><expr pos="128:12" pos1="128:97"><dsgn pos="128:12"><node text="SQRT" pos="128:16"/><expr pos="128:17" pos1="128:92"><op text="(" pos="128:18"/><expr pos="128:18" pos1="128:34"><dsgn pos="128:18"><node text="MyCoordX" pos="128:26"/></dsgn><op text="-" pos="128:27"/><dsgn pos="128:27"><node text="xTarget" pos="128:34"/></dsgn></expr><op text=")" pos="128:35"/><op text="*" pos="128:36"/><op text="(" pos="128:37"/><expr pos="128:37" pos1="128:53"><dsgn pos="128:37"><node text="MyCoordX" pos="128:45"/></dsgn><op text="-" pos="128:46"/><dsgn pos="128:46"><node text="xTarget" pos="128:53"/></dsgn></expr><op text=")" pos="128:54"/><op text="+" pos="128:55"/><op text="(" pos="128:56"/><expr pos="128:56" pos1="128:72"><dsgn pos="128:56"><node text="MyCoordY" pos="128:64"/></dsgn><op text="-" pos="128:65"/><dsgn pos="128:65"><node text="yTarget" pos="128:72"/></dsgn></expr><op text=")" pos="128:73"/><op text="*" pos="128:74"/><op text="(" pos="128:75"/><expr pos="128:75" pos1="128:91"><dsgn pos="128:75"><node text="MyCoordY" pos="128:83"/></dsgn><op text="-" pos="128:84"/><dsgn pos="128:84"><node text="yTarget" pos="128:91"/></dsgn></expr><op text=")" pos="128:92"/></expr></dsgn><op text="<" pos="128:94"/><dsgn pos="128:94"><node text="ras" pos="128:97"/></dsgn></expr><thenstmt pos="129:9"><compoundstmt pos="129:9"><assignstmt pos="130:11"><dsgn pos="130:11"><node text="ras" pos="130:14"/></dsgn><expr pos="130:18" pos1="130:104"><dsgn pos="130:18"><node text="int" pos="130:21"/><expr pos="130:22" pos1="130:103"><dsgn pos="130:22"><node text="SQRT" pos="130:26"/><expr pos="130:27" pos1="130:102"><op text="(" pos="130:28"/><expr pos="130:28" pos1="130:44"><dsgn pos="130:28"><node text="MyCoordX" pos="130:36"/></dsgn><op text="-" pos="130:37"/><dsgn pos="130:37"><node text="xTarget" pos="130:44"/></dsgn></expr><op text=")" pos="130:45"/><op text="*" pos="130:46"/><op text="(" pos="130:47"/><expr pos="130:47" pos1="130:63"><dsgn pos="130:47"><node text="MyCoordX" pos="130:55"/></dsgn><op text="-" pos="130:56"/><dsgn pos="130:56"><node text="xTarget" pos="130:63"/></dsgn></expr><op text=")" pos="130:64"/><op text="+" pos="130:65"/><op text="(" pos="130:66"/><expr pos="130:66" pos1="130:82"><dsgn pos="130:66"><node text="MyCoordY" pos="130:74"/></dsgn><op text="-" pos="130:75"/><dsgn pos="130:75"><node text="yTarget" pos="130:82"/></dsgn></expr><op text=")" pos="130:83"/><op text="*" pos="130:84"/><op text="(" pos="130:85"/><expr pos="130:85" pos1="130:101"><dsgn pos="130:85"><node text="MyCoordY" pos="130:93"/></dsgn><op text="-" pos="130:94"/><dsgn pos="130:94"><node text="yTarget" pos="130:101"/></dsgn></expr><op text=")" pos="130:102"/></expr></dsgn></expr></dsgn></expr></assignstmt><assignstmt pos="131:11"><dsgn pos="131:11"><node text="nearestTarget" pos="131:24"/></dsgn><expr pos="131:26" pos1="131:37"><dsgn pos="131:26"><node text="slPacket" pos="131:34"/><node text="[" pos="131:35"/><expr pos="131:35" pos1="131:36"><number text="0" pos="131:36"/></expr></dsgn></expr></assignstmt></compoundstmt></thenstmt></ifstmt></compoundstmt></forstmt></compoundstmt></thenstmt></ifstmt></compoundstmt></thenstmt></ifstmt></compoundstmt><types/></program>DBD91C71D45AD74B

Исходник:

var
iCountPack, iPos, i, ras, s2, s3, s4, lastPackEndPos, lastPackStartPos, MyCoordX, MyCoordY, xTarget, yTarget: integer;
sStr, s, nearestTarget, X, MyCorp: string;
slPacket, TargetList, MyCorpList: TStringList;
wTemp, Key: word;

function Ochistka(s: string): string;
var
p: integer;
begin
repeat
p := Pos(Hstr('20'), s);
if p>0 then
begin
delete(s, p, 1);
end;
until p<1;result := s;
end;

procedure OnCreate;
begin
TargetList := TStringList.create;
MyCorpList := TStringList.create;
MyCorpList.LoadFromFile('custom/MyCorp.txt');
TargetList.Sorted := True;
TargetList.Duplicates := dupIgnore;
slPacket := TStringList.create;
slPacket.Delimiter := Hstr('7C');
end;

procedure OnDestroy;
begin
MyCorpList.free;
TargetList.free;
slPacket.free;
end;

begin
MyCorp := MyCorpList[1];
if (_gFromServ) then
begin
iCountPack := 1;
slPacket.Clear;
repeat
iCountPack := ScanPck5(_gBuff, iCountPack, 'ah', sStr, wTemp, NULL, NULL, NULL);
iPos := Pos('0|C|', sStr);
sStr := Ochistka(sStr);
if (iPos>0) then
begin
slPacket.DelimitedText := sStr;
if slPacket[9]<>'0' then
begin
if slPacket[9]<>MyCorp then
begin
for i:=0 to TargetList.Count-1 do
begin
if slPacket[2]=copy(TargetList[i], 1, 8) then
begin
TargetList.Delete(i);
TargetList.add(slPacket[2]+'|'+slPacket[7]+'|'+slPacket[8]);
end;
end;
TargetList.add(slPacket[2]+'|'+slPacket[7]+'|'+slPacket[8]);
end;
end;
end;
if Pos('0|1|', sStr)>0 then
begin
slPacket.Clear;
slPacket.DelimitedText := sStr;
if length(slPacket[2])=8 then
begin
for i:=0 to TargetList.Count-1 do
begin
if (slPacket[2]=copy(TargetList[i], 1, 8)) then
begin
TargetList.Delete(i);
TargetList.add(slPacket[2]+'|'+slPacket[3]+'|'+slPacket[4]);
end;
end;
end;
end;
if Pos('0|R|', sStr)>0 then
begin
slPacket.DelimitedText := sStr;
if length(slPacket[2])=8 then
begin
for i:=0 to TargetList.Count-1 do
begin
if (slPacket[2]=copy(TargetList[i], 1, 8)) then
begin
TargetList.Delete(i);
end;
end;
end;
end;
until iCountPack=0;
end;
if (not _gFromServ) then
begin
if Pos(HStr('357C627C317C313030300A00'), _gBuff)>0 then
begin
gSys.SendS(HStr('53454C7C')+nearestTarget+X);
_gOutBuff := nil;
end;
slPacket.Clear;
X := HSTR('0A 00');
lastPackEndPos := Pos(X, _gBuff);
lastPackStartPos := Pos('1|', _gBuff);
if (lastPackStartPos>0)and(lastPackEndPos>lastPackStartPos) then
begin
ras := 10000;
s := copy(_gBuff, lastPackStartPos, lastPackEndPos-lastPackStartPos);
s2 := Pos('|', copy(s, 3, length(s)-2))+2;
s3 := Pos('|', copy(s, s2+1, length(s)-s2))+s2;
s4 := Pos('|', copy(s, s3+1, length(s)-s3))+s3;
MyCoordX := StrToInt(copy(s, s3+1, s4-s3-1));
MyCoordY := StrToInt(copy(s, s4+1, length(s)-s4));
for i:=0 to (TargetList.Count-1) do
begin
slPacket.DelimitedText := TargetList[i];
xTarget := StrToInt(slPacket[1]);
yTarget := StrToInt(slPacket[2]);
if SQRT((MyCoordX-xTarget)*(MyCoordX-xTarget)+(MyCoordY-yTarget)*(MyCoordY-yTarget))<ras then
begin
ras := int(SQRT((MyCoordX-xTarget)*(MyCoordX-xTarget)+(MyCoordY-yTarget)*(MyCoordY-yTarget)));
nearestTarget := slPacket[0];
end;

Skype: hariton1545
Icq: 425099845

[Longerr]

хм... это может сделать любой дурак с декомпилятором от Дестроера, а ты за это еще и деньги хочешь...

[DarkNiko]

Цитата: Сообщение от Longerr хм... это может сделать любой дурак с декомпилятором от Дестроера, а ты за это еще и деньги хочешь...

Будь добр скинь в личку.

[Steam~]

попытка заработать на том что в паблике -_-