[Помогите!] ID коробок

[Azazelloo]

Если кто знает.
Можете выложить ID бонусных коробок плиз?) и какой ид на какую коробку?
Буду очень благодарен)

[Shock777]

Тема не в этом разделе

[Azazelloo]

Цитата: Сообщение от Shock777 Тема не в этом разделе

сам уже понял перенес бы да хз как..

[=August=]

Azazelloo, зайди в "опции темы" справа вверху и удали.

[vokovl]

Цитата: Сообщение от =August= Azazelloo, зайди в "опции темы" справа вверху и удали.

да ну )) ты сам так пробовал?

[EndSub]

var
slist: TStringList;
lastPackStartPos: Integer;
lastPackEndPos, LastTmrCode: Integer;
BoxCode1, BoxCode2, BoxCode3: string;

function PosEx(SubStr, S: string; Offset: Cardinal = 1): Integer;
var
I, X: Integer;
Len, LenSubStr: Integer;
begin
if Offset=1 then
Result := Pos(SubStr, S) 
else
begin
I := Offset;
LenSubStr := Length(SubStr);
Len := Length(S)-LenSubStr+1;
while I<=Len do
begin
if S[I]=SubStr[1] then
begin
X := 1;
while (X<LenSubStr)and(S[I+X]=SubStr[X+1]) do
Inc(X);
if (X=LenSubStr) then
begin
Result := I;
Exit;
end;
end;
Inc(I);
end;
Result := 0;
end;
end;

procedure OnCreate;
begin
try
slist := TStringList.create;
slist.add('ozims');
slist.add('1604u');
slist.add('znmjs');
slist.add('bu9m9');
slist.add('zel71');
slist.add('q4knx');
slist.add('ci7m0');
slist.add('1ukl6');
slist.add('1gtlm');
slist.add('180fk');
slist.add('13b44');
slist.add('ntr63');
slist.add('1lmf1');
slist.add('1r78f');
slist.add('1oloo');
slist.add('xixzz');
slist.add('13jaa');
slist.add('6dge9');
slist.add('m79jj');
slist.add('h0rbx');
slist.add('n5cwr');
slist.add('1hviz');
slist.add('1g4pv');
slist.add('1ss4t');
slist.add('1c2tu');
slist.add('100vp');
slist.add('rku9c');
slist.add('1hd2h');
slist.add('416n4');
slist.add('1t5p4');
slist.add('6ovbk');
slist.add('3k2hr');
slist.add('48chq');
slist.add('lnkdf');
slist.add('1usjy');
slist.add('1scn2');
slist.add('usc1j');
slist.add('qj4o9');
slist.add('yyr28');
slist.add('3mtlo');
slist.add('hkw3g');
slist.add('a2abg');
slist.add('1fnxl');
slist.add('1kjds');
slist.add('9icg0');
slist.add('13umf');
slist.add('qtqry');
slist.add('1ucay');
slist.add('puvoe');
slist.add('1c3oi');
slist.add('1nesl');
slist.add('wl0wr');
slist.add('sn8n9');
slist.add('1v20m');
slist.add('1g568');
slist.add('1malf');
slist.add('w27x1');
slist.add('ov57p');
slist.add('1ecek');
slist.add('1my80');
slist.add('1srvg');
slist.add('2u942');
slist.add('103wa');
slist.add('1srrl');
slist.add('109xs');
slist.add('6x1u8');
slist.add('152g8');
slist.add('5naot');
slist.add('oeoud');
slist.add('tbeuu');
slist.add('13p97');
slist.add('rckbt');
slist.add('1trob');
slist.add('1fsi3');
slist.add('v2qxb');
slist.add('1szeq');
slist.add('87k2a');
slist.add('1bfcm');
slist.add('fc9f7');
slist.add('1g7du');
slist.add('lqzp9');
slist.add('wbku5');
slist.add('1ts89');
slist.add('1ag6n');
slist.add('10tv0');
slist.add('49ol8');
slist.add('1isk4');
slist.add('1jyqj');
slist.add('1e5au');
slist.add('8v03f');
slist.add('uy62u');
slist.add('mk797');
slist.add('1g65j');
slist.add('hm27v');
slist.add('hs940');
slist.add('q0e4a');
slist.add('bv8wq');
slist.add('1nad0');
slist.add('1mc48');
slist.add('1801q');
except
slist := nil;
writelogln(' Ioeaea eieoeaeecaoee iauaeoa TStringList');
end;
LastTmrCode := 3;
end;

procedure OnDestroy;
begin
if slist<>nil then
slist.free;
end;

function OnTimer(ntimer, count: integer): boolean;
begin
gSys.SetTimer(ntimer, 0);
if ntimer=1 then
begin
gSys.SendS('x|'+BoxCode1+#10+#00);
end;
if ntimer=2 then
begin
gSys.SendS('x|'+BoxCode2+#10+#00);
end;
if ntimer=3 then
begin
gSys.SendS('x|'+BoxCode3+#10+#00);
end;
end;

begin
if _gFromServ then
begin
lastPackStartPos := 1;
lastPackStartPos := Pos('0|c|', copy(_gBuff, lastPackStartPos, length(_gBuff)-lastPackStartPos+1));
while not (lastPackStartPos<1) do
begin
if StrCmp(copy(_gBuff, lastPackStartPos+9, 3), '|2|') then
begin
if not slist.IndexOf(copy(_gBuff, lastPackStartPos+4, 5))>-1 then
begin
gSys.sleep(75);
if LastTmrCode=1 then
begin
LastTmrCode := 2;
gSys.SetTimer(2, 700);
BoxCode2 := copy(_gBuff, lastPackStartPos+4, 5);
end 
else
begin
if LastTmrCode=2 then
begin
LastTmrCode := 3;
gSys.SetTimer(3, 700);
BoxCode3 := copy(_gBuff, lastPackStartPos+4, 5);
end 
else
begin
if LastTmrCode=3 then
begin
LastTmrCode := 1;
gSys.SetTimer(1, 700);
BoxCode1 := copy(_gBuff, lastPackStartPos+4, 5);
end;
end;
end;
end;
end;
lastPackStartPos := PosEx('0|c|', _gBuff, lastPackStartPos+1);
end;
end;
end.

вот скрипт пылесос коробок ,может что полезное увидишь