Page 1 of 2 12 LastLast
Results 1 to 25 of 37

Thread: ne 15: [Error] (14939:1): Duplicate identifier 'bmpAdmin' in script C:\Program Files\

  1. #1
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Couple of errors...

    ne 15: [Error] (14939:1): Duplicate identifier 'bmpAdmin' in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Globals.scar

    ^Whats up with this one? Solved, now next one
    Line 318: [Error] (15198:8): Unknown identifier 'UseResponder' in script C:\Documents and Settings\JagexMod:?\My Documents\DraynorCutta.scarsolved
    now:
    Okay, now i got:
    Line 329: [Error] (15209:38): Type mismatch in script C:\Documents and Settings\Jagex(lvl3)\My Documents\DraynorCutta.scar
    line 329
    SCAR Code:
    If(Not LastChatter(LastChatterString))Then Exit;
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  2. #2
    Join Date
    Jun 2007
    Location
    Minnesota
    Posts
    773
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I would need to see the script you are running. Is it one you made?

  3. #3
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    You used twise 'bmpAdmin' for diffent things.

    don't

  4. #4
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    my script:
    SCAR Code:
    program draynorWillowCutta;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/woodcutting.scar}

    const
    BankSymbolColor=11250352;
    willowcolor1=2902351;
    willowcolor2=3686456;
    willowcolor3=2971728;
    PickWielded=true;
    var
    logs : integer; Trees : integer;  loads : integer; tries : integer;
    var
    x, y: integer;
    var
      frmDesign : TForm;
      username : TLabel;
      password : TLabel;
      Shape2 : TShape;
      Label1 : TLabel;
      UsernameFM : TEdit;
      passwordFM : TEdit;
      start : TButton;
    {.include SRL/SRL.scar}

    Procedure declareplayers;
    Begin
    HowManyPlayers:=1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:=0;

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

    End;

    procedure StartClick(sender: TObject);
    begin

      frmDesign.ModalResult:= mrOk; // Closes the form
    end;

    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 360;
    frmDesign.Top := 95;
    frmDesign.Width := 251;
    frmDesign.Height := 351;
    frmDesign.Caption := 'Fill';
    frmDesign.Color := clSkyBlue;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := True;
    frmDesign.PixelsPerInch := 96;
    username := TLabel.Create(frmDesign);
    username.Parent := frmDesign;
    username.Left := 8;
    username.Top := 8;
    username.Width := 78;
    username.Height := 20;
    username.Caption := 'Username:';
    username.Font.Color := clWindowText;
    username.Font.Height := -16;
    username.Font.Name := 'MS Sans Serif';
    username.Font.Style := [];
    username.ParentFont := False;
    password := TLabel.Create(frmDesign);
    password.Parent := frmDesign;
    password.Left := 8;
    password.Top := 40;
    password.Width := 73;
    password.Height := 20;
    password.Caption := 'Password:';
    password.Font.Color := clWindowText;
    password.Font.Height := -16;
    password.Font.Name := 'MS Sans Serif';
    password.Font.Style := [];
    password.ParentFont := False;
    Shape2 := TShape.Create(frmDesign);
    Shape2.Parent := frmDesign;
    Shape2.Left := 0;
    Shape2.Top := 112;
    Shape2.Width := 241;
    Shape2.Height := 201;
    Shape2.Shape := stRoundRect;
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 8;
    Label1.Top := 88;
    Label1.Width := 137;
    Label1.Height := 33;
    Label1.Caption := 'Instruction:';
    Label1.Font.Color := clWindowText;
    Label1.Font.Height := -16;
    Label1.Font.Name := 'MS Sans Serif';
    Label1.Font.Style := [];
    Label1.ParentFont := False;
    UsernameFM := TEdit.Create(frmDesign);
    UsernameFM.Parent := frmDesign;
    UsernameFM.Left := 88;
    UsernameFM.Top := 8;
    UsernameFM.Width := 137;
    UsernameFM.Height := 24;
    UsernameFM.Hint := 'username here';
    UsernameFM.AutoSize := False;
    UsernameFM.Font.Color := clWindowText;
    UsernameFM.Font.Height := -16;
    UsernameFM.Font.Name := 'MS Sans Serif';
    UsernameFM.Font.Style := [];
    UsernameFM.ParentFont := False;
    UsernameFM.TabOrder := 8;
    passwordFM := TEdit.Create(frmDesign);
    passwordFM.Parent := frmDesign;
    passwordFM.Left := 88;
    passwordFM.Top := 40;
    passwordFM.Width := 137;
    passwordFM.Height := 24;
    passwordFM.Hint := 'pass here';
    passwordFM.AutoSize := False;
    passwordFM.Font.Color := clWindowText;
    passwordFM.Font.Height := -16;
    passwordFM.Font.Name := 'MS Sans Serif';
    passwordFM.Font.Style := [];
    passwordFM.ParentFont := False;
    passwordFM.TabOrder := 9;
    start := TButton.Create(frmDesign);
    start.Parent := frmDesign;
    start.Tag := 1;
    start.Left := 104;
    start.Top := 72;
    start.Width := 105;
    start.Height := 25;
    start.Caption := 'Go!';
    start.DragCursor := crDefault;
    start.TabOrder := 10;
    start.OnClick := @StartClick

    end;
    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;
    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;
    begin
      SafeInitForm;
      SafeShowFormModal;
    end;

    procedure LoadDtms;
    begin;
    Logs:= DTMFromString('78DA63F460626078CA80021C2CC5C1342394C' +
           'F180854731B558DAB2D9A9A60A09AD7A86AFC5C2551D53801D5BC' +
           '4355939F668BAAC606D33D9E4E68E63802D5DC455563652282A20' +
           '60013200B2C');


    end;


    Procedure ProgressReport;
     begin;
    Writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
      Writeln('Willow cutter in draynor by Dritar progress report:');
              Writeln('Cutted '+ IntToStr(trees) + ' Trees');
                Writeln('Did '+ intToStr(loads) + ' loads');
     Writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
    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 PrepCharacter;
    begin
      Activateclient;
      wait(30)
      MakeCompass('N');
      wait(30)
      setchat('Hide',1)
      setchat('friends',2)
      setchat('off',3)
      highestangle;
    end;

    procedure ToTrees;
    begin
    setrun(true)
    case random(3) of
      0: Mouse(640,125,2,2,true);
      1: Mouse(628,126,2,2,true);
      2: Mouse(645,144,2,2,true);
      3: Mouse(621,117,2,2,true);
     end
    end;

    procedure DoAntiRandoms;
    begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight = true) then
    begin
    RunAwayDirection('N');
    Wait(10000 + random(2000));
    RunBack;
    end;
    end;


    Procedure Antiban;
     begin
       case random(7) of // case 7 only
       0 : RandomRClick; // start a random case with 0!
       1 : GameTab(1 + random(7));
       2 : Boredhuman;
       3 : Almostlogout;
       4 : begin     // begin and end;
             HoverSkill('woodcutting',false);
             Wait(2222+random(333))
           end;
       5 : PickupMouse; // you forgot the ';'
       6 : begin
             LowestAngle; //LowestAngle;
             Wait(5+random(5))
           end;
       end
     end;


    Procedure CutTrees;
    begin
    wait(6000+random(2000))
    repeat // edit
    //FindHead; // not found that procedure
    If(findcolortolerance(x,y,willowcolor1,25,26,473,310,5))or
      (findcolortolerance(x,y,willowcolor2,25,26,473,310,5))or
      (findcolortolerance(x,y,willowcolor3,25,26,473,310,5))then
      begin
       Mmouse(x,y,2,2);
       If(IsUpText('illow'))then
        begin
         Mouse(x,y,2,2,false)
         chooseoption('own') // no more x, y,
         wait(4000+random(3000))
       end
      end;
     Until(InvFull)
    end;


    Function InString(Text1, Text2: String): Boolean;
    Begin
      Result:= (Pos(LowerCase(Text2), LowerCase(Text1)) <> 0);
    End;

    Function AutoResponder: Boolean;
    Var
      Responce: Array [0..9] of String;
      NewLine: String;
      MasterDetected: Boolean;
    Label
      ResponceLabel;
    Begin
      If(Not Loggedin)Then Exit;
      If(Not UseResponder)Then Exit;

      If(TimeFromMark(ResponceTime)<1000)Then Exit;
      MarkTime(ResponceTime);

      If(Not LastChatter(LastChatterString))Then Exit;

      If(InString(LastChatterString, Players[CurrentPlayer].Nick))Then Exit;

      OldLine:= TheLine;
      GetLastChatText(TheLine);
      NewLine:= TheLine;

      If(OldLine = TheLine)Then Exit;

      If(InString(TheLine, 'hi')) Or (InString(TheLine, 'ello')) Or (InString(TheLine, 'yo') Or (InString(TheLine, 'up')Or (InString(TheLine, 'yo'))Then
        Begin
          Responce[0]:= 'Hi';
          Responce[1]:= 'Hello';
          Responce[2]:= 'ello';
          Responce[3]:= 'hi lol';
          Responce[4]:= 'Hi mate';
          Responce[5]:= 'yo';
          Responce[6]:= 'hi there!';
          Responce[7]:= 'Yo wazzup';
          Responce[8]:= 'sup';
          Responce[9]:= 'Hi there';
          Result:= True;
          GoTo ResponceLabel;
        End;

      If(InString(TheLine, 'wc')) Or (InString(TheLine, 'lev')) Or (InString(TheLine, 'woodcut')Or (InString(TheLine, 'lv'))Then
        Begin
          Responce[0]:= IntToStr(Players[CurrentPlayer].Level[15]);
          Responce[1]:= IntToStr(Players[CurrentPlayer].Level[15]) +', You?';
          Responce[2]:= IntToStr(Players[CurrentPlayer].Level[15])+ ' here!';
          Responce[3]:= 'Currently ' +IntToStr(Players[CurrentPlayer].Level[15]);
          Responce[4]:= 'right now ' +IntToStr(Players[CurrentPlayer].Level[15]);
          Responce[5]:= 'soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
          Responce[6]:= 'very soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
          Responce[7]:= 'secret';
          Responce[9]:= 'ill tell when i get level';
          Result:= True;
          GoTo ResponceLabel;
        End;

      If(InString(TheLine, 'lol')) Or (InString(TheLine, 'ha')) Or (InString(TheLine, 'he'))Or
        (InString(TheLine, 'lmao')) Or (InString(TheLine, 'rofl')) Or (InString(TheLine, 'omg'))Then
          Begin
            Responce[0]:= 'lol';
            Responce[1]:= 'lmao';
            Responce[2]:= 'haha';
            Responce[3]:= 'lmfao';
            Responce[4]:= 'rofl';
            Responce[5]:= 'hehe';
            Responce[6]:= 'ahah';
            Responce[7]:= 'lmao haha';
            Responce[8]:= 'hehe lol';
            Responce[9]:= 'haha lol lmao rofl';
            Result:= True;
            GoTo ResponceLabel;
        End;

        If(InString(TheLine, 'noob')) Or (InString(TheLine, 'newbie')) Or (InString(TheLine, 'n00b') Or (InString(TheLine, 'froob')Or (InString(TheLine, 'fr00b'))Then
        Begin
          Responce[0]:= 'Watch your mouth!';
          Responce[1]:= 'Look at mirro';
          Responce[2]:= 'shut up';
          Responce[3]:= 'are you?';
          Responce[4]:= 'Really? Watch yourself!';
          Responce[5]:= 'Go away!';
          Responce[6]:= 'atleast im not **** like you';
          Responce[7]:= 'shut up!!';
          Responce[8]:= '...and who there is?!';
          Responce[9]:= 'Shut up m8';
          Result:= True;
          GoTo ResponceLabel;
        End;

      If(InString(TheLine, '*')) Or (InString(TheLine, '**')) Or (InString(TheLine, '***')Or (InString(TheLine, '****'))Then
        Begin
          Responce[0]:= 'Shut up man';
          Responce[1]:= '..Watch at mirror';
          Responce[2]:= 'Stfu.';
          Result:= True;
          GoTo ResponceLabel;
        End;

      If(InString(TheLine, 'Mac')) Or (InString(TheLine, 'roing')) Or (InString(TheLine, 'bot'))Or
        (InString(TheLine, 'auto')) Or (InString(TheLine, 'er')) Or (InString(TheLine, 'noob macro'))Then
          Begin
            Responce[0]:= 'No im not';
            Responce[1]:= 'Mate im person, not an bot';
            Responce[2]:= 'Im a person not bot!';
            Responce[3]:= 'Im not macroing';
            Responce[4]:= 'Whats this?';
            Responce[5]:= 'Nah..Im not';
            Responce[6]:= 'Why would I?';
            Responce[7]:= 'Why do you think so?!';
            Responce[8]:= 'Naaaaaaaaaaaaaaa!!!Im not';
            Responce[9]:= 'No way mate';
            Result:= True;
            GoTo ResponceLabel;
        End;

      If(InString(TheLine, 'Do you like')) Or (InString(TheLine, 'Would you')) Or (InString(TheLine, 'can you'))Or
        (InString(TheLine, 'do you use')) Or (InString(TheLine, 'what would you like this')) Or (InString(TheLine, 'would'))Then
          Begin
            Responce[0]:= 'yes';
            Responce[1]:= 'yup';
            Responce[2]:= 'yeah';
            Responce[3]:= 'this...ehm..';
            Responce[4]:= 'no';
            Responce[5]:= 'no sorry cant...';
            Responce[6]:= 'cannot';
            Responce[7]:= 'nope';
            Responce[8]:= 'nothing';
            Responce[9]:= 'Naaa...im too lazy :p';
            Result:= True;
            GoTo ResponceLabel;
        End;
          If(InString(TheLine, 'where are you from')) Or (InString(TheLine, 'where do you live')) Or (InString(TheLine, 'your location?'))Or
        (InString(TheLine, 'de donde eres?')) Or (InString(TheLine, 'donde vives?')) Or (InString(TheLine, 'mist oot'))Then
          Begin
            Responce[0]:= 'USA';
            Responce[1]:= 'from USA';
            Responce[2]:= 'Im from USA';
            Responce[3]:= 'England';
            Responce[4]:= 'From England';
            Responce[5]:= 'sorry a seret';
            Responce[6]:= 'secret';
            Responce[7]:= 'In Usa, you?';
            Responce[8]:= 'In Englan, you?';
            Responce[9]:= 'I will not tell you';
            Result:= True;
            GoTo ResponceLabel;
        End;

      ResponceLabel:
      If(Result)Then
        Begin
          If( MasterDetected )Then
            Writeln('A Scar Scripter said hi ;)');
          Writeln('Responded: '+Responce[CurrentResponce]+' To: '+ TheLine);
          TypeSend(Responce[CurrentResponce]);
          CurrentResponce:= CurrentResponce + 1;
          RespondedTimes:= RespondedTimes + 1;
          TRespond:= TRespond + 1;
          If(CurrentResponce = 9)Then
            CurrentResponce:= 0;
        End;
    End;
    //More will be in ver 2.0

    Procedure ToBank;
    begin;
      If(findSymbol(x,y,'bank'))then
      begin
        Mouse(x,y,2,2,true)
        Wait(5000+random(2000))
      end else
      begin
        If(FindColorTolerance(x,y,banksymbolcolor,582,24,700,125,5))then
        Mouse(x,y,2,2,true)
        wait(5000+random(2000))
      end
    end;


    Procedure Bank;
    begin;
      repeat
       openbank3
       wait(200+random(300));
       tries:= tries + 1;
      until(tries = 20);
     makecompass('w')
     repeat
     openbank3;
     wait(200+random(300))
     until(bankscreen)
    end;



    procedure BankLogs;
    begin
      If(Pickwielded=true)then
       DepositAll;
      If(pickwielded=false)then
      Deposit(2,28,2)
       trees:= trees + 28;
       loads:= loads + 1;
    end;


    begin;
    setupsrl;
     repeat
      toTrees;
      CutTrees;
      tobank;
      opendabank;
      bankwillows;
     until(loads=loadsperplayer)
    ProgressReport;
    NextPlayer(false);
    end.
    Version 2.0 of Draynor willow cutta.
    Everything made by Dritar with some help of MasterKill and JuKKa
    writeLN('Version 2.0 - DraynorWillowCutta')
    writeLN('Made by Dritar 2007 - MasterKill and JuKKa helped alot')
     Thanks in advance


    begin
    end.

    The script where error is:
    SCAR Code:
    //-----------------------------------------------------------------//
    //--               Scar Standard Resource Library                --//
    //--               » Global Variables                            --//
    //-----------------------------------------------------------------//
    // * procedure LoadSRLBitMaps;                   // * by SRL Dev Team
    // * procedure FreeSRLBitMaps;                   // * by Ron

    { const SRLVersionNumber;
      Description: Repository Version Number.


    { var bmpAdmin, bmpMod, Lamp, Box: Integer;
      Description: Global Bitmaps. Need to be Global because of SCAR Memory leaks. }

    var
      bmpAdmin, bmpMod, Lamp, Box: Integer;

    { var RoadColor, WaterColor, BankColor: Integer;
      Description: Three variables you will almost always use. :) }

    var
      RoadColor, WaterColor, BankColor: Integer;

    { var LampSkill: String;
      Description: Set Lamp skill. }

    var
      LampSkill: string;
     
    { const MMX1, MMY1, MMX2, MMY2;
      Description: MiniMap Edge Points. }

    const
      MMX1 = 570;
      MMY1 = 5;
      MMX2 = 715;
      MMY2 = 160;
     
    { const MMCX, MMCY;
      Description: MiniMap Centre Point. }

    const
      MMCX = 643;
      MMCY = 84;

    { const MSX1, MSY1, MSX2, MSY2;
      Description: Main Screen EdgePoints. }

    const
      MSX1 = 1;
      MSY1 = 1;
      MSX2 = 516;
      MSY2 = 338;

    { const MSCX, MSCY;
      Description: Main Screen Centre Points. }

    const
      MSCX = 259;
      MSCY = 170;

    { const MIX1, MIY1, MIX2, MIY2;
      Description: Inventory EdgePoints. }

    const
      MIX1 = 547;
      MIY1 = 202;
      MIX2 = 737;
      MIY2 = 466;

    { const MICX, MICY;
      Description: Inventory Centre Points. }

    const
      MICX = 642;
      MICY = 334;

    { const MCX1, MCY1, MCX2, MCY2;
      Description: Chat Screen EdgePoints. }

    const
      MCX1 = 4;
      MCY1 = 342;
      MCX2 = 496;
      MCY2 = 460;

    { const MCCX, MCCY;
      Description: Chat Screen Centre Points. }

    const
      MCCX = 250;
      MCCY = 401;

    //****************************************************************************//
    // * I tried to make these Bitmaps Local, but I got after a couple of hours
    // *  running scripts, CTB and DB handle errors. So sorry, declared them global
    //****************************************************************************//

    {*******************************************************************************
    procedure LoadSRLBitMaps;
    By: SRL Dev Team
    Description: Loads SRL Bitmaps into memory.
    *******************************************************************************}


    procedure LoadSRLBitMaps;
    begin
      bmpMod := BitmapFromString(9, 6, 'z78DA733472A41B74350041' +
        '08DB0009E012B13407414C5DF8D994E8220F0200F59E4633');
      bmpAdmin := BitmapFromString(9, 6, 'z78DA7333777333B070A3' +
        '0F0904162610B60112C025E26266E96A6488A90B3F9B125DE4910' +
        '0A83249DE');
      Lamp := BitmapFromString2(False, 'aE3F5378DA558D4B0E8030084' +
           '4AFC4670A75D98ABDFF912C5693BA7921330F20226A7582CA3901' +
           'C9B9E04A0E9B34C9522A32799C3D2F9489394FBA46D23367CD0BE' +
           'CA83637C39B1F1FF9E4DC79ACC5B7957925B4E9F16FBB7666D865' +
           '418181415542E2739484E49DCDCDA8C250A8EE5F96530C01D92FE' +
           'FEDEEECC9AF059AF6E5DCE2E');
      Box := BitmapFromString(6, 6, 'z78DA33300001373030C00B8851' +
           '439E4A646040250000B06A2B99');
    end;

    //* Users
     {var FileName: String;
      Description: Filename to save and load users from. }

    var
      FileName: string;


    {*******************************************************************************
    procedure FreeSRLBitMaps;
    By: Ron
    Description: Frees SRL Bitmaps into memory.
    *******************************************************************************}


    procedure FreeSRLBitmaps;
    begin
      FreeBitmap(bmpMod);
      FreeBitmap(bmpAdmin);
      FreeBitmap(Lamp);
      FreeBitmap(Box);
    end;
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  5. #5
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    did you downloaded SRL 4.0 with a program called subversion?

    http://www.villavu.com/forum/showthread.php?t=17929

  6. #6
    Join Date
    Jun 2007
    Location
    Minnesota
    Posts
    773
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ya that is most likely the problem

  7. #7
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes...i did
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  8. #8
    Join Date
    Jun 2007
    Location
    Minnesota
    Posts
    773
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Your form is a little messed up, but you also called
    SCAR Code:
    {.include SRL/SRL.scar}
    twice

  9. #9
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

  10. #10
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, i fixed this "lolling thing" - it was cause i included SRL two times!!! But now i also got this problem
    Line 318: [Error] (15198:8): Unknown identifier 'UseResponder' in script C:\Documents and Settings\Jagex(haha i caught you all!(jk))\My Documents\DraynorCutta.scar
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  11. #11
    Join Date
    Jun 2007
    Location
    Minnesota
    Posts
    773
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You didn't identify it as a var?

  12. #12
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i tried,
    SCAR Code:
    var
    UseResponder: integer;
    and got:
    Line 320: [Error] (15200:21): Type mismatch in script C:\Documents and Settings\Krendzel\My Documents\DraynorCutta.scar

    Line 320:
    SCAR Code:
    If(Not UseResponder)Then Exit;
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  13. #13
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    var
      UseResponder: boolean;

    i needs to be a boolean.

  14. #14
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay, now i got:
    Line 329: [Error] (15209:38): Type mismatch in script C:\Documents and Settings\Jagex(lvl3)\My Documents\DraynorCutta.scar
    line 329
    If(Not LastChatter(LastChatterString))Then Exit;

    Omg, i never get my script to work
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  15. #15
    Join Date
    Jun 2007
    Location
    Minnesota
    Posts
    773
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    try if not LastChatter(LastChatterString) Then Exit;

  16. #16
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 338: [Error] (15218:38): Type mismatch in script C:\Documents and Settings\Krendzel\My Documents\DraynorCutta.scar
    line 338:
    if not LastChatter(LastChatterString)Then Exit;

    I tried to set it boolean and integer, nothing worked
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  17. #17
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    now try:
    SCAR Code:
    var
      {objectname}: String;

    Integer = numbers like 666 willows cutted
    String = text like: '666 willows cutted'
    Boolean = true / false

  18. #18
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay, thanks with your help i fixed alot of errors, now i need "Line 508: [Error] (15388:1): Assignment expected in script C:\Documents and Settings\Krendzel\My Documents\DraynorCutta.scar" fixed, here is the line
    wait(200+random(300));
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  19. #19
    Join Date
    Oct 2006
    Posts
    207
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by dritar View Post
    Okay, thanks with your help i fixed alot of errors, now i need "Line 508: [Error] (15388:1): Assignment expected in script C:\Documents and Settings\Krendzel\My Documents\DraynorCutta.scar" fixed, here is the line
    wait(200+random(300));
    Whats the line before? Or a couple of lines before?

  20. #20
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Its very nice to totally RIP MY RESPONDER WITHOUT CREDITING!

    edit oh u did credit but not on top of the script -.-
    what ever.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  21. #21
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, when script ends there will be credits and i will now post line before the error
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  22. #22
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay, here is the procedure:
    SCAR Code:
    Procedure Bank;
    begin;
      repeat
       openbank3
       wait(200+random(300));
       tries:= tries + 1;
      until(tries = 20);
     makecompass('w')
     repeat
     openbank3;
     wait(200+random(300))
     until(bankscreen)
    end;
    here are the variables:
    SCAR Code:
    var
    logs : integer; Trees : integer;  loads : integer; tries : integer;
    var
    x, y: integer;
    var
    UseResponder: boolean; openbank3: boolean;
    var
    ResponceTime: integer;
    var
    LastChatterString: String;
    var
    RespondedTimes: integer; TRespond: integer; CurrentResponce: integer;
    var
    c : integer; //The counter
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  23. #23
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Try putting semicolons after each line (except for the bolded ones):

    SCAR Code:
    Procedure Bank;
    begin;
      repeat
       openbank3; //added semi colon here
       wait(200+random(300));
       tries:= tries + 1;
      until(tries = 20);
     makecompass('w'); // and here
     repeat
       openbank3;
       wait(200+random(300)); //and here
     until(bankscreen)
    end;

  24. #24
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It didnt work but i fixed the problem. Now i want to ask is there any variable like "key press"
    e.g
    repeat
    until(keypress(ctrl))
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

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

  25. #25
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    function IsFunctionKeyDown(Key: Byte): Boolean;
    Checks if the given function key is down.
    Meanings of Key:
    0: SHIFT
    1: CONTROL
    2: ALT
    3: LEFT SHIFT
    4: LEFT CONTROL
    5: LEFT ALT
    6: RIGHT SHIFT
    7: RIGHT CONTROL
    8: RIGHT ALT
    Will that do?

    SCAR Code:
    repeat
       something;
    until(IsFunctionKeyDown(1)); //1 for ctrl

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 1
    Last Post: 07-31-2008, 08:35 PM
  2. Replies: 3
    Last Post: 05-03-2008, 08:03 PM
  3. Replies: 2
    Last Post: 02-26-2008, 02:32 PM
  4. Replies: 4
    Last Post: 01-19-2008, 09:16 AM
  5. Replies: 0
    Last Post: 09-24-2007, 10:16 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
  •