igotgrapes
2008-04-23 21:38:29
Script to sell willow longbow(u) notes to a general store. That's really all I need any help would be awesome ;D
2008-04-23 21:38:29
2008-04-23 22:14:41
program sellwillowslongs;
{.include srl/srl.scar}
var
DTM: integer;
x, y: integer;
Procedure Sell;
begin
if FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 5, 5, false);
ChooseOption('ll 50');
end;
end;
procedure LoadDTMs;
begin
DTM := DTMFromString('78DA6314656060106140015E6E520C3C409A1' +
'188FF0301A30A90C1CD800618914820CD09243808A86107128A04' +
'D428010965026A406648115003728B2801354244D805328313BF1' +
'A00764D064E');
End;
Begin
setupsrl;
LoadDTMs;
wait(1000);
Repeat
Wait(50+random(25));
sell;
until(false)
End.
2008-04-24 19:25:40
2008-04-25 05:36:07