Stealth Client Forum

Program Magery;
{$Include 'all.inc'}

Var
k:integer;

Const

sback=$51EE5F31; // пак с регами
bpe=$0F7A;
gl=$0F84;
mre=$0F86;
sa=$0F8C;
tmana=30;

procedure getitemsgl(item:cardinal);

// процедура берет из контейнера 60 шт gl
begin
Useobject(sback);
wait(500);
if (count(item)=0) then
begin
findType(item,sback);
if (FindCount < 200) then
begin
k := FindQuantity;
Grab(finditem,300);
wait(1000);
checksave;
case item of
gl : addtosystemjournal('взял 300 GL из ' + inttostr(k));
end;
end;
end;
end;

procedure getitemsmre(item:cardinal);

// процедура берет из контейнера 60 шт mr
begin
Useobject(sback);
wait(500);
if (count(item)=0) then
begin
findType(item,sback);
if (FindCount < 200) then
begin
k := FindQuantity;
Grab(finditem,300);
wait(1000);
checksave;
case item of
mre : addtosystemjournal('взял 300 mr из ' + inttostr(k));
end;
end;
end;
end;

procedure getitemssa(item:cardinal);

// процедура берет из контейнера 60 шт sa
begin
Useobject(sback);
wait(500);
if (count(item)=0) then
begin
findType(item,sback);
if (FindCount < 200) then
begin
k := FindQuantity;
Grab(finditem,300);
wait(1000);
checksave;
case item of
sa : addtosystemjournal('взял 300 sa из ' + inttostr(k));
end;
end;
end;
end;



procedure getitemsbpe(item:cardinal);
// процедура берет из контейнера 60 шт bpe
begin
Useobject(sback);
wait(500);
if (count(item)=0) then
begin
findType(item,sback);
if (FindCount < 200) then
begin
k := FindQuantity;
Grab(finditem,300);
wait(1000);
checksave;
case item of
bpe : addtosystemjournal('взял 300 bpe из ' + inttostr(k));
end;
end;
end;
end;

Procedure Casting;
begin

getitemsmre(mre);
getitemsgl(gl);
getitemsbpe(bpe);
getitemssa(sa);
addtosystemjournal('Начинаю Шурум-Бурумить');

while true do begin
if (Mana < 33) then
begin
while (Mana < MaxMana) do
begin
useskill('Meditation');
wait(5200);
end;
end;
Cast('Mass Dispel');
WaitForTarget(200);
wait(5500);
end;
end;

procedure FullDisconnect;
begin
SetARStatus(false);
Disconnect;
end;


BEGIN
If connected then
begin
SetARStatus(true); {Включаю реконнектор}
while true do
begin
waitconnection(5000);

Finddistance:=2;
repeat
Casting;
until ( mana <= tmana);
if (GetSkillValue('Magery') > 100) then FullDisconnect;
end;
end;
END.

END.

Program Magery;
{$Include 'all.inc'}

Var
k:integer;
Reg : array[1..3] of Word; // поправить если больше трех реагентов

Const

sback=$51EE5F31; // пак с регами
bpe=$0F7A;
gl=$0F84;
mre=$0F86;
sa=$0F8C;
tmana=30;

procedure Reags;
begin

Reg[1]:= $0F7B; // тут если надо поставь ещё реги и выше и ниже поправь цифру
Reg[2]:= $0F8D;
Reg[3]:= $0F86;
//Reg[4]:= $0F86;
AddToSystemJournal('Берем реги');
Useobject(sback);
wait(500)
for i:=1 to 3 do // поправить если больше трех реагентов
begin
findtype(Reg,backpack)
if (FindCount = 0) or (Count(Reg) < 5) then
begin
findtype(Reg,(sback);
if findcount > 0 then
begin
checksave;
MoveItem(FindItem,100,Backpack,0,0,0);
wait(800);
end;
end;
end;
end;

Procedure Casting;
begin

Reags;
addtosystemjournal('Начинаю Шурум-Бурумить');

while true do begin
if (Mana < 33) then
begin
while (Mana < MaxMana) do
begin
useskill('Meditation');
wait(5200);
end;
end;
Cast('Mass Dispel');
WaitForTarget(200);
wait(5500);
end;
end;

procedure FullDisconnect;
begin
SetARStatus(false);
Disconnect;
end;


BEGIN
If connected then
begin
SetARStatus(true); {Включаю реконнектор}
while true do
begin
waitconnection(5000);

Finddistance:=2;
repeat
Casting;
until ( mana <= tmana);
if (GetSkillValue('Magery') > 100) then FullDisconnect;
end;
end;
END.

END.

Roe wrote:я конечно не спец но вроде вот так будет всё работать проверь

nepopus wrote:Не поверите, но этот кусок, это часть верхнего скрипта, только красивее.
Ответ спрятан внутри. Я в скрипт ничего не добавлял.