SRL Archive - Help

Need a few pointers

KFC

2012-01-04 01:16:05

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

2012-01-04 01:50:04



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

2012-01-04 02:08:28

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

2012-01-04 02:09:26

From: 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.

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

2012-01-04 02:11:56

From: ggzz
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

2012-01-04 02:31:30

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

2012-01-04 03:06:30

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

Kyle Undefined

2012-01-05 12:29:03

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

2012-01-05 15:11:28

Ooops ive must of over looked that, its not like I was unaware…:spongebob::spongebob::spongebob::spongebob::spongebob:
:spongebob::spongebob::spongebob::spongebob::spongebob::spongebob:
:spongebob::spongebob::spongebob::spongebob::spongebob::spongebob:
:spongebob::spongebob::spongebob::spongebob::spongebob::spongebob:
:spongebob::spongebob::spongebob::spongebob::spongebob::spongebob: