авто заточка

[Cool]

Капс,насчёт того что скрипт виснет ето вполне естественно только почемуто подругому чем у всех,объясняю:етот скрипт преднозначен для заточки нескольки пух,когда остаётса одна скрипт просто прекращяет работу,незнаю почему он у тебя виснет мо}I{ет ты чтото нетак написал?

[TAMBIK]

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

я всё зделал как скозал нло но когда запускаю скрипт то у меня обводит красным самую последнюю end: и рядом с 87 бегин тоже обводит и скрипт не запускается

обводит красным самую последнюю end:
в конце скрипта то удали

[moOYkoOn]

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

обводит красным самую последнюю end:
в конце скрипта то удали

я удалил , потом бегин красным обводило я тоже удалил а потом не чё не обводило но скрипт не запускался

[TAMBIK]

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

я удалил , потом бегин красным обводило я тоже удалил а потом не чё не обводило но скрипт не запускался

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

[moOYkoOn]

http://coderx.ru/downloads.php?do=file&id=24 скрипт этот

Добавлено через 1 минуту
#$87: begin и тут <---------
case readd(2) of
0: begin
msg.Lines.Add('Улучшили ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(good);
end;
1: begin
msg.Lines.Add('Сломали ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(broken);
end;
2: begin
msg.Lines.Add('Сбросило в 0 ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
CurEnchLvl:=0; //начнем с начала. Заменять на то значение, в которое сбрасывает при точке блесседами
end;
end;
end; ошибка тут <-------

встовлял этот

[TAMBIK]

в начале скрипта после где
//Список переменных

var
добавь:
ItemEnch,good,broken:integer;

 #$87: begin
        ItemEnch:=readd(2);<<<< добавить
        case readd(2) of
            0: begin

правда я непонял что за значение:

good,broken

автор подскажет может

[moOYkoOn]

[quote=TAMBIK;36087]

 #$87: begin
        ItemEnch:=readd(2);<<<< добавить
        case readd(2) of
            0: begin

п/QUOTE]

сначало вставить что нло поставил а тотом чту у него заменить на это?

[TAMBIK]

[quote=moOYkoOn;36088]

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

 #$87: begin
        ItemEnch:=readd(2);<<<< добавить
        case readd(2) of
            0: begin

п/QUOTE]

сначало вставить что нло поставил а тотом чту у него заменить на это?

да
и 87 это для грации замени на 81 интерлюд

[CapsLock]

#$6F: if ready then begin //and (readd(2)=itemid)
//ищем подходящий предмет для заточки
timer.enabled:=false; //отключаем пока не найдем предмет для заточки
repeat
ItemOID:=GetItem(ItemID,CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;
//************************************************
msg.Lines.Add('Пробуем улучшить ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID));
RequestEnchantItem(ItemOID);
ready:=false;
timer.enabled:=true; //пока в тесте отключаем (вкл. после заточки предмета)
end;
#$81: if readd(2)=2 then begin
CurEnchLvl:=3; //начнем с начала
end;
end;
end.

Добавлено через 2 минуты
вот парни концовка скрипта, который пашет,посмотрите плиз,помоему сделал всё так,как вы грили

Добавлено через 3 минуты
когда яврубаю скрипт всё робит и всё кул) но когда пухи ломаюца то он тупо перестаёт работать