PDA

View Full Version : how do i suggest an addition



waterfoul
10-18-2007, 02:04 AM
I made this, it could be part of either the DTM.scar or Object.scar and couldn't find a place to suggest it, it allows for people to find an object using a DTM instead of just a color so that the mouse doesn't bounce to too many places where you want to find something where it's color is frequent.


{************************************************* ******************************
function FindObjDTM(var cx, cy:Integer; var Angle: Extended; Text: string; dtm, StartAngle, EndAngle: Integer): Boolean;
By: waterfoul
Description: a modified version of FindObj by Stupid3ooo and modified by Ron.
Finds an object using a dtm
************************************************** *****************************}

function FindObjDTM(var cx, cy:Integer; var Angle: Extended; Text: string; dtm, StartAngle, EndAngle: Integer): Boolean;
var
a, c, i, x1, y1, x2, y2: Integer;
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (Loggedin)) then
Break;
a := a + 1;
if (a = 1) or (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end else
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end else
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end else
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindDTMRotated(dtm,cx, cy,x1, y1, x2, y2, StartAngle,EndAngle,0.01,Angle)) then
begin
MMouse(cx, cy, 0, 0)
Wait(50+Random(50));
if (IsUpText(Text)) then
begin
Result := True;
Break;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;

Timer
10-18-2007, 02:15 AM
.includes\SRL\SRL\Core\Object.scar

Hobbit
10-18-2007, 02:59 PM
Become an SRL member and post it in the SRL suggestions section.

http://www.villavu.com/forum/showthread.php?t=3562?t=4302