Schnauzer
2013-02-03 21:24:02
I thought this section might be more appropriate. But here is my first script, with a combination of a couple tutorials and a my former pascal knowlege I have some up with this bone collector for project 2006:
Program BoneCollecter;
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P06Include/P06Include.Simba}
Const
UPTEXT1 = 'Take B';
UPTEXT2 = 'Take Bo';
UPTEXT3 = 'Take Bon';
UPTEXT4 = 'ake Bone';
UPTEXT5 = 'Take Bones';
UPTEXT6 = 'ake Bones';
UPTEXT7 = 'ke Bones';
UPTEXT8 = 'onze Arr';
UPTEXT9 = 'nze Arro';
Var
Bones:Integer;
Procedure BuryBones;
Var
X,Y:Integer;
Begin
if FindDTM(Bones, x, y, 565, 230, 736, 485) then
Begin
if FindDTM(Bones, x, y, 565, 230, 609, 484) then
Begin
mmouse(x, y, 1, 1);
clickmouse2(mouse_Left);
Wait(RandomRange(250, 400));
End;
if FindDTM(Bones, x, y, 610, 230, 646, 484) then
Begin
mmouse(x, y, 1, 1);
clickmouse2(mouse_Left);
Wait(RandomRange(250, 400));
End;
if FindDTM(Bones, x, y, 645, 230, 698, 484) then
Begin
mmouse(x, y, 1, 1);
clickmouse2(mouse_Left);
Wait(RandomRange(250, 400));
End;
if FindDTM(Bones, x, y, 692, 230, 740, 484) then
Begin
mmouse(x, y, 1, 1);
clickmouse2(mouse_Left);
Wait(RandomRange(250, 400));
End;
End;
repeat
BuryBones;
until
(FindDTM(Bones, x, y, 565, 230, 736, 485)=false)
Exit;
End;
Function GetBoner: Boolean;
Var
tmpCTS,i, L,Counter: Integer;
ObjTPA: TPointArray;
ObjATPA: T2DPointArray;
X,Y,DMCount,Moves: Integer;
Begin
Moves:=0;
DMCount:=0;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.16, 0.17);
FindColorsTolerance(ObjTPA, 14013915, 1, 1, 514, 338, 11);
SplitTPAWrap(ObjTPA, 10, ObjATPA);
SortATPASize(ObjATPA,True);
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
DMCount:=RandomRange(3,5);
L := High(ObjATPA)
MarkTime(Counter);
For i := 0 To L Do
Begin
MiddleTPAEx(ObjATPA[i], X, Y);
Repeat Begin
Moves:=Moves+1;
mmouse(x, y, 1, 1);
Wait(RandomRange(400, 500));
If (P06_IsUpTextMultiCustom([''+ UPTEXT1,''+UPTEXT2, ''+UPTEXT3,''+UPTEXT4,''+UPTEXT5,''+UPTEXT6,''+UPTEXT7,''+UPTEXT8,''+UPTEXT9])) Then
Begin
//P06_ClickCurrent(False);
clickmouse2(mouse_Right);
Wait(RandomRange(200, 500));
P06_ChooseOptionMulti(['Take Bones','ake ones']);
Wait(RandomRange(200, 500));
While IsMoving do
Wait(RandomRange(100, 300));
Exit;
End;
End; Until (Moves > DMCount)
If (TimeFromMark(Counter) > 5000) Then
Begin
Break;
End;
End;
Result:=False;
End;
Procedure Main;
Begin
If (P06_InvFull) Then
Begin
BuryBones;
End;
GetBoner;
End;
Begin
SetupSRL;
SetupP06Include;
MouseSpeed := 17;
Bones := DTMFromString('mWAAAAHicY2FgYPBhYmDwAmIPKJZjZGAQB2JVRgh77qRJDLs2bGBYNnsWw851axn4gXqQMSMaBgEA4EIJuQ==');
GetBoner;
repeat
Main;
Until False;
FreeDTM(Bones);
End.