SCAR Code:
procedure BankToAltar;
begin
BankFE:= DTMFromString('78DA6354676060506000036608C5F0E6CD1B8' +
'6FF409A1188FF0301A30C90A1C98002FEFC61624881AA01014605' +
'FC6AC0588508351A44A8D125428D21613500C726182D');
Tree := DTMFromString('78DA63AC63626030636440060A1ADC0CFC401' +
'A24FA1F0818416A7471AB0101C636A01A1B22D448E25703001D6B' +
'0859');
Tree1 := DTMFromString('78DA63CC65606098C6800224E55818E480342' +
'310FF0702C63420A30C538D08540D0830360089E904D4F4028962' +
'026A9A814425AA1A2F5D1EB87B400000E08F0AE0');
Tree2 := DTMFromString('78DA634C6760604860400192722C0C72409A1' +
'188FF030163119091835B0D083096018912026AEA8044240135D9' +
'402204558D972E0F8A1A009D940A31');
Altar := DTMFromString('78DA63F4656060D06340018696C60C1A409A1' +
'188FF0301A30A90E187AAC6CEDD1EAE060418AB808403AA1A4B23' +
'03543509402205558DB5AB2DAA1A17201184AA2630D29F410E490' +
'D00DE9D0B78');
MakeCompass('n');
HighestAngle;
DTMRotated(BankFE,x,y, MMX1, MMY1, MMX2, MMY2)
Mouse(x,y,1,1,true);
RadialRoadWalk(FindFallyRoadColor, 208, 200, 55, 0, 0);
wait(1000+random(100));
RadialRoadWalk(FindFallyRoadColor, 195, 180, 50, 0, 0);
wait(2500+random(1000));
RadialRoadWalk(FindFallyRoadColor, 213, 150, 58, 0, 0);
wait(3000+random(500));
if(FindSymbol(x,y,'tree')) then
wait(2000+random(500));
if DTMRotated(Tree1, x, y, MMX1, MMY1, MMX2, MMY2) then
Mouse(x,y,1,1,true);
wait(3000+random(500));
if DTMRotated(Tree2, x, y, MMX1, MMY1, MMX2, MMY2) then
Mouse(x,y,1,1,true);
wait(3000+random(500));
DTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2);
MMouse(x,y,1,1);
if isuptext('ysterious') then
GetMousePos(x,y);
Mouse(x,y,1,1,true);
exit;
if(not(DTMRotated(Tree, x, y, MMX1, MMY1, MMX2, MMY2))) then
Writeln(Players[i].Name + ' is lost!');
NextPlayer(True);
exit;
if(not(DTMRotated(Tree1, x, y, MMX1, MMY1, MMX2, MMY2))) then
Writeln('Our dear '+ Players[i].Name +' is lost!');
NextPlayer(True);
exit;
If(not(isuptext('ysterious'))) then
Writeln('Our dear '+Players[i].Name + ' has been abducted by aliens!');
end;
I just realized I made a really sad attempt at failsafes there...oh well, I'll fix that later.