В общем понравился скрипт, разобрался и проверил - доволен
На моем сервере есть евент точки, т.е можно носить только одно оружие и покупать 24 точки за 6 часов. Точки не проблема, а вот с оружием хотелось бы повозиться.
Mks, TAMBIK, как привязать скрипт, чтобы он покупал автоматически оружие после неудачной точки? ID и диалог я думаю пропишу, но вот в каком моменте скрипта его писать надо? Помогите плз.
Народ помогите плиз... Зашёл в игру, на серв, запустил прогу, сделал скрипт:
delphi Код:
const
nik='Paveljordan';
Enchant=30;
var
UseItem, EnchantItem: string;
Count, CurrentEnch: integer;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=500;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=UseItem;
SendToServerEx(nik);
buf:=EnchantItem;
SendToServerEx(nik);
end;
procedure Free;
begin
Timer01.free;
count:=0;
CurrentEnch:=0;
end;
beginif FromServer and(pck[1]=#$87)thencase ReadD(2)of0: begin
CurrentEnch:=CurrentEnch+1;
if CurrentEnch=Enchant then Timer01.enabled:=false;
end;
2: CurrentEnch:=0;
end;
if FromClient and(pck[1]=#$19)then UseItem:=pck;
if FromClient and(pck[1]=#$5F)then EnchantItem:=pck;
if FromClient and(pck=#$34#$02#$00#$00#$00)thenbegin
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end;
end.
Поставил галочку на нём, развернул окно, купил заточку, заточил пуху на +1, в соц действиях да, но ничего не точится...
Скажите плиз в чём у меня тут проблема?
Последний раз редактировалось QaK, 09.03.2010 в 19:25.
Причина: Не полностью описал проблему
Прив всем! У меня проблемка со скриптом выставил уровень заточки +16(точил блесками) После пого как заточка слетает(сбрасывается в ноль) в окошке заточки ничего не меняется пушка слетела на 12, а скрипт этого не видит и точит дальше, останавливается после того как в окошке заточки написано +16, но сама пушка до +16 не заточена. В чем может быть дело? Как это исправить? Поискал в теме ответа не нашел. Окошко заточки:
var UseItem, EnchantItem: string; Count, CurrentEnch: integer; Timer01: TTimer;
procedure Init; begin Timer01:=TTimer.Create(nil); Timer01.OnTimer:=@OnTimer01; Timer01.enabled:=false; Timer01.interval:=500; end;
procedure OnTimer01(Sender: TObject); begin buf:=UseItem; SendToServerEx(nik); buf:=EnchantItem; SendToServerEx(nik); end;
procedure Free; begin Timer01.free; count:=0; CurrentEnch:=0; end;
begin if FromServer and (pck[1]=#$87) then begin CurrentEnch:=ReadD(2); if CurrentEnch=Enchant then Timer01.enabled:=false; end; if FromClient and (pck[1]=#$19) then UseItem:=pck; if FromClient and (pck[1]=#$5F) then EnchantItem:=pck; if FromClient and (pck=#$34#$02#$00#$00#$00) then begin pck:=''; Timer01.enabled:=not(Timer01.enabled); end;
end.
Требуется следуещее:
Заточка вещи на заданный уровень простыми скролами, далее переход на заточку блесс скролами, при фейле начинать все сначала.
все не прочел, но мб все равно что нибудь посоветуете, в общем играю на пвп серве , естественно точить ручками оч оч напряжно поэтому начинаю осваивать пакетхак ну в принципе все норм но после 9 пакета выкидывает с игры (просто логаут)
лог пакетхака