Results 1 to 5 of 5

Thread: Can someone help edit my first script?

  1. #1
    Join Date
    May 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default Can someone help edit my first script?

    It's a power chopper.. any help? I know i suck lol... I'm not even in high school so don't blame me =P

  2. #2
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Haha, you're not that bad dude.

    The dtm isnt declared at all though.

    Code:
    procedure LoadDtm;
    begin
    logdtm: = logdtm := DTMFromString('78DA63DCC5CCC050C7C8800CD2FDF518E6B73' +
        '1328044FF0301E336A09A5254350C0C8C482490DE0F54534440CD' +
        '21A09A0A026A8E01D534A3AA315050C0B4AB9D809A8D40359DA86' +
        'A4A836550D5AC04AA6944551365278CA20600D6BD126A');
    end;
    That would declare it in a procedure (load it).

    Hope that helps, of course I could be totally wrong because I never use dtms in the scripts I write, but I dont think I am =P

    Edit: Also loadsdone needs to be declared as an integer, i.e.

    Code:
    loadsdone : Integer;
    In the variables.

    Also the ; need to be taken of the begin. I think vx needs to be chagnes th mx or just x in the mouse function.

    Also, haha, the LoadDtm procedure a) needs to be declared in the main loop and freed afterwards, and b) logdtm needs to be delcared as a string I presumed. i.e.

    Code:
    procedure LoadDtm;
    var
    logdtm : string;
    begin
    logdtm := DTMFromString('78DA63DCC5CCC050C7C8800CD2FDF518E6B73' +
        '1328044FF0301E336A09A5254350C0C8C482490DE0F54534440CD' +
        '21A09A0A026A8E01D534A3AA315050C0B4AB9D809A8D40359DA86' +
        'A4A836550D5AC04AA6944551365278CA20600D6BD126A');
    end;
    Don't think thats entirely correct but im slightly drunk so i've fixed a few compile errors, but not sober enough to think about the rest.

    The script with the errors i've fixed so far:

    Code:
    program PowerChopper;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}
    var LoadsNumB, Loads : integer;
    
    loadsdone : Integer;
    
    
    const
    TreeColor1 = 1779752; //the first color
    TreeColor2 = 2381896; // the second color
    TreeColor3 = 1929312; // the third color
    Wield= False; // True= Wielded, False= in inventory
    LoadsToDo= 1; // Number of loads
    run = 's';
    Timetowait = 100;
    
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 6; //Number of total players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Which player starts first?
    
      Players[0].Name := 'Username';
      Players[0].Pass := 'Password';
      Players[0].Nick := 'Nick';
      Players[0].Active := True;
    
      Players[1].Name := 'UserName';
      Players[1].Pass := 'Password';
      Players[1].Nick := '3-4 letters of UserName';
      Players[1].Active := False;
    
      Players[2].Name := 'UserName';
      Players[2].Pass := 'Password';
      Players[2].Nick := '3-4 letters of UserName';
      Players[2].Active := False;
    
      Players[3].Name := 'UserName';
      Players[3].Pass := 'Password';
      Players[3].Nick := '3-4 letters of UserName';
      Players[3].Active := False;
    
      Players[4].Name := 'UserName';
      Players[4].Pass := 'Password';
      Players[4].Nick := '3-4 letters of UserName';
      Players[4].Active := False;
    
      Players[5].Name := 'UserName';
      Players[5].Pass := 'Password';
      Players[5].Nick := '3-4 letters of UserName';
      Players[5].Active := False;
    
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
    
    /////////////////////////////////////
    procedure SwitchPlayers;
    begin
      NextPlayer(True);
      LoadsNumB:=0;
      HighestAngle;
      MakeCompass('N');
      Writeln('Switched players');
    end;
    
    //ChoppingDownTree//
    Procedure Click;
    var randomize1, qq :integer;
    begin;
      Randomize1 := Random(5);
      qq:= 0;
      if (Randomize1 = 1) then begin
        Mouse(x,y,1,2,False);
        repeat;
          qq := 1
          if qq = 3 then exit;
        until(ChooseOption(x,y,'Chop'));
        exit;
      end;
     Mouse(x,y,1,2,true);
    end;
    
    //Drop logs//
    procedure DropTheLogs;
    begin
      If(Wield = True) Then DropTo(1,28);
      If(Wield = False) Then DropTo(2,28);
    End;
    
    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 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;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
    end;
    
    ///////////////////////////////////////////////////////////////////////////
    
    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
    end;
    
    procedure MyAntiBanSelfMade;
    var h : integer;
    begin
      for h := 1 to 11 do
      begin
      case Random(10) of
      1: RotateEvery(1+random(2));
      2: RandomChatEvery(6+random(4));
      3: RandomRClickEvery(3+random(3));
      4: LeaveScreenEvery(1+random(2));
      5: AntiBan;
      6: PickUpMouse;
      7: TypeSend('Wc lvs? Mines 70 hehe');
      8: AntiBan;
      9: begin
           HoverSkill('Woodcutting',true);
           wait(3000+random(2000));
           GameTab(4)
         end;
      10: SleepAndMoveMouse(800000+random(200000));
      11: TypeSend('So many bots nowdays...')
      end;
     End;
    end;
    
     Procedure ProgressReport;
    begin
      ClearDebug;
      Writeln('PowerCutterProgressReport');
      Writeln('|   Ran for '+TimeRunning);
      Writeln('|   Attempted '+IntToStr(Attempts)+' Times');
      Writeln('\\-----------------------------------//');
    end;
    
    
    procedure LoadDtm;
    var
    logdtm : string;
    begin
    logdtm := DTMFromString('78DA63DCC5CCC050C7C8800CD2FDF518E6B73' +
        '1328044FF0301E336A09A5254350C0C8C482490DE0F54534440CD' +
        '21A09A0A026A8E01D534A3AA315050C0B4AB9D809A8D40359DA86' +
        'A4A836550D5AC04AA6944551365278CA20600D6BD126A');
    end;
    
    
    
    //mainloop//
    begin
      Setupsrl;
      Declareplayers;
      Wait(3000);
      If(Not(Loggedin)) then LoginPlayer;
      PerfectNorth;
      setChat('hide',1);
      setChat('friends',2);
      setChat('off',3);
      ActivateClient;
      if (not(FindAxeHeadColor)) then begin;
          LogOut;
          WriteLn('No Axe Found');
          NextPlayer(True);
          LoadsDone := 0;
          Played;
        end;
      repeat
        repeat
          repeat
            Chop;
            FindRandoms;
            MyAntiBanSelfMade;
          until(InvFull)
          DropTheLogs;
          FindRandoms;
          MyAntiBanSelfMade;
        Until(Loads = LoadsToDo)
        Logout;
        NextPlayer(True);
      Until (false);
    end.

  3. #3
    Join Date
    Jun 2006
    Location
    New Zealand
    Posts
    285
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    var LoadsNumB, Loads : integer; loadsdone
    to
    SCAR Code:
    var
      LoadsNumB, Loads, loadsdone : integer;

    You never declared what "loadsdone" is.

  4. #4
    Join Date
    May 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Umm.. the played whats that for?

  5. #5
    Join Date
    May 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Ok i edited it but now it says duplicaite identifier error...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. How to use the Edit Button
    By Torrent of Flame in forum Forum Guides
    Replies: 24
    Last Post: 06-18-2012, 05:34 AM
  2. How To edit Websites
    By Joseph Pogi3 in forum Other Guides
    Replies: 16
    Last Post: 03-08-2009, 08:20 AM
  3. Chances of ban, edit.
    By igotgrapes in forum News and General
    Replies: 14
    Last Post: 06-22-2007, 12:24 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
  •