Results 1 to 8 of 8

Thread: Failed when compiling???

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

    Default Failed when compiling???

    When I try to compile thr varrok auto mine I get this error "Failed when compiling" And I dont know why. Dose anyone know why?

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

    Default

    It means SCAR couldn't compile the script, meaning theres something wrong with it, meaning there's literally thousands of reasons why. Maybe you could post the script or part of the script so we could see what your problem is.

  3. #3
    Join Date
    Aug 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i keep getting like line 30: and stuff like that...i just need an auto yew cutter and banker

  4. #4
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    Well, there are too many compiling errors to even guess which one you have.
    Post full error and script please, so we can help you.
    I made a new script, check it out!.

  5. #5
    Join Date
    Aug 2007
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default i do!

    just go to file, then down to 'download srl' it solved my problem when this happened to me

  6. #6
    Join Date
    Jul 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    program StrangeEssMiner;
    {.include SSi2.txt}
    {.include boxbreaker.txt}
    {.include RedXIIsFordCracker.txt}




    /////////////////////////////////////////////////////////////////////
    // VARROK ESSENCE MINER BY SOLEMN WISHES //
    // //
    /////////////////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////////////////
    // SETUP-READ BEFORE USING THIS SCRIPT FOR BEST RESULTS! //
    // //
    /////////////////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////////////////
    //Setup: //
    //·Need scar 2.03 (reccomended) //
    //.LOW detail //
    //·V bright brightness //
    //.Have map facing pretty much north and the highest point of view //
    //.start in varrok bank (recomended near middle banker) //
    //.fill in the two (optional) color's bellow //
    /////////////////////////////////////////////////////////////////////
    const
    ////////////////////////////////////////////////////////////////////////
    //
    //
    getbankcolor=4703451;//Highly Reccomended if varrok bank is crowded //
    floorcolor=3825001; //Reccomended but not needed, used as a backup //
    //
    //
    ////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////
    // ANTIBAN OPTION'S AND SETUP //
    ////////////////////////////////////////////////////////////////////////
    antibantrue='true';//do you want to use antiban //
    messages='Mining';//what is the message that you want to respond to //
    respondwith='76 lol';//what you want to respond with //
    randomwords='1';//do you want to say some random words //
    // 1=true 2=false //
    ////////////////////////////////////////////////////////////////////////
    //REMEMBER THE FOLLOWING... //
    //1)The first letter in the chat box starts with a capital, if my //
    //anti-ban is not working this could be why. //
    //2)leave feedback and comments pl0z //
    ////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////
    // LEAVE ME ALONE //
    ////////////////////////////////////////////////////////////////////////
    TrialTimes= 10; //
    CerterComments= false; //
    ////////////////////////////////////////////////////////////////////////


    var
    frmDesign : TForm;
    usernamepanel : TPanel;
    usernameenter : TEdit;
    passwordtag : TPanel;
    passwordenter : TEdit;
    startbutton : TButton;
    tripstodo : TPanel;
    numberoftrips : TEdit;
    tripsyouset,SWUsername,SWPassword:string;
    UseQuicky,UseQuick,Handle:integer;
    c,arrow,clickhere,timestalked,play,bankcolor:integ er;
    runeshop,teleportbackup,teleport,login,logged: Integer;
    magicthingy,randomfight,mined,exp,report, report2:integer;
    bmpNecklace,bmpSword,bmpShears,bmpRing,bmpHelmet,b mpCerterAxe,bmpSpade,
    bmpFish,bmpShield,Pixels,CerterUpChars,CerterChatC hars,Certers:integer;




    Procedure checkifloged;
    begin
    if(FindDTM(logged,x,y,0,0,1024,768))then
    begin
    mouse(x,y,3,1,true)
    repeat
    wait(1000+random(500))
    until(FindDTM(login,x,y,0,0,1024,768))
    sendkeys(SWusername+chr(13));
    sendkeys(SWpassword)
    if(FindDTM(login,x,y,0,0,1024,768))then
    Mouse(x,y,1,1,true)
    repeat wait(500+random(500))
    until(findcolorspiraltolerance(x,y,16777215,469,31 9,611,359,5))
    mouse(x,y,1,2,true)
    end;
    end;




    function CerterChooseOption(txt:string):boolean;
    var
    s,cancel,x1,y1,x2,y2,LeftCorner,RightCorner:intege r;
    begin
    LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
    '411A600064715CEA914500CACE13F0');
    RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
    'C5200D30002E35F8C501C9C013F0');
    s:=CreateBitmapMaskFromText(txt,CerterUpChars);
    cancel:=CreateBitmapMaskFromText('Cancel',CerterUp Chars);
    if(FindBitmap(LeftCorner,x1,y1))and(FindBitmap(Rig htCorner,x2,y2))then
    begin
    if(FindBitmapMaskTolerance(s,x,y,x1,y1,x2,502,10,8 5))then
    begin
    Result:=True;
    MOUSE(x+10+random(5),y+3,7,3,true);
    end else if(FindBitmapMaskTolerance(cancel,x,y,x1,y1,x2,502 ,10,85))then
    Mouse(x+10+random(5),y+3,7,3,true);
    end;
    FreeBitmap(LeftCorner);
    FreeBitmap(RightCorner);
    FreeBitmap(s);
    FreeBitmap(cancel);
    end;

    function CerterFindObj(text:string;color,tolerance:integer) :boolean;
    var
    a,c,i,x1,y1,x2,y2:integer;
    begin
    if(FindColorTolerance(x,y,color,3,3,515,338,tolera nce))then
    begin
    x1:=245;
    y1:=165;
    x2:=277;
    y2:=185;
    repeat
    a:=a+1;
    if(a=1)then
    c:=c+1;
    if(a=3)then
    c:=c+1;
    for i:=1 to c do
    begin
    if(a=1)then
    begin
    x1:=x1+30;
    x2:=x2+30;
    end;
    if(a=2)then
    begin
    y1:=y1-20;
    y2:=y2-20;
    end;
    if(a=3)then
    begin
    x1:=x1-30;
    x2:=x2-30;
    end;
    if(a=4)then
    begin
    y1:=y1+20;
    y2:=y2+20;
    end;
    if(x1=485)and(x2=517)then
    x2:=x2-2;
    if(y1=325)and(y2=345)then
    y2:=y2-7;
    if(x2>515)then
    Break;
    if(FindColorTolerance(x,y,color,x1,y1,x2,y2,tolera nce))then
    begin
    MMouse(x,y,1,1);
    if(IsTextAt2(9,9,text,100))then
    begin
    Result:=true;
    Break;
    end;
    end;
    end;
    if(a=4)then
    a:=0;
    until(x2>515)or(Result=true)
    end;
    end;

    function CerterTalkToRand:boolean;
    var
    c:integer;
    begin
    while(((FindColor(x,y,16711680,5,345,510,465))and( not(GetColor(20,434)=0)))or
    ((FindColor(x,y,16777215,5,345,510,465))and(not(Ge tColor(20,434)=0))))and
    (not(GetColor(20,434)=0))or(c>50)do
    begin
    c:=c+1;
    Result:=true;
    Mouse(x,y,50,2,true);
    Wait(500+random(500));
    end;
    end;



    function CerterScreen:boolean;
    begin
    if(getcolor(359,37)=8168120)or(getcolor(163,167)=1 922399)or(getcolor(89,51)=879691)then
    result:=true;
    end;

    function CountPixels:integer;
    var
    c,Average,ax,ay,BackgroundColor,PixelCount:integer ;
    begin
    for c:=1 to TrialTimes do
    begin
    BackgroundColor:=GetColor(151,151);
    ax:=151;
    ay:=151;
    repeat
    repeat
    ax:=ax+1;
    if(not(GetColor(ax,ay)=BackgroundColor))then
    PixelCount:=PixelCount+1;
    until(ax=376)
    ax:=151;
    ay:=ay+1;
    until(ay=294)
    if(not(CerterScreen))then
    Break;
    Average:=Average+PixelCount;
    if(CerterComments)then
    WriteLn(inttostr(PixelCount)+' pixels of non-background color.');
    PixelCount:=0;
    end;
    if(CerterScreen)then
    Result:=(Average/TrialTimes);
    end;

    function SolveCerter:boolean;
    var ResultCount:integer;
    begin
    if(CerterScreen)then
    begin
    if((not(FindBitmapSpiralTolerance(bmpNecklace,x,y, 99,36,324,140,50)))and
    (not(FindBitmapSpiralTolerance(bmpSword,x,y,99,36, 324,140,50))))or
    ((not(FindBitmapSpiralTolerance(bmpShears,x,y,99,3 6,324,140,50)))and
    (not(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,3 24,140,50))))or
    ((not(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,3 6,324,140,50)))and
    (not(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99 ,36,324,140,50)))and
    (not(FindBitmapSpiralTolerance(bmpSpade,x,y,99,36, 324,140,50))))or
    ((not(FindBitmapSpiralTolerance(bmpFish,x,y,99,36, 324,140,50)))and
    (not(FindBitmapSpiralTolerance(bmpShield,x,y,99,36 ,324,140,50))))then
    begin
    Pixels:=CountPixels;
    if(CerterComments)then
    WriteLn(inttostr(Pixels)+' average pixels of non-background color.');
    if(Pixels>=342-100)and(Pixels<342+100)then
    begin
    if(FindBitmapSpiralTolerance(bmpNecklace,x,y,99,36 ,324,140,50))then
    ResultCount:=ResultCount+1;
    end;
    if(Pixels>=442-100)and(Pixels<442+100)then
    begin
    if(FindBitmapSpiralTolerance(bmpSword,x,y,99,36,32 4,140,50))then
    ResultCount:=ResultCount+1;
    end;
    if(Pixels>=715-100)and(Pixels<715+100)then
    begin
    if(FindBitmapSpiralTolerance(bmpShears,x,y,99,36,3 24,140,50))then
    ResultCount:=ResultCount+1;
    end;
    if(Pixels>=740-100)and(Pixels<740+100)then
    begin
    if(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,324 ,140,50))then
    ResultCount:=ResultCount+1;
    end;
    if(Pixels>=990-100)and(Pixels<990+100)then
    begin
    if(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,36,3 24,140,50))then
    ResultCount:=ResultCount+1;
    end;
    if(Pixels>=1093-100)and(Pixels<1093+100)then
    begin
    if(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99,3 6,324,140,50))then
    ResultCount:=ResultCount+1;
    end;
    if(Pixels>=1173-100)and(Pixels<1173+100)then
    begin
    if(FindBitmapSpiralTolerance(bmpSpade,x,y,99,36,32 4,140,50))then
    ResultCount:=ResultCount+1;
    end;
    if(Pixels>=2256-100)and(Pixels<2256+100)then
    begin
    if(FindBitmapSpiralTolerance(bmpFish,x,y,99,36,324 ,140,50))then
    ResultCount:=ResultCount+1;
    end;
    if(Pixels>=2244-100)and(Pixels<2244+100)then
    begin
    if(FindBitmapSpiralTolerance(bmpShield,x,y,99,36,3 24,140,50))then
    ResultCount:=ResultCount+1;
    end;
    if(CerterComments)then
    Writeln('There is/are '+inttostr(ResultCount)+' possible items shown with'
    +' this number of pixels.');
    if(ResultCount=1)then
    begin
    Result:=true;
    Mouse(100,y,1,1,true);
    end;
    end;
    end;
    end;



    function FindCerter:boolean;
    var
    c:integer;
    begin
    if(CerterScreen)then
    begin
    CerterUpChars:= LoadChars2(AppPath + 'CharsRS22\');
    CerterChatChars:= LoadChars2(AppPath + 'CharsChat2\');
    repeat
    c:=c+1;
    if(CerterScreen)then
    begin
    if(not(SolveCerter))then
    begin
    Mouse(449, 11,1,1,true);
    if(CerterFindObj('Talk',7039859,15))then
    begin
    Mouse(x,y,1,1,false);
    CerterChooseOption('Talk');
    CerterTalkToRand;
    Flag;
    Wait(500+random(100));
    end;
    end else
    Break;
    end;
    until(c>100)
    if(c<100)then
    begin
    Certers:=Certers+1;
    Result:=true;
    end;
    end;
    end;



    procedure solemnrandoms;
    begin
    checkifloged;
    FindBox;
    findtalk;
    findpick;
    FindDoctorFord;
    FindCerter;
    FindLamp('Mining');
    FindMiscRandoms;
    if(FindFight)then
    begin
    writeln('we are being attacked, running away')
    RunAwayDirection('S')
    RunBack;
    randomfight:=randomfight+1
    end;
    end;



    procedure walkingrandoms;
    begin
    checkifloged;
    FindLamp('mining');
    findbox;
    end;




    procedure walktoaubury;
    begin
    if(bankcolor=0)then
    BankColor:=GetSymbolColor('bank');
    writeln('BankColor:'+inttostr(BankColor));
    begin
    mouse(664,131,4,3,true)
    wait(12000+random(2000))
    flag;
    begin
    magicthingy:=GetSymbolColor('magic shop');
    writeln('magic shop color:'+inttostr(magicthingy));
    if(findcolorspiraltolerance(x,y,floorcolor,576,10, 718,159,5))or
    (findcolorspiraltolerance(x,y,magicthingy,576,10,7 18,159,5))then
    begin
    mouse(x,y,1,2,true)
    walkingrandoms;
    flag;
    end;
    end;
    end;
    end;




    procedure walktoauburyrandom;
    begin
    if(bankcolor=0)then
    BankColor:=GetSymbolColor('bank');
    writeln('BankColor:'+inttostr(BankColor));
    begin
    mouse(610,88,4,3,true)
    flag;
    mouse(644,144,4,3,true)
    flag;
    begin
    magicthingy:=GetSymbolColor('magic shop');
    writeln('magic shop color:'+inttostr(magicthingy));
    begin
    if(findcolorspiraltolerance(x,y,floorcolor,546,1,7 50,159,5))or
    (findcolorspiraltolerance(x,y,magicthingy,546,1,75 0,159,5))then
    mouse(x,y,1,2,true)
    walkingrandoms;
    flag;
    end;
    end;
    end;
    end;



    procedure Randomwalkselecter;
    var b:integer;
    Begin
    b:= random(2)+1
    begin
    If(b= 1)then
    walktoauburyrandom;
    If(b= 2)then
    walktoaubury;
    end;
    end;




    procedure findandtalk;
    begin
    walkingrandoms;
    repeat
    FindObj('Talk',1914942,12)
    wait(200+random(100))
    mouse(x,y,1,1,false)
    wait(1000+Random(500))
    until(FindBitmapToleranceIn(teleport,x,y,5,5,512,3 34,50))or
    (FindBitmapToleranceIn(teleportbackup,x,y,5,5,512, 334,50))
    mouse(x,y,1,1,true)
    flag;
    wait(4000+random(2000))
    end;





    procedure detectroom2;
    begin
    if(findcolorspiraltolerance(x,y,10855856,561,4,719 ,167,14))then
    begin
    mouse(x,y,1,1,true)
    wait(random(1000+800))
    flag;
    writeln('We have been teleported to the middle-room')
    end;
    end;




    function detectrooms:boolean;
    begin
    walkingrandoms;
    result:=false;
    if(findbitmaptolerancein(arrow, x, y, 543, 3, 760, 165, 50))then
    result:=true;
    if(result= false)then
    detectroom2;
    end;




    procedure backtoshop;
    begin
    walkingrandoms;
    repeat
    wait(random(500+500))
    until(findbitmaptolerancein(arrow,x,y,543,3,760,16 5,50))
    begin
    Mouse(x,y,1,2,true)
    flag;
    repeat
    FindObj('Use',11332846,80)
    Mouse(x,y,3,2,true)
    flag;
    wait(2500+random(1000))
    until(findcolorspiraltolerance(x,y,floorcolor,546, 1,750,159,5))or
    (findcolorspiraltolerance(x,y,magicthingy,546,1,75 0,159,5))
    wait(1000+random(1000));
    end;
    end;





    procedure backtobank;
    begin
    mouse(677,56,1,2,true)
    flag;
    begin
    if(bankcolor=0)then
    BankColor:=GetSymbolColor('bank');
    writeln('BankColor:'+inttostr(BankColor));
    begin
    if(findcolorspiraltolerance(x,y,BankColor,561,4,71 9,167,5))or
    (findcolorspiraltolerance(x,y,getbankcolor,561,4,7 19,167,5))then
    Mouse(x,y,1,1,true)
    wait(4500+random(500))
    flag;
    repeat
    FindObj('Use',140598,12)
    Mouse(x,y,1,1,false)
    wait(600+random(500))
    if(FindbitmapspiralTolerance(UseQuick,x,y,5,5,757, 491,50))or
    (FindbitmapspiralTolerance(UseQuicky,x,y,5,5,757,4 91,50))then
    mouse(x,y,1,1,true)
    flag;
    wait(1000+random(500))
    until(IsTextAtEx(185,34,'The Bank of',30,UpChars,True,False,0,0,-1))
    begin
    wait(700+random(600))
    Deposit(2,28,2);
    mined:=mined+27
    timestalked:=timestalked+1
    exp:=exp+135
    c:=0;
    end;
    end;
    end;
    end;




    procedure Start(sender: TObject);
    begin
    frmDesign.Caption:= frmDesign.Caption + '.';
    frmDesign.ModalResult:= mrOk;
    writeln('///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\')
    writeln(' //YOU ARE USING SOLEMN WISHES ESSENCE MINER 3.1\\')
    writeln(' /////////THE DAWN OF AUTOING IS APON US\\\\\\\\\')
    writeln(' /////////ANY PROBLEMS OR QUESTIONS PM ME\\\\\\\\\\')
    writeln('//////I HOPE YOU ENJOY YOUR AUTOING EXPERIENCE\\\\\\\')
    SWusername:= usernameenter.text;
    SWpassword:= passwordenter.text;
    tripsyouset:= numberoftrips.text;
    end;




    procedure initform;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 266;
    frmDesign.Top := 277;
    frmDesign.Width := 228;
    frmDesign.Height := 259;
    frmDesign.Caption := 'Solemn Wishes ess miner';
    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;
    usernamepanel := TPanel.Create(frmDesign);
    usernamepanel.Parent := frmDesign;
    usernamepanel.Left := 12;
    usernamepanel.Top := 25;
    usernamepanel.Width := 78;
    usernamepanel.Height := 28;
    usernamepanel.Caption := 'Username';
    usernamepanel.Enabled := False;
    usernamepanel.TabOrder := 8;
    usernameenter := TEdit.Create(frmDesign);
    usernameenter.Parent := frmDesign;
    usernameenter.Left := 95;
    usernameenter.Top := 26;
    usernameenter.Width := 121;
    usernameenter.Height := 21;
    usernameenter.TabOrder := 9;
    passwordtag := TPanel.Create(frmDesign);
    passwordtag.Parent := frmDesign;
    passwordtag.Left := 10;
    passwordtag.Top := 68;
    passwordtag.Width := 81;
    passwordtag.Height := 27;
    passwordtag.Caption := 'Password';
    passwordtag.TabOrder := 10;
    passwordenter := TEdit.Create(frmDesign);
    passwordenter.Parent := frmDesign;
    passwordenter.Left := 94;
    passwordenter.Top := 68;
    passwordenter.Width := 122;
    passwordenter.Height := 21;
    passwordenter.TabOrder := 11;
    tripstodo := TPanel.Create(frmDesign);
    tripstodo.Parent := frmDesign;
    tripstodo.Left := 66;
    tripstodo.Top := 106;
    tripstodo.Width := 80;
    tripstodo.Height := 24;
    tripstodo.Caption := 'Trips To Do';
    tripstodo.TabOrder := 13;
    numberoftrips := TEdit.Create(frmDesign);
    numberoftrips.Parent := frmDesign;
    numberoftrips.Left := 36;
    numberoftrips.Top := 130;
    numberoftrips.Width := 141;
    numberoftrips.Height := 21;
    numberoftrips.TabOrder := 14;
    startbutton := TButton.Create(frmDesign);
    startbutton.Parent := frmDesign;
    startbutton.OnClick:= @Start;
    startbutton.Left := 62;
    startbutton.Top := 169;
    startbutton.Width := 75;
    startbutton.Height := 25;
    startbutton.Caption := 'Start';
    startbutton.TabOrder := 12;
    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;




    Procedure progressReport;
    var
    RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
    Time:String;
    begin
    if(GetSystemTime-report2 > report*60000)then
    begin
    Seconds:=(GetSystemTime) div 1000;
    Minutes:=Seconds div 60;
    RHours:=Minutes div 60;
    Time:=inttostr(Seconds)+' Seconds';
    if Minutes<>0 then
    begin
    RSeconds:=Seconds Mod (Minutes*60);
    Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
    end;
    if RHours<>0 then
    begin
    RMinutes:=Minutes Mod (RHours*60);
    RSeconds:=Seconds Mod (Minutes*60);
    Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
    end;
    begin
    writeln('');
    writeln('');
    writeln(' WORKED FOR '+(TIME));
    writeln(' <This essence miner was created by solemn wishes >');
    writeln(' TALKED TO THE AUBURY '+inttostr(timestalked)+' TIMES SO FAR');
    writeln(' MINED '+inttostr(mined)+ ' ESSENCE ROCKS SO FAR');
    writeln(' GAINED AROUND '+inttostr(exp)+' EXP SO FAR')
    writeln(' FOUND AND RAN AWAY FROM '+inttostr(randomfight)+' RANDOM EVENTS ')
    writeln('');
    writeln('');
    Report2:=GetSystemTime;
    end;
    end;
    end;




    Procedure LoadDTM;
    Begin

    logged := DTMFromString('78DA63DCCCC8C0A008C448E0FFFFFF601A2 6C' +
    'A780CC8FAC18015C0D52C05B27E31A09983A6A601D31C4767 5F54' +
    '35FB812C1502EE5981A9C6C32B04450D00F097111D');

    login := DTMFromString('78DA635465646070026224F0FFFF7F300D1 36' +
    '5DC0564391050530364DD61C00AE06AF881AC5B0C68E6A0A9 3107' +
    'B2EE12501301643D4055E3E1158CA20600DD4710DE');

    runeshop:= DTMFromString('78DA6364C004C91136609A1188FF0301001 8E' +
    '604F6');

    end;




    procedure loadbitmaps;
    begin
    teleport := BitmapFromString(10, 15, 'z78DA3330182CC00D0720' +
    '5E1731E2C3492FB5C28AD4D8192A7A870A00000D1EB9C5');

    teleportbackup := BitmapFromString(29, 17, 'z78DA33301805A3' +
    '60700137208091A3AE1D58D722AB27462FF1EA8951499E69B 4162' +
    '7D50D03EB5ACA53C2A86BE9E35A5AE732525D325A328FBA76 78B8' +
    '76A80000F0D74AB7');

    play := BitmapFromString(8, 12, 'z78DA33302007B8110170A927D' +
    '57C5AAB2746EF60763F2DE28B780000AAE17B79');

    clickhere := BitmapFromString(10, 16, 'z78DA3330185EC0CD8D1' +
    'CF5A4EAA2C4C6C1A31793A4C45E624C187E7A2989056A0000 A02B' +
    'B79D');

    arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
    '6225E26225E26225E26225');


    Handle := BitmapFromString(15, 27,
    '564D41595145564D41544A3C544A3C595145564D41564D415 64D41' +
    '564D41595145000001000001544A3C4F4538544A3C5951455 64D41' +
    '544A3C544A3C544A3C5951455951455951455951450000012 F2000' +
    '362400000001544A3C564D41544A3C544A3C564D41564D415 64D41' +
    '5951455951455951450000012F20002F20003624000000013 02020' +
    '564D41544A3C544A3C595145564D41595145564D415951455 95145' +
    '0000012F2000362400362400000001302020564D41564D415 64D41' +
    '564D41564D41544A3C544A3C544A3C0000012F20002F20003 62400' +
    '362400000001302020544A3C544A3C544A3C544A3C544A3C5 44A3C' +
    '544A3C544A3C0000012F20003624003624003624000000013 02020' +
    '544A3C564D41564D41564D41544A3C564D41564D410000012 F2000' +
    '2F2000362400362400000001302020302020564D41564D415 64D41' +
    '595145564D41564D41564D410000012F20003624003624000 00001' +
    '302020302020544A3C544A3C544A3C544A3C595145544A3C5 44A3C' +
    '0000012F2000362400362400362400000001302020564D415 64D41' +
    '544A3C544A3C544A3C564D41544A3C4F45380000012F20003 62400' +
    '362400000001302020302020564D41564D41544A3C544A3C5 95145' +
    '595145564D410000012F20003624003624003624000000013 02020' +
    '564D41564D41544A3C544A3C564D41564D415951455951450 00001' +
    '2F20002F20002F2000000001302020302020564D41564D415 44A3C' +
    '564D41564D41544A3C564D410000012F20002F20002F20003 62400' +
    '000001302020564D41544A3C544A3C544A3C595145544A3C5 44A3C' +
    '564D410000012F20002F20002F20000000013020203020205 44A3C' +
    '544A3C564D41564D41595145544A3C544A3C0000012F20002 F2000' +
    '2F2000000001302020302020595145544A3C564D415951455 95145' +
    '595145564D41564D410000012F20002F20002F20000000013 02020' +
    '595145595145564D41564D415951455951455951455951450 00001' +
    '2F20002F20002F20000000013020203020205951455951455 95145' +
    '595145564D41564D41564D41564D410000012F20002F20002 F2000' +
    '000001302020564D41595145595145595145595145564D415 64D41' +
    '544A3C0000012F20002F20002F20000000013020203020205 64D41' +
    '595145595145544A3C544A3C564D41595145564D410000012 F2000' +
    '2F20002F2000000001302020544A3C564D415951455951455 44A3C' +
    '544A3C564D41564D41564D410000012F20002F20000000013 02020' +
    '302020544A3C564D41595145595145564D41544A3C544A3C4 F4538' +
    '000001271B002F20002F2000000001302020595145544A3C5 64D41' +
    '595145595145595145544A3C544A3C544A3C0000011D15002 71B00' +
    '000001302020302020595145544A3C564D415951455951455 95145' +
    '564D41564D41564D410000011D15001D15000000013020205 95145' +
    '544A3C544A3C564D415951455951455951455951455951455 44A3C' +
    '0000011D15001D1500000001302020564D415951455951455 95145' +
    '595145564D41595145595145564D41544A3C564D410000010 00001' +
    '302020302020595145595145595145595145544A3C564D415 95145' +
    '544A3C544A3C4F4538564D41595145302020302020564D415 95145' +
    '564D41564D41564D41544A3C544A3C564D41544A3C544A3C5 44A3C' +
    '');

    UseQuick := BitmapFromString(16, 6,
    'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000000 00000' +
    '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFF FFFFF' +
    '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
    '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
    'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
    'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
    '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
    '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
    'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005 D5447' +
    'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFF FFFFF' +
    '000000000000000000FFFFFFFFFFFFFFFFFF');

    UseQuickY := BitmapFromString(17, 5,
    'FFFF00FFFF00000000000000FFFF00FFFF000000000000000 00000' +
    '000000000000000000000000FFFF00FFFF00FFFF00FFFF00F FFF00' +
    'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
    '000000000000FFFF00FFFF00000000000000000000FFFF00F FFF00' +
    '000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
    '000000FFFF00FFFF00000000000000000000FFFF00FFFF000 00000' +
    '000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
    'FFFF00FFFF00000000000000000000FFFF00FFFF000000000 00000' +
    'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
    'FFFF00000000000000000000');

    bmpNecklace := BitmapFromString(30, 1, 'z78DA7332B17433B734363' +
    '17235347002B39149A8B891A58BB9053289294EBC4A5C24F1 6602' +
    '004B97286E');
    bmpSword := BitmapFromString(30, 2, 'z78DA7332B27431B730363172' +
    '35347002B37191986AC8137132B0743637838A83D9C8242E7 1141' +
    '2BFF9785D8E8B4D6B370300B2B65059');
    bmpShears := BitmapFromString(30, 2, 'z78DA3336317235347032B07' +
    '436378390C64488D042252EBDC8B2C86A88514F0B97E0720F 7EBB' +
    '00EC754F5D');
    bmpRing := BitmapFromString(30, 2, 'z78DA7332B27431B7303631723' +
    '5347002B37191B8D4902A4E892E52550E949B2122C8E20009 EF50' +
    'B3');
    bmpHelmet := BitmapFromString(30, 2, 'z78DA3336317235347032B27' +
    '431B740268D31C48D69A0923C1328318772B7916732008DB8 502F' +
    '');
    bmpCerterAxe := BitmapFromString(30, 2, 'z78DA7332B27431B770C24B1A9B' +
    '18B91A1A404862543A19583A9B9BE12231D510A30B8524C60 D186' +
    'C6AB919BF7A94B042120700F0A05073');
    bmpSpade := BitmapFromString(30, 2, 'z78DA7332B17433B734363172' +
    '35347002B33149A8AC91A58BB90532894B1C599612BD38453 0DD4' +
    '6B19B91C569E16600F6AC50A3');
    bmpFish := BitmapFromString(30, 2, 'z78DA7332B27431B770C2411A9' +
    'B18B91A1A505796787188087E5B2877157922A4BA190004CE 5092' +
    '');
    bmpShield := BitmapFromString(30, 2, 'z78DA3336317235347032B17' +
    '433B78490C64488381959BA985B40C5C16CE24528D78BD355 986E' +
    'A692BD9498062101C5625087');
    end;






    ////////////////////////////////////////////////////
    // AUTO RESPONDER BY SOLEMN WISHES //
    // THIS IS THE NEW WAVE OF ANTIBAN FEATURES //
    ////////////////////////////////////////////////////
    //UNDER CONSTRUCTION* started work on the 21st of //
    //december this is a working version but not yet //
    //complete. //
    ////////////////////////////////////////////////////


    procedure respond;
    begin
    writeln('Responding to the question')
    sendkeyssilent(respondwith)
    wait(100+random(50))
    sendkeys(chr(13));
    end;



    procedure createtext;
    var s:integer;
    begin
    s:=CreateBitmapMaskFromText(messages,ChatChars);
    if(FindBitmapMaskTolerance(s,x,y,8,346,211,477,10, 85))then
    begin
    FreeBitmap(s);
    writeln('succesfully found a possible question')
    respond;
    end;
    end;





    procedure RandomTalk;
    var b:integer;
    Begin
    if(randomwords='1') then
    b:= random(100) + 1;
    begin
    If(b= 1)then
    sendkeyssilent('mining lvls');
    If(b= 2)then
    sendkeyssilent('dam i really want a random event'+chr(13))
    If(b= 3)then
    sendkeyssilent('i cant wait till next xmas'+chr(13))
    If(b= 4)then
    sendkeyssilent('im saving for full rune'+chr(13))
    If(b= 5)then
    sendkeyssilent('cool'+chr(13))
    If(b= 6)then
    sendkeyssilent('how long have you been playing'+chr(13))
    If(b= 7)then
    sendkeyssilent('mining essence is slow for me'+chr(13))
    If(b= 8)then
    sendkeyssilent('allmost at my next lvl yay'+chr(13))
    If(b= 9)then
    sendkeyssilent('nice pick'+chr(13))
    If(b= 10)then
    sendkeyssilent('dam this is boring'+chr(13))
    end;
    end;




    procedure minethatess;
    begin
    repeat
    FindObj('Mine',8553104,10)
    if(IsTextAt2(9,9,'Mine',100))then
    getmousepos(x,y)
    Mouse(x,y,2,3,true)
    if (antibantrue='true')then
    begin
    createtext;
    RandomTalk;
    wait(8000+2000)
    end;
    solemnrandoms;
    c:=c+1
    until(c=15)or(inventoryfull= true)
    end;




    procedure SetupSSIcustom;
    begin
    LoadChars('');
    DisguiseScar(MaskName);
    UpChars:= LoadChars2(AppPath + 'CharsRS22\');
    ChatChars:= LoadChars2(AppPath + 'CharsChat2\');
    StatChars:= LoadChars2(AppPath + 'CharsChat2\fontsmall\');
    CWindow := BitmapFromString(66, 8, 'z78DA33304000372460' +
    '800170890F1420C63DB473333D4D264664342E06CACCE1111 7D4F' +
    '2C5E08C0BFC251BA61A4ACCA145BE20C66DD4F205EDFC4EAD 928D' +
    '76BA06BF083DE382F8D432506963A04488610FCE5C408C69F 87D3' +
    '454E28276651D754B636A95F994E76E5AD49E002F369293') ;
    MarkTime(LogOutMark);
    MarkTime(RandomChatMark);
    MarkTime(RotateMark);
    MarkTime(KillScriptMark);
    MarkTime(LeaveScreenMark);
    GasColor:=8100004;//Reference color of gas.
    LoadSSIBmps;
    ST:=GetSystemTime;
    SetMouseMode(false);
    if(SetCamera='')then
    SetCamera:='N';
    if(LoggedIn)then
    begin
    {Face(SetCamera);
    SendArrowSilentWait(0,1400+random(100)); }
    end;
    end;




    begin;
    SafeInitForm;
    SafeShowFormModal;
    activateclient;
    wait(500+random(500))
    SetupSSIcustom;
    loaddtm;
    loadbitmaps;
    FindPickHeadColor;
    repeat
    Randomwalkselecter;
    findandtalk;
    detectrooms;
    minethatess;
    backtoshop;
    backtobank;
    progressReport;
    until(false)
    end.

  7. #7
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    1. Wrong section.
    2. Only use RS scripts that use SRL.
    3. Scar tags next time please.

  8. #8
    Join Date
    Aug 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey i got almost the same problem only my script tells me: Failed when compiling
    Line 522: [Error] (15554:1): Unknown identifier 'ClickItemColorTol' in script C:\Documents and Settings\luc\Desktop\FoursYewScript v2.scar

    (yes i did file > download srl)
    but i still get it this is the piece of script where its giving the error

    Procedure StoreStuff;
    Begin
    If InventoryCount > 1 then
    Begin
    Repeat
    ClickItemColorTol(65536, 10, False)
    Wait(10)
    ChooseOption(x, y, 'All')
    Wait(1000 + Random(1000))
    If Not(LoggedIn) then NextPlayer(False);
    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;
    If Not(LoggedIn) then NextPlayer(False);
    Until FindDtm(RegularAxeDTM, X, Y, MIX1, MIY1, MIX2, MIY2)
    end;
    end;

    i hope you guys can help me
    p.s. im running scar 3.11 (coz 2.03 doesnt work for me as it should work)

    ty in advance

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
  •