Вопросы (разные вопросы)

[shinma]

Code: Select all

const
MineX = 1;
MineY = 2;

procedure CheckCord(var x:word;y:word;run:Boolean);
begin
while (x<>GetX(self)) and (y<>Gety(self))do
begin
NewMoveXY(x,y,false,0,run);
checksave; 
end;
end;

begin
CheckCord(MineX,MineY,True);
end.

выдает ошибку Variable Expected на предпоследнюю строку

[shinma]

и еще вопрос на шарде Forest Wars после смерти чара гостом подхожу к кресту он не отображается. на инжекте спасала команда ресенд. а как быть на стелсе?

[volhram]

Code: Select all

const
MineX = 1;
MineY = 2;

procedure CheckCord(var x:word;y:word;run:Boolean);
begin
while (x<>GetX(self)) and (y<>Gety(self))do
begin
NewMoveXY(x,y,false,0,run);
checksave; 
end;
end;

begin
CheckCord(MineX,MineY,True);
end.

выдает ошибку Variable Expected на предпоследнюю строку

может без констант лучше?
MineX, MineY : word;

[Fenix]

Да можно и с константами, надо только функцию CheckCord определить так:

Code: Select all

procedure CheckCord(x:word;y:word;run:Boolean);

[Vizit0r]

и еще вопрос на шарде Forest Wars после смерти чара гостом подхожу к кресту он не отображается. на инжекте спасала команда ресенд. а как быть на стелсе?

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

[shinma]

Code: Select all

sub MakeTradeDeed()
  var tType, cColor
  
  uo.AddObject('What')
  while uo.Targeting()
    wait(100)
  wend
  
  tType = uo.GetGraphic('What')
  cColor = uo.GetColor('What')

Код инжекта.
Вопрос: Можно ли на стелсе при запуске скрипта запрашивать в переменную например ID обьекта? и потом чтобы стелс с ней работал. в общем интерактивности охота.

[Vizit0r]

пока нет

[shinma]

И так бесконечно. Помогите почему он понимает что координаты по Х совпали а по У не совпали и все равно считает, что по игрекам они равны.
Потому что изза того что он не шарит в Игреке чар так и остается дохлым навечно. хотя я конкретно задал
и Х и У

Code: Select all

while (x<>GetX(self)) and (y<>Gety(self))do

если не совпадают делать.

Code: Select all

procedure CheckCord(x:word;y:word;run:Boolean);
begin
AddToSystemJournal('X задано- '+inttostr(x) + ' Х мое- '+inttostr(GetX(self))+' У задано- '+inttostr(y)+' У мое-'+inttostr(Gety(self)));
while (x<>GetX(self)) and (y<>Gety(self))do
begin
AddToSystemJournal('X задано- '+inttostr(x) + ' Х мое- '+inttostr(GetX(self))+' У задано- '+inttostr(y)+' У мое-'+inttostr(Gety(self)));
NewMoveXY(x,y,false,0,run);
checksave; 
end;
end;

while dead do
begin
checksave;
AddToSystemJournal('92 ищу крест');
CheckCord(1119,3170,true);
UseObject(resurect);
checksave;
wait (1000);
end;

17:38:13:890 [_FW]: Compiled succesfully
17:38:15:750 [_FW]: 72 Чар умер
17:38:19:093 [_FW]: X задано- 1119 Х мое- 1119 У задано- 3170 У мое-3203
17:38:43:046 [_FW]: 92 ищу крест
17:39:10:046 [_FW]: X задано- 1119 Х мое- 1119 У задано- 3170 У мое-3203

[Vizit0r]

И так бесконечно. Помогите почему он понимает что координаты по Х совпали а по У не совпали и все равно считает, что по игрекам они равны.

Vizit0r[SG] (17:55:12 28/06/2011)
он ничего не считает, ему тупо пофиг становится на второе условие, потому что не выполнено первое

Vizit0r[SG] (17:55:32 28/06/2011)
потому что вместо AND должно быть OR

[shinma]

какой функцией остановить скрипт, выйти из него, чтоб он не работал.

[Vizit0r]

кстати, вызов Exit; из главной функции(тела скрипта) приводит к завершению скрипта.

[shinma]

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

[Fenix]

А для совсем серьезных людей можно посоветовать импортировать из Kernel32.dll метод procedure ExitProcess(ExitCode: Cardinal); stdcall; и юзать его

[Vizit0r]

Fenix - отличный совет)))))))))

[shinma]

гы када я всетаки перестану обламываться и займусь винапи я первым делом выведу панельку сверху уо окна как при использовании инжекта де показано ХП/МП/ бинты /реги. помоему имя окна легче сменить чем копаться и изучать есть ли там в подпроцесах процес нужного скрипта и убить его.