Gaston7eze
12-23-2011, 12:08 PM
Program MouseKeySimulator;
//{$DEFINE SMART}
{$i SRL\SRL.scar}
var
RockPattern: TIntegerArray
;Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Function InvMMouse(InvSlot:Integer) : boolean;
Var TB: TBox;
CurrPT : TPoint;
Begin
result := false;
GameTab(tab_inv);
Result := true;
Writeln('InvMousing:' + IntToStr(InvSlot));
TB := InvBox(InvSlot);
GetMousePos(CurrPT.x,CurrPT.y);
If PointInBox(CurrPT,TB) Then
MouseBox(Max(CurrPT.x-random(2),TB.x1),Max(CurrPT.y-random(2),TB.y1),
Min(CurrPT.x+random(2),TB.x2),Min(CurrPT.y+random( 2),TB.y2),3) //LOL Pro-human much!
Else
MouseBoxEx(TB.X1, TB.Y1, TB.X2, TB.Y2,14, 3);
End;
Procedure MouseKeyDrop;
var I, X, Y, OreMid: Integer;
SlotBox:TBox;
Begin
RockPattern:=[1,5,9,13,17,21,2,6,10,14,18,22,3,7,11,15,19,23,4,8 ,12,16,20,24];
OreMid := DTMFromString('78DA63CC626260E0606440054C601226CA5 84' +
'C849A3C209F8F809A6C209F19BF1A00AD2101F4');
For I:=0 to 23 Do
Begin
StatsGuise('Dropping Ores: ' + IntToStr(I));
SlotBox:=InvBox(RockPattern[I]);
If FindDTm(OreMid, X, Y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
Begin
Writeln('dtm found');
Writeln('I is:' + IntToStr(I));
If InIntArray([0,6,12,18], I) Then
Begin
Writeln('TopBox');
//InvMMouse(RockPattern[I]);
MMouse(X, Y, 5, 3);
End;
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
WaitOptionMultiEx(['Us'], 'item', Nothing, 5000);
MoveMouse(X, Y+40);
GetMousePos(X, Y); ClickMouse(X, Y, mouse_Left);
Wait(50+Random(20));
End;
End;
End;
Begin
SetUpSRL;
MouseKeyDrop;
end.
At the start it gives me an error .
[Error] (47:1): 'BEGIN' expected at line 46
Compiling failed.
//{$DEFINE SMART}
{$i SRL\SRL.scar}
var
RockPattern: TIntegerArray
;Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Function InvMMouse(InvSlot:Integer) : boolean;
Var TB: TBox;
CurrPT : TPoint;
Begin
result := false;
GameTab(tab_inv);
Result := true;
Writeln('InvMousing:' + IntToStr(InvSlot));
TB := InvBox(InvSlot);
GetMousePos(CurrPT.x,CurrPT.y);
If PointInBox(CurrPT,TB) Then
MouseBox(Max(CurrPT.x-random(2),TB.x1),Max(CurrPT.y-random(2),TB.y1),
Min(CurrPT.x+random(2),TB.x2),Min(CurrPT.y+random( 2),TB.y2),3) //LOL Pro-human much!
Else
MouseBoxEx(TB.X1, TB.Y1, TB.X2, TB.Y2,14, 3);
End;
Procedure MouseKeyDrop;
var I, X, Y, OreMid: Integer;
SlotBox:TBox;
Begin
RockPattern:=[1,5,9,13,17,21,2,6,10,14,18,22,3,7,11,15,19,23,4,8 ,12,16,20,24];
OreMid := DTMFromString('78DA63CC626260E0606440054C601226CA5 84' +
'C849A3C209F8F809A6C209F19BF1A00AD2101F4');
For I:=0 to 23 Do
Begin
StatsGuise('Dropping Ores: ' + IntToStr(I));
SlotBox:=InvBox(RockPattern[I]);
If FindDTm(OreMid, X, Y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
Begin
Writeln('dtm found');
Writeln('I is:' + IntToStr(I));
If InIntArray([0,6,12,18], I) Then
Begin
Writeln('TopBox');
//InvMMouse(RockPattern[I]);
MMouse(X, Y, 5, 3);
End;
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
WaitOptionMultiEx(['Us'], 'item', Nothing, 5000);
MoveMouse(X, Y+40);
GetMousePos(X, Y); ClickMouse(X, Y, mouse_Left);
Wait(50+Random(20));
End;
End;
End;
Begin
SetUpSRL;
MouseKeyDrop;
end.
At the start it gives me an error .
[Error] (47:1): 'BEGIN' expected at line 46
Compiling failed.