Guild Allianse

Крафт стамины

Модераторы: Britney, Alien, Alizee, MarkeR, Slade

Крафт стамины

Alien » 23-04, 10:47

Код: Выделить всё

Program Craft;
const
Banki=$0F0E;
Stupka=$0E9B;

Procedure Beginn; Forward;
Procedure con; Forward;
{$Include 'all.inc'}

procedure con;
Begin
if Connected=false then
begin
if (GetARStatus=false) then SetARStatus(true);
while (Connected<>true) do
begin { while }
Wait(10000);
AddToSystemJournal('Ждем подключения...');
end; { while }
Beginn;
end;
end;

Procedure Beginn;
Begin
wait(1000);
uoSay(Chr(39)+'craftcreate 1');
Wait(3200);
AddToSystemJournal('Открываем пак.');
UseObject(Backpack);
wait(3150);
AddToSystemjournal('Ставим ловушку на банки');
WaitTargetObject(FindType(Banki,backpack));
wait(150);
AddToSystemJournal('Дабл клик на ступку.');
UseObject(FindType(Stupka,backpack));
ClearJournal;
WaitMenu ('Alchemy', 'Refresh Potions');
WaitMenu ('Refresh Potions', '(2)');
wait(350);

if (InJournal('Вы изготавливаете')<>-1) then
Begin
while (Connected=true) do
begin { while }
  if FindType($0F0B,backpack) > 1 then
  begin
    stack($0F0B,$0000);
  end;
Wait(3100);
UoSay(Chr(39)+'pc craft 1');
Wait(3100);
end; { while }
end else Beginn;
Con;
end;


Begin
if (connected=false) then Con;

Beginn;
end.

Alien

-=Blonde Team=-

 

Сообщения: 2286

Зарегистрирован: 06-05, 19:00

Откуда: Thieves of a Shadow

Вернуться к началу

Вернуться в Макросы под Stealth

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0