Results 1 to 2 of 2

Thread: FindHomeRandoms; Problem..

  1. #1
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default FindHomeRandoms; Problem..

    Hey, I made my own random finding thing, but it won't check any randoms.. I'v probaly made some mistakes, could someone to fix them

    SCAR Code:
    Function FindHomeRandoms: Boolean;
    Var
     i: Integer;
    Begin
     For i:=1 To 11 Do
     Begin
      Case I Of
       1: If SolveChatRandom Then
         Result:=True;
       2: If FindTalk Then
         Result:=True;
       3: If FindTalk Then
         Result:=True;
       4: If FindDead Then
         Result:=True;
       5: If FindMime Then
         Result:=True;
       6: If FindMaze Then
         Result:=True;
       7: If FindQuiz Then
         Result:=True;
       8: If FindTalk Then // Call it twice
         Result:=True;
       9: If FindLamp('agility') Then // Maybe we missed it?
         Result:=True;
       10: If (FindBox) Then
        Begin
         Result:=True;
         If (UseBoxSolver) Then
          SolveBox
         Else
          GambleBox;
        End;
       11: If NoGameTab Then
        Begin
         Result:=True;
         If (GetColor(649, 78)=65536) Then
         Begin
          Writeln('Found BeeKeeper, Trying To Solve')
           If (SolveBeeKeeper) Then
          Begin
           AmtBee:=AmtBee+1
            For p:=0 To 50 Do
           Begin
            Wait(1000+random(100));
            If (Not(GetColor(649, 78)=65536))Or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 30)) Then
            Begin
             Wait(3000+Random(3000));
             Writeln('BeeKeeper Solved, At Flax Field')
              ReportVars[4]:=ReportVars[4]+1;
             SendSRLReport;
            End;
           End;
          End;
         End
         Else
          Logout;
        End;
      End;
      If Result Then
       Break;
      Wait(1);
     End;
    End;

  2. #2
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Its not working again?
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. problem...
    By Blumblebee in forum OSR Help
    Replies: 4
    Last Post: 12-28-2008, 07:22 AM
  2. Little Problem
    By 006786 in forum OSR Help
    Replies: 1
    Last Post: 12-23-2008, 08:02 PM
  3. help big problem
    By goblanca in forum OSR Help
    Replies: 3
    Last Post: 05-19-2007, 10:41 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •