го лучше новый состряпаем) я вот тут чото начал, ну и конечно же запинки, над узнать как то ObjectID всех скролов которые в сумке и которые будут в дальнейшем покупатся)
DELPHI Код:
const
name = 'secret' ;
rbID = 858 ;
enchlvl = 7;
var
EnchantTimer:TTimer;
a,ObjectIDrb:integer;
procedure Init;
begin
a:=1;
EnchantTimer:=TTimer.Create(nil);
EnchantTimer.Ontimer:=@Enchant;
EnchantTimer.Interval:=1100;
EnchantTimer.Enabled:=false;
end;
procedure Free;
begin
EnchantTimer.free;
end;
procedure Enchant;
begin
case a of
1: begin // первые 2 действия заточка простым скролом
buf:=#$14;
// WriteD(тут объект ид у скрола);
WriteD(0);
SendToServerEx(name);
a:=2;
end;
2: begin
buf:=#$58;
WriteD(ObjectIDrb);
WriteD(0);
SendToServerEx(name);
EnchantTimer.Enabled:=false;
end;
3: begin //Заточка блесс скролом
buf:=#$14;
// WriteD(тут объект ид у скрола);
WriteD(0);
SendToServerEx(name);
a:=4;
end;
4: begin
buf:=#$58;
WriteD(ObjectIDrb);
WriteD(0);
SendToServerEx(name);
EnchantTimer.Enabled:=false;
end;
end;
end;
procedure InvertoryUpdate;
begin
if (ReadD(12)=rbID) then
begin
ObjectIDrb:=ReadD(8);
case ReadH(30) of
0..5: begin a:=1; EnchantTimer.Enabled:=true; end;
5..enchlvl: begin a:=3; EnchantTimer.Enabled:=true; end;
end;
end;
if (ReadD(42)=rbID) then
begin
case ReadH(60) of
0..5: begin a:=1; EnchantTimer.Enabled:=true; end;
5..enchlvl: begin a:=3; EnchantTimer.Enabled:=true; end;
end;
end;
end;
begin
if (connectname=name) and (fromserver) then
case pck[1] of
#$27: InvertoryUpdate;
end;
end.