SCAR Code:procedure Drop;
begin
DropTo(2,28);
end;
lol
SCAR Code:procedure Drop;
begin
DropTo(2,28);
end;
lol
This isn't a procedure that people would use. Sorry, there's just no point.
I guess the holidays are over - no sig for now.
Ah that one has no fail safes and it will drop everything except the first inventory slot...
I made one that drops DTM items...
SCAR Code://Just change out the DTM = )
Procedure Drop;
begin
repeat
wait(100+Random(500))
if FindDTM(JugInv,x,y, MIX1, MIY1, MIX2, MIY2)then
MMouse(x,y,2,2)
wait(500)
if (IsUpText('Jug'))then
Mouse(x,y,3,2,false)
ChooseOption(x,y,'Drop')
until(CountItemDTM(JugInv) < 1) or (CountItemDTM(JugInv) = 0)
end;
~Stupedspam
Oh, Sorry I missed that... Thanks SantaEdited
SCAR Code:(CountItemDTM(JugInv) > 1)
Erm...that would stop repeating when there's more than one DTM of the Jug left...which is basically how it is before it drops anything.
I think you meant:
SCAR Code:(CountItemDTM(JugInv) < 1)
which basically means 0...
[CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
[CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]
[CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]
excsuse my noob question but what does DTM stand for. And is there an easy list of runescape functions anywhere... Like makecompas(N) or whatever... I've been reading scripts but not really understanding them. I've made a few myself using only SCAR functions like clickmousebox, movmousebox, FindColorTolerance, wait, and stuff like that. Ive made a function to burn all my willow logs ininvantory if nothing is in the way stopping me saying I can't light a fire there.
I know I'm a noob to scar programs... but I graduated college with a computer science major. Could someone tell me where all the functions are defined? I jsut hate how people don't comment their code.
DTM means Deformable Template Model. And yeh for a whole thing of SRL Functions, check out scar/includes/srl/srl. in core is where all the main functions are, skill is skill related and misc is for stuff that doesnt fit anywhere else. extended is just old stuff i think.![]()
I good drop procedure in my opinion would be one that has all the common drop items (logs, ores, shrimp) inbuild as DTM's and all you would have to do is something like this:
SCAR Code:if (InvFull) then
DropItem('log');
It would be pretty simple but useful to most powerminers, chopppers, fishers, etc.
SCAR Code:function Drop:boolean;
var
i:Integer
begin
for i := 1 to 28 do
begin
TB := InvBox(i);
if FindColor(65536, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
begin
MouseItem(i, False);
ChooseOption('Drop');
Wait((250) + Random(150));
end;
end;
end;
SRL is a Library of routines made by the SRL community written for the Program Simba.We produce Scripts for the game Runescape.
What's the error?
[CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
[CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]
[CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]
What exactly is MouseItem?
[CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
[CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]
[CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]
yanix lol none works lol maybe your srl or your scar doesnt work...
~Hermen

haha Here got owned :P
Yeah, that is the easiest DropProcedure, but very basic.
And stupidspam, that code will drop from column 1 down, then move on to column 2, etc...



Here didn't get owned. Shes right. It's useless. Instead of calling Drop; just call the DropTo(2, 28); instead. Only retards have procedures with 1 line of code and no parameters or return results.
Me Droper![]()
SCAR Code:// Drops All My Rocks And Uncuts...
procedure DropAllOre;
var
i, Count, Slot, Row, Ix, Iy : Integer;
Drop : Boolean;
begin
if Players[CurrentPlayer].Active then
for i := 0 to 27 do
begin
if (not(LoggedIn)) then Break;
Slot := I mod 4;
Row := I / 4;
IX := 560 + (Slot * 42);
IY := 210 + (Row * 36);
Count := CountColor(65536, IX, IY, IX + 41, IY + 35);
if (Count = 171) or (Count = 66) then
begin
MMouse(Ix + 15, Iy + 15, 7, 7);
Wait(80 + Random(20));
Drop := IsUpText('ncut') or IsUpText('ore');
end;
if (Drop) then
begin
GetMousePos(Ix, Iy);
Mouse(Ix, Iy, 0, 0, False);
if (not(ChooseOption('rop'))) then ChooseOption('ancle');
Drop := False;
end;
end;
end;
Co Founder of https://www.tagcandy.com



Sky, you spelt cancel wrong.
What the heck is wrong with SKy's dropper?! Why would you make it so complicated?
[CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
[CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]
[CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]
SCAR Code:begin
SetArrayLength(FishToDrop, 10);
FishToDrop[0] := ShrimpBmp; //shripm
FishToDrop[1] := SardineBmp; //sardine
FishToDrop[2] := HerringBmp; //herring
FishToDrop[3] := AnchoviesBmp; //anchovy
FishToDrop[4] := TroutBmp; //trout
FishToDrop[5] := PikeBmp; //pike
FishToDrop[6] := SalmonBmp; //salmon
FishToDrop[7] := TunaBmp; //tuna
FishToDrop[8] := LobsterBmp; //lobster
FishToDrop[9] := SwordfishBmp; //swordfish
for F:= 0 to 9 do
begin
MarkTime(DroppingSingleFish);
Writeln('Dropping: ' + IntToStr(F));
repeat
if not LoggedIn then Break;
FindRandoms;
ClickAllItemsBmpTolWait(FishToDrop[F], 'rop', 30, (300 + Random(300)));
until (TimeFromMark(DroppingSingleFish) > 60000) or (not FindBitmapToleranceIn(FishToDrop[F], Rx, Ry, MIX1, MIY1, MIX2, MIY2, 40));
end;
end;
Declare the bitmaps elsewhere in your script, and this will drop every bitmap in the array FishToDrop.
SCAR Code:begin
SetArrayLength(PlzDontDropMe, 7);
PlzDontDropMe[0] := SmallNetBmp; //small net
PlzDontDropMe[1] := FishingRodBmp; //fishing rod
PlzDontDropMe[2] := FlyFishingRodBmp; //fly fishing rod
PlzDontDropMe[3] := HarpoonBmp; //harpoon
PlzDontDropMe[4] := CageBmp; //cage
PlzDontDropMe[5] := BaitBmp; //bait
PlzDontDropMe[6] := FeatherBmp; //feathers
for I := 1 to 28 do
if ExistsItem(I) then
begin
P := InvBox(I);
DropIt := True;
for C := 0 to 6 do
begin
if FindBitmapToleranceIn(PlzDontDropMe[C], Rx, Ry, P.X1, P.Y1, P.X2, P.Y2, 40) then
begin
DropIt := False;
Break;
end;
end;
if DropIt then
begin
Mouse((P.X1 + P.X2) div 2, (P.Y1 + P.Y2) div 2, 5, 5, False);
Wait(100 +Random(100));
ChooseOption('rop');
end;
end;
Wait(50 +Random(75));
end;
This will drop everything in your inventory apart from the bitmaps in the array PlzDontDropMe.
Sorry about the fishing related bitmaps and names, I pulled this straight out of my fisher.![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)