Results 1 to 5 of 5

Thread: Weirdest thing ever!

  1. #1
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Weirdest thing ever!

    When Im using DeclarePlayers and Loggin with it in the script It wont go on with the rest of the procedures it just stops! Here take a look at it and tell me whats wrong.. And this is going to be my Srl member apply script so any suggestions are welcome and this point

    SCAR Code:
    program CamalotWcer;
    {.include SRL\SRL.scar}

    Var
    Loads, fx, fy, Chopped : integer;

    Const
    Bankpin = ''; // If you got bankpin then put it between the ''
    LoadsToDo = 20;   // How many loads you want to do ?

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    Procedure ProgressReport;
    Begin
    Writeln(' _____________________________________');
    Writeln('/   Ran for ' + (TimeRunning) +   '');
    Writeln('>------------------------------------< ');
    Writeln('|    Did ' + IntToStr(Loads) + ' Loads');
    Writeln('>------------------------------------<');
    Writeln('|   Cutted ' + IntToStr(Chopped) + ' Logs');
    Writeln('>------------------------------------<');
    end;

    Procedure Setup; // 0
    Begin
     Wait(200+random(100));
     Setrun(True);
     Wait(200+random(100));
     HighestAngle;
     Wait(200+random(100));
     MakeCompass('N');
    end;

    Procedure AntiBanish;
    var
    DBM : Integer;
    Begin
     DBM := Random(100);
     Case DBM of
      0: HoverSkill('Woodcutting', False);
      1: MouseSpeed := 9 + Random(3);
      3: PickUpMouse;
      5: GameTab(2);
      8: Setrun(False);
      9: Setrun(True);
      14: Hoverskill('Random', False);
     end;
    end;

    Procedure B4nk; // 1

    Var x, y, ax, ay: integer;
    Foundbank : Boolean;
    time: Integer;

    Begin
       MarkTime(time);
       Foundbank := False;
       Repeat
        if FindObjCustom(ax, ay, ['ank'], [8751501, 3370376, 803673], 7) then
        begin
          GetMousepos(x, y);
          FindNormalRandoms;
          Mouse(x, y, 1, 1, false);
          Chooseoption('kly');
          Foundbank := True;
          writeln('FoundBank');
          Wait(1000+random(1000));
          Inpin(Bankpin);
       end;
       Until (FoundBank = True) or (TimeFromMark(time) > 120000);
    end;

    Procedure Depos1tAll;
    Begin
     Fixbank;
     wait(1000+random(500));
     Deposit(1,1,2);
     Closebank;
     Wait(1000+random(500));
     FindNormalRandoms;
    end;

    Procedure WillowWalking;
    begin
     RadialWalk( 6908273, 245, 255, 69, 0, 0);
     FindNormalRandoms;
     Flag;
     RadialWalk( 6908273, 265, 255, 59, 0, 0);
     FindNormalRandoms;
     Flag;
     RadialWalk( 402999, 250, 200, 50, 0, 0);
     FindNormalRandoms;
     GameTab(4);
     Flag;
    end;

    Procedure WaitWhileWc;
    begin
      GameTab(4);
      Repeat
        Wait(400);
        FindNormalRandoms;
        AntiBanish
        MMouse(fx, fy, 0, 0);
      until(Not isuptext('Wil')) or (InvFull);
    end;

    Procedure ChoppAtree;
    Var cx, cy : integer;
    Begin
      Repeat
        If FindObjCustom(cx, cy, ['Wil', 'illo', 'llow'], [2637371, 2325097, 3098178, 2448722], 7) then
          begin
            GetMousePos(fx, fy);
            FindNormalRandoms;
            MMouse(fx, fy, 0, 0);
            If IsUpText('Wil') then
              Mouse(fx, fy, 0, 0, true);
              FindNormalRandoms;
              AntiBanish;
              WaitWhileWc;
          end;
      Until(Invfull);
    end;

    Procedure WillowWalkBack;
    Begin
     RadialWalk( 6908273, 40, 45, 59, 0, 0);
     Flag;
     RadialWalk( 9408666, 35, 111, 65, 0, 0);
     Flag;

    end;

    begin
     SetupSrl;
     Activateclient;
     DeclarePlayers;
     if (not (LoggedIn)) then
       begin
         LoginPlayer;
         Setup;
         B4nk;
         Depos1tAll;
       end else
         Begin
           Setup;
           B4nk;
           Depos1tAll;
         end;
     Repeat
       if (not (LoggedIn)) then
       LoginPlayer;
       begin
         WillowWalking;
         ChoppAtree;
         WillowWalkBack;
         B4nk;
         Depos1tAll;
         Chopped:= Chopped+28;
         Loads:= Loads+1;
         ProgressReport;
       end else
        TerminateScript;
     Until(Loads = LoadsToDo);
    end.

  2. #2
    Join Date
    Dec 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You forgot to take your login info out. I changed your pass to prevent your account from being hacked, PM me for your new pass.
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig (I did, so should u )

    http://www.fenjer.com/adnan/SRLStats/3907.png

  3. #3
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Rep++ To Rulerofall !! Had p hat in bank and he didnt care he gave it back !

    I wish the most people could be like that

  4. #4
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea I would say your usin 3.13, thats what it does a lot of the time. So I bet if you made the script start when you were already logged in it would work. I doubt you would get into members with that, but hey you can try. Also does if have an entfinder?! You need that man!

    if (not (LoggedIn)) then
    LoginPlayer;
    having that so much will get you banned, coz what if you get an unsolvable random? Continuous logins? And what if you get a solvable but unsolvable certer? (3.13s annoying bug) then you stand there for hours logging in and having niles shout at you so that every member in the world reports you

  5. #5
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Frozen i worked on this for 4 hours lol im not near done..

    I just wondering why it wont keep on going..

    And you think its becuase of 3.13 ?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Weirdest Programming Language?
    By Smartzkid in forum Discussions & Debates
    Replies: 7
    Last Post: 08-27-2010, 04:19 AM
  2. Weirdest Music Video?
    By Smartzkid in forum The Bashing Club / BBQ Pit
    Replies: 9
    Last Post: 01-12-2008, 05:02 PM
  3. Fun Thing.
    By awesom in forum News and General
    Replies: 4
    Last Post: 12-08-2007, 03:40 AM
  4. The thing about Msn.
    By WhiteShadow in forum News and General
    Replies: 3
    Last Post: 10-10-2006, 09:45 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
  •