Скрипт авто БД, СВС

[Scaem]

выложите плс полный готовы йскрипт на ХБ ))

[alexteam]

.\settings\SkillsID.ini
Для ПХ с версией выше 3.5.1.100
.\SkillsID.ini
для версий ниже.

[lamer]

я так и думал..

[PanAm]

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

procedure createskillbase;
var
 i, j,SkillCount: integer;
begin
  for i:=1 to 200 do begin
    skillbase[i,1]:=0;
    skillbase[i,2]:=0;
  end;
  J:=2;
  listbox1.items.Clear;
  SkillCount := ReadD(J);
  for i:=1 to SkillCount do
    if ReadD(j)=0 then begin
      skillbase[i,1]:=ReadD(j);
      skillbase[i,2]:=ReadD(j);
      inc(j);
      listbox1.items.Add('ID:'+inttostr(skillbase[i,2])+'   '+SkillsName.Values[IntToStr(skillbase[i,2])]+'  LVL:'+inttostr(skillbase[i,1]));
    end else
      J := J+9;
  if SkillCount>0 then skillhave:=true;
end;

[AD!]

Скрипт доделан и обновлен в 1м посте, по идее должен следовать))

[Pat]

Уже неделю бьюсь с настройкой скрипта на варлока. Суть понимаю, скилы не чара а сумона и соответственно надо знать информацию PetInfo и еще наверно что то. Подскажите хотя бы намеками в каком направлении надо решать проблему. И еще не могу разобраться с переменными i, n и J , с теми что стоят в скрипте для СвС и БД скилы из \SkillsID.ini какие то левые выбираются, приходится в строке listbox1.items.Add('ID:'+inttostr(skillbase[i,2])+' '+SkillsName.Values[IntToStr(skillbase[i,2])]+' LVL:'+inttostr(skillbase[i,1])); прописывать вручную нужные ID

[AD!]

Айди этих скилов в пакетах не идут, их клиент знает, поэтому становится непонятно от чего отталкиваться, ведь вручную сопоставлять какой скилл какому пету принадлежит не очень охота.

п.с. может я плохо искал )) может и идут

[Pat]

Id петов известны их пакетхак отлавливает, пробелемма в другом-кастует скилы сумон а не чар и в данном скрипте каст начинается с принятия пати чаром а сумон не знает об этом

Добавлено через 6 часов 14 минут
А может пойти другим путем? На панели,например, F12 поставить нужный скил и исправить кусок скрипта по типу
procedure MagicSkillUse(ActionID:integer);
begin
buf:=#$45;
WriteD(ActionID);
WriteD(00);
WriteC(00);
SendToServerEx(Name);
и в строке
listbox1.items.Add('ID:'+inttostr(skillbase[i,2])+' '+SkillsName.Values[IntToStr(skillbase[i,2])]+' LVL:'+inttostr(skillbase[i,1]));
поставить ID нажатия клавиши F12?
Если не правильно может поправят знающие

[QaK]

Pat, панелька - это GUI, пакетами ф11 не нажмешь.

[Pat]

Вобщем опробовал я дома замену 2F на 45 вместо скилов поставил действие

procedure MagicSkillUse(MagicID:integer);
begin
  buf:=#$45;
  WriteD(MagicID);
  WriteD(00);
  WriteC(00);
  SendToServerEx(Name);
procedure createskillbase;
var
 i, j, n: integer;
begin
for i:=1 to 200 do
    begin
    skillbase[i,1]:=0;
    skillbase[i,2]:=0;
    end;

 n:=0;
 J:=10;
 listbox1.items.Clear;
for I:=1 to 200 do
    begin
    skillbase[i,1]:=ReadD(j);
    skillbase[i,2]:=ReadD(j);
    if skillbase[i,2]=0 then break;
    j:=j+5;
    inc(n);


    listbox1.items.Add('ID:'+inttostr(1007)+'   '+SkillsName.Values[IntToStr(1007)]);

    end;

if N>0 then skillhave:=true;
end;

пати принимает скил самона кидает, но из пати не выходит, правлю интуитивно скрипт, но чувствую с дельфи и паскалем начну знакомится