Помогите пожалуйста

[iSee]

Проблема в следующем,скачал и настроил скрипт от Тамбика,все работает,но требуется сделать следующее чтобы перед покупкой заточек,он менял монету на адены,а затем покупал заточки и точил и так по кругу

[Nickers]

Ну вот)) А я уже в Теме тамбика отписал ^^
(Молодец, что тему создал... Так мое сообщение не "утонет" и поможет еще кому-нибудь)

--------------------------------------------------------
Объясняю как это сделать под скрипт:
Auto_enchant_maxlvl - interlude+покупка !!
(Думаю под другие версии (или скрипты других авторов) можно реализовать так же...)

(Делал другу под один пвп сервер)
Находим процедуру OnTimer03
Идем в самый низ (До end; ) и перед end; вставляем:

if (GetItem(57,3,4)<1500000000) then
   begin
      Repeat
         begin
            buf:=#$A7#$B1#$12#$01#$00#$40#$80#$58#$00#$01#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
            SendToServer;
         end;
      Until (GetItem(57,3,4)<1500000000);
   end;

Внимание! Если стереть (Случайно) end; скрипту буит плохо...

Где в

GetItem(57,3,4)<1500000000

(Нужно менять в 2х местах!!!)
1.5ккк - Значениео больше которого вам нужно кол-во адены в инвентаре...

buf:=#$A7#$B1#$12#$01#$00#$40#$80#$58#$00#$01#$00# $00#$00#$00#$00#$00#$00#$00#$00#$00#$00;

Пакет, который посылаем... (Перед каждой парой ставим #$)

Скрипт будет проводить проверку с переодичностью заточки, если адены меньше чем 1.5ккк, посылает пакет, пока не будет Адены больше чем 1.5ккк (Если будет ровно 1.5ккк он пошлет еще раз!)
Если пакет никак не способствует увеличению кол-ва адены, скрипт и весь ПХ зависнет в агонии...
--------------------------------------------------------

"Спасибо" можно не писать... Достаточно нажать на кнопку "Спасибо"...
Я обязательно увижу и про себя скажу "Не за что!" =)

[iSee]

Вот вставил,все сделал,но почемуто не работает,проверял пакет он робочий,при отправке превращает монету в 2 ккк,но в скрипте не работает,что не так сделал?!Подскажите пожалуйстa


procedure OnTimer03(Sender: TObject);
begin
buf:=#$58;
WriteD(enchantID);
SendToServerEx(myname);
Timer03.enabled:=false;
SendMsg2(' -------- Точим Предмет ---------' );
SendMsg2( ' ID : '+IntToStr(itemID)+' ObjectID : '+IntToStr(enchantID)+' до : '+IntToStr(maxlvl)+'' );
SendMsg2('------------------------------' );
if (GetItem(57,3,4)<500000000) then
begin
Repeat
begin
buf:=#$A7#$A4#$BD#$98#$00#$40#$0D#$03#$00#$01#$00# $00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
Until (GetItem(57,3,4)<500000000);
end;end;

[Nickers]

procedure OnTimer03(Sender: TObject);
begin 
 buf:=#$58;
 WriteD(enchantID);
 SendToServerEx(myname);
 Timer03.enabled:=false;
SendMsg2( '    .....  Точим  Предмет ..... ' );
SendMsg2( ' ID : '+IntToStr(itemID)+'  и  ObjectID  :  '+IntToStr(enchantID)+'     до  :  '+IntToStr(maxlvl)+' ' );
 SendMsg2( '------------------------------------- ' );
enchantID:=0;
if (GetItem(57,3,4)<500000000) then
   begin
      Repeat
         begin
            buf:=#$A7#$A4#$BD#$98#$00#$40#$0D#$03#$00#$01#$00# $00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
            SendToServer;
         end;
      Until (GetItem(57,3,4)<500000000);
   end;
end;

...
enchantID:=0;
...

Может это зависит от типа скрипта...
У тебя та же версия скрипта?

И как именно не равботает?
Скрипт не запускается?
Запускается но не пишет сис. сообщений(или другие неполадки)?
или делает все так же, но адена кончается(Проверка не исправна)?

[iSee]

Версия последняя которая есть от Тамбика- // Auto_enchant + 1 - interlude + покупка !!
Скрипт запускается,но монету не меняет почемуто,когда доходит до нужного количества аден,

[Nickers]

Тогда забудь про enchantID:=0; мб в этом скрипте оно не нужно))

При таком "раскладе" явно проблема в отсылке пакета, а там может быть проблема только в самом пакете...

#$A7#$A4#$BD#$98#$00#$40#$0D#$03#$00#$01#$00# $00#$00#$00#$00#$00#$00#$00#$00#$00#$00;

Если приглядеться, там пробел, возможно в этом и проблема...

Добавлено через 39 секунд
Или пакет не тот или не правильный...

[iSee]

а там в конце дожно стоять
end;
end;
в разных строчках?

[Nickers]

Поставь в разные)

[iSee]

ну смотри я пакет

#$A7#$A4#$BD#$98#$00#$40#$0D#$03#$00#$01#$00#$00#$ 00#$00#$00#$00#$00#$00#$00#$00#$00;

отправляю только без #$ ,и он работает,значет проблема не в пакете..

[Nickers]

Может быть проблема в пробеле, который опять присутствует...

Добавлено через 1 минуту
Качаю эту версию скрипта, залезу в него...