Adblock breaks this site

Help with compiling

Discussion in 'Scar/Simba Help' started by natinsatan, Nov 22, 2007.

  1. natinsatan

    natinsatan Forum Addict
    Banned

    Joined:
    Nov 20, 2007
    Posts:
    400
    Referrals:
    0
    Sythe Gold:
    0
    Help with compiling

    When i try to compile i get these errors.

    Include file C:\Program Files\SCAR 3.12\includes\Squig.txt does not exist.
    Include file C:\Program Files\SCAR 3.12\includes\Bankpinner.scar does not exist.
    Failed when compiling

    I have the newer scar and i have everything downloaded what do i have to download?

    //------------------------------------------------------------------------------
    //Draynor Willow Smasher Advance + Banking v1.09 by Surajd
    //Use Low Detail: 32-Bit Screen Reso: 1024x768 (Doesn't Really Matter)
    //Only for RS2, tested on RS2 Jagex Client maximised
    //START NEXT TO DRAYNOR TREES!!! WILLOW TREES!!
    //Email me on [email protected] if you encounter and problems (Errors)!
    //All Anti-Randoms even Ent and AxeFinder! AxeFinder still under testing
    //Only Tested on Scar v2.03!!!
    //Setup Line(s) 40 - 53 ; Other Option(s) when you start!

    //------------------------------------------------------------------------------
    //v1.01: AxeFinder taken from Pwnd's Power Chopper
    //v1.02: Fixed Bugs
    //v1.03: Added protection from Ent and mods :p- Thanks to Mad Cow!! U rock! :)
    //v1.04: Minor Bug Fixes! Willow Cutting Faster!!!
    //v1.05: Added how many Willows to cut and if it cuts that ammount, it logs out!
    //v1.06: Used MadCows Mod Protection, very nice MadCow!
    //v1.07: Added options for Consts and fixed How many willows to cut
    //v1.08: Fixed Willow Clicking bug and fixed how many trees to smash command!
    //v1.09: Fixed walking to bank and added BankPin & fixed some Anti-Randoms!
    //------------------------------------------------------------------------------

    ////////////////////
    //Helpers+Testers://
    ////////////////////
    //Home - Tester
    //Kane - Helper/Form Maker #1
    //Drig - Tester/Form Maker #2
    //NeonKnight - Tester/Helper
    //MadCow - Sweet Ent protection and various commands
    //Pwnd - AxeFinder still under testing
    //Afireinside - BankPinner include :p
    //------------------------------------------------------------------------------


    Program DraynorWillowSmasher;
    {.include Squig.txt}
    {.include Bankpinner.scar}

    //=====================================================================
    Const
    Willow1 = 6654104; //Willow Tree Colour 1
    Willow2 = 5210232; //Willow Tree Colour 2
    Willow3 = 5748904; //Willow Tree Colour 3

    MMBankSymbol = 4572894; //Minimap Colour of Bank Symbol

    HowMany = 1000; //This is how many Willow Trees to smash,
    //when it's done it will Log Out.

    BankPin = '1234'; //Enter your bank pin here :D
    GLampSkill = 'WoodCutting'; //Choose your skill if Genie is found
    //=====================================================================

    Var
    x,y,z,xx,yy:Integer;
    frmDesign : TForm;
    Label11 : TLabel;
    Label22 : TLabel;
    Label33 : TLabel;
    UserNameE : TEdit;
    PassWordE : TEdit;
    CheckBox1 : TCheckBox;
    CheckBox2 : TCheckBox;
    Button11 : TButton;
    AutoLogin, EquipAxe: Boolean;
    application:tapplication;
    Self: TForm;
    disguised:string;
    WillowAntiEnt,AntiEnt:Integer;
    Axe1,Axe2,Axe3,Handle,A1,A2,A3,H : Integer;
    AxefindAP : Integer;
    STime1, FTime1, RLogout1 : Integer;
    UpChars,CountWillows,WillowsCut:Integer;
    XPis:extended;logtypeis:String;


    Procedure AntiBan;
    begin
    Application:= GetApplication;
    Application.Title:= disguised;
    Self:= GetSelf;
    GetSelf.Caption:= 'Stealth Mode';
    end;

    ////////////////////////////////////////////
    // XxKanexX Made The Form //
    // And Form Settings //
    ////////////////////////////////////////////

    Procedure SaveSettings(sender: TObject);
    begin
    AutoLogin := False;
    EquipAxe := False;
    frmDesign.Caption:= frmDesign.Caption + '.';
    frmDesign.ModalResult:= mrOk;
    If(CheckBox1.Checked)Then
    AutoLogin := True;
    If(CheckBox2.Checked)Then
    EquipAxe := True;
    User := UsernameE.text;
    Pass := PasswordE.text;
    end;

    Procedure LoginForm;
    Begin
    frmDesign := CreateForm;
    frmDesign.Left := 528;
    frmDesign.Top := 382;
    frmDesign.Width := 267;
    frmDesign.Height := 144;
    frmDesign.BorderStyle := bsToolWindow;
    frmDesign.Caption := 'L0gIn FoRm - Draynor Willow Smasher!';
    frmDesign.Color := clGray;
    frmDesign.Font.Color := clWhite;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [fsUnderline];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;
    Label11 := TLabel.Create(frmDesign);
    Label11.Parent := frmDesign;
    Label11.Left := 37;
    Label11.Top := 2;
    Label11.Width := 51;
    Label11.Height := 13;
    Label11.Caption := 'Username:';
    Label22 := TLabel.Create(frmDesign);
    Label22.Parent := frmDesign;
    Label22.Left := 167;
    Label22.Top := 2;
    Label22.Width := 49;
    Label22.Height := 13;
    Label22.Caption := 'Password:';
    Label33 := TLabel.Create(frmDesign);
    Label33.Parent := frmDesign;
    Label33.Left := 36;
    Label33.Top := 98;
    Label33.Width := 199;
    Label33.Height := 13;
    Label33.Caption := 'Draynor Willow Smasher - Made By Surajd';
    UserNameE := TEdit.Create(frmDesign);
    UserNameE.Parent := frmDesign;
    UserNameE.Left := 5;
    UserNameE.Top := 21;
    UserNameE.Width := 121;
    UserNameE.Height := 21;
    UserNameE.TabOrder := 8;
    PassWordE := TEdit.Create(frmDesign);
    PassWordE.Parent := frmDesign;
    PassWordE.Left := 132;
    PassWordE.Top := 22;
    PassWordE.Width := 121;
    PassWordE.Height := 21;
    PassWordE.PasswordChar := #1;
    PassWordE.TabOrder := 9;
    CheckBox1 := TCheckBox.Create(frmDesign);
    CheckBox1.Parent := frmDesign;
    CheckBox1.Left := 25;
    CheckBox1.Top := 48;
    CheckBox1.Width := 97;
    CheckBox1.Height := 17;
    CheckBox1.Caption := 'Equip Axe?';
    CheckBox1.TabOrder := 10;
    CheckBox2 := TCheckBox.Create(frmDesign);
    CheckBox2.Parent := frmDesign;
    CheckBox2.Left := 116;
    CheckBox2.Top := 48;
    CheckBox2.Width := 132;
    CheckBox2.Height := 17;
    CheckBox2.Caption := 'Auto Random Logout?';
    CheckBox2.TabOrder := 11;
    Button11 := TButton.Create(frmDesign);
    Button11.Parent := frmDesign;
    Button11.Left := 88;
    Button11.Top := 74;
    Button11.Width := 75;
    Button11.Height := 18;
    Button11.Caption := 'Continue';
    Button11.Font.Color := clWhite;
    Button11.Font.Height := -11;
    Button11.Font.Name := 'MS Sans Serif';
    Button11.Font.Style := [];
    Button11.ParentFont := False;
    Button11.TabOrder := 12;
    Button11.OnClick := @SaveSettings;
    UsernameE.Font.Color := CLBlack;
    PasswordE.Font.Color := CLBlack;
    PasswordE.Font.Style := []
    End;

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

    procedure ShowFormModal1;
    begin
    frmDesign.ShowModal;
    end;

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

    procedure CallForm;
    begin
    SafeLoginForm;
    SafeShowFormModal;
    end;


    //----------==============------------================----------------
    //----------This is the Main Script------------
    //-----------=============-------------==============-----------------

    Procedure SetupOptions;
    begin
    MapCompass('N');
    SetRunOn;
    Openbag;
    CountWillows:=0
    WillowsCut:=0
    end;


    function IsUpText(s: string):Boolean;
    begin
    Result:= IsTextAtEx(7, 7, s, 100, UpChars, True, False, 0, 2, -1);
    end;


    function CheckEnt: Boolean; //From MadCows Lovely Any Cutter!
    var
    x, y: Integer;
    begin
    Result := false;
    if(IsUpText('Chop down'))and
    ((FindColorTolerance(x, y, 57311, 80, 5, 160, 25, 10))or
    (FindColorTolerance(x, y, 118478, 80, 5, 160, 25, 10))or
    (FindColorTolerance(x, y, 53199, 80, 5, 160, 25, 10)))then
    Result := true;
    end;

    procedure FindEnts;
    begin
    if (checkent=true) then
    begin
    Writeln('Found an evil ent!')
    Direction:='E'
    MouseC(638, 84, 1)
    wait(5000+random(2000))
    end;
    end;


    Procedure NewAntiEnt;
    begin
    if(IsUpText('Chop down'))and
    ((FindColorTolerance(x, y, 57311, 80, 5, 160, 25, 10))or
    (FindColorTolerance(x, y, 118478, 80, 5, 160, 25, 10))or
    (FindColorTolerance(x, y, 53199, 80, 5, 160, 25, 10)))then

    begin
    WillowAntiEnt := BitmapFromString(39, 13, 'z78DA33301889C00' +
    'D086024256A88514FAA39A33E1DF529ED7C4A2DF181F2293122B4' +
    '88536459E25552623BF13E1D6CE223C1A7E4B97668F9143F497C1' +
    'EA1563AA1B54FF18B535226D03A7F116F3BF1E2A3607800000A53' +
    '6F6F');


    if(FindBitmapToleranceIn(WillowAntiEnt,x,y,5,3,39,13,4))then

    begin
    Writeln('Found an evil ent!')
    Direction:='E'
    MouseC(638, 84, 1)
    wait(5000+random(2000))
    end;
    end;
    end;

    procedure ModCheck;
    var
    x2, y2, abcd, bmpModcrown, bmpStaffcrown : integer;
    begin
    bmpModcrown := BitmapFromstring(13, 11,
    '979797000000000000000000000000000000979797000000000000' +
    '000000000000000000979797E0E0E0979797000000000000000000' +
    'E0E0E0A2A2A2979797000000000000000000E0E0E0979797E0E0E0' +
    '979797000000000000000000E0E0E0A2A2A2979797000000000000' +
    '000000E0E0E0979797E0E0E0A2A2A2979797000000E0E0E0A2A2A2' +
    'A2A2A2A2A2A2979797000000E0E0E0A2A2A2979797E0E0E0A2A2A2' +
    '979797000000E0E0E0A2A2A2A2A2A2A2A2A2979797000000E0E0E0' +
    'A2A2A2979797000000E0E0E0A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2' +
    'A2A2A2A2A2A2A2A2A2A2A2A2979797000000000000E0E0E0A2A2A2' +
    'A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2979797' +
    '000000000000000000E0E0E0sA2A2A2000000000000A2A2A2000000' +
    '000000A2A2A2979797000000000000000000000000E0E0E0A2A2A2' +
    '000000A2A2A2000000A2A2A2000000A2A2A2979797000000000000' +
    '000000000000E0E0E0A2A2A2000000A2A2A2000000A2A2A2000000' +
    'A2A2A2979797000000000000000000000000979797979797979797' +
    '979797979797979797979797979797979797000000000000');
    bmpStaffcrown := BitmapFromstring(13, 11,
    'D69E21000000000000000000000000000000D69E21000000000000' +
    '000000000000000000D69E21FFFF84D69E21000000000000000000' +
    'FFFF84F7FF08D69E21000000000000000000FFFF84D69E21FFFF84' +
    'D69E21000000000000000000FFFF84F7FF08D69E21000000000000' +
    '000000FFFF84D69E21FFFF84F7FF08D69E21000000FFFF84F7FF08' +
    'F7FF08F7FF08D69E21000000FFFF84F7FF08D69E21FFFF84F7FF08' +
    'D69E21000000FFFF84F7FF08F7FF08F7FF08D69E21000000FFFF84' +
    'F7FF08D69E21000000FFFF84F7FF08F7FF08F7FF08F7FF08F7FF08' +
    'F7FF08F7FF08F7FF08F7FF08D69E21000000000000FFFF84F7FF08' +
    'F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08F7FF08D69E21' +
    '000000000000000000FFFF84F7FF08000000000000F7FF08000000' +
    '000000F7FF08D69E21000000000000000000000000FFFF84F7FF08' +
    '000000F7FF08000000F7FF08000000F7FF08D69E21000000000000' +
    '000000000000FFFF84F7FF08000000F7FF08000000F7FF08000000' +
    'F7FF08D69E21000000000000000000000000D69E21D69E21D69E21' +
    'D69E21D69E21D69E21D69E21D69E21D69E21000000000000');
    if (findbitmaptolerancein(bmpStaffCrown,x2,y2,1,345,110,430,50))
    or (findbitmaptolerancein(bmpModCrown,x2,y2,1,345,110,430,50)) then
    begin
    abcd:=0
    TakeScreenShot('Staff Found',1);
    Status('Staff or Mod found...');
    writeln('Staff/Mod Found so logged out');
    Logout;
    repeat
    Status(inttostr(20-abcd)+' minutes remaining until login...')
    abcd:=abcd+1;
    wait(60000);
    until(abcd>20);
    end;
    FreeBitmap(bmpStaffCrown);
    FreeBitmap(bmpModCrown);
    end; //End of MadCow's Stuff


    Procedure XPAmounts;
    begin
    if logtypeis = 'Willow' then XPis:= 67.5
    end;


    Procedure Getaxecolors; //Taken from pwnd's PowerChopper (Axe Randoms)
    begin
    Writeln('Getting axe and handle colors...')
    A1 := Getcolor(591, 219)
    A2 := Getcolor(590, 221)
    A3 := Getcolor(589, 219)
    H := Getcolor(582, 224)
    Writeln('Axe colors ' + inttostr(A1)+ ' ' + inttostr(A2) + ' ' + inttostr(A3))
    Writeln('Handle color ' + inttostr(H))
    end;

    Function Axelost : boolean;
    var x, y : integer;
    begin
    If(findcolortolerance(x, y, Axe1, 560, 210, 740, 460, 5)) or
    (findcolortolerance(x, y, Axe2, 560, 210, 740, 460, 5)) or
    (findcolortolerance(x, y, Axe3, 560, 210, 740, 460, 5)) then
    result := true
    else
    result := false
    end;

    Procedure FixAxe;
    Var x, y : integer;
    begin
    if(Axelost = false)then
    begin
    Axefindap := Axefindap + 1
    if(Findobject('Take A', Axe1, 3))then
    getmousepos(x,y)
    MouseR(x,y,xx,yy,z)
    if(not(findobject('Take A', Axe1, 3)))Then
    If(findcolortolerance(x, y, 206, 565, 5, 725, 160, 5))then
    MouseR(x,y,xx,yy,z)
    Mapflagging;
    If(findobject('Take A', Axe1, 3))then
    MouseR(x,y,xx,yy,z)
    begin
    if(findobject('Use A', Axe1, 3))Then
    getmousepos(x, y)
    MouseR(x,y,xx,yy,z)
    wait(75 + random(75))
    If(findcolortolerance(x, y, handle, 565, 5, 725, 160, 10))then
    MouseR(x,y,xx,yy,z)
    Writeln('Axe head successfully fixed, continuing...');
    end;
    end;
    If(axelost = true)then
    begin
    end;
    end; //End of Pwnd's AxeFinder!

    Procedure RandomLogoutF;
    Begin
    RLogout1 := RLogout1 + Random(2)+1;
    If(RLogout1 = 20+Random(10))Then
    Begin
    STime1 := GetSystemTime;
    Logout;
    Wait(5000+Random(3000))
    Login;
    FTime1 := GetSystemTime;
    Writeln('Took A '+IntToStr(STime1-FTime1)+'MS Break.')
    RLogout1 := 1;
    End;
    End;

    Procedure AntiRandoms;
    begin
    NewAntiEnt;
    Findrandoms;
    ModCheck;
    GetAxeColors;
    FixAxe;
    LookForMime;
    FindMaze;
    SolveFord;
    SolveFrog;
    FindForester;
    if(FightFound=True)then
    Writeln('Monster Found! Running away and continuing...');
    wait(4000+random(200));
    MouseR(621,132,xx,yy,1);
    end;

    Procedure FindWillow;
    begin
    if(FindObject('Chop',Willow1,12))or
    FindObject('Chop',Willow2,13)or
    FindObject('Chop',Willow3,11)then
    begin
    Writeln('Found the Willow, Searching for Colour...');
    wait(1000+random(300));
    getmousepos(x,y);
    MouseC(x,y,1);
    Writeln('Smashing Willow...');
    WillowsCut:=WillowsCut+1
    CountWillows:=CountWillows+1
    NewAntiEnt;
    wait(1004+random(304));
    MapFlaggingR;
    begin
    AntiRandoms;
    FindEnts;
    wait(3000+random(500));
    end;
    end;
    end;

    Procedure LoadBitmap;
    begin
    AntiEnt := BitmapFromString(38, 10, 'z78DADD96D10A80200C457' +
    'F6953827A8C5CFFFF4995F6B05A5D0C51241F44B6CBF4B84D1427' +
    '8E268933BD0CC9D0DCF41CF57CD5EF16E231AC21F0400D473AF92' +
    '28B902BD15846ABFF1AA77346F7174650939D33DAEE6B9347BDAF' +
    '14BF12E7FDF399853BA3174F33B6E05DBE32BEC5494A7C27C07BB' +
    'C09E1F0E61061C6F6765C817F654CB3B668465B159A485BCAFBAE' +
    '36A365D18C0F5ED80B35CE6C3392F3EBC0D1D27A03B91CD4B2');
    if(FindBitmap(AntiEnt,x,y))then
    begin
    MouseR(641,32,xx,yy,1);
    MapFlaggingR;
    wait(5000+random(500));
    MouseR(631,108,xx,yy,1);
    wait(3000+random(200));
    MouseR(669,106,xx,yy,1);
    end;
    end;


    Procedure SearchBag;
    begin
    if(FullBag=True)then
    begin
    Writeln('Going to Deposit...')
    MouseR(677,55,xx,yy,1);
    MapFlaggingR;
    OpenBank;
    Enterbankpin(BankPin);
    wait(1000+random(200));
    Deposit(1,1,0);
    Writeln('Successfully Deposited All Willows!')
    wait(5000+random(350));
    MouseR(616,111,xx,yy,1);
    MapFlaggingR;
    End;
    End;



    Procedure ProgressReport;
    begin
    writeln('|==================================================================|')
    writeln('|You are using Draynor Willow Smasher + Banker v1.09 by Surajd |')
    writeln('|If there are any problems or bugs email me on [email protected] |')
    writeln('|You have been using it for '+inttostr(timerunningmin)+' Mins |')
    writeln('|Smashed '+inttostr(CountWillows)+' Willow Trees |')
    writeln('|Gained '+floattostr(WillowsCut*67.5) +' XP so far |')
    writeln('|==================================================================|')
    end;


    Procedure MainScriptLoop;
    begin
    FindWillow;
    AntiRandoms;
    SearchBag;
    ProgressReport;
    RandomLogoutF;
    end;


    Begin
    SetupSquig;
    wait(1000);
    Writeln('You are using Draynor Willow Smasher + Banker v1.09')
    wait(1000);
    Writeln('----------------------BY----------------------')
    wait(1000);
    Writeln(' (¯ | | |¯¯) /\ | |¯¯\ ')
    wait(1000);
    Writeln(' ._) \._./ |¯¯\ /---\ ._/ * |__/ ')
    LampSkill:=GLampSkill
    CallForm;
    AntiBan;
    SetupOptions;
    ProgressReport;
    Repeat
    SearchBag;
    MainScriptLoop;
    Until(CountWillows=HowMany)
    Logout;
    End.
     
  2. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    Help with compiling

    Get a new script, that one is too old.
     
  3. natinsatan

    natinsatan Forum Addict
    Banned

    Joined:
    Nov 20, 2007
    Posts:
    400
    Referrals:
    0
    Sythe Gold:
    0
    Help with compiling

    ok, but there is one other problem, when i use an uptodate script it says can't find compas angle or somthing any help with that?
     
< New to scar quick question? | Need Scar help paying 1 mil+! >


 
 
Adblock breaks this site