Results 1 to 6 of 6

Thread: I need a little help...

  1. #1
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I need a little help...

    hi guys i have a problem with my OakKillerAndBanker. the problem is:
    how can i put order in the script? For example: I want first to chop the tree and then go to the bank then to be returned to the tree. becouse when the script starts Instead chop the oak
    the script do the radialwalk instead the chop procedure. hope you understand.

    SCAR Code:
    // start in the oak in draynor near the bank



    program OakOwner;
    {.Include SRL/SRL.Scar}
    var
    LoadsToDo : Integer;
    const
    OakColor = 3169366 ;// Oak color
    HowManyLoads = 10;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='nereus51';//name of the char
      Players[0].Pass :='492268';//pass of the char
      Players[0].Nick :='eus';//3-4 letters of the char
      Players[0].Active:=True;
    end;
    {Procedure : RandomHoverMMouse)}
    {Author : U L T R A.}
    {Description : Randomly moves the mouse somewhere.}
    Procedure RandomHoverMMouse;
    Begin
      Case Random(6)Of

      0:MMouse(random(250), random(250), 10, 10);
      1:MMouse(random(100), random(100), 50, 50);
      2:MMouse(random(50), random(50), 150, 150);
      3:MMouse(100, 100, 150, 150);
      4:MMouse(300, 300, 100, 100);
      5:MMouse(200, 200, 50, 50);
      end;
      end;
      {end of U L T R A's Procedure}
      procedure Starting;
      begin
      MakeCompass('S');
      GameTab (4);
      end;
     procedure AntiRandom;
    begin
      if not LoggedIn then Exit;
      FindNormalRandoms;
    end;
    procedure LittleAutoResponce;
    begin
    If(FindChatText('Hi'))then
      begin
      TypeSend('Ik spreek geen Engels');
      If(FindChatText('Wc lvl?'))then
      begin
      TypeSend('Beter dan de jouwe');
      end;
      end;
      end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
     for i := 1 to 12 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: begin
              if FindFight then
              begin
                RunTo('E', True);
                Wait(5000 + random(3000));
                Runback;
               end;
            end;
          10: if FindTalk then
              Result := True;
           11: if ClickToContinue then
              Result := True;
           12: if SolvePinball then
              Result := True;
          end;
      end;
    end;

    procedure LetzChopp;
    var
    x,y : Integer;
    begin
    FindFastRandoms;
    if (FindColorSpiralTolerance(x,y,OakColor,82,52,420,207,6))then
    begin
    if (IsUpText('ak'))then
    begin
    Mouse(x,y,1,1,true);
    wait(50000)
    repeat
    until (InvCount=28);
    end;
    end;
    end;
    Procedure WalkToBank;
    var x,y : Integer;
    begin
    if (InvCount=28) then
    begin
      SymbolAccuracy := 0.5;
      if FindSymbol(x,y,'bank') then
      Mouse(x,y,5,5,True);
      SymbolAccuracy := 0.8;
      flag;
    end;
    end;
    Procedure BankItems;
    begin
    if (InvCount=28) then
    begin
      OpenBankFast('db');
      wait(100);
      Deposit(2,28,2);
      wait(100);
      CloseBank;
    end;
    end;
    procedure WalkToTheOak;
    begin
    MakeCompass('S')
    if RadialWalk(216852,250,300,70,0,1) then
    begin
    Writeln('Walking to the oak');
    wait(5000+random(25));
    exit;
    end;
    end;
    begin
    SetUpSRL;
    DeclarePLayers;
    LoginPlayer;
    ActivateClient;
    DeclarePlayers;
    RandomHoverMMouse;
    Starting;
    FindNormalRandoms;
    LittleAutoResponce;
    repeat
    LetzChopp;
    WalkToBank;
    BankItems;
    WalkToTheOak;
    until (LoadsToDo >= HowManyLoads)
    end.


  2. #2
    Join Date
    Jun 2007
    Posts
    1,312
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It probably doesn't find any of the stuff, and just skips to the radialwalking.
    Active only during the Summer...

  3. #3
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe try an if RadialWalk then WriteLn('RadialWalk worked'); to make sure that step is working.
    -You can call me Mick-



  4. #4
    Join Date
    Jun 2007
    Posts
    1,312
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mickaliscious View Post
    Maybe try an if RadialWalk then WriteLn('RadialWalk worked'); to make sure that step is working.
    My activity bar is bigger than yours.

    Also, MMouse doesn't work as antiban. Just thought I'd tell you.
    Active only during the Summer...

  5. #5
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey who hacked my acc i forgot to delete the pass plz i need the money


  6. #6
    Join Date
    Jan 2008
    Location
    Norway
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sorry for your account, but it was'nt to smart to give source with you pass and all.

    Did you get the IP? (It is in the login window) could trace it and admin could maybe check with members IP to get the thief.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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