chulo92
2008-01-16 20:35:45
i would kill for an auto dropper ffs :p it would be really awesome
2008-01-16 20:35:45
2008-01-16 21:30:46
2008-01-16 22:23:28
From: tarajunky
You mean something like this?
2008-01-16 23:00:19
From: gamer 5
Wow I had never seen a Sript Request answered so fast!(h)
program Dropper;
{.include SRL/SRL.scar}
const
FromPosition = 1; //Drop from Inv Slot?
ToPosition = 28; //to Inv Slot?
begin
DropToPosition(FromPosition,ToPosition);
end.
2008-01-17 09:32:39
program Drop;
{.include srl/srl.scar}
const ItemToDrop = 'Ore';
procedure drop(dropitem : string);
var
bx, by, timeout, thing, itemc, itemc2 : Integer;
begin
case dropitem of
'Log' : thing := DTMFromString('78DA632C60626060636440068D29B60CFF813' +
'448F43F1030A6304179C880118904D2E94035A204D45403D5F010' +
'50530654C34A404D2C500D1F7E3500DACE0904');
'Ore' : thing := DTMFromString('78DA633CC4C4C0F0940105F4343532FC07D28' +
'C40FC1F08183702D53C6340038C48249006A9794340CD5EA09A4F' +
'04D41C04AA794740CD69A09AE704D49C07AAB94F40CD51A09A1B0' +
'4D4EC04AAB9875F0D00E1B81584');
end;
if not loggedin then exit;
GameTab(4);
begin
repeat
Try
if not (FindDTM(thing, bx, by, MIX1, MIY1, MIX2, MIY2)) then break;
except
begin
writeln('ERROR - Item to drop can only be Log or Ore, don''t forget big capitals');
Exit;
end;
end;
itemc := getcolor(bx, by);
Mouse(bx, by, 10, 10, false)
ChooseOption('Drop')
marktime(timeout);
repeat
wait(15);
itemc2 := getcolor(bx, by);
if itemc <> itemc2 then break;
until(timefrommark(timeout)>2000);
until (false)
end;
end;
begin
SetupSRL
Drop(ItemToDrop);
end.
2008-01-17 13:41:26
2008-01-17 14:00:32
2008-01-17 20:12:56
From: chulo92
none of these really work just starts and stops
program Dropper;
{.include SRL/SRL.scar}
const
FromPosition = 1; //Drop from Inv Slot?
ToPosition = 28; //to Inv Slot?
begin
DropToPosition(FromPosition,ToPosition);
end.You have to fill out like 5 and 6 though.
2008-01-21 01:28:44
program drop;
{.include SRL\SRL.SCAR}
begin
Dropall;
end.