Results 1 to 5 of 5

Thread: Not sure why it won't?

  1. #1
    Join Date
    Jan 2009
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Not sure why it won't?

    Well this is my first one and have made and keep changing now it just logo's in turns run on and logo's out help would be great thanks

    Code:
    program RyasPowerChopTillYaDrop;
    {.include SRL\SRL.scar}
    
    
    
      procedure DeclarePlayers;
    begin
       HowManyPlayers := 2; //How many Players
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer :=0; //Starting Player
    
       Players[0].Name := '';
       Players[0].Name := '';
       Players[0].Nick := '';
       Players[0].Active := True;
       Players[0].Integers[0]:= 17;        // Loads to Do.
       Players[0].strings[0] := 'normal'  // tree to cut
       Players[0].Strings[1] := 'True';   // Is your axe equipped?
       
       Players[1].Name := '';
       Players[1].Pass := '';
       Players[1].Nick := 'king';
       Players[1].Active := True;
       Players[1].Integers[0]:= 13;        // Loads to Do.
       Players[1].strings[0] := 'normal'  // tree to cut
       Players[1].Strings[1] := 'True';   // Is your axe equipped?
    end;
    
    var x, y, i, Dropped, Loads, LoadsCompleted, LoadsUntilSwitch, Wc: integer;
    
    
     procedure AntiRandoms;
    begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
      if FindFight then
      begin
        writeln('found fight');
        RunAway('E', True, 1, 6500);
        writeln('Ran away should be safe');
      end;
    end;
    
    
    procedure ClickStyle;
    var
      U, P: Integer;
    begin
      if (not (LoggedIn)) then
        Exit;
      U := 0;
      p := 1 + Random(4);
      if (p = 2) then
      begin
        Mouse(x, y, 2, 2, False);
        repeat
          wait(50 + Random(25))
            Inc(U);
        until (ChooseOption('hop')) or (U > 10)
      end
      else
        Mouse(x, y, 2, 2, True)
    end;
    
    
    procedure Cutnormal;
    begin
      case lowercase(Players[CurrentPlayer].Strings[1]) of
    
    'normal' :begin
                repeat
                 if not LoggedIn then
                 Exit;
                 if (FindObjCustom(X, Y, ['Tree', 'ee', 'ree', 'Tre'], [4355179, 1330237, 2903623, 4419944], 4)) then
                    MMouse(X, Y, 4, 4);
                    Wait(100 + Random(200));
                    ClickStyle;
                    AntiRandoms;
                     repeat
                      Wait(100)
                     until not (IsUpText('ree'))
                until (InvFull)
              end;
    
    'willow' :begin
                repeat
                 if not LoggedIn then
                 Exit;
                 if (FindObjCustom(X, Y, ['Tree', 'ee', 'ree', 'Tre'], [1784876, 3627360, 5995372, 8105624], 4)) then
                    MMouse(X, Y, 4, 4);
                    Wait(100 + Random(200));
                    ClickStyle;
                    AntiRandoms;
                     repeat
                      Wait(100)
                     until not (IsUpText('ree'))
                until (InvFull)
              end;
      end;
    end;
    
    
                 
                 
    
    
    
    procedure Logo;
    begin
      WriteLn('Thank you for using')
        Wait(300)
        WriteLn('    _______         ')
        Wait(300)
        WriteLn('   / Ryas  \           ')
        Wait(300)
        WriteLn('  /  Power  \        ')
        Wait(300)
        WriteLn('  |  Cutter |             ')
        Wait(300)
        WriteLn('   \_______/              ')
        Wait(300)
        WriteLn('     |   |                 ')
        Wait(300)
        WriteLn('     |   |                 ')
        Wait(300)
        WriteLn('     |   |                 ')
        Wait(300)
        WriteLn('     |   |                 ')
        Wait(300)
        WriteLn(' ____|___|____________        ')
        WriteLn('|  Please post       |       ')
        WriteLn('|   ProgressReport   |       ')
        WriteLn('|     and ideas      |       ')
        WriteLn('|      My first one :)      ')
        Wait(4000)
    end;
    
    
    procedure PowerDrop;
    begin
      if not LoggedIn
        then Exit;
    
      case lowercase(Players[CurrentPlayer].Strings[1]) of
    
        'true': begin
            DropAll;
            IncEx(Dropped,28)
          end;
    
        'false': begin
            for i := 2 to 28 do
              DropItem(i);
              IncEx(Dropped,27)
          end;
      end;
    end;
    
    
    
    
    
    
    
    
    
    
    procedure DoOnce;
    begin
      ClearDebug;
      Logo;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
    end;
    
    procedure ProgressReport;
    begin
      ClearDebug;
      Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      Writeln('/\   Time Running : ' + TimeRunning + '   /\');
      Writeln('/\                   Done ' + IntToStr(Loads) + ' loads             /\');
      Writeln('/\                  Dropped ' + IntToStr(Dropped) + ' logs           /\');
      Writeln('`````````````````````````````````````````````````');
    end;
    
    procedure MainLoop;
    begin
      LoadsCompleted := 0;
      SetAngle(True);
      Wait(1000);
      SetRun(True);
      repeat
        repeat
          LoadsUntilSwitch := Players[CurrentPlayer].integers[0];
          Cutnormal;
        if Invfull then
          begin
            PowerDrop;
            Inc(Loads);
          end;
          Inc(LoadsCompleted);
          ProgressReport;
        until (LoadsCompleted = LoadsUntilSwitch) or (not LoggedIn)
          if LoadsCompleted = LoadsUntilSwitch then
          NextPlayer(False);
        if (not LoggedIn) then
          NextPlayer(False);
        ProgressReport;
        LoginPlayer;
      until (AllPlayersInactive);
      ProgressReport;
      TerminateScript;
    end;
    
    
    begin
      DoOnce;
      MainLoop;
      ProgressReport;
    end.
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig

  2. #2
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it just logo's in turns run on and logo's out help would be great thanks
    i dont realy understand what your talking about :P can you explain what exactly is wrong and which part of your script you think the problem is in?
    Lance. Da. Pants.

  3. #3
    Join Date
    Jan 2009
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by lancerawks View Post
    i dont realy understand what your talking about :P can you explain what exactly is wrong and which part of your script you think the problem is in?
    You see i don't know i try to run it and so it starts like it should logs in and turns run on but then it just logs out that it my problem and dont know where i have gone wrong
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig

  4. #4
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hm. I don't see what's happening. :/ Maybe bad colors? I'll try some different colors, one second. :] (Changed a few things, too )

    :/ I don't see anything wrong, but why does it go to GameTab(4);? I don't see that? Sorry! D:
    Last edited by ian.; 06-10-2009 at 03:27 PM.

  5. #5
    Join Date
    Jan 2009
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by 99_ View Post
    Hm. I don't see what's happening. :/ Maybe bad colors? I'll try some different colors, one second. :] (Changed a few things, too )

    :/ I don't see anything wrong, but why does it go to GameTab(4);? I don't see that? Sorry! D:
    I'll have a look other and see but i got new colors and well it press run then logo's out is it my pc or some thing you changed?
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig

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
  •