Results 1 to 6 of 6

Thread: H E L P ! ! ! !

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

    Default H E L P ! ! ! !

    ok so ive noticed i had a few bad things in there and ive done a lot more editing and heres what i have now

    THIS IS NOW MY 4TH DAY SCRIPTING

    im having problems with line 103 says does not allow drawling in line 103


    // CANNON BALL EXPRESS //
    // BY Burnout //






    program CannonBallExpress;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Skill\Smithing.scar}



    // Cannon Ball Express brought to you exclusively by Burnout //

    // beta version //

    // i do not know if i added any antirandoms... //

    // might want to check //

    // that one out ill update it //

    // start in ak west bank (closest one to the furnace) //

    // loged out //
    //__________________________________________________ _________//
    //__________________________________________________ _________//



    var
    Bank, Furnace, Trip, Rock, AmmoMould:integer;
    Acc, Angle:Extended;



    // waiting //


    procedure Waiting;
    begin
    wait(400+random(300));
    end;



    // loading bitmaps //




    procedure LoadBMPs;
    begin
    Bank := BitmapFromString(5, 18, 'z78DAE5D0B10E80200C04D05F3' +
    'A34183B9272FDFF4FB2504C3AE8EAE20D1DDE11689026729C 4663' +
    'D9C704658A6457536C56AD02DD03AC367C4E76BAABE76E315 2E27' +
    'C78C8C3FD9FBF1B921D84A0BDED96DBFFFCC90586F17B6F') ;

    Furnace := BitmapFromString(9, 8, 'z78DA3330000113171373202' +
    '4823440526F666962626C440C896C0244C4CDCDDCD1C81C17 4948' +
    '97A3B991B31B10181AC3D8B4D3459A0B490D0D524900ED6F5 EC3');

    Rock := DTMFromString('78DA638C66626008604001D9EE8A609A11C A6' +
    '70C05AAF14755737C6311AA9A58A01A6F026A12806A4250D5 9CDA' +
    '5C8CAA261A530D86396140356104D4C463FA0BDD2E001D6C1 12D');

    AmmoMould := BitmapFromString(27, 20, 'z78DAAD566DAEE3200C' +
    'BC52F8B0213F9386DCFF484B3D5E6910E16DFBB4B584226AC 7E3F' +
    '160B2C5EDD9DEBFA0592E79E53DBF7F773EF22E4542B797A8 A846' +
    '39E5D4AAA1DBD537A46EE5FDCBFAEA867DACA7A66E58CD539 A54A' +
    '9AA724BAB52CE6E47892594A047378B82CF96273384EE4908 D395' +
    '6AAA22B9E526BBA46EC8623E9EFDD6A2A5C6B2971DCFF9CAA 51BA' +
    'AA3588E7284ADF4F28B6AEB35582CFC7F46089FAC39744BA9 A536' +
    '649C715AED881DA2987FF813F3F0AF5AAEF2024E74E701A16 18B2' +
    '986183C3BF5D473614576432B319FF9E4EC58E109E6D18581 4356' +
    '8831E6FCD77297867F97EC998A3C97E5F5B75947867E418D6 0CF1' +
    '4C5AACB5B3ABB1D2977D31452F05A3EC089BC7E22983D8D39 6667' +
    '983B88EC96D7F5493BFE66EC20D69023161C02E1D0F159CFC 4C30' +
    'AA19F41CBC5353E544DBCF919442CD08213F3F15E582CF81C 946C' +
    '484A2D9BDE58F10646C5CFFE66C3F0A031EE29E97C9824F67 E478' +
    'B1D70CB4AC0BE65F1EAA846D4F2D0DF23762764F44A4D4583 C219' +
    '21779C756E736675829C7F308FD9F22AA91B56E37085D0F56 9EFF' +
    '4E9F7A5C291053B0FD36F9A2DFE4C3851F5DCDFD8E219CFE1 7400' +
    'A7F1F0A070668674EE2A3286E7D9FE70664921B889B033B06 7E69' +
    'E7C129117B31A386785232F6227350ECCAF344CCC6385CF8C D055' +
    '6A770DB43AA80B79F14ED63C38A1759ED5ABD932A8914E311 8981' +
    '142DBACD52FD03236CC4030C677E5742F3BE774EAB13E4C18 203C' +
    '6AA81BEE4447CBA78C31335AEE2C4DBF6162935A66F6783AF 937C' +
    'C84CD756851B5D55CFFA2B59B11DF1BFE3505CC3FEBE163CC 33CE' +
    '871B64BA8B6793F7F76073B4C4B06306C32BCC33DA95866D7 F53B' +
    '315C2952D90774DF5CBFB1F7AF88461C2FC35B65F2187F549 B8A7' +
    'F1DC7D80F63F23FC15FE14FACDD06686C31DAE70FD8CF00FE 227B' +
    '253');

    end;




    // free bitmaps //




    procedure FreeBMPs;
    begin
    FreeBitmap(Rock);
    FreeBitmap(Bank);
    FreeBitmap(Furnace);
    FreeBitmap(AmmoMould);
    end;




    // walk to furnace (sorry only one path so far) //




    procedure walktofurnace;
    begin
    wait(10+random(30));
    if(FindDeformedBitmapToleranceIn(rock, x, y, 582, 37, 763, 155, 70, 1, True, acc)) then
    begin
    mmouse(x,y+random(2),5,10);
    wait(100+random(100));
    mouse(x,y,0,0,true);
    wait(7000+random(1000));
    if(finddeformedbitmaptolerancein(furnace, x, y, 582, 37, 763, 155, 70, 1,true, acc)) then
    begin
    mmouse(x,y+random(1),5,10);
    mouse(x,y,0,0,true);
    wait(10000+random(1000));
    end;
    end;
    end;


    // walk to bank (sorry only one path so far) //




    procedure walktobank;
    begin
    if(FindDeformedBitmapToleranceIn(rock, x, y, 582, 37, 763, 155, 70, 1, True, acc)) then
    begin
    mmouse(x,y+random(2),5,10);
    wait(100+random(100));
    mouse(x,y,0,0,true);
    wait(10000+random(1500));
    if(FindDeformedBitmapToleranceRotationIn(bank,x, y, 582, 37, 763, 155, 170, 0, acc, PI/10, 0, 2*PI, angle)) then
    begin
    mmouse(x,y+random(1),5,10);
    mouse(x,y,0,0,true);
    wait(6000+random(1000));
    end;
    end;
    end;



    // smelter \\




    procedure SmeltCBall;
    begin
    wait(200+random(100));
    if(existsitem(28)) then
    begin
    mouseitem(28,true)
    wait(1000+random(500));
    if (FindColorTolerance(x, y, 1914018, MSX1, MSY1, MSX2, MSY2, 20)) then
    begin
    MMouse(x, y, 2, 2)
    if (IsUpText('eel')) then
    Mouse(x + Random(15), y, 2, 2, True);
    wait(1500+random(1000));
    clickoption('steel bar',1);
    wait(6000+random(1500));
    repeat until(false)
    end;
    if(not(FindColorTolerance(x, y, 1914018, MSX1, MSY1, MSX2, MSY2, 20))) then
    writeln('cannot find furnace')
    end;
    if(not(existsitem(28))) then
    WalkToBank;
    end;




    // ammount to withdraw //



    Procedure WithdrawBmpAmmount(Bitmap, Amount : Integer); // Thanks to fawki
    var
    TimesChecked : Integer;
    Begin
    if(BankScreen)and(TimesChecked < 26)then
    Begin
    TimesChecked := TimesChecked+1;
    if(FindBitMapToleranceIn(steelbar, X, Y, 5, 5, 498, 323, 10))then
    Begin
    Wait(200+Random(300));
    MMouse(X, Y, 8, 8);
    wait(200);
    Mouse(X, Y, 8, 8, False);
    wait(200);
    ClickOption('Withdraw X',1);
    wait(1000+random(500));
    Begin
    Wait(400);
    TypeSEnd(IntToStr(Amount));
    Wait(400);
    End;
    End;
    End;
    End;




    // checking if items are in inventory //




    procedure CheckIfInInv;
    begin
    if(existsitem(steelbar))then
    begin
    writeln('walking to bank');
    end;
    if(not(existsitem(SteelBar))) then
    WalkToBank;
    end;




    //////////////// M A I N L O O P \\\\\\\\\\\\\\\\\\


    begin
    setupsrl;
    waiting;
    loadbmps;
    waiting;
    begin
    CheckIfInInv;
    waiting;
    smeltcball;
    waiting
    walktobank;
    waiting;
    openbank;
    waiting;
    WithdrawBmpAmmount(SteelBar, 26);
    waiting;
    end;
    repeat until(false)
    waiting;
    freebmps;
    end.

  2. #2
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    Er i dno if it works, but it doesn't have multi player or basic anti bans, Pretty good starter script from what i can see

  3. #3
    Join Date
    Mar 2007
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you ive gotten it all the way to the end debugging it at the end i can figure out what identifier i need or whatever i edited it above please look agian also note that i plan to add anti bann and multipul chars but i want the basic script working first

    I HAVE ONLY BEEN SCRIPTING FOR 3 DAYS BEFORE I MADE THIS!!!

  4. #4
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    begin
    setupsrl;
    loadbmps;//do it once for less lag
    repeat
    If(ExistsItem(28)) Then
    begin
     walktofurnace;
     smeltcball;
     walktobank;
     openbank;
     wait(400+random(200));
     WithdrawBmpAmmount(SteelBar, 26);
     wait(300+random(400));
    end;
    if(not(existsitem(28))) then
    begin
     openbank;
     wait(300+random(300));
     WithdrawBmpAmmount(SteelBar, 26);
     wait(300+random(400));
     walktofurnace;
     smeltcball;
     walktobank
    end;
    until(false)//repeat with no until? you can make it repeat until loads = loadstodo or watever so if will stop after so many loads.
    freebmps; //once when its finished
    end;//dont know if you need this, if you ge an error take it out
    end.

    ok, you had repeats but they had no untils. it should work with this new main loop, i alse reordered it a bit so is a bit easier. please use standards, capitalise words like gotobank; GoToBank; is so much easier to read and looks alot better. also for moving the mouse use MMouse(x,y,0,0) the 0,0 is randomness in clicking, set it to like 3-10 depending on the accuracy you need. for clicking the mouse use Mouse(x,x,0,0,true), true is left or right, everythig else is explained in MMouse. the procedures you currently use are very detectable and will get you banned. Nice first script to, very nice infact.

    Edit:use scar tags for posting scripts please, edit the post with tags around the script. if you dont know how then you put [CAR]Script here[/CAR] but instead of CAR put SCAR

  5. #5
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    ^ Yeah im not much of a scripter but i can do mean 12 hour proggies
    If it had good anti ban and multi player i'd help test for u

  6. #6
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    put this in script help section

    They are sisters...
    Runescape Classic

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
  •