Results 1 to 3 of 3

Thread: Problem?

  1. #1
    Join Date
    Dec 2006
    Location
    Birmingham/UK
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Problem?

    SCAR Code:
    program Fletcher;
    {.include SRL/SRL.scar}
    var oaklogs,willowlogs,knife,oakbowsshortun,willowbowsshortun,oakbowslongun,willowbowslongun,strings:integer;
    const
    withd='14';

    procedure loadbmps;
    begin
    oaklogs:= BitmapFromString(24, 16, 'z78DAB595518EC3200C44' +
           'AF446C6CCC2709E1FE475A367655479488DDD5B6D27C44D4F33A3' +
           '64ECC31608C4EC3F7672B2242676161AA0525D291762AB0674C5B' +
           '841CB83DE8CA19A79258F04C8D0366CFE075E431AA46156AA6841' +
           '1CDD7EB32C3C8C33B019A7B826F03AF1FF2F9071255F3252AC88C' +
           '51A057248094321DF8D2834E4C1219A0C9460DAAEA8D67A8CC420' +
           '19AFE536E4478F3F295B53BB231E2DE5D080F4BE9E2B1343601DA' +
           '73ED49889E7FFDEA4D3226A9BEBF7397C2059BE9C1356ECAB36FD' +
           '238965D0AB55777DE3C7446822D4522C8FEF9075D77770C5EB963' +
           'F47CAAEC1C8CE7CA6AE4D1DEE92DB3FACF3ABA3F9258C773AC404' +
           '6729BDE37C9ED965D3DB50EBA29BAD55F66F024C673F60924EF98' +
           '4F09546E3CB3BB36E3F1540B0C7E6BD9CD124A908DE79AE72CBD3' +
           '3749BF6479E29D50283AF63FB476755F562D37C6CBA9E7916A8A6' +
           '9BD09D5192D97E5ED9D52B5B71ECE0CC0503F4AF7F73E913AF3E3' +
           'D4FA5F97CD8D8CAE06678E63BD338BC4F6FDAEF2DA2D6D13BE579' +
           '66DD5F71D7CA1FF491C4AB65354CF29FDC57786627192B2E25F00' +
           '3F741BF00DB0AEE73');
           willowlogs:=BitmapFromString(16, 18, 'z78DAAD94519284200C44' +
           'AF444888F2B928DEFF48EB1A6AAB9D80C5D48C56F587E2EBD024C' +
           'ACA9539FC5D948EB4B22EAC596809AA5C93CA4E478A926943952A' +
           '897E50FD9AB612F848BEF1072E1DC5F5973EF3356BE0327471B42' +
           'FF0475A12F59E1B79C46F2EBB0A6F8DE0F5B9FEC49516D34EFD1F' +
           '901B3F4B3C7B00B473CA8F4C2E2C24429CCF3A4DA166ABD072C67' +
           'E43F2ED5BAF406BEAAA3597977EDEE2AE9C0A2F7E8F4375738169' +
           '787E73B72E9AE97FA798F33F7F8D65D44B9D5398E0BFE4D3E5DF7' +
           'AE95DFE95806AAA9C31998FF8D75B3B4123B7E4556A3CDEE03FFE' +
           '37707E6766796AB2C08B433C6F54E3DBBED0A54DCA444A58E7D9B' +
           '781C56BDBC5443E7EEF58ED888F2E9E3CA279F22F410C72A8');

           knife:=BitmapFromString(5, 5, 'z78DA7D8C310AC0300C0' +
           '3BFA436896C8D4EDDFF7FA9052F864235DC700702DE1D7652944D' +
           '6E869137335CA90BBF75AD2178B1FB187259AF9DF5F9F5DCD3915' +
           '51F9561201E');
           oakbowsshortun:=BitmapFromString(33, 28, 'z78DACD974B72C4200' +
           'C44AF244680F0127FE6FE470A199C9488078FC040EC85162ECAA5' +
           'E7866EA11D6E883A568B2B3EE0FB51763604EBB4D153A9F826D6B' +
           '8E64DE5DFF9AF7AE88A776EC920B809C89C109D7F7FD2807A64FF' +
           'BC223C200205163400CE59BBBED528D7F9791D429153C76C7A014' +
           '764211079DA52A29D4B42D18A454C715487EF377A5A1B88909C52' +
           '9E9C53BA806538053F054722E3F5F4B3EBE29BB8A6B8FF52C7A8E' +
           'AFFB8F3770AA34DD065B6BA09859CA5B4F3D3F3CB59DC42A8F267' +
           'A4B49F2B14E2FE130AD0EAA3227514923E4BFDFF94654F19E6C98' +
           '328E455E03C5C179E98598A3A9FA9A390A700D725CE3344B3CAA7' +
           'E415963AC7AE62D11E97D4872B3D2A473192C562C8149EF80D32A' +
           'E557A8AD3F9CF3C19882EB1F4982DC5E9C6F758E2C67798F08F2C' +
           '9935DCC16E4A21AEB17FAF9DF99D1EEBFED80D28E29C5FAC488F7' +
           'BCA659624E59BFAC9500AE6BD22450A7DBE375D36DFC5F782FB10' +
           'ED8ABC6E8B8922FD283AB0EC14AFB991B334DE510359F80D2B7B4' +
           '6EE4FE10954C2D29DA21B0BD76290221D583EF4CFEA176BF68BD5' +
           '');
           oakbowslongun:=BitmapFromString(30, 27, 'z78DAD5D7598EC3200' +
           'C00D02B416D30F9244BEF7FA44181199949681D16356D257F20A2' +
           'BC588E4DD0C20A0F3C44508FF0DF7FDA8251CA396B57B54E1B3DB' +
           '58EEB31A2830D208B132AC037F178953C16CC3C72A1D970518EC8' +
           'AAE0F7B4E5FEF41412738B5C603E663EE59F0C04FFD3DAE007725' +
           'A7B724EE305F960738AFB5547BFF138FDD64F5C897B2E6BD95D3A' +
           '980B159BCC064DC8F96CB18BF9B55CEE7CF99671B95B0874B9B6A' +
           'F4A5A76BEEC09C9AC50BFCD769D59B272D1CCE5F1DDE45D718859' +
           '1E05DD80E77C5264FEC93BF5815EDA939CCF864227249A757906B' +
           '574836172F4B0E49DB0B26FC4F5BADE5E27B7107A389F9E95D3A4' +
           '65EE4BFC6C6736DF777FA5BC5714CF0E5E2D593FBC83BCB087779' +
           '55B98C5316A3D3AF377A6FA12733CD97E63B6B389D9A902879B59' +
           'F713657BF47790C07C322BC527E14FF953B6F72F9D2CDBBDCC03E' +
           '4C9BC9FA6B8BCD7141E2DE7DF0BC5DABE9BD993D299BCB379989C' +
           'E7F924DBEDE601F2A2F6B3796EB8E30F29F6FB0A');
           willowbowsshortun:= BitmapFromString(39, 20, 'z78DADDD85D6EC3200C0' +
           '0E02B059BF9E7B111E9FD8FB42C66121323692990A6ADE487480D' +
           'F96AB0DD7AC105D1E751FD84BE412CDD3F89D3CFCB89E31B04767' +
           '403B62B38C1FA6EB5CA41EC2C8DC62084202213DCD9D302FAD952' +
           'BE3343A08518BE864AFB19090382451329CB82249EC39AD36BEDD' +
           'EFD7B26C6B86FED840A3B5052F28373DA4D1A8D96C14D6757D268' +
           'C62B4A53853AD1DF9CE6AE138C8DA43183B3203AAB39255DE5BA6' +
           '7494B5D72660FF33F3BB3E98ABDA5F929FB73120B791C54FDAAA4' +
           '45D1B633ADEF9B2EE67133E6D9EC388FBD503DF24A12FB424157F' +
           'A6C83F3D8541A45AA0E4951E6F5410ABA47440735E71DA489AE52' +
           '6453D09849ECE58E5099A3B326CF27635A330F6AC8FE4CDBEA1BE' +
           '83C933FD41176E7F66B792BB339C638E417E5411EDB4AF79F67CC' +
           'BF2225E3C89C3EE9FD061BD1CAC7');
           willowbowslongun:= BitmapFromString(23, 21, 'z78DAC5D6DB0E83200C06E' +
           '057A2B4407BB9E97CFF47DA812D2999E5B00DA749638C87CF1FA9' +
           '92904322C60B62BDBAFB0211C2E25190CF18F21EF3AC7C65AB5AC' +
           '7BC5F27E28AFEBD3EEFBE10C39953DA101A9E9E5A4FC39014F9C4' +
           'E87CE095E36BCF411263BC880941D29AA25F3FF47C2D293C881B8' +
           '83896E6FB63BD4B7543F773E5BB6BD5B0C7927C34E27ABCF2363A' +
           '7F5B0724DD63D12579CCAC6149758E7CE31111401EE8393F35684' +
           '990401E7692B17ADD0449918CEEC6F5AE3B5BA2E6F533993F4976' +
           'FAF0E112EDE1132342239963248F6FA5F634243F35EC78282D7E3' +
           '393996C282490C46FDAD3F8EE4CF6E84C8A640E94E4BA63F89364' +
           'E0AFA0E7EF6582E70A573D6316');
           strings:= BitmapFromString(25, 21, 'z78DAB5964B1284200C44A' +
           'F240485594E9573FF2BCD874D5B994E05215AF5360A3E1B08D474' +
           'B472B652DBFEECDCBE57922D7FEECEF2289B940B9BBC4486A9FB2' +
           '1ACCA0ADD3A690F616E694F39E5EE366078CFC76D885F1C359C27' +
           '73C3F9C3DA32C3795EDCCCF4D0D3B6C5843BEDFF72CD90C175A16' +
           'DB5337BAAE7866DE8B7B257E2A592E0881C724AD6A96A43F45C65' +
           '45F9B34237668889855B29E2C8B2710CB1827C5856CCA7A717929' +
           '269123EDB8995BF26E894D656E9F9AA8BB525A262B31C6CA295E7' +
           'FD797A12F6EF26ABC8F6054DDC71FCAD66B8E00CE658F57F187CE' +
           'E1AF689B6BA97D252AB37C29D8610');

           end;
           
    procedure oaks;
    begin
    OpenBank;
    DepositAll;
    FixBank;
    wait(4000+random(30))
    If(findbitmap(knife,x,y))then
    wait(1000+random(30))
    MMouse(x,y,1,1)
    wait(4000+random(260))
           end;
    procedure willows;
           begin
    OpenBank;
    DepositAll;
    FixBank;
           end;
    const
    mes='27';
    procedure cutbows;
    begin
     mouseitem(28,true);//knife is going to be there
     mouseitem(27,true);//Log of oak or willow there
     Mouse(265,409,1,1,false)
     wait(1000+random(400))
     Mouse(250,430,1,1,true)
     wait(1000+random(400))
     typesend (mes)
     wait(49000+random(30))
     
    end;

    begin
      SetupSRL;
      Repeat
      oaks;
      cutbows;
      until (isfkeydown(12))
    end.

    i cant get the banking procedure right =[ with oaks i havnt tried making willows yet im sure its the same with different bitmaps

    also i dont no how to make procedures choosable at the top of the script or anywhere i wanna make options so tht people can either choose oaks or willows to cut by forms but i have had a go at forms but cant get a grip of it so i failed there can any1 creat 1 so that i lets u select what logs u want cut and strung i will give u some glory by adding ur name to the creators =] when rleased

    i will be gratefull if some1 can help thnx


    BTW i forgot to add this u need to have the logs u want cut which includes a few unstrungs at the top of the bank also u will need more than 1 knife as it is going to be a stringing procedure aswell as a cutter =] and everytime u with draw the knife if u have 1 when it banks it agen it wont find it because it scrolls to the top so make sure u have more thn 1 for stacking =]
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig<BR>
    http://www.draynor.net/skill/underse...dvance_war.png

  2. #2
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    what about you make a const for the willow or oaks... like
    SCAR Code:
    const
    willow = true //false for oaks true for willows
    Infractions, reputation, reflection, the dark side of scripting, they are.

  3. #3
    Join Date
    Dec 2006
    Location
    Finland, Salo
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You can make if statement something about this.

    SCAR Code:
    If (tree = 'true')
      then...
    else....
    And if you want it to hold more than 2 trees then this :
    SCAR Code:
    if (tree = 'oak')
      then ....
    if (tree = 'willow')
      then ....

    After "then" you should add your script for like to oak bows...
    and in if else statement you should put willow code after if then and oak after else..

    I don't quarantee that it works, but I think it should if you do it right :-).
    And also I don't promise that it would be the best way..

    Btw. what is wrong with your banking procedure? Would help me to solve it.
    Good to be back in SRL

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. problem...
    By Blumblebee in forum OSR Help
    Replies: 4
    Last Post: 12-28-2008, 07:22 AM
  2. help big problem
    By goblanca in forum OSR Help
    Replies: 3
    Last Post: 05-19-2007, 10:41 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
  •