SCAR Code:
program LummbyToVarrok;
{.include SRL/SRL.scar}
Procedure NearQuest;
Begin
RadialWalk(FindRoadColor, 354, 367, 56, 0, 1);
Flag;
end;
Procedure NearGeneralStore;
Begin
RadialWalk(FindRoadColor, 297, 666, 61, 0, 1);
Flag;
end;
Procedure NearFurnace;
Begin
RadialWalk(FindRoadColor, 350, 363, 67, 0, 1);
Flag;
End;
Procedure TheBridge;
Begin
RadialWalk(11841, 84, 454, 62, 0, 1); //Really Faulty
Flag;
End;
Procedure AboveBridge;
Begin
RadialWalk(FindRoadColor, 6, 379, 62, 0, 1);
Flag;
End;
Procedure ChickenPlace;
Begin
RadialWalk(FindRoadColor, 343, 711, 71, 0, 1);
Flag;
End;
Procedure AboveChicken;
Begin
RadialWalk(FindRoadColor, 9, 378, 63, 0, 1);
Flag;
End;
Procedure NearVarrok;
Begin
RadialWalk(FindRoadColor, 41, 410, 62, 0, 1);
Flag;
End;
Procedure EnterVarrok;
Begin
RadialWalk(FindRoadColor, 52, 428, 58, 0, 1);
Flag;
End;
Procedure PastQuest;
Begin
RadialWalk(FindRoadColor, 42, 413, 71, 0, 1);
Flag;
End;
Procedure NearMine;
Begin
RadialWalk(FindRoadColor, 43, 412, 62, 0, 1);
Flag;
End;
Procedure MineSymbol;
Begin
RadialWalk(FindRoadColor, 43, 412, 62, 0, 1);
Flag;
End;
Procedure PastMine;
Begin
RadialWalk(FindRoadColor, 353, 365, 69, 0, 1);
Flag;
End;
Procedure Walls;
Begin
RadialWalk(FindRoadColor, 338, 706, 71, 0, 1);
Flag;
End;
Procedure AnotherQuest;
Begin
RadialWalk(FindRoadColor, 326, 694, 68, 0, 1);
Flag;
End;
Procedure VarrokGates;
Begin
RadialWalk(FindRoadColor, 326, 702, 68, 0, 1);
Flag;
End;
Procedure LastWalk;
Begin
RadialWalk(FindRoadColor, 259, 631, 68, 0, 1);
Flag;
End;
Begin
SetupSRL;
Repeat
NearQuest;
NearGeneralStore;
NearFurnace;
TheBridge;
AboveBridge;
ChickenPlace;
AboveChicken;
NearVarrok;
EnterVarrok;
PastQuest;
NearMine;
MineSymbol;
PastMine;
Walls;
AnotherQuest;
VarrokGates;
LastWalk;
Until (FindSymbol(x, y, 'Bank'));
end.