SCAR Code:
program DekaronMoneyMaker;
var
Rounds: Integer;
begin
Repeat
//Login
MoveMouseSmooth(1148, 239);
Wait(50+random(50));
ClickMouse(1148, 239, True);
Wait(120);
MoveMouseSmooth(956, 809);
Wait(50);
ClickMouse(956, 809, True);
Wait(11200);
//Portal
MoveMouseSmooth(958, 819);
Wait(400);
ClickMouse(958, 819, True);
Wait(400);
MoveMouseSmooth(818, 494);
Wait(500);
ClickMouse(818, 494, True);
Wait(80+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
ClickMouse(818, 494, True);
Wait(10+random(10));
MoveMouseSmooth(624, 467);
Wait(450);
ClickMouse(624, 467, True);
Wait(450);
MoveMouseSmooth(904, 604);
Wait(500);
ClickMouse(904, 604, True);
Wait(700);
ClickMouse(904, 604, True);
Wait(7000);
//Chest 1
Wait(30);
SendKeys('m');
MoveMouseSmooth(1051, 612);
Wait(50);
ClickMouse(1051, 612, True);
Wait(50);
SendKeys('m');
Wait(50);
MoveMouseSmooth(851, 727);
Wait(50);
ClickMouse(851, 727, True);
Wait(50);
ClickMouse(851, 727, True);
Wait(600);
SendKeys(Chr(32));
Wait(500);
//Chest 2
SendKeys('m');
MoveMouseSmooth(1052, 573);
Wait(50);
ClickMouse(1052, 573, True);
Wait(50);
SendKeys('m');
Wait(50);
MoveMouseSmooth(1166, 725);
Wait(50);
ClickMouse(1166, 725, True);
Wait(50);
ClickMouse(1166, 725, True);
Wait(600);
SendKeys(Chr(32));
Wait(500);
//Chest 3
SendKeys('m');
MoveMouseSmooth(1018, 573);
Wait(50);
ClickMouse(1018, 573, True);
Wait(50);
SendKeys('m');
Wait(50);
MoveMouseSmooth(1167, 716);
Wait(50);
ClickMouse(1167, 716, True);
Wait(50);
ClickMouse(1167, 716, True);
Wait(600);
SendKeys(Chr(32));
Wait(500);
//Chest 4
SendKeys('m');
MoveMouseSmooth(1026, 615);
Wait(50);
ClickMouse(1026, 615, True)
Wait(50);
SendKeys('m');
Wait(50);
MoveMouseSmooth(1169, 718);
Wait(50);
ClickMouse(1169, 718, True);
Wait(50);
ClickMouse(1169, 718, True);
Wait(600);
SendKeys(Chr(32));
Wait(500);
//Chest 5
SendKeys('m');
MoveMouseSmooth(994, 534);
Wait(50);
ClickMouse(994, 534, True);
Wait(50);
SendKeys('m');
Wait(50);
MoveMouseSmooth(1069, 720);
Wait(100);
ClickMouse(1069, 720, True);
Wait(50);
ClickMouse(1069, 720, True);
Wait(600);
SendKeys(Chr(32));
Wait(70);
SendKeys(Chr(32));
Wait(500);
//Chest 6
SendKeys('m');
MoveMouseSmooth(1076, 536);
Wait(50);
ClickMouse(1076, 536, True);
Wait(50);
SendKeys('m');
Wait(50);
MoveMouseSmooth(1153, 640);
Wait(50);
ClickMouse(1153, 640, True);
Wait(50);
ClickMouse(1153, 640, True);
Wait(600);
SendKeys(Chr(32));
Wait(500);
//Chest 7
SendKeys('m');
MoveMouseSmooth(1152, 573);
Wait(50);
ClickMouse(1152, 573, True);
Wait(50);
SendKeys('m');
Wait(50);
MoveMouseSmooth(1044, 445);
Wait(50);
ClickMouse(1044, 445, True);
Wait(50);
ClickMouse(1044, 445, True);
Wait(600);
SendKeys(Chr(32));
Wait(500);
//Logout
KeyDown(27); Wait(50); KeyUp(27);
KeyDown(27); Wait(50); KeyUp(27);
MoveMousesmooth(959, 522);
Wait(100);
ClickMouse(959, 522, True);
Inc(Rounds);
Writeln('We have done ' + IntToStr(Rounds) + ' round(s)');
Wait(17000);
Until False;
end.