Results 1 to 13 of 13

Thread: SolveNewBox(answer : string);

  1. #1
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default SolveNewBox(answer : string);

    Yes i made somthing where all you have to do is input the answer.

    there got PART of the box solved eh .

    this will only work if it detects a newbox within your inventory. otherwise it states that your clear and keep macroing.

    so i guesse this is just one step closer to destroying it!

    i made this script all by myself everything is completely original except for a few things from SRL like variables and mabye an SRl procedure here and there but i dont remeber using any.

    so without further delay heres the new box solver!

    Code:
    procedure SolveNewBox(answer : string);
    begin
      LoadBoxBMPS;
      if(detectnewbox=true)then
        begin
          wait(5000)
          getquestion;
          getanswers;
          reported;
        end;
          case answer of
            '0': findbitmap(a_0, x, y)
            '1': findbitmap(a_1, x, y)
            '2': findbitmap(a_2, x, y)
            '3': findbitmap(a_3, x, y)
            '4': findbitmap(a_4, x, y)
            '5': findbitmap(a_5, x, y)
            '6': findbitmap(a_6, x, y)
            '7': findbitmap(a_7, x, y)
            '8': findbitmap(a_8, x, y)
            '9': findbitmap(a_9, x, y)
            'Star': findbitmap(a_str, x, y)
            'Triangle': findbitmap(a_tri, x, y)
            'Circle': findbitmap(a_cir, x, y)
            'Pentagon': findbitmap(a_pent, x, y)
            'square': findbitmap(a_sqr, x, y)
            'UNK': Unknown;
            'R': Randomchoice;
          end;
        mmouse(x+5, y+5, 2, 2)
        clickmouse(x, y, true)
      end;
    thats what the procedure that can be used to figure out the box is... all it needs is an answer input

    saves the question under a var called: question

    saves the first answer tab under a var called: answer1

    saves the second answer tab under a var called: answer2

    saves the third answer tab under a var called: answer3

    EDIT (updated code as of april 26)

    Code:
    {.include SRL\SRL.scar}
    
    var
      box, a_0, a_1, a_2, a_3, a_4, a_5, a_6, a_7, a_8, a_9 : integer;
      a_str, a_tri, a_pent, a_sqr, a_cir : integer;
      q_0, q_1, q_2, q_3, q_4, q_5, q_6, q_7, q_8, q_9 : integer;
      q_str, q_tri, q_pent, q_sqr, q_cir : integer;
      a, b, c, g : integer;
      d, e, f, h : string;
      question, vary, answer1, answer2, answer3 : integer;
     
    
    
    procedure LoadBoxBMPS;
      begin
        box := BitmapFromString(25, 24, 'z78DAEDD6D10A83201406E057F' +
           '29CFFA8ED7296BEFF232DD48BC26CB6598391C24F20E2A7181EA5' +
           '3E6ED490D7B4BC224698B9EFE6C9E60D8928383801264C390D024' +
           '2FE4EA331E131CCBD8FB97E266995987AD06AEE5F275B1696C2BC' +
           'F294120EECD8E1098174933079F2CB553464943165794C2B4FDC4' +
           '52F49F62872E46A9E4245E5E8326BB7BA45420FB264F725E91E1E' +
           '557D66DED84531D76AE38C4BD95775349792769504B1626B7353E' +
           '613887FC12A2D68EE31DB3DBD546FCC60CFFE56DDAA5B75ABFE49' +
           '75F4753E4F55A95ECAAA8F7ABD65FBAA5CA76D7BAAF5F0956FF4C' +
           '11ABE5A51FFC873BAB9C5F30299A4FF06');
           wait(15)
        a_0 := BitmapFromString(7, 10, 'z78DA333040002727274B134B' +
           '64D2000360CA122382CB7C4A54E2B2913C95D4722DA961424CC80' +
           '3008CD15BD1');
           wait(15)
        a_1 := BitmapFromString(6, 10, 'z78DA333040002727274B134B' +
           '08698001906531D560CAE2328718BB86961A5C7E472601EC5A4B8' +
           '5');
           wait(15)
        a_2 := BitmapFromString(7, 10, 'z78DA333000012727274B134B' +
           '4CD20009902A8E0B10AF9E189543518D01DE30C724018D8F575D');
           wait(15)
        a_3 := BitmapFromString(6, 10, 'z78DA333000012727274B134B' +
           '4CD20043D60009E012A75C0D7EF750D72EFC6A88F73B7E5D00D08' +
           '74C69');
           wait(15)
        a_4 := BitmapFromString(7, 10, 'z78DA737272B234B174029306' +
           '7881D32053894B2FAD55E22769111A00D1EB57F5');
           wait(15)
        a_5 := BitmapFromString(8, 10, 'z78DA333000012727274B134B' +
           'FCA40112C0258E0B50A29E54BDE4D9487F7F51224E7C2801003B9' +
           '762E9');
           wait(15)
        a_6 := BitmapFromString(7, 10, 'z78DA333040002727274B134B' +
           '64D2000360CA1223820B90A712BF3B71C992EA4E62ECA25698E0B' +
           '7050053935971');
           wait(15)
        a_7 := BitmapFromString(9, 11, 'z78DA3330A014383939599A58' +
           'E227C9338D16EA476DA1B52D0016987681');
           wait(15)
        a_8 := BitmapFromString(7, 10, 'z78DA333040002727274B134B' +
           '64D2000360CA1223423B13E869CB40F90800CFB559BD');
           wait(15)
        a_9 := BitmapFromString(7, 10, 'z78DA333000012727274B134B' +
           '5CA401861A030C805F2FE52AF1BB811871626C24C64CFAAB04004' +
           '6FE58D9');
           wait(15)
        a_str := BitmapFromString(28, 12, 'z78DA333018AAC0C9C9C9D' +
           '2C412991CCC2EC425825F9CFE2EA4AEFA8172ED604815C4B80133' +
           '0DE3524F0B95C4BB9654BF902A4E6A4C519E8F70851275F326256' +
           '652129E94974803EB4EF2520825B963F094C9D405006B519430');
           wait(15)
        a_cir := BitmapFromString(37, 12, 'z78DA33301859C0C9C9C9D' +
           '2C412991C0C2EA1856903EB476AD93E18626AF0F88E3EA131D8E2' +
           '0E33CFE232931895949B40DDB8A3AE5DA4FA9ABC50A2DCDE51DF5' +
           '19242C8B39716A144BBB8A3566D4EB9BDB42B55065BBD463B0000' +
           '052B152B');
           wait(15)
        a_sqr := BitmapFromString(44, 14, 'z78DA333040002727274B1' +
           '34B64D26084014CBF8FB4D018C9B13F1A1AD40D0D62CA135CB2C4' +
           'EBA2BF4AE24383F8F2849EE2D48D8B81F517FEB8A38F5F0643385' +
           '0373C890F55F26ACCC1992F282FF7C86B41D1A78CA23C5F906AE6' +
           '68CD3B1A0EA3E1301A0EC800006C21E077');
           wait(15)
        a_tri := BitmapFromString(51, 14, 'z78DA737272B234B174C24' +
           'B1A0C3B402DDF0DEF501A0DB1E111624325CCE91362949772C49B' +
           '405EB94A9EF9F43487781328114796A585F9B410273E25532BE50' +
           'C7571CA436C288A5337578E8410A36EC93FD87225B5CCA7A4DE19' +
           '6D778D4C301A62D42A3F4701B5DAD8C400007FDF5A0E');
           wait(15)
        a_pent := BitmapFromString(60, 14, 'z78DAED963B0E00210844' +
           'AFB4C536B6DCFF501EC0B80161902C43614126511EF21191F10E5' +
           '9CE87166A2BDBBBB4FF9AEB5D5CB7E2256772CEEF1BA2EEEA3BA5' +
           '55EF51A2F59A183DB75BFD9A6CA2DF80F67BD85688C5532975F89' +
           'F71B6D65414E7CA3C119C33FF7F37CEE89AFDEE7888091B3B913B' +
           'EC4EDC21C9B9334F7246D3CE273C016D66F14E');
           wait(15)
        q_0 := BitmapFromString(71, 16, 'z78DAED973B12C0200805AF6491C' +
           '696FB1F2A2748023E6470B2AFB030A3822B9F8C8110FA9699CD6B' +
           '3E8DDC4F3746D1AFE7FAD53946D67C8154A5858ACD90AAB44DA93' +
           'B90EA4F2A9A1B957CEB5FB57696DFF7DDFBBFE7BDE81B53FC5A23' +
           'E29F57CECA7D45B9992A4A2A2BEE7A92AA99D7FB3D48456364DFF' +
           'F0BA42A6344EF5872BBF45C524AD55648F96B8A7F55D6ADEEEBF7' +
           '1042E89FBA01FC7C42E0');
           wait(15)
        q_1 := BitmapFromString(71, 17, 'z78DAED963112C0200804BF649' +
           '1C6D6FF3F2A6D9A382008E8EC1629CC10310778AD01C08C31467F' +
           'FADF93FF534D23EDDB3BCE583F4F49FE289535D36EADC6734FE17' +
           '5E3A054FD3CB5515A4FB23693E7BB68A3BCAA3DAB2FECCA7E63B5' +
           '8AC8D72D7BF95691975B5EABA2DDBE2557A99875948A54CA32C95' +
           '12AABA7763B9618E7E3EB1024DF5F534A7EA7C8A3BC2A3CBE8B01' +
           '000072790141AE8DB4');
           wait(15)
        q_2 := BitmapFromString(70, 19, 'z78DAED98B10DC0200C0457A24' +
           '843CBFE43650224C3DBE489EE8A144488872318A53500805B1963' +
           'F4A7CF9EAC8F8F9DD5B737CEC8F98BD89B0B8ECE645332E3C83F3' +
           '98E9C93C7CF49E55C554659ED555123B2F643AE9D59CE3D17F176' +
           '65ACDCFDE36FA7DA4585A333ED6ED5E7AF8EB2EEC3751513473E2' +
           'BFCD53D5FD9AB7B8EE2B523DE2BCB919E933F30000000A0F00253' +
           '0818BB');
           wait(15)
        q_3 := BitmapFromString(72, 13, 'z78DAED983B1680200C04AF446' +
           '143CBFD0F65612D2F302101DE6E61C12F0B83012D458A566BAD3E' +
           'F57B8ED6DE31C7DD1CFEB9B5CC42BCB2BCCD7916AFB33C8BD7299' +
           'E49FB7E1E2679A01F65B4173F53C8F85E2378459CE3622F27B17C' +
           'F7122145289088EBB8ACE015532E5EF1BC486E17AFDCF76B8775C' +
           'BFD8E207B788E97FDACB1F7E26BCB6F44FAF32349B97A015E7D5C' +
           '2D')
           wait(15)
        q_4 := BitmapFromString(72, 16, 'z78DAED98B111002108045B32F' +
           '8C494FE8BB2026784135F99BDC0405FC05F51C6D61042A8A6CCAC' +
           '7F7DD6F27FEE24E51DADB1C657625BF9125E6FC5062F78C12B233' +
           '6AF1D6FC5321B5D9F15F315BB2F32ECCFD6AB5B88F18A7159EF57' +
           '7CEDDD4B4A45ADF05272338F4B06AF33FDF03ACF4B39DBF57BE48' +
           'CDFAAF955A9C6DB5B3FC4CE8D5DF9E29DF5172FDEA010BA4103C0' +
           '9B5104');
           wait(15)
        q_5 := BitmapFromString(71, 17, 'z78DAED983B0EC0200C43AFC4D' +
           '08595FB1F8AB50B9249301FE979E8004D213C522C4A4127D55AAB' +
           '5F1D3D599FDB18CDF6BE9EDDCDD5F19FB39205A45E991BA42005A' +
           '955AE408F9D7523A35E3D2A36563E23DF6AC7F655E67DE51CCCB7' +
           '67C65ABB8B1C3ED9E71F7C441CA4F6B4436A27A9CC9F1C52A76AC' +
           'AE15876D6A9C32128DF8F91D2CF143D6AAD8B88791E6E6F104208' +
           '21E45307450D8E98');
           wait(15)
        q_6 := BitmapFromString(72, 16, 'z78DAED98B90DC02010045B227' +
           '0424AFF45B902A4E37679351B3800C13D63CCCAA5A09D6AADD5AF' +
           'F69EF4E74C52A3B3B75777F279C9D502AFF5192A39C3EBAEDCE07' +
           '54B6EF1DD46BD4A6F36BE2A174BAFC8B5BFD7E3E971735CE2E34A' +
           '2CEFBBE4EA73EEFEF2F23D93D79AF135CE1C5EAE6F3BBCF69EAF7' +
           '99EC1EBE767F052EE748557FCAE89AF72F556772CFCF9410821F4' +
           '9E7E069F5280');
           wait(15)
        q_7 := BitmapFromString(70, 15, 'z78DAED97B10EC02008447FC9A' +
           '18B2BFFFF511D3ADB80472F60EF06078D0879855CC790D832B379' +
           'CD678D9E76AFAE4E6E9EB5638DDD1965E52C46F5B315A3333A283' +
           'A4557A7FE5B7B6FE11565C5E7CFB755865116FE7DE4ADDCEF07A7' +
           '8374041EBF2623CE7E3587702A23646E8B11BF8FBEF0244C3F93E' +
           'B013CF1F718EDFD15BEDFE233EAEEB4254992A4FFE80688D2DAA5' +
           '');
           wait(15)
        q_8 := BitmapFromString(73, 20, 'z78DAED983B12C0200805AF649' +
           '1C696FB1F2A277086AF41B35BA4D021884F84710C0080BF2022F3' +
           '99AB2FFBD3592FEBEC1D3176CE1D5F2CA8F6D50A236B46B513EF3' +
           'A543B2BD7AC56D67E6635ABB7F2F9D2C755FD7F5F5DCB3D992B8F' +
           '5675F4E3115FB9272A572FAB0A1515B0A76A7BC6F7D43554CBBDE' +
           'D51AD43AED5753BB99D7F9D6A918A1F514D5F83F456593BECAB8F' +
           'BC6201000000401D2FC819AD5B');
           wait(15)
        q_9 := BitmapFromString(76, 16, 'z78DAED973B1280200C05AF446' +
           '143CBFD0F656B8343BE10665F6181A3E1B10492D6D01E8D31FAD3' +
           '674FD6A71641E9DB5B5DD7CAAC152F70BC23B3E00847389EC0D1E' +
           'E545A3BE9CEFFFF28D2AF748EBCFE6F5F8D88BD3A73219DE1FAB8' +
           '2596EF1EF3AAF9757D84EF6913C72B8263CE78CE8D00C7F5FCDAD' +
           '5AFC13133BFF672CC89E855217871D4DD3BF6DEBC4A3E22841042' +
           'E8AB17E61D99E8');
           wait(15)
        q_cir := BitmapFromString(70, 13, 'z78DAED58390E804008FCD21' +
           '636DBF2FF47D99A1836DC8C060A9B350CCC2C87AE35D66F44B4AF' +
           'CD3D871F1C75B8D3286F5DF70D93DB280FCF53F9FB5DCCBCD1D1E' +
           '2C943C1D708B3338F461EDC4AF6F250CE7D8343B7ED1EFE5D258A' +
           '0D79245A3662B3B6219EE7B5D667765DC8EF98072B236B7F6C515' +
           '12168E4C7FA9F4695BD0E47236DD6387594BD7B63D651CD1762EC' +
           'F4B465E1992936FE2BB39EFF3FDFB51B5A654069');
           wait(15)
        q_str := BitmapFromString(65, 16, 'z78DAED573112C02008FB924' +
           '31757FEFFA8BEC09E3484C65E32B8E81D9140C4318C7A44C4BCE6' +
           '6A757E3AF39FDDAD8AF255A5E9E7BFFF4CE74D577C341DE07415B' +
           '271AD82821627FAD5F3CB8EBFFEB5D3426D44C6497617AF3864FD' +
           '99AD05D2D7FB15C8E84736F3CE990D77009CB3A60A8C0913C918B' +
           'B72F47B8137A3EADF05FF13BD6358D5118833E3DCFE312D1B8661' +
           '18FAB801BA87CC6D');
           wait(15)
        q_sqr := BitmapFromString(83, 17, 'z78DAED98410EC0200804BFE' +
           '4A117AFFCFF517D4113292C129D3DF4D01A951D25D03110420875' +
           '9799CD677E3DF1E754D6DEAF59ABEC3AD5B0DE3BA6325232D8A9C' +
           '4217B1B71B82B5C5AA9F7FE5586B995A47786957557E28DC4A518' +
           '99EB8CD73DAF6335DC75FB8CBCCF3D75113F2333D713DF4BD09BF' +
           '114DEF627AEE8AA3ADC590535AF57FDEF784D5FD633AB77EE83EA' +
           'B39FE2DF8BAE6ACACDEA59B531DD0ACE401CE210BF412F90D47E8' +
           'B');
           wait(15)
        q_tri := BitmapFromString(87, 18, 'z78DAED983112C0200804BF6' +
           '491C6D6FF3F2A2F7006BD1305EE8A143141D415185A93244992AA' +
           '688CD1BF3E7B6A7FAA31B03A8A58F6E7392BD5F8EA2C1666DF20F' +
           'F46D99F3A2420B3880491508784282C9DF6D35E3F5868B1E76B56' +
           '7EC7FDDFAB4958D5F89E7DEE4A59F77D36FB6A9CC14FCAEE1BE28' +
           'FFD469CB3EF1FCF4F549BB748E04695774E3607099ED9E116C99E' +
           'EF57F7F3CD9870AB4F928904FF4E0EEE212B32C4CD0E2CFBAC7A5' +
           '5DDD79A7D03492448514E5C2488873719F801D7AA38DA');
           wait(15)
        q_pent := BitmapFromString(98, 17, 'z78DAED983B1680200C04AF' +
           '646163CBFD0FE509F405925DA3CE1616C8D310867CD83684EE34C' +
           '638F6E3EA897FD02C45B36FF3DFF79F0E76DC4F5115691D587AD6' +
           '920E7FFF46D4EAC3524F7B60099660499701237B17AF5EF2D5CE5' +
           'A8E8BFF77765D8A99EAF9F98E2C3E7FCDF2B5B8915945267EC6CF' +
           '48DEFE2A9F28C633A7525DBD3B5952E4449DFDF168D06DBC334BB' +
           '539AEF686CDE97F58F2C41FE75A6049DD47D4C6617FD5E7C92F11' +
           '5FD556F5B55DC05BFA77C4FD038225F46D66600955D5AB5084FEA' +
           '613BF91B2DA');
           wait(15)
       end;
      
    procedure click(x, y:integer; left:boolean);
      begin
        holdmouse(x, y, left)
        wait(50+random(40))
        releasemouse(x, y, left)
      end;
    
    function detectNewBox : boolean;
      begin
        wait(200)
        if(findbitmaptolerancein(box, x, y, 565, 210, 734, 460, 30))then
          result:=true;
        if(result=true)then
          begin
            mmouse(x+10, y+10, 0, 0)
            wait(20+random(40))
            Click(x, y, true)
            wait(700+random(200))
            cleardebug;
            writeln(':WARNING:     I WILL DESTROY THE BOX FOR YOU    :WARNING:')
          end;
        if(result=false)then
          begin
            cleardebug;
            writeln(':PASSED:         your clear keep autoing         :PASSED:')
          end;
      end;
      
      
    procedure changes(f : integer);
      begin
        case f of
          0: vary:=a_0;
          1: vary:=a_1;
          2: vary:=a_2;
          3: vary:=a_3;
          4: vary:=a_4;
          5: vary:=a_5;
          6: vary:=a_6;
          7: vary:=a_7;
          8: vary:=a_8;
          9: vary:=a_9;
          10: vary:=a_str;
          11: vary:=a_sqr;
          12: vary:=a_pent;
          13: vary:=a_tri;
          14: vary:=a_cir;
         end;
       end;
       
    procedure change(f : integer);
      begin
        case f of
          0: vary:=q_0;
          1: vary:=q_1;
          2: vary:=q_2;
          3: vary:=q_3;
          4: vary:=q_4;
          5: vary:=q_5;
          6: vary:=q_6;
          7: vary:=q_7;
          8: vary:=q_8;
          9: vary:=q_9;
          10: vary:=q_str;
          11: vary:=q_sqr;
          12: vary:=q_pent;
          13: vary:=q_tri;
          14: vary:=q_cir;
         end;
       end;
      
    procedure getanswers;
      var
        I:integer;
      begin
        vary:=a_0;
        i:=1
        repeat
          if(findbitmaptolerancein(vary, x, y, 116, 281, 183, 312, 30))then
            answer1:=vary
          i:=i+1
          change(i)
        until(a=14)
         i:=i-i+1
         vary:=a_0
        repeat
          if(findbitmaptolerancein(vary, x, y, 235, 283, 302, 313, 30))then
            answer2:=vary
          i:=i+1
          change(i)
        until(b=14)
         i:=i-i+1
         vary:=a_0
        repeat
          if(findbitmaptolerancein(vary, x, y, 350, 283, 416, 314, 30))then
            answer3:=vary
          i:=i+1
          change(i)
        until(c=14)
      end;
      
    procedure conversion;
      begin
        if(a=10)then
          d:='star'
        if(a=11)then
          d:='square'
        if(a=12)then
          d:='pentagon'
        if(a=13)then
          d:='triangle'
        if(a=14)then
          d:='circle'
        if(b=10)then
          e:='star'
        if(b=11)then
          e:='square'
        if(b=12)then
          e:='pentagon'
        if(b=13)then
          e:='triangle'
        if(b=14)then
          e:='circle'
        if(c=10)then
          f:='star'
        if(c=11)then
          f:='square'
        if(c=12)then
          f:='pentagon'
        if(c=13)then
          f:='triangle'
        if(c=14)then
          f:='circle'
      end;
    
    function convertation: boolean;
      var
        number, i : integer;
      begin
        number:=0;
        vary:=a_0;
        result:=false
        repeat
          if(a=number)then
            begin
              answer1:=vary
              result:=true
            end;
          number:=number+1
          i:=i+1
          changes(i);
        until(a=14)or(result=true)
        result:=false
        i:=i-i
        number:=number-number
        repeat
          if(b=number)then
            begin
              answer2:=vary
              result:=true;
            end;
          number:=number+1
          i:=i+1
          changes(i);
        until(b=14)or(result=true)
            result:=false
        i:=i-i
        number:=number-number
        repeat
          if(c=number)then
            begin
              answer3:=vary
              result:=true
            end;
          number:=number+1
          i:=i+1
          changes(i);
        until(c=14)or(result=true)
      end;
    
      
    function getquestion : boolean;
    var
      I : integer;
        begin
        vary:=a_0;
        i:=1
        repeat
          if(findbitmaptolerancein(vary, x, y, 62, 252, 478, 274, 30))then
            begin
              question:=vary
              result:=true;
            end;
          i:=i+1
          change(i)
        until(g=14)or(result=true)
      end;
      
      procedure convert;
        begin
          if(g=10)then
            h:='star'
          if(g=11)then
            h:='square'
          if(g=12)then
            h:='pentagon'
          if(g=13)then
            h:='triangle'
          if(g=14)then
            h:='circle'
        end;
      
    procedure convertations;
      var
        number, i : integer;
      begin
        number:=0;
        vary:=q_0;
        repeat
          if(g=number)then
            question:=vary
          number:=number+1
          i:=i+1
          change(i);
        until(g=14)
      end;
        
    procedure reported;
      begin
        convert;
        convertations;
        if(g>=10)then
          begin
            writeln(' question : What number is '+(h)+'?')
            writeln('(under variable question in bitmap form)')
          end;
        if(g<=9)then
            begin
              writeln(' question : Which shape has the number '+inttostr(g)+'?(saved as a var : question)')
              writeln('(under variable question in bitmap form)')
            end;
          if(a>=10)then
            begin
              writeln('answer(1) : '+(d)+' (under variable answer1 as bitmap form)')
              writeln('answer(2) : '+(e)+' (under variable answer2 as bitmap form)')
              writeln('answer(3) : '+(f)+' (under variable answer3 as bitmap form)')
            end;
          if(a<=9)then
            begin
              writeln(' answer(1) : '+inttostr(a)+' (under variable answer1 as bitmap form)')
              writeln(' answer(2) : '+inttostr(b)+' (under variable answer2 as bitmap form)')
              writeln(' answer(3) : '+inttostr(c)+' (under variable answer3 as bitmap form)')
            end;
        convertations;
      end;
      
    procedure RandomChoice;
      begin
        case Random(3) of
          0: findbitmap(a, x, y)
          1: findbitmap(b, x, y)
          2: findbitmap(c, x, y)
        end;
      end;
    
    procedure unknown;
      begin
        logout;
        terminatescript;
      end;
            
    procedure SolveNewBox(answer : string);
    begin
      LoadBoxBMPS;
      if(detectnewbox=true)then
        begin
          wait(5000)
          getquestion;
          getanswers;
          reported;
        end;
          case answer of
            '0': findbitmap(a_0, x, y)
            '1': findbitmap(a_1, x, y)
            '2': findbitmap(a_2, x, y)
            '3': findbitmap(a_3, x, y)
            '4': findbitmap(a_4, x, y)
            '5': findbitmap(a_5, x, y)
            '6': findbitmap(a_6, x, y)
            '7': findbitmap(a_7, x, y)
            '8': findbitmap(a_8, x, y)
            '9': findbitmap(a_9, x, y)
            'Star': findbitmap(a_str, x, y)
            'Triangle': findbitmap(a_tri, x, y)
            'Circle': findbitmap(a_cir, x, y)
            'Pentagon': findbitmap(a_pent, x, y)
            'square': findbitmap(a_sqr, x, y)
            'UNK': Unknown;
            'R': Randomchoice;
          end;
        mouse(x+5, y+5, 2, 2, true)
      end;
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

  2. #2
    Join Date
    Feb 2006
    Location
    Pennsylvania
    Posts
    1,524
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Suggestions:
    1. Use arrays for those Bitmaps
    2. in "procedure SolveNewBox(answer : string);" use "Case answer of"

    Otherwise, from my brief scan over it; very nice

  3. #3
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    lol i didnt want to do that.. it kinda confuses my small mind...

    but i guesse ill do it one way or another...
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

  4. #4
    Join Date
    Apr 2006
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice job on that, how long did it take you?

  5. #5
    Join Date
    Feb 2006
    Location
    Australia
    Posts
    628
    Mentioned
    15 Post(s)
    Quoted
    105 Post(s)

    Default

    Good work darky, although instead of case Random(14) of, you need case Random(15) of

  6. #6
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    it took me like 4 hours to get all the bitmaps set up.

    krazy, thanks i got some mistakes in there but what do you expect ima clean it up a bit tonight.

    if you see anything wrong with it post the error ill fix it
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

  7. #7
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    Does case actually matter? I don't mind if it is neat, as long as it works.



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  8. #8
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    it works i tested it 50+ times
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

  9. #9
    Join Date
    Mar 2006
    Posts
    163
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    great job man i hate the new boxes they mess with the scripts i run on scunescape we're one step closer to beating it yay

  10. #10
    Join Date
    Apr 2006
    Posts
    710
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    now we only have to do questions and bitmaps of shapes :P

  11. #11
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    nope the questions are in there to and im going to make the question thats up there := a varibale for anyone to use.. but i got them

    i already did that to the answers.
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

  12. #12
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I still think Benland has everything covered on the new box But more than 1 box solver wouldn't hurt.

    Good job.

  13. #13
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    lol i updated it cause i cleaned it up a bit.
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 5
    Last Post: 03-30-2008, 01:40 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
  •