Помогите разобраться со скриптами

[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
Конец

Заранее спасибо

[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 в данный момент в стадии доработки. Следи за новыми версиями программы.

[Aryta]

Сенки кажысь пахает

А можно зацикливать скрипты так

Code: Select all

repeat begin
Ваши действия
end;
until 5>3

Просьба в новостях когда приводяться команды писать также пример на эту команды... если не сложно

[Miralex]

А можно зацикливать скрипты так

Code: Select all

repeat begin
Ваши действия
end;
until 5>3

Использовать в данном случае begin ... end нет необходимости:

Code: Select all

repeat
Ваши действия;
until 5>3;

[Aryta]

Забегаю наперёд.... функцию хождение с обходом препятствий будет вписана как команда в язык програмирования или надобудет её расписывать?(если проще то будет ли обход препятствий и ходьба в команде типа goto(x,y) или это будет целая функция?)

[Miralex]

функцию хождение с обходом препятствий будет вписана как команда в язык програмирования или надобудет её расписывать?

Когдато будет.
Пока что есть наиболее необходимые вещи.

[Dani]

походу знаю что не оч модна на седняшний день но всеже без кликов по КООРДИНАТАМ как без восдуха
или может ктота уже придумал как забить точку горы в ласттаргет и тыкать в нее киркой через прогу

[Miralex]

походу знаю что не оч модна на седняшний день но всеже без кликов по КООРДИНАТАМ как без восдуха
или может ктота уже придумал как забить точку горы в ласттаргет и тыкать в нее киркой через прогу

Покачто "тыкай" на себя.

В ближайшее время думаю будет "клик" по координатам.

[Dani]

Покачто "тыкай" на себя.

В ближайшее время думаю будет "клик" по координатам.

ну походу былобы так все легко как говориццо... иду ш шахту и тута аблом!
ни этот

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 ставил айди чара нифига...

[Miralex]

ClickToObject(Self);

Нету такой ф-ции. Есть ClickOnObject(ObjectID: Cardinal);

Но тебе в любом случае похоже придется подождать пока доделаю таргет по координатам.

[Dani]

ClickToObject(Self);

Нету такой ф-ции. Есть ClickOnObject(ObjectID: Cardinal);

Но тебе в любом случае похоже придется подождать пока доделаю таргет по координатам.

да походу опечаталсо... но сам скрипт с ClickOnObject... ну ждемсь причем с нетерпением