точка скилов

[Rash]

Нет, на счёт первого скрипта - доходит до точки которая фейл,ломает скил в 0 и дисконект.
Что касается твоего скрипта, запустил всё, всключил скрипт, выбрал скил точнул раз два пять десять - ничего, сменил ид скила ,точнул раз новый скил,снова ничего.

[PaulGreatest]

Под Интерлюд бы скрипт

[Rash]

Сообщение от PaulGreatest

Под Интерлюд бы скрипт

пошутил? скриптов хоть утопись http://coderx.ru/showthread.php?t=476

[PaulGreatest]

Сообщение от Rash

пошутил? скриптов хоть утопись http://coderx.ru/showthread.php?t=476

Имею ввиду для заточки скилов)

[Rash]

wimax, скрипт работает! НО не полностью! запустил скрипт,точнул на 1, скрипт точнул его на 2 и тут всё! он не выделяет следущую точку,а пытается снова точить на ту же +2 +2 +2 и пока мышкой в нужную ячейку не тыкнешь ничего не произойдёт! _http://s008.radikal.ru/i304/1103/d3/3d2be0295f51.jpg Подскажи что изменить надо в скрипте? или может сам внеси изменения! Буду очень признателен,давно мучаюсь =(

[wimax]

Const
  NickName = 'твой нИК!';
  MaxEnchantLevel = Доскольки точить ЧИСЛО;

  interval = 0;   //Интервал между точкой
  MainDebug = false; // ПИСАТТЬ СОБОЩЕНИЯ В ЧАТ ИЛИ НЕТ ДА-true НЕТ-false
  
var
  CurLevel: integer;
  tick: integer;
  SKillID: integer;

procedure Init; //Вызывается при включении скрипта
begin
  CurLevel := -1;
end;


function Wait(var tick: integer; Timewait: Integer): Boolean; // сквозная проверка без остановки скрипта
var
  t: integer;
begin
  result:=false;
  t:=Round(Time*86400);
  if t>(tick+Timewait) then begin
    if tick>0 then result:=true;
    tick:=t;
  end;
end;

procedure SendMsg_to_Chat(ChatType: integer; msg:string);                                 
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS(NickName);
  WriteS(msg);
  SendToClientEx(NickName);
end;
// послать отладочное сообщение себе
procedure DebugMsg(msg:string);
begin
  if MainDebug then
    SendMsg_to_Private(msg);
end;
// послать сообщение себе в приват
procedure SendMsg_to_Private(msg:string);
begin
  SendMsg_to_Chat(2,msg);
end;

begin
  if pck = '' then exit;
  // Т.к. использоваться будет только для одного чара, остальных сразу отсеиваем
  if ConnectName<>NickName then Exit;

  // пакет - сообщение со статусом заточки
  if FromServer and (pck[1]=#$62) and (pck[3]+pck[4]+pck[5] = HStr('05 00 00')) then begin
    if (pck[2] = #$A0)or(pck[2] = #$A1)then begin
      SKillID := ReadD(14);
      CurLevel := ReadD(18);
      // заточка была не удачной, обнуляем текущий уровень заточки
      if pck[2] = #$A1 then
        CurLevel := (CurLevel div 100)*100;  // округляем
      DebugMsg('SKillID='+inttostr(SKillID)+'; CurLevel='+inttostr(CurLevel));
      if (CurLevel mod 100) >= MaxEnchantLevel then
        CurLevel := -1;
      tick := 0;
      Wait(tick, interval);
    end;
  end;

  //  Можно закомментировать "and Wait(tick, interval)", точиться будет намного быстрее,
  // только ощущение такое, что шанс точки меньше, хотя может и показалось
  if (CurLevel >= 0) and Wait(tick, interval) then begin
    DebugMsg('точим');
    buf := HStr('D0 0F 00');
    WriteD(SKillID);
    WriteD(CurLevel+1);
    SendToServerEx(NickName);
    CurLevel := -1;
  end;
end.

настрой тока константы и все и будет тебе точить все отлично

[RedNaxLex]

че то у меня все также вручную надо точить( и по одному, да. консты изменил под себя...

[Rash]

скрипт работает,но через раз, из за спама пакетами перестаёт точить часто, если поставить интервал 1 , то быстрее состаришься пока он заточит) но всё жё лучше что-то ,чем ничего )

[RedNaxLex]

Да я тебе говорю, вообще отказывается работать. Хроны эпилог, может из за этого...

[Rash]

проверь написание своего ника в скрипте, там должен быть такой же реестр букв - большие маленькие