Need a few pointers

[KFC]

program CagedOgerer;
{$i /SRL/SRL.scar}

procedure AntiBan;
begin
case random(250) of
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Ranged', False);
3: ExamineInv;
4: RandomMovement;
end;
end;

Procedure KillOgres;
Var
x, y:Integer;
Begin
FindNormalRandoms
AntiBan;
FindObjTPA(x, y, 9160669, 20, 1, 10, 35, 100, ['more options']);
MMouse(x, y, 0, 0);
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption('ttack');
AntiBan;
Wait(30000+Random(546)); // adjustable(spelling?) to range level
End;


begin
SetUpSRL;
repeat
KillOgres;
until(false);
end.


2 questions.

1) is there a way when its finding the ogre (findobjtpa) and it right clicks it to check the option menu if the option 'attack' is available, and if it is, click it, and if not, relocate another ogre?

2)is there a way for it to find normal randoms while it is waiting the 30000 ms i asked it to?


noob scripter, clueless :/

[wantonman]

program CagedOgerer;
{$i /SRL/SRL.scar}

procedure AntiBan;
begin
case random(250) of
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Ranged', False);
3: ExamineInv;
4: RandomMovement;
end;
end;

Procedure KillOgres;
Var
WeAttacked, x, y:Integer;
Begin
if
FINDOBJCUSTOM(x, y, ['Og', 're','Atta','ck'], [9160669, another color optional ], 7) then //this will find an attackable
begin //target (ogre)
Mouse(x, y, 5, 5, True); //clicked the ogre you want =)
MarkTime(WeAttacked); //weAttacked is basically an integer as defined
While TimeFromMark(WeAttacked)< 30000 Do //while we wait 30 sec. do anti stuff =)
FindNormalRandoms;
AntiBan;
End;
end;

begin
SetUpSRL;
repeat
KillOgres;
until(false);
end.








1) is there a way when its finding the ogre (findobjtpa) and it right clicks it to check the option menu if the option 'attack' is available, and if it is, click it, and if not, relocate another ogre?

y check if it says attack when you can just FINDOBJCUSTOM(x, y, ['Og', 're','Atta','ck'], [9160669, another color optional ], 7)


this is not exactly what your asking but this will kill ogres, lol

[Brandon]

Few Pointers huh?
int* a;
b = &a;
*b = 10;

lol..

P.S. Use a loop to find objects repeatedly.. exactly the same for finding randoms.. you said it yourself.. WHILE waiting..


repeat
wait(1000);
FindNormalRandoms;
X:= X + 1;
Until(X = 30);

[KFC]

program CagedOgerer;
{$i /SRL/SRL.scar}

procedure AntiBan;
begin
case random(250) of
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Ranged', False);
3: ExamineInv;
4: RandomMovement;
end;
end;

Procedure KillOgres;
Var
WeAttacked, x, y:Integer;
Begin
if
FINDOBJCUSTOM(x, y, ['Og', 're','Atta','ck'], [9160669, another color optional ], 7) then //this will find an attackable
begin //target (ogre)
Mouse(x, y, 5, 5, True); //clicked the ogre you want =)
MarkTime(WeAttacked); //weAttacked is basically an integer as defined
While TimeFromMark(WeAttacked)< 30000 Do //while we wait 30 sec. do anti stuff =)
FindNormalRandoms;
AntiBan;
End;
end;

begin
SetUpSRL;
repeat
KillOgres;
until(false);
end.








1) is there a way when its finding the ogre (findobjtpa) and it right clicks it to check the option menu if the option 'attack' is available, and if it is, click it, and if not, relocate another ogre?

y check if it says attack when you can just FINDOBJCUSTOM(x, y, ['Og', 're','Atta','ck'], [9160669, another color optional ], 7)


this is not exactly what your asking but this will kill ogres, lol

Thanks! i was able to figure out #2 a little bit before you posted this but #1 greatly decreased the time it took to find an ogre for some reason.


Only problem is it will still sometimes click the edge, or click while its moving, miss, and sit there for 30 seconds :/

[KFC]

Few Pointers huh?
int* a;
b = &a;
*b = 10;

lol..

P.S. Use a loop to find objects repeatedly.. exactly the same for finding randoms.. you said it yourself.. WHILE waiting..


repeat
wait(1000);
FindNormalRandoms;
X:= X + 1;
Until(X = 30);


would work, however for some reason in any of the scripts i write when it finds randoms it idles for 15 seconds before it moves on, which would make that method take forever in my case :/

[bg5]

2)Also you can make something like this:


Waitfunc(@FindNormalRandoms,10,30000+random(546));

1)I can show you example from my butterfly catcher

function Catch:Boolean;
begin
Result := False;
if (findObjEx(x,y,BText,BColor,BTol,340,MSX1, MSY1, MSX2, MSY2)) then // this func. already move mouse to read an UpText (text in upper-left corner) ,so you dont need to move mouse again
begin
ClickMouse2(False); // right click
WaitOptionEx('atch', 'action', ClickLeft, 250); // search for option and click it
Result := True;

end;
end;


and if not, relocate another ogre

put it in loop

[wantonman]

well with moving objects its all about precision color finding... ask a pro for help with colors and read more tuts...

[Kyle Undefined]

Lol ggzz!

Taking beginners suggestion, and making it better:

function Catch:Boolean;
begin
Result := False;
if (findObjEx(x,y,BText,BColor,BTol,340,MSX1, MSY1, MSX2, MSY2)) then // this func. already move mouse to read an UpText (text in upper-left corner) ,so you dont need to move mouse again
begin
ClickMouse2(False); // right click
Result := WaitOptionEx('atch', 'action', ClickLeft, 250); // search for option and click it
end;
end;

[wantonman]

Ooops ive must of over looked that, its not like I was unaware...:spongebob::spongebob::spongebob::sponge bob::spongebob:
:spongebob::spongebob::spongebob::spongebob::spong ebob::spongebob:
:spongebob::spongebob::spongebob::spongebob::spong ebob::spongebob:
:spongebob::spongebob::spongebob::spongebob::spong ebob::spongebob:
:spongebob::spongebob::spongebob::spongebob::spong ebob::spongebob: