SRL Archive - SRL Archives

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

there got PART of the box solved eh :p.

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!

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 :p

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)

{.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;

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 :)

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

but i guesse ill do it one way or another…

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

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

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 :p ima clean it up a bit tonight.

if you see anything wrong with it post the error ill fix it :)

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

it works i tested it 50+ times

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

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

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 :p

i already did that to the answers.

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

Good job.

lol i updated it cause i cleaned it up a bit.