SCAR Code:
program AutoDropper;
//By: Gumby
//Used for dropping things such as logs, ores, or fish
//Cannot Drop Things with more then 4 options (drop,examine,use,cancel)
//So no weapons, armor, and unfortunatley, cooked food
//Make sure you drag the crosshair onto the RuneScape Window
//I didn't randomize the co-ordinates at all, but that
//shouldn't matter too much.
//Go to Line 15 for setup
var
DoNotDrop:Integer;
procedure WaitASec;
begin
Wait(100+random(45));
end;
procedure TopDrop;
begin
DoNotDrop:=1; //Set 1-4 here to indicate how many items not to drop
begin
if (DoNotDrop=4) then
begin
Writeln('Dropping Complete');
end else
MoveMouseSmooth(711,230);
WaitASec;
ClickMouse(711,230,false);
WaitASec;
MoveMouseSmooth(683,265);
WaitASec;
ClickMouse(683,265,true);
WaitASec;
if (DoNotDrop=3) then
begin
Writeln('Dropping Complete');
end else
MoveMouseSmooth(670,228);
WaitASec;
ClickMouse(670,228,false);
WaitASec;
MoveMouseSMooth(633,269);
WaitASec;
ClickMouse(633,269,true);
WaitASec;
if (DoNotDrop=2) then
begin
Writeln('Dropping Complete');
end else
MoveMouseSmooth(626,227);
WaitASec;
ClickMouse(626,227,false);
WaitASec;
MoveMouseSmooth(610,266);
WaitASec;
ClickMouse(610,266,true);
WaitASec;
Writeln('Dropping Complete');
end;
end;
procedure BulkDrop;
begin
//Row 1
MoveMouseSmooth(710,443);
WaitASec;
ClickMouse(710,443,false);
WaitASec;
MoveMouseSmooth(706,462);
WaitASec;
ClickMouse(706,462,true);
WaitASec;
MoveMouseSmooth(666,443);
WaitASec;
ClickMouse(666,433,false);
WaitASec;
MoveMouseSmooth(642,463);
WaitASec;
ClickMouse(642,463,true);
WaitASec;
MoveMouseSmooth(626,444);
WaitASec;
ClickMouse(626,444,false);
WaitASec;
MoveMouseSmooth(622,461);
WaitASec;
ClickMouse(622,461,true);
WaitASec;
MoveMouseSmooth(582,455);
WaitASec;
ClickMouse(582,455,false);
WaitASec;
MoveMouseSmooth(563,463);
WaitASec;
ClickMouse(563,463,true);
WaitASec;
//Row 2
MoveMouseSmooth(714,407);
WaitASec;
ClickMouse(714,407,false);
WaitASec;
MoveMouseSmooth(668,448);
WaitASec;
ClickMouse(668,448,true);
WaitASec;
MoveMouseSmooth(666,410);
WaitASec;
ClickMouse(666,410,false);
WaitASec;
MovemouseSmooth(631,445);
WaitASec;
ClickMouse(631,445,true);
WaitASec;
MoveMouseSmooth(624,410);
WaitASec;
ClickMouse(624,410,false);
WaitASec;
MoveMouseSmooth(593,451);
WaitASec;
ClickMouse(593,451,true);
WaitASec;
MoveMouseSmooth(583,405);
WaitASec;
Clickmouse(583,405,false);
WaitASec;
MoveMouseSmooth(534,442);
WaitASec;
Clickmouse(534,443,true);
WaitASec;
//Row 3
MoveMouseSmooth(710,374);
WaitASec;
ClickMouse(710,374,false);
WaitASec;
MoveMouseSmooth(668,416);
WaitASec;
ClickMouse(668,416,true);
WaitASec;
MoveMouseSmooth(667,374);
WaitASec;
ClickMouse(667,374,false);
WaitASec;
MoveMouseSmooth(631,410);
WaitASec;
Clickmouse(631,410,true);
WaitASec;
MoveMouseSmooth(625,372);
WaitASec;
Clickmouse(625,372,false);
WaitASec;
MoveMouseSmooth(601,414);
WaitASec;
ClickMouse(601,414,true);
WaitASec;
MoveMouseSMooth(584,372);
WaitASec;
ClickMouse(584,372,false);
WaitASec;
MoveMouseSmooth(567,411);
WaitASec;
ClickMouse(567,411,true);
WaitASec;
//Row 4
MoveMouseSmooth(711,337);
WaitASec;
ClickMouse(711,337,false);
WaitASec;
MoveMouseSmooth(675,373);
WaitASec;
ClickMouse(675,373,true);
WaitASec;
MoveMouseSmooth(666,333);
WaitASec;
ClickMouse(666,333,false);
WaitASec;
MoveMouseSmooth(641,375);
WaitASec;
ClickMouse(641,375,true);
WaitASec;
MoveMouseSmooth(625,337);
WaitASec;
ClickMouse(625,337,false);
WaitASec;
MoveMouseSmooth(591,375);
WaitASec;
ClickMouse(591,375,true);
WaitASec;
MoveMouseSmooth(585,340);
WaitASec;
ClickMouse(585,340,false);
WaitASec;
MoveMouseSmooth(568,375);
WaitASec;
ClickMouse(568,375,true);
WaitASec;
//Row 5
MoveMouseSmooth(710,303);
WaitASec;
ClickMouse(710,303,false);
WaitASec;
MoveMouseSmooth(672,346);
WaitASec;
ClickMouse(672,346,true);
WaitASec;
MoveMouseSmooth(667,298);
WaitASec;
ClickMouse(667,298,false);
WaitASec;
MoveMouseSmooth(640,345);
WaitASec;
ClickMouse(640,345,true);
WaitASec;
MoveMouseSmooth(629,302);
WaitASec;
ClickMouse(629,302,false);
WaitASec;
MoveMouseSmooth(584,340);
WaitASec;
ClickMouse(584,340,true);
WaitASec;
MoveMouseSMooth(584,302);
WaitASec;
ClickMouse(584,302,false);
WaitASec;
MoveMouseSmooth(579,343);
WaitASec;
ClickMouse(579,343,true);
WaitASec;
//Row 6
MoveMouseSmooth(710,266);
WaitASec;
ClickMouse(710,266,false);
WaitASec;
MoveMouseSmooth(681,304);
WaitASec;
ClickMouse(681,304,true);
WaitASec;
MoveMouseSmooth(670,267);
WaitASec;
ClickMouse(670,267,false);
WaitASec;
MoveMouseSmooth(630,310);
WaitASec;
ClickMouse(630,310,true);
WaitASec;
MoveMouseSmooth(624,268);
WaitASec;
ClickMouse(624,268,false);
WaitASec;
MoveMouseSmooth(590,309);
WaitASec;
ClickMouse(590,309,true);
WaitASec;
MoveMouseSmooth(585,264);
WaitASec;
ClickMouse(585,264,false);
WaitASec;
MoveMouseSmooth(583,301);
WaitASec;
ClickMouse(583,301,true);
WaitASec;
end;
begin
BulkDrop;
TopDrop;
end.
SCAR Code:
program AutoTeleport;
//By: Gumby
//Be sure to drag the crosshair to the RS Window
//Be sure to have your magic page open
//No AntiRandoms do not leave running for long periods
//of time
var
tel,num,c: Integer;
procedure WaitASec;
begin
wait(200+random(50));
end;
procedure Teleport;
begin
tel:=5 //Set 1-5 here to indicate if you want to teleport to:
//1. Varrok
//2. Lumbridge
//3. Falador
//4. House
//5. Camelot
//Default is 5
num:=100//Number of teleports you want to do
c:=0 //Do Not Touch
begin
if (tel=1) then
begin
repeat
MoveMouseSmooth(600,287);
WaitASec;
ClickMouseSpline(600,287,7,7,true);
Wait(1500+random(100));
c:=c+1;
until(c=(num));
end else
Writeln('Teleported to Varrok');
if (tel=2) then
begin
repeat
MoveMouseSmooth(673,286);
WaitASec;
ClickMouseSpline(673,286,7,7,true);
Wait(1500+random(100));
c:=c+1;
until(c=(num));
end else
Writeln('Teleported to Lumbridge');
if (tel=3) then
begin
repeat
MoveMouseSmooth(573,311);
WaitASec;
ClickMouseSpline(573,311,7,7,true);
Wait(1500+random(100));
c:=c+1;
until(c=(num));
end else
Writeln('Teleported to Falador');
if (tel=4) then
begin
repeat
MoveMouseSmooth(625,313);
WaitASec;
ClickMouseSpline(625,313,7,7,true);
Wait(1500+random(100));
c:=c+1;
until(c=(num));
end else
Writeln('Teleported to House')
if (tel=5) then
begin
repeat
MoveMouseSmooth(696,311);
WaitASec;
ClickMouseSpline(696,311,7,7,true);
Wait(1500+random(100));
c:=c+1;
until(c=(num));
Writeln('Teleported to Camelot');
end;
end;
end;
begin
Teleport;
end.