Cartography

Program Cartography;
{$include 'all.inc'}

var
i : Integer;

Procedure Local;
begin
  WaitMenu('What', 'Local');
  WaitTargetType($14EB);
  UseSkill('Cartography');
end;

Procedure Regional;
begin WaitMenu('What', 'Regional');
  WaitTargetType($14EB);
  UseSkill('Cartography');
end;

Procedure World;
begin WaitMenu('What', 'World');
  WaitTargetType($14EB);
  UseSkill('Cartography');
end;

begin
  while not Dead do
  begin
    setarstatus(true);
    if Connected=False then
    repeat
      Wait(500);
    until Connected=True;
    begin
      Hungry(1, backpack);
      if TargetPresent then CancelTarget;
      for i:=0 to 50 do
      begin
        if (GetSkillValue('Cartography')< 50) then Local;
        if (GetSkillValue('Cartography')< 70) and (GetSkillValue('Cartography') >= 50) then Regional;
        if (GetSkillValue('Cartography') >= 70) then World;
        wait(13500);
      end;
    end;
  end;
end.
 
faq/stealth/cartography.txt · Последние изменения: 2019/11/15 11:42 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki