I started some of it but got stuck.
If someone can help me, I'm willing to pay with 07 rsgp or paypal money.
Add my skype( Il2pkn00bs ) has 2 zeros.
Thanks.
This is the problem:
I need to to attack the Dharock and to loot items. Please help.Code:program Barrowskiller; {$i SRL/SRL.simba} var x,y:Integer; const Monster = 3874162; Loot = 'Bones'; // Loot name including the first letter LColor = 10132390; // Color of the loot to pick up Procedure Barrowskiller; begin if srl_infight = false then if(FindColorSpiralTolerance(x, y, Monster, MSX1, MSY1, MSX2, MSY2, 4)) then begin Mouse(x, y, 3, 3, true); wait(77000) end; end; procedure Loot(X,Y : Integer); var i, j : Integer; Box : TBox; Loots : Array of String; Options : Array of TOptions; begin Loots := ['harock', 'plate', 'clue']; Mouse(X,Y,0,0,mouse_right); Options := GetChooseOptions('action'); for i := 0 to High(Loots) do for j := 0 to High(Options) do begin if Pos('Take ' + Loots[i],Options[j].Str) > 0 Then begin Box := Options[j].Bounds; GetMousePos(X,Y); if PointInBox(Point(X,Y),Box) then ClickMouse2(mouse_left) else MouseBox(Box.x1, Box.y1, Box.x2, Box.y2, mouse_left); end; end; end; procedure main; begin repeat Barrowskiller; until(false) end; begin ClearDebug; SetUpSrl; ActivateClient; main; end.


Reply With Quote



