SRL Archive - Help and Support

Can anyone give me a procedure that will check for all randoms. I'm stuck on this and I have been trying for a while. You will be greatly appreciated for this.

Thanks!

- Da Der Der

FindNormalRandoms; Checks for all randoms except InBlack (Cannot be used in dungeons, etc..) and FindFight (Cannot be used with fighters.)

So, what you're saying is that you recommend me using FindNormalRandoms and FindFight?

And also, I have like 4 randoms procedures but I can't seem to put them all into one procedure without getting mixed up. If you could do it, you would be greatly loved :)

procedure FindThoseRandoms; {Thank you tarajunky}
begin
  if InBlack then
    repeat
      if (FindColor(x, y, 65280, 250, 130, 260, 180)) or
        (FindColor(x, y, 255, 250, 130, 260, 180)) then Runaway;
      Wait(1000);
    until not (LoggedIn);
  if NoGameTab then
    repeat
      wait(1000);
    until not (LoggedIn);
  FindNormalRandoms;
end;

Procedure NoBannage; {Thank you WT-Fakawi}
 var
 DBanMe : Integer;
  begin
   if ( not ( LoggedIn )) then Exit;
   DBanMe:= Random(50);
    case DBanMe of
     1:  RandomRClickEvery(2 + Random(13));
     2:  hoverskill('random', false);
     3:  RandomChatEvery(10 + Random(5));
     4:  RotateEvery(20 + Random(10));
     5:  LeaveScreenEvery(5 + Random(5));
     6:  HoverEvery(15 + Random(5),'random');
     8:  PickUpMouse;
     9:  BoredEvery(9 + Random(24));
     10: GameTab(1 + Random(12));
   end;
end;

Procedure FindRandoms; {Thank you WT-Fakawi}
Begin

  If ( Not ( LoggedIn )) Then Exit;
  RC;
  If ( Not ( UseBoxSolver )) Then
    If FindNewBox And
     Not ( GambleNewBox ) Then
     Begin
       Players[CurrentPlayer].loc := 'NewBox';
       Logout;
       Exit;
     End;
  If InBlack Then
  Begin
    Players[CurrentPlayer].loc := 'InBlack';
    Logout;
    Exit;
  End;
  Wait(1);
  If NoGameTab then
  Begin
    Players[CurrentPlayer].loc := 'GameTab';
    Logout;
    Exit;
  End;

  FindNormalRandoms;
  Wait(1);
End;

Function QuickRandoms: Boolean; {Thank you WT-Fakawi}
Var
  i: Integer;
Begin
  For i:=1 To 7 Do
  Begin
    Case I Of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: Begin
           if NoGameTab then
           Begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           End;
         End;
     7: Begin
           If InBlack then
           Begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           End;
         End;
       8: RC;
    End;
    wait(1);
  End;
End;

Try using something like Dankness's FTWaitDank from his Chickenkiller. I think some of Fakawi's scripts use FTWait 2 as well.

You will need to declare some variables.

Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 10 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
     8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
      9: RC;
      10: Respond;
    end;
    wait(1);
  end;
end;

//----------------------------------------------------------------------------//

Procedure FTWaitDank(Time:Integer);
var T, I: integer;
begin
  try

    T := Time div 3;
    for I := 1 to 3 do
    begin
      Wait ( T );
      FindTalk;
    end

  except

    begin
      Wait ( Time );
      FindTalk;
    end;

  end;


  FindFastRandoms;
  MarkTime(FindNorMalRandomsTime);
  if FindNorMalRandomsTime-SST1 >(10000+Random(5000)) then
  begin
    DankDebug('FindNorMalRandoms.');
    FindNorMalRandoms;
    MarkTime(SST1);
    DankDebug('FindNorMalRandoms took:'+IntToStr(SST1-FindNorMalRandomsTime)+' msec');
  end;

  MarkTime(FindFastRandomsTime);
  if FindFastRandomsTime-SST2 >(1500+Random(1500)) then
  begin
    DankDebug('FindFastRandoms.');
    FindFastRandoms;
    MarkTime(SST2);
    DankDebug('FindFastRandoms took:'+IntToStr(SST2-FindFastRandomsTime)+' msec');
  end;

end;

So you are suggesting that I use only FindFastRandoms and FTWaitDank?