Вот мой скрипт активирую на "Смех" и ничего не работает
Сервер Финал
Цитата:
var
Timer:TTimer;
TimerStep:integer;
TargetID:integer;
StartSkill:word;
name:string;
procedure Init;
begin
TimerStep:=1;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.enabled:=false;
Timer.interval:=1;
end;
procedure Free;
begin
Timer.free;
end;
procedure OnTimer(Sender: TObject);
begin
case TimerStep of
1:
begin
Timer.interval:=6000; //Таймер
buf := HStr('CC 00 57 6B FF 1C 74 46 00 00 '); // пакет извлечения
SendToServerEx(name);
buf := HStr('EE 01 57 8D FE 06 8D 01 00 EB 6A 55 00 01 00 00 00 00 00 00 00 01 00'); //Регистрация на аукционе
SendToServerEx(name);
Inc(TimerStep);
end;
2:
begin
Timer.interval:=1;
buf := HStr('EF 01 57 8C FE 06 8D 01 00 EB 6A 55 00 '); //Снятие с аукциона
SendToServerEx(name);
TimerStep:=1;
end;
end;
end;
begin
if FromClient and (ReadC(1) = $9F) then
name:=ConnectName;
if FromClient and (pck=HStr('C2 00 57 61 FF 15 01 00 00 00 00 00')) then // Активация эмоция (ловите свой пакет)
begin
Timer.enabled:=true;
pck:='';
end;
if FromClient and (pck=HStr('CC 00 57 6B FF EE 56 0E 00 00 ')) then // Выключение эмоция (ловите свой пакет)
begin
Timer.enabled:=false;
pck:='';
end;
end.
кстати автор если используешь такой "дюп" с помощью скрипта, лучше вообще таймер убрать. Лучше по приходу пакетов, скрипт вообще в 2 шага и без заморочек почти, главное пакеты разобрать, так намного быстрей и цикличность точно не прервется, а еще как выше было написано - лучше через магазин это делать, а не аук.