SRL Archive - First Scripts

hello im not too sure on where to put this but do you think you could tell me weather or not you think these anti-random procedures are good enough to use in a script or not thank you.
i am only just learning to script and i dont have a clue weather or not they are good enough

procedure talkrnd;
begin
 if (FindTalk) then
 begin
   FindTalk;
   Findnormalrandoms;
 end;
end;
 
Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=0 to 10 do
  begin
    case I of
     0:  If FindTalk then
     begin
       FindNormalRandoms;
     end;
     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;

          Logout;
          Exit;
        end;
        end;
     8: begin
    talkrnd;
           if InBlack then
           begin
             Result := True;
             Logout;
             Exit;
           end;
         end;
       9: RC;
       10: talkrnd;
    end;
    talkrnd;
    FindFight;
    FindFightEx;
    SolvePinball;
  end;
end;

it'll mess up a little. Don't forget to credit Fakawi for FindFastRandoms, and your randoms procedure should look +/- like this:

Procedure NoRandoms;
begin
  FindTalk;
  FindNormalRandoms;
  FindFastRandoms;
  SolvePinball;
  if FindFight then
  begin
    //Run here, cant remember it by heart
    wait(10000+Random(5000));
    RunBack;
  end;
end;

kk thx for helping me
itll help me a lot as i am hopfully going to createa script that i can run over night. O and thank you Fakawi for FindFastRandoms
so should it look like this

Function FindFastRandoms: Boolean;// credits to Wt-Fakawi
var
  i: Integer;
begin
  for i:=0 to 9 do
  begin
    case I of
     0:  If FindTalk then
     begin
       FindNormalRandoms;
     end;
     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;

          Logout;
          Exit;
        end;
        end;
     8: begin
           if InBlack then
           begin
             Result := True;
             Logout;
             Exit;
           end;
         end;
       9: RC;
    end;
    FindFight;
    FindFightEx;
  end;
end;

Procedure NoRandoms;
begin
  FindTalk;
  FindNormalRandoms;
  FindFastRandoms;
  SolvePinball;
  if (FindFight = true) then
  begin
    RunAwayDirection('n');
    wait(10000+Random(5000));
    RunBack;
  end;
end;

if not can someone repost this so i know exactly how it is ment to be
because the FindFastRandoms isn't in the anti-random.scar in srl/srl/core/antirandom

From: shuttleu
kk thx for helping me
itll help me a lot as i am hopfully going to createa script that i can run over night. O and thank you Fakawi for FindFastRandoms

Function FindFastRandoms: Boolean; // credits to Wt-Fakawi

that's the way u credit someone:p Good luck on yoru script, that's the spirit ;)

RMagician

thank you for the help Rasta Magician but is what i said exactly how it is ment to be or not? :confused: Please help

Function FindFastRandoms: Boolean;    // By WT-Fakawi.

Var
  i: Integer;

Begin
  For I := 1 To 9 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 : If RC Then
             Result := True;
       9: If FindTalk Then
             Result := True;
    End;
    Wait(1);
  End;
End;

you leave FindFastRandoms as it is, and then

procedure AntiRandoms; 
begin
  FindTalk;
  FindNormalRandoms;
  FindFastRandoms;
  FindLamp('smithing');
  SolvePinball;
  if FindFight then
  begin
    RunTo('N', True);
    Wait(15000 + random(5000));
    RunBack;
  end;
end;

~RMagician