PDA

View Full Version : procedure SelectOption(Opt,Amount: Integer);



OwnedPl0x?!?!
01-21-2008, 10:44 PM
Used for my Auto-Fletcher! i got tired of using Mouse() lol; u may take if needed
Opt 1 = shortbow
Opt 2 = longbow
Opt 3 = crossbowstock


procedure SelectOption(Opt,Amount: Integer);
begin
if (Opt = 1) then
begin
Mouse(121,403,0,0,False);
Wait(900);
ChooseOption('ake X');
Wait(900);
TypeSend(InttoStr(Amount));
Wait(800);
end;
if (Opt = 2) then
begin
Mouse(268,408,0,0,False);
Wait(1000);
ChooseOption('ake X');
Wait(900);
TypeSend(InttoStr(Amount));
Wait(800);
end;
if (Opt = 3) then
begin
Mouse(415,413,0,0,False);
Wait(1000);
ChooseOption('ake X');
Wait(900);
TypeSend(InttoStr(Amount));
Wait(800);
end;
end;

HyperSecret
01-21-2008, 11:31 PM
mouse coords with no randomness is bad and leads to bans

stampede10343
01-22-2008, 01:16 AM
Looks good except for "perfect Coordinates"

You could also use strings for your options, just to me more simple and easy to remeber

OwnedPl0x?!?!
01-22-2008, 01:34 AM
mouse coords with no randomness is bad and leads to bans

ill work on it :)



Looks good except for "perfect Coordinates"

You could also use strings for your options, just to me more simple and easy to remeber

Can ya give me an example?

BobboHobbo
01-22-2008, 02:10 AM
ill work on it :)




Can ya give me an example?

For randomness do:
Mouse(POSITIONX,POSITIONY, 10,10,true);

10 = the random ness in the X position and same with the other 10 is random for the Y axsis.

You could use DTMS of the logs would be more reliable.

Also you need random timming.

Wait(800+random(800));

mickaliscious
01-22-2008, 04:06 AM
I did a different kind of thing like this:


function DoOption(cx,cy,rx,ry:Integer; Option:string): boolean;
begin
Mouse(cx,cy,rx,ry,False);
Result := ChooseOption(Option);
end;

begin
if FindDTM(Bow, x, y, MIX1, MIY1, MIX2, MIY2) then
if DoOption(x,y,5,5, 'ake X') then
begin
Wait(RandomRange(100,500));
TypeSend('15');
end;
end.

OwnedPl0x?!?!
01-22-2008, 11:33 AM
this is all great feed back guys thanks for the help

@Bobbo, ty i keep forgetting about the random times and ill work on DTMs

stampede10343
01-22-2008, 11:56 AM
For strings you could use this: procedure SelectOption(Opt: String;Amount: Integer);
begin
if (Opt = 'shortbow') then
begin
Mouse(121,403,10,10,False);
Wait(900);
ChooseOption('ake X');
Wait(900);
TypeSend(InttoStr(Amount));
Wait(800);
end;
if (Opt = 'longbow') then
begin
Mouse(268,408,10,10,False);
Wait(1000);
ChooseOption('ake X');
Wait(900);
TypeSend(InttoStr(Amount));
Wait(800);
end;
if (Opt = 'crossbow') then
begin
Mouse(415,413,10,10,False);
Wait(1000);
ChooseOption('ake X');
Wait(900);
TypeSend(InttoStr(Amount));
Wait(800);
end;
end;
Something like that, with random waits

n3ss3s
01-22-2008, 03:49 PM
Okay, this is how you remove half of the length, look how much is the distance from the first one's middle to the second ones. Also get the Y, but no difference stuff needed.

Then, do

X := FirstOnesMiddle - TheXDistance + Opt * TheXDistance
Y := YOfTheFirst

Mouse(X, Y, 5, 5, False)...

OwnedPl0x?!?!
01-22-2008, 10:53 PM
Okay, this is how you remove half of the length, look how much is the distance from the first one's middle to the second ones. Also get the Y, but no difference stuff needed.

Then, do

X := FirstOnesMiddle - TheXDistance + Opt * TheXDistance
Y := YOfTheFirst

Mouse(X, Y, 5, 5, False)...


what do u mean by length? u mean the random coordinates or something else?

n3ss3s
01-23-2008, 10:46 AM
-.- I meant that is how you remove half of the length of your procedure, that really needs like < 8 lines...