Page 4 of 7 FirstFirst ... 23456 ... LastLast
Results 76 to 100 of 172

Thread: Draynor Oak Banker

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

    Default

    Quote Originally Posted by streetrazerz View Post
    hi what do things like thi smean? Failed when compiling
    Line 326: [Error] (15042:1): Unknown identifier 'ClickItemColorTol' in script D:\Documents and Settings\CY\My Documents\Downloads\Draynor Oak Banker 1[1].1.scar, i got this when i tried to run your script, im pritty new to stuff like this and dont fully understand yet, please help me
    EXACTLY same problem. i Made a WC:er only to sell RS money, and beginning now only. id like this to work, i tried SCAR in the ancient younghood, but didnt get anything to work. please help?
    Failed when compiling
    Line 327: [Error] (15447:1): Unknown identifier 'ClickItemColorTol' in script E:\Ohjelmat\SCAR 2.03\Scripts\Draynor Oak Banker 1.1.scar

    Please help


    BTW Do i need to change these? ->
    Const
    AutoResp = True;
    BankColor1 = 5558001;
    BankColor2 = 6743804;
    BankColor3 = 2986918;

    IF i do how? what do i take with the coloud picker?

  2. #77
    Join Date
    May 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i tried to use it, but it came up with all errors. well i have version 3.04. can u tell me what to do plz

  3. #78
    Join Date
    Apr 2007
    Location
    Shhhhhhh im right behind you
    Posts
    335
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i got this when i tried to compile it....
    line 27 duplicate identifier label1

    pm if u know how to fix this
    thanks

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

    Default

    { CHARMZ AUTO RESPONDER IS IN HERE (GoF's Edit) ... NOT mine.
    ----------------------------------------------------
    Instructions
    1. Fill out DeclarePlayers lines 40 +
    2. Make sure your player is in Draynor
    bank and that you have Vbright setting
    on.
    3. Make sure you have axe wielded or in 1st
    inventory spot.
    -----------------------------------------------------
    This script will chop oaks in Draynor and bank them.


    Note : If it doesn't walk to bank or trees... get the number.
    'Found #3' is an example.

    }
    Program DraynorOakBanker;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}

    Var
    LoadNumber : Integer;
    LogDTM, BrokenAxeDTM, AxeHandleDTM, RegularAxeDTM, WalkToBit, WalkToBit3 : Integer;
    StartXP, EndXP, TotalXP, TotalLogs, BankTrips, WalkBank, WalkToBit2 : Integer;
    frmDesign : TForm;
    Label1 : TLabel;
    Label2 : TLabel;
    Label3 : TLabel;
    Edit1 : TEdit;
    Edit2 : TEdit;
    Edit3 : TEdit;
    Button1 : TButton;
    TheTreeName : String;
    AmmountOfLoads : Integer;
    TreeColor : Integer;
    LX, LY, BankedLoggs : Integer;

    //->Declare Players<-//
    Procedure DeclarePlayers;
    begin
    Status('Loading Players')

    HowManyPlayers := 1;
    NumberOfPlayers( HowManyPlayers );
    CurrentPlayer := 0;

    Players[0].Name := 'polkinghorn';
    Players[0].Pass := '...';
    Players[0].Nick := 'polk'; // 2-4 letters of username
    Players[0].Active := True;
    end;

    Const
    AutoResp = True;
    BankColor1 = 5558001;
    BankColor2 = 6743804;
    BankColor3 = 2986918;
    //-----------------------\\
    VersionNum = '1.1';

    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;

    Procedure InitForm;
    Begin
    Status('Form Is Up')
    frmDesign := CreateForm;
    frmDesign.Left := 306;
    frmDesign.Top := 367;
    frmDesign.Width := 428;
    frmDesign.Height := 207;
    frmDesign.Caption := 'Setup';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;;
    frmDesign.PixelsPerInch := 96;
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 3;
    Label1.Top := 20;
    Label1.Width := 258;
    Label1.Height := 20;
    Label1.Caption := 'Loads For Player Before Logging Off';
    Label1.Font.Color := clWindowText;
    Label1.Font.Height := -17;
    Label1.Font.Name := 'MS Sans Serif';
    Label1.Font.Style := [];
    Label1.ParentFont := False;
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 3;
    Label2.Top := 50;
    Label2.Width := 78;
    Label2.Height := 20;
    Label2.Caption := 'Tree Name';
    Label2.Font.Color := clWindowText;
    Label2.Font.Height := -17;
    Label2.Font.Name := 'MS Sans Serif';
    Label2.Font.Style := [];
    Label2.ParentFont := False;
    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 3;
    Label3.Top := 80;
    Label3.Width := 73;
    Label3.Height := 20;
    Label3.Caption := 'Tree Color';
    Label3.Font.Color := clWindowText;
    Label3.Font.Height := -17;
    Label3.Font.Name := 'MS Sans Serif';
    Label3.Font.Style := [];
    Label3.ParentFont := False;
    Edit1 := TEdit.Create(frmDesign);
    Edit1.Parent := frmDesign;
    Edit1.Left := 269;
    Edit1.Top := 20;
    Edit1.Width := 24;
    Edit1.Height := 21;
    Edit1.TabOrder := 8;
    Edit1.Text := '3';
    Edit2 := TEdit.Create(frmDesign);
    Edit2.Parent := frmDesign;
    Edit2.Left := 87;
    Edit2.Top := 50;
    Edit2.Width := 58;
    Edit2.Height := 21;
    Edit2.TabOrder := 9;
    Edit2.Text := 'Oak';
    Edit3 := TEdit.Create(frmDesign);
    Edit3.Parent := frmDesign;
    Edit3.Left := 87;
    Edit3.Top := 79;
    Edit3.Width := 69;
    Edit3.Height := 21;
    Edit3.TabOrder := 10;
    Edit3.Text := '876624';
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.Left := 172;
    Button1.Top := 133;
    Button1.Width := 75;
    Button1.Height := 25;
    Button1.Caption := 'OK GO';
    Button1.ModalResult := 1;
    Button1.TabOrder := 11;
    end;

    Procedure Convert2;
    Begin
    TheTreeName := Edit2.text
    AmmountOfLoads := StrToInt(Edit1.text)
    TreeColor := StrToInt(Edit3.text)
    end;


    //->Load Dtm's<-//
    Procedure LoadDTMs;

    begin
    Status('Loading DTM''s')

    LogDTM := DTMFromString('78DA632C666260E0646440067921460CFF8 13' +
    '448F43F103066314179C880118904D2354035FF19F0AB2905 AA11' +
    '22604E23500D0F0135C94035DCF8D50000507909F5');

    BrokenAxeDTM := DTMFromString('78DA633CCAC4C090C1C8800C9A127919FE0 36' +
    '990E87F2060BC0C54938CAA06220B2381F445A09A04026A8E 01D5' +
    'C41050B31FA8A698809AB384CD0100CBBD0D20');

    AxeHandleDTM := DTMFromString('78DA637CCFC4C0E0C6C8800CCA227819FE0 36' +
    '990E87F2060FC06546389AA06220B2381F473A09A00026ADE 00D5' +
    'F81350F316A8C685809A97403541F8D50000D0090D3C');

    RegularAxeDTM := DTMFromString('78DA637461626060676440060DF1BC0CFF8 13' +
    '448F43F10300601D5FC6740038C482490F604AAF94D408D13 500D' +
    '2B237E35F640358204D4F813618E1F50CD1F02EE0906AA61C 26F0' +
    'E0099720B7E');

    WalkToBit := DTMFromString('78DA638C676260506740012A0CEC0C5C409 A1' +
    '188FF030123488D1AAA9A2C3B690611A81A10608CC1340743 4D22' +
    '116AE2806A34F0AB01006D340A3E');

    WalkToBit2 := DTMFromString('78DA636464666098CC80024C19381952803 42' +
    '310FF0702C67F4C186AE2D5381934A06A4080919999B01A06 A09A' +
    '4944A899825F0D0030C20B70');

    WalkToBit3 := DTMFromString('78DA636C626260306040010ECCEC0C1C409 A1' +
    '188FF0301633DA69A440B760611A81A10606C25420DC82E43 22D4' +
    'E8E3570300B6030AAD');

    WalkBank := DTMFromString('78DA63DCC6C4C0A0C980027881425C409A1 18' +
    '8FF030123488D1AAA9A78356E0639A81A1000ABD126A0663B A65D' +
    '186AB612560300E9920B3C');
    end;

    //->Walk Back To Trees<-//
    Var
    CC, YY : Integer;
    Procedure WalkBackTree;
    Begin
    Repeat
    MakeCompass('N')
    If FindDtm(WalkToBit3, CC, YY, MMX1, MMY1, MMX2, MMY2) then
    Begin
    WriteLn('Found # 3')
    Mouse(CC + 42, YY + 46, 0, 0, True)
    flag;
    end else
    If FindDtm(WalkToBit, CC, YY, MMX1, MMY1, MMX2, MMY2) then
    Begin
    WriteLn('Found # 1')
    Mouse(CC + 42, YY + 44, 0, 0, True)
    flag;
    end else
    If FindDtm(WalkToBit2, CC, YY, MMX1, MMY1, MMX2, MMY2) then
    Begin
    WriteLn('Found # 3')
    Mouse(CC + 42, YY + 44, 0, 0, True)
    flag;
    end else
    Begin
    WriteLn('Couldn''t find ladder DTM, Sorry')
    LogOut;
    Wait(60000 + Random (60000))
    NextPlayer(False)
    end;
    Until Not(FindMMColorTol(x, y, 10909539, 10))
    end;

    //->Walk To Bank<-//

    Procedure WalkToBank;
    Var
    CCX, YYY : Integer;
    Begin
    MakeCompass('N')
    If FindDtm(WalkToBit3, CCX, YYY, MMX1, MMY1, MMX2, MMY2) then
    Begin
    WriteLn('Found # 3')
    Mouse(CCX + 2, YYY + 40, 0, 0, True)
    flag;
    end else
    If FindDtm(WalkToBit, CCX, YYY, MMX1, MMY1, MMX2, MMY2) then
    Begin
    WriteLn('Found # 1')
    Mouse(CCX + 2, YYY + 40, 0, 0, True)
    flag;
    end else
    If FindDtm(WalkToBit2, CCX, YYY, MMX1, MMY1, MMX2, MMY2) then
    Begin
    WriteLn('Found # 3')
    Mouse(CCX + 2, YYY + 40, 0, 0, True)
    flag;
    end;
    end;


    //->Setup<-//
    Procedure MySetupScript;
    Begin
    Status('Set-Up')
    SetupSRL;
    DeclarePlayers;
    LoadDTMs;
    end;


    //->GetRandomLoad-//
    Var
    RandomLoad : Integer;

    Procedure GetRandomLoad;
    Begin
    RandomLoad := (AmmountOfLoads + Random (3))
    end;


    //->Anti Randoms<-//
    Procedure TheAntiRandoms;
    Begin
    Status('Random Check')
    FindNormalRandoms;
    wait(10)
    FindTalk;
    wait(10)
    if (FindFight) then
    begin
    Status('Running From a fight.')
    RunAwayDirection('W');
    Wait(8500 + random(3500));
    RunBack;
    Wait(1000+Random(100))
    WalkBackTree;
    end;
    Wait(10);
    FindTalk;
    end;

    Procedure StoreStuff;
    Begin
    If InventoryCount > 1 then
    Begin
    Repeat
    ClickItemColorTol(65536, 10, False)
    Wait(10)
    ChooseOption(x, y, 'All')
    Wait(1000 + Random(1000))
    Until InventoryCount = 0
    Wait(1000 + Random (1000))
    Repeat
    If FindDtm(RegularAxeDTM, X, Y, MSX1, MSY1, MSX2, MSY2) then
    Begin
    Mouse(X, Y, 1, 1, True)
    Wait(1000 + Random(1000))
    end;
    Until InventoryCount = 1
    end;
    end;

    //--CHARMZ AUTO RESPONDER--//

    Function GetChatMessage(Text: String): Boolean;
    Var
    TX, TY: Integer;
    Chat: String;
    Begin

    If(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
    Begin
    Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));

    If(Pos(Text, Chat) <> 0)then
    Begin
    Result:= True;
    End

    End

    End;

    Function GetChatName(Name: String): Boolean;
    Var
    I : Integer;
    ChatName : String;
    Begin

    ChatName := Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));

    I:= Pos(':', ChatName);
    If(I <> 0)then
    Begin
    Delete(ChatName, I, I);
    End

    If(Pos(Name, ChatName) <> 0)then
    Begin
    Result:= True;
    End

    End;

    Function AutoRespond: Boolean;
    Var
    Responce, Lvl: String;
    RandomReply: Integer;
    Chat,Name,ChatName: String;
    Begin

    if(AutoResp=False)then
    begin
    Exit;
    end;

    if(AutoResp)then
    begin

    OldLine:= TheLine;
    TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
    NewLine:= TheLine;

    If(GetChatName(Players[CurrentPlayer].Name))then
    Begin
    Exit;
    End

    If(OldLine=NewLine)then
    Begin
    Exit;
    End

    If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
    Begin
    WriteLn(''+ChatName+': '+Chat);
    RandomReply:= Random(10)+1;
    Case (RandomReply) of
    0 : Responce:= ('?');
    1 : Responce:= ('what');
    2 : Responce:= ('yes');
    3 : Responce:= ('no');
    4 : Responce:= ('what do you want');
    5 : Responce:= ('me?');
    6 : Responce:= ('Yah?');
    7 : Responce:= ('who?');
    8 : Responce:= ('wha?');
    9 : Responce:= ('?');
    10 : Responce:= ('???');
    End
    TypeSend(Responce+' '+Name);
    Result:= True;
    End

    If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
    Begin
    WriteLn(''+ChatName+': '+Chat);
    RandomReply:= Random(24)+1;
    Case (RandomReply) of
    0 : Responce:= ('heh');
    1 : Responce:= ('loll');
    2 : Responce:= ('lol');
    3 : Responce:= ('haha');
    4 : Responce:= ('hihi');
    5 : Responce:= ('ehe');
    6 : Responce:= ('lmao');
    7 : Responce:= ('lmfao');
    8 : Responce:= ('rofls');
    9 : Responce:= ('fun');
    10 : Responce:= ('nice');
    11 : Responce:= ('lolz');
    12 : Responce:= ('yep');
    13 : Responce:= ('hola');
    14 : Responce:= ('wow');
    15 : Responce:= ('i bet');
    16 : Responce:= ('rofl');
    17 : Responce:= ('ghehehghehighhe');
    18 : Responce:= ('cool');
    19 : Responce:= ('...');
    20 : Responce:= ('???');
    21 : Responce:= ('wow');
    22 : Responce:= ('grr..');
    23 : Responce:= ('rowr');
    24 : Responce:= ('lolololololol');
    25 : Responce:= ('ha ha ha!!!');
    End
    TypeSend(Responce);
    Result:= True;
    End


    If(GetChatMessage('wc')) or (GetChatMessage('woodcutting')) or (GetChatMessage('woodcuttin')) And
    (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('lvls')) or (GetChatMessage('levels'))then
    Begin
    WriteLn(''+ChatName+': '+Chat);
    Lvl:= IntToStr(GetSkillLevel('woodcutting'));
    RandomReply:= Random(5)+1;
    Case (RandomReply) of
    0 : Responce:= ('i''m lvl '+Lvl+' woodcuttin');
    1 : Responce:= ('level '+Lvl+' wc');
    2 : Responce:= ('lvl '+Lvl+' woodcut!');
    3 : Responce:= (+Lvl);
    4 : Responce:= ('i''m level '+lvl);
    5 : Responce:= (+Lvl+' here :P');
    End
    TypeSend(Responce);
    Result:= True;
    End

    If(GetChatMessage('wat')) or (GetChatMessage('what')) and (GetChatMessage('doin')) or (GetChatMessage('doing'))then
    Begin
    WriteLn(''+ChatName+': '+Chat);
    RandomReply:= Random(9)+1;
    Case RandomReply of
    0 : Responce:= ('not much');
    1 : Responce:= ('nothing');
    2 : Responce:= ('bored');
    3 : Responce:= ('aye?');
    4 : Responce:= ('emmm..nothin');
    5 : Responce:= ('nope');
    6 : Responce:= ('booo');
    7 : Responce:= ('no ty');
    8 : Responce:= ('what');
    9 : Responce:= ('....');
    10 : Responce:= ('nothin');
    End;
    TypeSend(Responce);
    Result:= True;
    End;

    If(GetChatMessage('hey')) or (GetChatMessage('hi')) or (GetChatMessage('hello')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
    Begin
    WriteLn(''+ChatName+': '+Chat);
    RandomReply:= random(9)+1;
    Case RandomReply of
    0 : Responce:= ('hello');
    1 : Responce:= ('wassup');
    2 : Responce:= ('yo');
    3 : Responce:= ('whats up everyone');
    4 : Responce:= ('whats up');
    5 : Responce:= ('welcome');
    6 : Responce:= ('hello hello');
    7 : Responce:= ('wat up');
    8 : Responce:= ('yo');
    9 : Responce:= ('sup?');
    10 : Responce:= ('whats up');
    end
    TypeSend(Responce);
    Result:= True;
    end
    end;
    end;


    //->Get Axe Colors<-//
    Procedure GetAxeColors;
    Begin
    Wait(100)
    MakeCompass('S')
    GameTab(4)
    FindAxeHeadColor;
    MakeCompass('N')
    end;


    //->Ent Finder<-// Yohojo8
    Var
    EX, EY : integer;
    FX, FY : integer;
    Procedure EntChecker;
    Begin
    Status('Checking For Ent')
    Flag;
    If (FindObjMultiText(EX, EY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
    Begin
    MMouse(Ex, EY, 0, 0)
    If FindColorTolerance( FX, FY, 55769, 85, 15, 115, 15, 20) then
    Begin
    Status('Ent Found');
    MouseFindFlag(645, 83, 0, 0);
    Wait(17000+Random(5000));
    EntsAvoided := EntsAvoided + 1
    WalkBackTree;
    end;
    end;
    end;


    //->Check for Broken Axe<-//
    Var
    BX, BY, NX, NY, HandX, HandY : integer;

    Procedure IsAxeBroken;
    Begin
    Status('Checking for broken axe')
    GameTab(4)
    Wait(400 + Random (100))
    If (Not(FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 ))) then
    Begin
    Status('Axe Not Broken')
    Exit;
    end;
    Begin
    If (FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 )) and
    (Not(FindDTM(RegularAxeDTM, NX, NY, MIX1, MIY1, MIX2, MIY2))) then
    Begin
    WalkToBank;
    Wait(1000 + Random(1000))
    MakeCompass('E')
    Repeat
    OpenBankGlass('db', false, false)
    Until BankScreen;
    If FindDtm(BrokenAxeDTM, HandX, HandY, MIX1, MIY1, MIX2, MIY2) then
    Begin
    Mouse(HandX, HandY, 1, 1, False)
    ChooseOption(x, y, 'All')
    If FindDtm(RegularAxeDTM, X, Y, MSX1, MSY1, MSX2, MSY2) then
    Begin
    Mouse(X, Y, 1, 1, True)
    end;
    CloseBank;
    MakeCompass('N')
    WalkBackTree;
    HighestAngle;
    end else
    NextPlayer(False)
    end;
    LoadNumber := Loadnumber + 1
    end;
    end;


    //->Axe Head Finder<-//
    Procedure TheFindAxe;
    Begin
    FindHead;
    Status('Is axe head missing?')
    end;

    //->Everything Put Together<-//
    Procedure CompleteFix;
    Begin
    TheAntiRandoms;
    Wait(10)
    EntChecker;
    Wait(10)
    TheFindAxe;
    Wait(10)
    AutoRespond;
    end;


    //->Start Chopping<-//
    Var
    TX, TY : Integer;
    TreeTime : LongInt;

    Procedure StartChopping;
    Begin
    MarkTime(TreeTime)
    If ( Not (LoggedIn) ) Then
    Begin
    NextPlayer (False)
    Exit;
    end;
    Repeat
    Begin
    IsAxeBroken;
    Status('Looking for ' + TheTreeName)
    If (InvFull) then
    Begin
    Exit;
    end;
    EntChecker;
    MakeCompass('W')
    If (FindObjMultiText(TX, TY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
    Begin
    Mouse(TX, TY, 1, 1, True)
    Wait( 1400 + Random (200))
    CompleteFix;
    Wait(100)
    CompleteFix;
    Wait(100)
    CompleteFix;
    Wait(100)
    Status('Waiting')
    Wait(4000+Random(3000))
    end;
    end;
    Until (InvFull) or (TimeFromMark(TreeTime)>60000 * 7)
    end;


    //->Bank Procedure<-//
    Var
    BankMark : LongInt;

    Procedure StartBanking;
    Begin
    If (InvFull) then
    Begin
    If ( Not (LoggedIn) ) Then
    Begin
    NextPlayer (False)
    Exit;
    end;
    MakeCompass('W')
    HighestAngle;
    Wait(100+Random(100))
    GameTab(4)
    end;
    WalkToBank;
    MarkTime(BankMark)
    MakeCompass('E')
    Repeat
    OpenBankGlass('db', false, false)
    Until (BankScreen) or (TimeFromMark(BankMark)>60000 + Random(60000))
    If (TimeFromMark(BankMark)>60000) then
    Begin
    WriteLn('Couldn''t do banking.')
    LogOut;
    NextPlayer(False)
    Exit;
    WalkBackTree;
    end;
    Repeat
    If FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2) then
    Begin
    BankedLoggs := CountItemDtm(LogDTM) + 6
    Mouse(LX, LY, 6, 6, False)
    ChooseOption(x, y, 'All')
    Wait(1000+Random(1000))
    end;
    Until (Not(FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)))
    StoreStuff;
    CloseBank;
    BankTrips := BankTrips + 1
    LoadNumber := LoadNumber + 1
    WalkBackTree;
    end;

    Procedure FProgress;
    Begin
    WriteLn('Fours Draynor Oak Banker v' + VersionNum )
    WriteLn('------------------------------------------------')
    WriteLn(' Time Running : ' + TimeRunning )
    WriteLn(' Logs Banked : ' + IntToStr(TotalLogs) )
    WriteLn(' Total Banks : ' + IntToStr(BankTrips) )
    WriteLn(' XP Gained : ' + IntToStr(TotalXp) )
    If EntsAvoided > 0 then
    Begin
    WriteLn(' Ents Avoided : ' + IntToStr(EntsAvoided) )
    end;
    WriteLn('------------------------------------------------')
    end;

    //->Main Stuff<-//
    Begin
    wait(1200)
    MySetupScript;
    UseSandwichSolver := True;
    UseBoxSolver := True;
    SafeInitForm;
    SafeShowFormModal;
    Convert2;
    ClearDebug;
    WriteLn('Starting Script')
    Wait(3000)
    ClearDebug;
    Begin
    If (Not(LoggedIn)) then
    Begin
    Status('Logging In')
    Loginplayer;
    end;
    end;
    GetRandomLoad;
    HighestAngle;
    MakeCompass('N')
    Repeat
    StartXP := GetXp('Woodcutting')
    GetAxeColors;
    WalkBackTree;
    Repeat
    If ( Not (LoggedIn) ) Then
    Begin
    NextPlayer (False)
    Exit;
    end;
    DisguiseScar('[' + IntToStr(LoadNumber) + '/' +IntToStr(RandomLoad) + '] ' +(Players[CurrentPlayer].name) + '')
    StartChopping;
    StartBanking;
    EndXP := GetXp('Woodcutting')
    TotalLogs := TotalLogs + BankedLoggs
    TotalXP := (EndXP - StartXP) + (TotalXP)
    FProgress;
    GetAxeColors;
    Until (LoadNumber >= RandomLoad)
    LogOut;
    NextPlayer(True);
    LoadNumber := 0
    GetRandomLoad;
    HighestAngle;
    MakeCompass('S')
    Until False;
    End.


    ... anyone help? it says this:

    Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL.SCAR does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL\Skill\Woodcutting.SCAR does not exist.

  5. #80
    Join Date
    May 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok needs updating lol because it gets out side the bank there and says cut find it bit weird and the head finder needs to be updated it found it but dint click :S:S 1s even got in bank but dint click on it


    hop u get updated

  6. #81
    Join Date
    Apr 2007
    Posts
    224
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 605: [Error] (16471:1): Unknown identifier 'OpenBankGlass' in script C:\DOCUME~1\vikrant\Desktop\Draynor Oak Banker 1.1.scar can u tell me what this means and how to fix it plz u guyz

  7. #82
    Join Date
    Mar 2007
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ine 26: [Error] (35:1): Duplicate identifier 'UpChars' in script C:\Program Files\SCAR 3.06\includes\srl\srl\core\Globals.scar help please?

  8. #83
    Join Date
    Feb 2007
    Location
    Florida
    Posts
    460
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, This place has been leechified lol last 10 - 20 post all of the reply's are from people with 10 post under.
    Varrock gTanner
    Previously known as England155.

  9. #84
    Join Date
    Mar 2007
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how can i fix?

  10. #85
    Join Date
    Apr 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i keep getting this error:
    Line 662: [Error] (15782:16): Unknown identifier 'CountItemDtm' in script C:\Program Files\SCAR 2.03\Scripts\Draynor Oak Banker.scar
    can someone please help me with this and tell me whats wrong

  11. #86
    Join Date
    May 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i keep geting this
    Line 341: [Error] (15112:1) : Unknown identifier 'ClickItemColorTol' in script C:\Documents and Settings\Compaq_Administrator\Local Settings\Temporary Internet Files\Content.IE5\ALG9M9CP\Drynor%20Oak%20Banker%2 01[1].1.scar
    i dont no wat 2 do

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

    Default

    what do i put in line 53??? nice script by the way

  13. #88
    Join Date
    May 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I also get the error Line 341: [Error] (15461:1): Unknown identifier 'ClickItemColorTol' in script C:\Documents and Settings\~~~\Desktop\Draynor Oak Banker 1.1.scar

  14. #89
    Join Date
    May 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i'll try it and post proggy

    edit: got same error tbh

  15. #90
    Join Date
    Jun 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Failed when compiling
    Line 341: [Error] (15461:1): Unknown identifier

    Don't know what to do. please help?

  16. #91
    Join Date
    Jun 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Found # 3
    Found # 3
    Couldn't do banking.

    what does that mean

  17. #92
    Join Date
    May 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Failed when compiling
    Line 326: [Error] (15446:1): Unknown identifier 'ClickItemColorTol' in script C:\Program Files\SCAR 2.03\Scripts\Draynor Oak Banker 1.1.scar
    I'm having this error, does anyone know what the hell is wrong?

  18. #93
    Join Date
    Jun 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    "1. Fill out DeclarePlayers lines 40 +" and what that means ? does that effect banking cuz everything else works perfectly but it wont bank just rolls mouse pointer around and says "Found # 3".. SOME HELP PLZ

  19. #94
    Join Date
    May 2007
    Location
    wouldn't you like to know
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice scripting dude

  20. #95
    Join Date
    Jun 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Found # 3
    Couldn't do banking.
    NextPlayer
    [Runtime Error] : Out Of Range in line 399 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Login.scar

    all go till this

  21. #96
    Join Date
    Jun 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    "Failed when compiling
    Line 342: [Error] (15113:1): Unknown identifier 'ClickItemColorTol' in script C:\Documents and Settings\Alex\Desktop\Draynor Oak Banker 1.1.scar"

    can some one plz tell us noobs how to fix this please?

  22. #97
    Join Date
    May 2007
    Location
    Seattle
    Posts
    1,069
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Worked great for me! Keep up the good work. 10/10.

  23. #98
    Join Date
    Dec 2006
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help please

    Code:
    Line 342: [Error] (15113:1): Unknown identifier 'ClickItemColorTol' in script C:\Documents and Settings\legendz\Desktop\Draynor Oak Banker 1.1.scar
    what do i do

  24. #99
    Join Date
    May 2007
    Location
    Ohio, USA
    Posts
    96
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ianternet View Post
    Code:
    Line 342: [Error] (15113:1): Unknown identifier 'ClickItemColorTol' in script C:\Documents and Settings\legendz\Desktop\Draynor Oak Banker 1.1.scar
    what do i do
    Use SCAR 2.03 and SRL 3.6 .

  25. #100
    Join Date
    Dec 2006
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Inf456 View Post
    Use SCAR 2.03 and SRL 3.6 .
    also were do i get that please tell me im sorry 2 bother u

Page 4 of 7 FirstFirst ... 23456 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SRL 4] #5 - Draynor Willow Banker
    By Paul23 in forum First Scripts
    Replies: 120
    Last Post: 04-10-2008, 03:01 PM
  2. al kharid smith-banker & draynor willow cutter-banker
    By rivon in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 01-03-2008, 09:51 AM
  3. Draynor Oak Cutter+Banker? Willing To Pay
    By Wdf? in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 07-30-2007, 06:31 AM
  4. Draynor Ess Miner And Banker
    By TViYH in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 05-31-2007, 07:36 AM
  5. Draynor Yew Cutter + Banker
    By ambtfp in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 03-18-2007, 05:53 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
  •