Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
War Mode Help
War Mode Help
Увожаемый игроки
И те кто пишут макросы.
столкнулся со следующей задачей
Есть скрипт на спаринг (Переделанный скрипт Миралекса)
все алес гуд.
Но !
Требуеться организовать проверку, что бы если у одного чара хитов меньше 200 бой останавливался пока тот не дохиляеться.
А то часто слабый чар подыхает.
Из идей ето можно сделать чере сообщения по журналу либо же через проверку на вар мод
если есть такие умельцы - поделитесь пожалуйста ???
И те кто пишут макросы.
столкнулся со следующей задачей
Есть скрипт на спаринг (Переделанный скрипт Миралекса)
все алес гуд.
Но !
Требуеться организовать проверку, что бы если у одного чара хитов меньше 200 бой останавливался пока тот не дохиляеться.
А то часто слабый чар подыхает.
Из идей ето можно сделать чере сообщения по журналу либо же через проверку на вар мод
если есть такие умельцы - поделитесь пожалуйста ???
Кто понял жизнь - тот не спешит ...
-
- Neophyte
- Posts: 10
- Joined: 17.02.2006 17:32
- Contact:
GetHP(ObjID : Cardinal) : Integer;
GetMaxHP(ObjID : Cardinal) : Integer;
что-то подобное такой проверки
GetMaxHP(ObjID : Cardinal) : Integer;
что-то подобное такой проверки
Code: Select all
if gethp(enemy)<70 then
begin
SetWarMode(false);
repeat
wait(100);
until gethp(enemy)=getmaxhp(enemy)
SetWarMode(true);
end

А ты сий код проверял? Хз почему не ловит стелс хп чужиеLast_Unicorn wrote:GetHP(ObjID : Cardinal) : Integer;
GetMaxHP(ObjID : Cardinal) : Integer;
что-то подобное такой проверки
Code: Select all
if gethp(enemy)<70 then begin SetWarMode(false); repeat wait(100); until gethp(enemy)=getmaxhp(enemy) SetWarMode(true); end

Ну вот что попробывал сделать...
procedure CheckStat;
var stime : TDateTime;
begin
WaitJournalLine (stime, 'Stop-now', 1000);
begin
SetWarMode (false);
Wait(1000);
AddToSystemJournal ('Пративнек атпизжен - бой остановлен ');
end;
WaitJournalLine (stime, 'Start-now',1000);
begin
SetWarMode (true);
AddToSystemJournal ('Правтивнек зализал сваи раны - бой продолжается');
Wait(1000);
end;
end;
procedure CheckHPM;
begin
if (HP = MaxHP) then
UOSay ('Start-now');
wait (1000);
CheckStat;
end;
procedure CheckHP;
begin
if (hp < 80) then
UOSay ('Stop-now');
Wait (1000);
CheckStat;
end;
procedure CheckWar;
begin
if TargetPresent then
begin
CancelTarget;
Wait(1000);
end;
WaitConnection(2000);
CheckSave;
if (wartargetid <> EnemyID) or (iswarmode(self) = false) then attack(EnemyID);
if IsDead(EnemyID) then SetWarMode(false);
end;
Хп проверяються чары Балакают...
один останавливаеться второй нет ....
вобщем скрипт не работает
может как то попробывать через while написать *? что пока нет макс хп говорить стоп и хиляться *?
помогите то шарет ...
procedure CheckStat;
var stime : TDateTime;
begin
WaitJournalLine (stime, 'Stop-now', 1000);
begin
SetWarMode (false);
Wait(1000);
AddToSystemJournal ('Пративнек атпизжен - бой остановлен ');
end;
WaitJournalLine (stime, 'Start-now',1000);
begin
SetWarMode (true);
AddToSystemJournal ('Правтивнек зализал сваи раны - бой продолжается');
Wait(1000);
end;
end;
procedure CheckHPM;
begin
if (HP = MaxHP) then
UOSay ('Start-now');
wait (1000);
CheckStat;
end;
procedure CheckHP;
begin
if (hp < 80) then
UOSay ('Stop-now');
Wait (1000);
CheckStat;
end;
procedure CheckWar;
begin
if TargetPresent then
begin
CancelTarget;
Wait(1000);
end;
WaitConnection(2000);
CheckSave;
if (wartargetid <> EnemyID) or (iswarmode(self) = false) then attack(EnemyID);
if IsDead(EnemyID) then SetWarMode(false);
end;
Хп проверяються чары Балакают...
один останавливаеться второй нет ....
вобщем скрипт не работает
может как то попробывать через while написать *? что пока нет макс хп говорить стоп и хиляться *?
помогите то шарет ...
Кто понял жизнь - тот не спешит ...
Ну так вот тебе на заметку: сделать 2 команды для работы с реестром... Одна записывает параметр со значением, другая считует значение параметра.Miralex wrote:Те что ты имеешь виду - нету.L'inconnu wrote:а глобальные переменные в паскале есть? можно было бы через них, чтобы не заморачиваться на сервере
Есть глобальные, но они глобальны в пределах 1 скрипта.