ok i need an auto dropper that works![]()
ok i need an auto dropper that works![]()
Wrote this up just for you
SCAR Code:program New;
{.include SRL/SRL.scar}
var i,DroppedTot: integer;
{*******************************************************************************
procedure DropeItem(i: Integer);
By: Lorax / Hy71194 made quicker
Description: Drops item at given position (1-28)
*******************************************************************************}
function DropeItem(i: Integer): Boolean;
var
Pr: TPoint;
begin
GameTab(4);
if ExistsItem(i) then
begin
Pr := ItemCoords(i);
Mouse(Pr.x, Pr.y, 8, 8, False);
Wait(50 + Random(75));
if (ChooseOption('rop')) then
begin
Result := True;
Wait(10 + Random(50));
end;
end;
end;
procedure Proggy;
begin
ClearDebug;
WriteLn('Dropped '+Inttostr(DroppedTot)+' loads of stuff.');
end;
procedure DropDe;
var Hmm: integer;
begin
Hmm := MouseSpeed;
MouseSpeed := 25+Random(7);
for i := 2 to 28 do
DropeItem(i);
WriteLn('All Dropped!');
MouseSpeed := Hmm;
Inc(DroppedTot);
Proggy;
end;
begin
SetupSRL;
Proggy;
Wait(250+Random(250));
repeat
if InvFull then
DropDe;
Wait(500+Random(500));
until(False);
end.
Send SMS messages using Simba
Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!
SCAR Code:Procedure DropIt;
var i, x, y: Integer;
begin
For i := 3 to 28 do
If ExistsItem(i) then
Begin
Mouse(x,y,1,1,faLSE);
ChooseOption('rop')
end;
end;
There you go, simple auto dropper
Hope I Helped![]()
Thanks Hy.![]()
i doesn;t work of me
A better one:SCAR Code:begin
DropAll;
end.
![]()
You may contact me with any concerns you have.
Are you a victim of harassment? Please notify me or any other staff member.
| SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |
Haha heres a neat little one I typed up
SCAR Code:program Dropper;
{.include SRL/SRL.scar}
Var
x,y,item: integer;
Const
ItemName= 'log'; //Single item name
ItemColor= 3366269; //Set the item color of the item you want to keep dropping.
Procedure DropItAll;
begin
repeat
if(FindColorSpiralTolerance(x,y,(ItemColor), MIX1, MIY1, MIX2, MIY2, 5)) then
Mouse(x,y,3,3,false);
ChooseOption('rop');
Item := item + 1
wait(600)
until(Not(FindColorTolerance(x,y,(ItemColor), MIX1, MIY1, MIX2, MIY2, 5)))
end;
Procedure Proggy;
begin
Writeln('----------------------------------------');
Writeln('- Dropped ' + IntToStr(Item) + ' ' + (ItemName) +'s'); // Insert this into your own proggy if you want.
Writeln('----------------------------------------');
end;
begin
SetupSRL;
DropItAll;
Proggy;
end.
And heres the neat proggy it will give you
SCAR Code:----------------------------------------
- Dropped 6 logs // Will say whatever you set the name to. :D
----------------------------------------
I'm baaaack
On the line with the error add a ; onto the end..
Learning: Italian!
Code:<Jason2G's> I just sprayed WD-40 on my dog's nuts. He was sleeping. And now he can't get back to sleep ^_^
is there a way that you could edit this so you can be cutting logs and then the script recognizes there is a log in the last slot....then it starts dropping them?
THANKS
This can be made a ton easier.
SCAR Code:if(InvFull) then
DropAll;
Add:
Code:begin repeat treecutting code here until(InvFull); DropAll; //or whatever your drop procedure is end;
Hey thank you for that.
This is my script
begin
repeat
program DropItAll;
{.include SRL/SRL.scar}
Var
x,y,item: integer;
Const
ItemName= 'Willow logs'; //Single item name
ItemColor= 1985364; //Set the item color of the item you want to keep dropping.
Procedure DropItAll;
begin
repeat
if(FindColorSpiralTolerance(x,y,(ItemColor), MIX1, MIY1, MIX2, MIY2, 5)) then
Mouse(x,y,3,3,false);
ChooseOption('rop');
Item := item + 1
wait(500)
until(Not(FindColorTolerance(x,y,(ItemColor), MIX1, MIY1, MIX2, MIY2, 5)))
end;
Procedure Proggy;
begin
Writeln('----------------------------------------');
Writeln('- Dropped ' + IntToStr(Item) + ' ' + (ItemName) +'s'); // Insert this into your own proggy if you want.
Writeln('----------------------------------------');
end;
begin
SetupSRL;
DropItAll;
Proggy;
end.
until(InvFull);
DropItAll; //or whatever your drop procedure is
end;
I get
Failed when compiling
Line 3: [Error] (3:1): Identifier expected in script
You can't have the begin and repeat before the program line. You've got many things wrong. You might want to consider reading some tutorials before trying this kind of script.
Thanks
Nice auto droppers!
There are currently 1 users browsing this thread. (0 members and 1 guests)