
Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Возможно ли?
-
- Neophyte
- Posts: 19
- Joined: 24.10.2006 19:48
Возможно ли?
Написать скрипт на порезку бинтов? 

-
- Neophyte
- Posts: 32
- Joined: 09.10.2006 13:56
- Contact:
-
- Neophyte
- Posts: 19
- Joined: 24.10.2006 19:48
-
- Neophyte
- Posts: 19
- Joined: 24.10.2006 19:48
Прости, завтыкал...Edred wrote:Телепаты в отпуске.
ЗЫ: Намек понял? Расскажи подробно как режутся бинты у вас на шарде.
вообщем
юзобжект ножницы
таргет курсор на тряпки...
сведенья о ножницах-
ID=0x6B0A475E Type=0x0F9E ERLVDVF Name=
Quantity: 1 Colour: 0x0000 Layer: 0 Has: 1
X=70 Y=65 Z=0 C=0x6B0A329B F=0x00
тряпки -
ID=0x6B06CE57 Type=0x1766 PZMIDVF Name=
Quantity: 16260 Colour: 0x0000 Layer: 0 Has: 1
X=44 Y=112 Z=0 C=0x6B0A329B F=0x00
зы. Играю на шарде Age of Power
Code: Select all
program makebandages;
var tmpser1, tmpser2 : cardinal;
begin
tmpser1 := findtype($0F9E,backpack);
if tmpser1 = 0 then exit;
repeat
tmpser2 := findtype($1766,backpack);
if tmpser2 = 0 then exit;
if targetpresent then targetcancel;
useobject(tmpser1);
waitfortarget(5000);
if targetpresent then targettoobject(tmpser2);
wait(1000);
until tmpser2 = 0;
end.
-
- Neophyte
- Posts: 19
- Joined: 24.10.2006 19:48
Edred wrote:Писано на коленке. Тести. Если бы ты написал сообщения - то была бы динамическая пауза, а так - еще раз повторю: телепаты в отпуске.Code: Select all
program makebandages; var tmpser1, tmpser2 : cardinal; begin tmpser1 := findtype($0F9E,backpack); if tmpser1 = 0 then exit; repeat tmpser2 := findtype($1766,backpack); if tmpser2 = 0 then exit; if targetpresent then targetcancel; useobject(tmpser1); waitfortarget(5000); if targetpresent then targettoobject(tmpser2); wait(1000); until tmpser2 = 0; end.
Я прошу прощения... я просто особо не шарю в етих делах, знаю что нада два раза кликнуть на ножницы, и клацнуть на бинты, при етом задержка 3100
система такая.
даблклик на ножницы : "Выберите цель."
появляеться таргет
клацаю таргетом на тряпки : "You make a bandage."
-
- Neophyte
- Posts: 19
- Joined: 24.10.2006 19:48
Когда выбрал скрипт и нажимаю кнопочку "плей" то макра не запускаеться, а в закладке систем выдает такую ошибку
1:45:20: Compiling failed
1:45:20: Script Ïîðåçêà áèíòîâ.sc stoped successfuly
1:45:20: Compiling
1:45:20: Compiler: [Error] (Ïîðåçêà áèíòîâ.sc at 9:27): Unknown identifier 'targetcancel'
1:45:20: Compiling failed
1:45:20: Script Ïîðåçêà áèíòîâ.sc stoped successfuly
1:45:20: Compiling
1:45:20: Compiler: [Error] (Ïîðåçêà áèíòîâ.sc at 9:27): Unknown identifier 'targetcancel'
1:45:20: Compiling failed
1:45:20: Script Ïîðåçêà áèíòîâ.sc stoped successfuly
1:45:20: Compiling failed
1:45:20: Script Ïîðåçêà áèíòîâ.sc stoped successfuly
1:45:20: Compiling
1:45:20: Compiler: [Error] (Ïîðåçêà áèíòîâ.sc at 9:27): Unknown identifier 'targetcancel'
1:45:20: Compiling failed
1:45:20: Script Ïîðåçêà áèíòîâ.sc stoped successfuly
1:45:20: Compiling
1:45:20: Compiler: [Error] (Ïîðåçêà áèíòîâ.sc at 9:27): Unknown identifier 'targetcancel'
1:45:20: Compiling failed
1:45:20: Script Ïîðåçêà áèíòîâ.sc stoped successfuly
-
- Neophyte
- Posts: 19
- Joined: 24.10.2006 19:48
-
- Neophyte
- Posts: 19
- Joined: 24.10.2006 19:48
-
- Neophyte
- Posts: 32
- Joined: 09.10.2006 13:56
- Contact:
Какой то слишком навароченный макр )
Зачем заводить две переменные. для ножниц темболее есиони один раз юзаються.
Для бинтво я бы тоже нестал заводить лишние строки тока )
Зачем ексит внутри рипита, ваще делать тада вайл еси нуна проверка в начале, а так глупо проверка идет два раза подряд.
Таргеткансел мне кажеься тож совершенно ненужен, еси и был таргет он собьеться новым проста
Зачем заводить две переменные. для ножниц темболее есиони один раз юзаються.
Для бинтво я бы тоже нестал заводить лишние строки тока )
Зачем ексит внутри рипита, ваще делать тада вайл еси нуна проверка в начале, а так глупо проверка идет два раза подряд.
Таргеткансел мне кажеься тож совершенно ненужен, еси и был таргет он собьеться новым проста
Я же сказал - писал на коленке. Замени targetcancel на canceltarget, и никаких строк удалять не надо.DesperadoS wrote:Методом тыка зделал, что заработала макра, удалил пару строк оттуда, спасибо огромно
Это навороченный?Drunk Iguana wrote:Какой то слишком навароченный макр )
Зачем заводить две переменные. для ножниц темболее есиони один раз юзаються.
Для бинтво я бы тоже нестал заводить лишние строки тока )
Зачем ексит внутри рипита, ваще делать тада вайл еси нуна проверка в начале, а так глупо проверка идет два раза подряд.
Таргеткансел мне кажеься тож совершенно ненужен, еси и был таргет он собьеться новым проста

Насчет таргетов - можно сбивать новым, но на сервере вылезут в логах данные о твоих левых таргетах. А это путь к перспективе бана. На фига? Скрипт должен работать так, чтобы ничем не отличаться от действий человека руками. Иначе проще в уолупе биндить клавиши.
И, наконец, - каждый пишет скрипты по-своему. Если ты говоришь, что написал бы по-другому, я тебе верю, но это был бы твой скрипт. Но ты его не написал.
ЗЫ: ИМХО, идеальный скрипт - это наименьшее количество действий (не строк кода!) для достижения нужного результата, при этом для логов сервера такой скрипт должен быть максимально незаметным.
-
- Neophyte
- Posts: 19
- Joined: 24.10.2006 19:48
Скрипт выполняется независимо от состояния твоего чара и реконектора. А "выбивает" скрипт, потому что он так написан или в нем так задумано.DesperadoS wrote:Последний вопрос, почему когда чаров в Стелсе выбивает (конлост) прекращаеться скрипт? тоесть когда конектит заново больше не макросит... если ето так задумано невижу смысла в реконекторе
Быстрее всего в скрипте у тебя написано что-то типаDesperadoS wrote:Последний вопрос, почему когда чаров в Стелсе выбивает (конлост) прекращаеться скрипт? тоесть когда конектит заново больше не макросит... если ето так задумано невижу смысла в реконекторе
Code: Select all
while Connected do
begin
end;