Скрипт на заточку

[TAMBIK]

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

При загрузке скрипта.
Access violation at address 132ABC98 in module 'l2pbx.exe'. Read of address 00000000.
и он не работает.
Срвер С6(интерлюд)

куда ты его грузишь ?????

[ps12]

запускаю l2phx.3.5.32.163 там с криптах запускаю его открывается окошко, итемБокс пустой сразу вылазиет эта ошибка.

Добавлено через 1 час 3 минуты
Помогите со скриптов на Синтерлюд) сервер la2-wos.ru
Уже 6-7 скриптов перепробовал которые на форуме были и не один не заработал.

заранее спасибо.
//Qak:Никто не поможет тебе, кроме себя самого © Кто-то там знаменитый

[MaRK]

щас испытаем скрипт =)

[CHEECH]

что делать если скрипт на заточку не загружает итемс айди?

[TAMBIK]

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

что делать если скрипт на заточку не загружает итемс айди?

ПРОЧИТАТЬ ТЕМУ !

[Muko]

скрипт неработает. Серв гф, вот что в папке систем прописано на интересующий меня пердмет:

6608	Посох Тайн	Проницательность	<Свойство Кристалла Души>\n Увеличивает Скор. Маг. На 15%. Увеличивает урон в PvP.	-1	0	0			0	0												0		1

А вот что в ItemsID:

6608=Посох Тайн

ID одинаковые но почему скрипт нивидит ни пухи ни точек, ни вобще ничего? интентарь и чара настраивал в скрипте, перепробывал абсолютно все скрипты!

по возможности скиньте ктонить более-менее свежий пакетхак с скриптами сразу рабочими. мб поможет

[QaK]

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

по возможности скиньте ктонить более-менее свежий пакетхак с скриптами сразу рабочими.

а губозакатывающую машинку?
если

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

скрипт нивидит ни пухи ни точек

означает лишь одно - или разбор пакета на инвентарь некорректно( не те смещения) или ИД пакета инвентаря не то, которое, на самом деле.

[newworld]

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

скрипт нивидит ни пухи ни точек

Попробуй убрать(поставить) галочку: Показывать смещение в Hex

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

для Грации можно взять здесь

Скачал данный скрипт. Как сделать чтобы он не "останавливался" при поломке всех итемов??? Точу блессед точками.
Опишу, навсякий, проблему:
Точиться все отлично, но при поломке итема скрипт перестает его брать в расчет. Когда же последний итем ломатеся, то игра зависает.




Добавлено через 20 часов 28 минут
решил сделать так:
case заключил в цикл:

    repeat
    case pck[1] of
       //......................................
      #$11: begin
        //debugmsg('S>C Пакет ItemListPacket #$11');
        ItemList;   
      end;
      //......................................
      #$21: begin
        //debugmsg('S>C Пакет InventoryUpdate #$21');
        InventoryUpdate;    
      end;
      //......................................
      //Пакет ChooseInventory
      #$7C: begin 
        flag7C:=false;
        if ready then begin //and (readd(2)=itemid)
          //ищем подходящий предмет для заточки
          timer.enabled:=false; //отключаем пока не найдем предмет для заточки
          repeat
            ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
            if ItemOID=0 then begin
              inc(CurEnchLvl);
              Edit2.text:=inttostr(CurEnchLvl);
            end;
          until ItemOID<>0;
          //************************************************
          if (CurEnchLvl>=strtoint(Edit1.Text)) then begin
            msg.Lines.Add('Нет подходящих предметов для улучшения! Прервано!');
            msg.Lines.Add('Достигли MaxEnchLvl!');
            timer.enabled:=false;
            ready:=false;
            delay(500);
            RequestEnchantItem(-1);
            exit;
          end else begin
            msg.Lines.Add('Пробуем улучшить ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
            flag7c:=true;         
            ready:=false;
            timer.enabled:=true; 
            delay (500);
            exit;
           end;
        end;
      end;  
      #$FE: begin
              if pck[2]=#$81
                 then begin
                        flagFE:=true; 
                        delay (2000); 
                        exit;
                      end;   
            end;
      #$87: begin
        if readd(2)=0 
           then begin
                  msg.Lines.Add('Улучшили ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
                  inc(good); 
                  flag87:=true; 
                  delay (500);
                  exit;
                end   
           else begin
                  msg.Lines.Add('Сломали ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
                  inc(broken);
                  flag87:=true; 
                  delay (500);
                  exit;
                end;
        end;
   end;     
    until CurEnchLvl><0;       //начнем с начала. Расскоментировать для блессет скроллов
    if flag7C=true

После компилироавния ставит курсор перед последним end что это значит???
Откомментируйте пожалуйста.

[newworld]

     
    case pck[1] of
       //......................................
      #$11: begin
        //debugmsg('S>C Пакет ItemListPacket #$11');
        ItemList;   
      end;
      //......................................
      #$21: begin
        //debugmsg('S>C Пакет InventoryUpdate #$21');
        InventoryUpdate;    
      end;
      //......................................
      //Пакет ChooseInventory
      #$7C: begin 
        flag7C:=false;
        if ready then begin //and (readd(2)=itemid)
          //ищем подходящий предмет для заточки
          timer.enabled:=false; //отключаем пока не найдем предмет для заточки
          repeat
            ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
            if ItemOID=0 then begin
              inc(CurEnchLvl);
              Edit2.text:=inttostr(CurEnchLvl);
            end;
          until ItemOID<>0;
          //************************************************
          if (CurEnchLvl>=strtoint(Edit1.Text)) then begin
            msg.Lines.Add('Нет подходящих предметов для улучшения! Прервано!');
            msg.Lines.Add('Достигли MaxEnchLvl!');
            timer.enabled:=false;
            ready:=false;
            delay(500);
            RequestEnchantItem(-1);
            exit;
          end else begin
            msg.Lines.Add('Пробуем улучшить ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
            flag7c:=true;         
            ready:=false;
            timer.enabled:=true; 
            delay (500);
            exit;
           end;
        end;
      end;  
      #$FE: begin
              if pck[2]=#$81
                 then begin
                        flagFE:=true; 
                        delay (2000); 
                        exit;
                      end;   
            end;
      #$87: begin
        if readd(2)=0 
           then begin
                  msg.Lines.Add('Улучшили ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
                  inc(good); 
                  flag87:=true; 
                  delay (500);
                  exit;
                end   
           else begin
                  msg.Lines.Add('Сломали ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
                  inc(broken);
                  flag87:=true; 
                  delay (500);
                  exit;
                end;
        end;
   end;     
    CurEnchLvl:=0;       //начнем с начала. Расскоментировать для блессет скроллов
    if flag7C=true

После компилирования строка с CurEnchLvl:=0; выделяется красным.
Что делать????
PS красным выделены мои дополнения, изменения.

[alexteam]

"CurEnchLvl<>0" <> "CurEnchLvl><0"
и вообще.. переменная обявлена ?