Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

резист drw

тут можно задать вопрос по скриптингу
Post Reply
stickman
Posts: 7
Joined: 05.02.2008 6:23
Contact:

резист drw

Post by stickman »

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

Code: Select all

Program resist;
// (c) stickma 
// for DRW

{$Include 'all.inc'} 

var
i: integer;
ctime: TDateTime;

const
enemy=$001ED227;

begin

while Dead=false do
begin
ClearJournal;
checklag;
	while Mana>=10 do
	begin
	WaitTargetObject(enemy);
	cast('Weaken');
	wait(2000);
	end;
ClearJournal;
	while mana<>int do
	begin
	ctime:=Now
	i:=0
	useskill('Meditation');
	repeat
		wait(200);
		i:=i+1;
		checksave;
	until (InJournalBetweenTimes('You lose|You are', ctime, Now)<>-1) or (i=300); 
	wait(4000);
	end;
end;
end.
з.ы.: после инжекта трудно привыкнуть к этим ";" :)
Post Reply