Printable View
SCAR Code:{*******************************************************************************
procedure DropAllEx;
By: Tickyy
Description: Drops all the items from the first given position, till to the second given position
*******************************************************************************}
procedure DropAllEx(z_from, z_to: integer);
var
i : Integer;
begin
for i := z_from to z_to do
DropItem(i);
end;
Like it?
I think DropItemEx would be better :p
The name doesn't matter that much, but whatever.... developers can make any changes later. :)Quote:
Originally Posted by 99_ aka ian.
No I don't like it >.>.
haha, i love you too :p!Quote:
Originally Posted by Da 0wner
I swear there was something like this in SRL before...
mine drops if the uptext
Code:procedure DropStuff(textup : string);
var
i, NSPosC, SPos: Integer;
TB: TBox;
begin
if not LoggedIn then
LoginPlayer;
if (SPos < 1) then
begin
for i := 1 to 28 do
begin
TB := InvBox(i);
MMouse(RandomRange(TB.X1 + 4, TB.X2 - 4), RandomRange(TB.Y1 + 4,
TB.Y2 - 4), 3, 3);
if (Uppercase(GetUpText) = ((textup))) then
DropItem(i)
else
begin
NSPosC := NSPosC + 1;
Continue;
end;
end;
end
else
begin
for i := SPos to 28 do
begin
TB := InvBox(i);
MMouse(RandomRange(TB.X1 + 4, TB.X2 - 4), RandomRange(TB.Y1 + 4,
TB.Y2 - 4), 3, 3);
if (Uppercase(GetUpText) = ((textup))) then
DropItem(i)
else
begin
NSPosC := NSPosC + 1;
Continue;
end;
end;
end;
if (NSPosC > 0) then
begin
ArrangeInv;
SPos := SPos + NSPosC;
end;
end;
+1, but I've got a feeling we're confusing this with something else.Quote:
Originally Posted by ZephyrsFury
Anyway, I'll add it briefly.
Thanks for the idea, Tickyy.
Edit: committed.
And, Da 0wner, the proc I committed already does that. Sort of.
SCAR Code:{*******************************************************************************
procedure DropItemsSkipEx;
By: Tickyy and Da 0wner
Description: Drops all the items from the first given position, till to the second given position. Skips all slots in Skip TIntegerArray.
*******************************************************************************}
procedure DropItemsSkipEx(z_from, z_to: integer; Skip : TIntegerArray);
var
i : Integer;
begin
for i := z_from to z_to do
if not InIntArray(i, Skip) then
DropItem(i);
end;
Also commit that one EvilChicken.
Isn't that just the old DepositAll from SRL?
Even so, seems kind of like a down graded version of this:
Since they both do the same thing...SCAR Code:{*******************************************************************************
Procedure Deposit(SlotFrom, SlotTo: Integer; vType: Variant);
by: WT-Fakawi/PPLSUQBAWLZ/Stupid3ooo/Town
Description: Deposits from Slot to ToSlot.
vType True = Deposit All. vType False = Deposit one by one.
Any integer is deposit with Deposit X. (except for 5 and 10)
*******************************************************************************}
Procedure Deposit(SlotFrom, SlotTo: Integer; vType: Variant);
Var
DepositX, BScreen, DScreen: Boolean;
All: Variant;
I, T, x, y: Integer;
B: TBox;
Begin
BScreen := BankScreen;
if (not(BScreen)) then
DScreen := DepositScreen;
If Not (BScreen or DScreen) Then
Exit;
If vType = 2 Then
srl_Warn('Deposit', '2 now means store per 2, not ''All''', 15);
DepositX := False;
Case VarType(vType) Of
3: Begin
DepositX := Not InIntArray([1, 5, 10], vType);
If vType = 1 Then
All := False
Else
All := True;
End;
11: All := vType;
End;
For I := SlotFrom To SlotTo Do
Begin
if (BScreen) then
begin
If Not ExistsItem(I) Then
Continue;
MouseItem(I, Not All);
end else
begin
B := DepositItemBox(I);
if (not(FindColor(X, Y, 65536, B.X1, B.Y1, B.X2, B.Y2))) then
Continue;
Mouse((B.X1 + B.X2) shr 1, (B.Y1 + B.Y2) shr 1, 0, 0, not All);
end;
If DepositX Then
Begin
ChooseOption('Deposit-X');
T := GetSystemTime;
While (Not FindColor(x, y, 8388608, MCX1, MCY1, MCX2, MCY2)) And (GetSystemTime - T < 3000) Do
Wait(100);
TypeSend(vType);
End Else If VarType(vType) = 3 Then
ChooseOption('Deposit-' + vType)
Else
ChooseOption('Deposit-All');
T := GetSystemTime;
Wait(RandomRange(200, 300));
repeat
if (BScreen) then
if (not(ExistsItem(I))) then Break;
if (DScreen) then
if (not(FindColor(X, Y, 65536, B.X1, B.Y1, B.X2, B.Y2))) then Break;
Wait(50);
until(GetSystemTime - T > 2000);
End;
End;
First of all, i wanna thank you all for your nice comments (if there was any:rolleyes:).
Second, i just needed something like this and made it up pretty fast, i've been searching for it and haven't found anything.
That you stole it was absolutely not what I meant, and I believe that applies to every poster in this thread posting somewhat the same as me.Quote:
Originally Posted by Tickyy
It simply confused me that something like this wasn't in SRL although I was certain seeing it being there some time ago.
k thanks, i hope you liked it :p, its pretty short, but very useful. :)Quote:
Originally Posted by EvilChicken!
Yea. Last night on the IRC I looked for the DropAll Function in SRL, and when I found it, it looked very different from the last time I saw it. I especially noticed that it was by Lorax, instead of one of the current devs.