Code:
program FireUderforuRunner ;
{$DEFINE WALKER}
{$i AeroLib/AeroLib.Simba}
var
PureEss, DuelRing:TItem;
BankObject,FireRuins:TMSObject;
aWalker,RSW:TRSWalker;
path: TPointArray;
tile_Altar:TPoint
Procedure LoadItems;
begin
PureEss.DTM := DTMFromString('mfgEAAHicE2JgYOAEYlEgFgJiZiBmYYAARiBmA2IuIOaFqpEEYikoLQbEwkDMBzUDhLmBmB+IBYCYFYq5oOYxQc1nhopzQNWLQM0Sh7Lry8oYZvT1MjRWVDCEBQQwtNfVMuSkpDBkJSWBXbV4+jQwPrhjO9SVjAybViyHs0E4IiiIgVqAkUoYEwAA2aIUEw==');
DuelRing.DTM := DTMFromString('m1gAAAHic42JgYOABYi4g5gNiXiAWgLK5gZidAQI4kNggwALVwwtVC9LDCRV/flqWQXC2BANviSBDexkvQ0kaBG9fIMpwa78Ug4edMcOWeaIMxAJGIjECAABkqgwH');
BankObject.create('Use Bank chest', ['Bank', 'chest', 'Use'], [createCol(4343642, 17, 0.21, 0.73)], 50, 0, 0, 0);
FireRuins.create('Enter Mysterious Ruins', ['Enter','Mysterious','ruins'], [createCol(4147782, 10, 1.54, 0.55)],50,0,0,0);
aWalker.init('RunecraftingAltars');
RSW.Init('WorldMap');
end;
procedure Banking;
var
BankPoint : TPoint;
pnt : Tpoint;
begin
Writeln('Opening Bank..');
if BankObject.find(BankPoint) then
begin
wait(2000+random(750));
openBankPoint(BankPoint, true);
Writeln('Deposting..');
wait(2000+random(750));
withdrawItem(PureEss, -1);
wait(1750+random(750));
closeInterface();
end;
end;
Procedure Teleport;
var
pnt1, pnt2, pnt3: Tpoint;
begin
pnt1 := [672, 183];
HumanMMouse(pnt1, 5, 5);
FastClick(Mouse_left);
wait(2000+random(750));
pnt2 := [698,380];
HumanMMouse(pnt2,5,5);
FastClick(Mouse_Right);
wait(2000+random(750));
chooseOption('Duel Arena');
wait(6000+random(750));
end;
Procedure Walking;
var
RSW:TRSWalker;
path: TPointArray;
begin
RSW.walkStyle := wsSPS;
RSW.anyAngle := True;
path:=[Point(5071,3509),Point(5045,3509),Point(5042,3488),Point(5042,3473),Point(5043,3459),Point(5044,3451)];
RSW.WalkPath(path);
RSW.Free();
end;
Procedure EnterMine;
var
pnt: Tpoint
begin
if FireRuins.find(Pnt) then
HumanMMouse(pnt,5,5);
FastClick(Mouse_LEFT);
wait(10000+random(600));
end;
Procedure WalkInMine;
var
aWalker: TRSWalker;
apath: TPoint;
begin
aWalker.walkStyle := wsSPS;
aWalker.anyAngle := True;
apath:=[Point(494, 215)];
aWalker.WalkPath(apath);
aWalker.Free();
end;
begin
initAL;
LoadItems();
Banking();
Teleport();
Walking();
EnterMine();
WalkInMine();
end.