Guild Allianse

Это место для тех, кто не дружит с законом и является убийцей...Координаты 4320 950 Монглоу ... Отличное место для прокачки скила, я бы даже сказал с увереностью, что лучше чем в Серпенте...Прокачка идет на 12 Invul...Макрос начинается с Roland[invul]...Макрос работает без сбоя...Проверено мной в течении недели

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

Program BeggingUP;
//***************************************************************
// v.1.03 © pr0Zak
// qip 584 901 583
// НЕЗАБЫВАЙТЕ КИДАТЬ ХАВКУ В ПАК
// МЕСТНОСТЬ В МОНГЛОУ
//***************************************************************
{$Include 'move_v0_2.inc'}

const
Msg1 = 'Annoy';


var
tmptime : TDateTime;


procedure WaitConnection(WaitTime : Integer);
begin
  if Connected then Exit;
  while not Connected do Wait(1000);
    wait(WaitTime);
end;


//******************************************
//    Основные процедуры скрипта
//******************************************
Procedure Bolt;
Begin
  repeat
if (Life < MaxLife) then UOSay('GUARDS');
if WarMode then SetWarMode(false);
if targetpresent then CancelTarget;
  FindDistance := 1;
  tmptime := Now;
  if FindType($0190, ground) > 0 then
  begin
    UseSkill('Begging');
    wait(500);
    WaitTargetObject(FindType($0190, ground));
    wait(2800);
  end;
  if FindType($0191, ground) > 0 then
  begin
    UseSkill('Begging');
    wait(500);
    WaitTargetObject(FindType($0191, ground));
    wait(2800);
  end;
  until (InJournalBetweenTimes(Msg1, tmptime, Now)<>-1) OR dead;
End;

procedure MoveToField;  // оставляем кк есть
begin
  GotoXY(4324,949,false,0);
  Bolt;
  GotoXY(4323,950,false,0);
  GotoXY(4325,954,false,0);
  GotoXY(4326,954,false,0);
  Bolt;
  GotoXY(4323,957,false,0);
  Bolt;
  GotoXY(4326,957,false,0);
  Bolt;
  GotoXY(4323,954,false,0);
  Bolt;
  GotoXY(4292,954,false,0);
  GotoXY(4287,955,false,0);
  GotoXY(4287,954,false,0);
  Bolt;
  GotoXY(4288,955,false,0);
  GotoXY(4293,953,false,0);
  GotoXY(4293,952,false,0);
  Bolt;
  GotoXY(4293,955,false,0);
  Bolt;
  GotoXY(4296,952,false,0);
  Bolt;
  GotoXY(4296,955,false,0);
  Bolt;
  GotoXY(4296,952,false,0);
  Bolt;
  GotoXY(4299,955,false,0);
  Bolt;
  GotoXY(4299,952,false,0);
  Bolt;
  GotoXY(4299,954,false,0);
  GotoXY(4318,954,false,0);
end;

//******************************************
//    Основная часть
//******************************************
BEGIN

SetARStatus(true);
 
AddToSystemJournal('Скрипт написал proZak (Age of Power)');
UOSay(Chr(39)+'resend');
Wait(3200);
Ignore(self);
 
while true do
begin
if GetSkillValue('Begging') < 100.0 then MoveToField else exit;
wait(50);
end;
END.