Page 1 of 1
Помогите разобраться со скриптами
Posted: 19.03.2005 19:59
by Aryta
Скачала прогу посмотрел... вроде работает

... Обьясните мне плизз:
1)Что сделать чтобы скрипт можно было запустить( просто сделать текстовый документ и открывать его?)
2)Вот написал что-то
Code: Select all
program stealth;
begin
while HP > 0 do
begin
Useskill(Hiding:string)
Wait(10000:Integer)
Useskill(Stealth:string)
Wait(10000:Integer)
end;
end.
Не пашет
А если толковым скриптерам не жалко времени, то напишите плиз скрипт с такой структурой:
if захайденый then
Юз скил Стэлс
wait 10000
else
Юз скил Хайдинг
wait 10000
Конец
Заранее спасибо
Posted: 19.03.2005 20:34
by Miralex
Что сделать чтобы скрипт можно было запустить( просто сделать текстовый документ и открывать его?)
Да. Можно прямо в блокноте.
program stealth;
begin
while HP > 0 do
begin
Useskill(Hiding:string)
Wait(10000:Integer)
Useskill(Stealth:string)
Wait(10000:Integer)
end;
end.
Указывай просто "переменные" а не "переменная:ее тип"
Я указал типы переменных в описании только для того, чтобы было понятно какого они типа.
т.е скрипт правильно будет выглядеть так:
Code: Select all
program stealth;
begin
while HP > 0 do
begin
Useskill('Hiding');
Wait(10000);
Useskill('Stealth');
Wait(10000);
end;
end.
P.S. Почитай документацию языка Pascal в интернете.
Обрати внимание на то, что строковые выражения берутся в одинарные кавычки, а также обрати внимание на точку с запятой в конце строки.
if захайденый then
Флаг Hidden в данный момент в стадии доработки. Следи за новыми версиями программы.
Posted: 19.03.2005 20:54
by Aryta
Сенки кажысь пахает
А можно зацикливать скрипты так
Code: Select all
repeat begin
Ваши действия
end;
until 5>3
Просьба в новостях когда приводяться команды писать также пример на эту команды... если не сложно
Posted: 19.03.2005 21:11
by Miralex
Aryta wrote:
А можно зацикливать скрипты так
Code: Select all
repeat begin
Ваши действия
end;
until 5>3
Использовать в данном случае begin ... end нет необходимости:
Posted: 19.03.2005 22:32
by Aryta
Забегаю наперёд.... функцию хождение с обходом препятствий будет вписана как команда в язык програмирования или надобудет её расписывать?(если проще то будет ли обход препятствий и ходьба в команде типа goto(x,y) или это будет целая функция?)
Posted: 20.03.2005 9:16
by Miralex
функцию хождение с обходом препятствий будет вписана как команда в язык програмирования или надобудет её расписывать?
Когдато будет.
Пока что есть наиболее необходимые вещи.
Posted: 22.03.2005 13:33
by Dani
походу знаю что не оч модна на седняшний день но всеже без кликов по КООРДИНАТАМ как без восдуха

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

Posted: 22.03.2005 15:18
by Miralex
Dani wrote:походу знаю что не оч модна на седняшний день но всеже без кликов по КООРДИНАТАМ как без восдуха

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

Покачто "тыкай" на себя.
В ближайшее время думаю будет "клик" по координатам.
Posted: 22.03.2005 17:20
by Dani
Miralex wrote:
Покачто "тыкай" на себя.
В ближайшее время думаю будет "клик" по координатам.

ну походу былобы так все легко как говориццо... иду ш шахту и тута аблом!
ни этот
Code: Select all
Begin
While Life > 1 do
begin
wait(1000);
UseObject($41568116);
WaitForTarget(2000);
TargetToObject(Self);
end;
End.
ни этот
Code: Select all
Begin
While Life > 1 do
begin
wait(1000);
UseObject($41568116);
WaitForTarget(2000);
ClickToObject(Self);
end;
End.
и вместо Self ставил айди чара нифига...
Posted: 22.03.2005 18:23
by Miralex
ClickToObject(Self);
Нету такой ф-ции. Есть Click
OnObject(ObjectID: Cardinal);
Но тебе в любом случае похоже придется подождать пока доделаю таргет по координатам.
Posted: 22.03.2005 19:13
by Dani
Miralex wrote:ClickToObject(Self);
Нету такой ф-ции. Есть Click
OnObject(ObjectID: Cardinal);
Но тебе в любом случае похоже придется подождать пока доделаю таргет по координатам.
да походу опечаталсо... но сам скрипт с ClickOnObject... ну ждемсь

причем с нетерпением
