Results 1 to 13 of 13

Thread: DTM help

  1. #1
    Join Date
    Sep 2006
    Posts
    322
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default DTM help

    SCAR Code:
    program MathsNightmare;

    type
      arraytype = array[0..9] of Integer;

    var
      x, y: Integer;
      numImageArray: arraytype;
      add, sub, mult, divi,Cloud: Integer;

    procedure LoadPictures;
    begin
      sub := BitmapFromString(7, 2, 'beNpjSGNgAKL/SCgNOwIAwQIH+Q=' +
           '=');
      mult := BitmapFromString(12, 13, 'beNqr21pUt5WBIS00bsH6' +
           'g/fREFAQKFVZvxPOrmrfhaygsX8/UDAybvHeQy+A3AUbrgC5QDR1y' +
           'VmIglmrLgC5plbdazbe2X3oOUSwY9oRsGDX0m03gFx3/+lAbv/cEx' +
           'sOPkA2PKt0PcRhQEuBDKA7MV0I147LCxAENByiBsjApQZuDtBhWBV' +
           'A3AN0TELWCiADyEVTAPEX3BlAc4BcoCBcATB8IIJABnL4IItAwhkY' +
           'sMgmQ0IA6EIgm2B8FQEAeikQNg==');
      add := BitmapFromString(14, 14, 'beNrbenXd/ttoiIEhDYiAjBW7b' +
           'izaehWO8Khcu+8WkSqBaOXuG0SqRDYWv0ogWrbjOpEq4Q6AiFMXEb' +
           'QdiJZuv0aMOwdc5eJtRIXnmr3gaAIA/Q1Z1g==');
      divi := BitmapFromString(15, 14, 'beNqt0e8KgjAUh2GvtusUpf' +
           'DP5nRqUkl9NM/0HjwyPc3JpCB4Pwz2gD+m393K0crzTjo8X4Wq+Kc' +
           'DXGVDHgMLu8RfsmQtBsJ5BBhJEzdylExpYMbDt4XnL+6YLrv0JpYp' +
           'uCQmjCW08O8dDKDSYJkh2Q/4+VLf47aFx31ztV9Ir4HnpoS6cGKxx' +
           'ViRODE/rz9lAk+Pqkg=');
      numImageArray[0] := BitmapFromString(10, 16, 'beNrbcWv9wfsQVFS31dSqi4EhDci' +
           'AC0JQaNyCrNL1cGVALoS9au+dwtotQF3Iit39pydkrQAyZq29DDSt' +
           'pHH7it131uy7C5HtmHYEKLhgw5Xixu1ARvecE0t23IKgZTtvTVl6F' +
           'ihY1rwjKnUpkDFh0Rm4LAQBBYFShuadQAaaFEQWjmghC3EV0F/IUt' +
           'NWXIBIQXyE5mYgFygIlIIoAzKQZSs79gAFgVJAdnL+GmfvqciyQC7' +
           'QWDgX6Ovsik1ABtABQMX+kfOQFUMEgabBlYEQAGnmEb8=');
      numImageArray[1] := BitmapFromString(6, 16, 'beNpjSJu19nJD/4' +
           'Hk/DWG5p1LdtwCIv/IeUDEwJAGRBARCBqWIhMWnYGIABlwWQQCAD1' +
           'lkdE=');
      numImageArray[2] := BitmapFromString(10, 16, 'beNpbe3n9wftA1' +
           'Ni/391/OgNDmqlVV1HdVoggEK07eB/IBYojI6CapdtuAGW755wwtu' +
           'icuPAMRHHHtCMQBVml64Hc5Pw101ZcWLLjFhAt33Vn5Z67bVMPQxQ' +
           'AZYsbt0OkkBFEFlMcLhuVuhSrFNAioGzbtCNYZSs79vhHzsNlrKF5' +
           '54RFZ3BpBCJcNmZXbMIqNWvtZay+g6CG/gNoInDb0aSA5gCtAAYjk' +
           'A10P1osQBBQCy4pIJoFAGNiGWA=');
      numImageArray[3] := BitmapFromString(9, 16, 'beNrbcWvJjluz1l' +
           '7OrthkaN7JwJDm7D21of8AUBAiDhFERhDZpPzVbdOOQJRNW3HBP3I' +
           'eUAqoGMidv/U6RBxuCEQjsiAcAcWBVmOKA20BmgbUi2ZUZcceoJbu' +
           'OScwzYEjoBo02QmLzkSlLoXIYuoFIogs0O+YUkD1+N0P8TWpXoMEG' +
           'tBGuGsh4pBQLW7cDg95oDIgFxoUALQe9y8=');
      numImageArray[4] := BitmapFromString(10, 16, 'beNrbcWvJDnSUX' +
           'bGJgSFtyc7ba/bfQ5OasOgMUAokuwOLRv/IebhkG/oPVHbswSUL1A' +
           'gkscoCHdM95wRWWaBjolKXQtiYskAzZ629jFUW4hg4F00W4hissnD' +
           'HYJWFsHEhTF/jCUmqyQIAdFER5g==');
      numImageArray[5] := BitmapFromString(10, 16, 'beNrbcevgtvsQV' +
           'Fe+lYEhDY7iIhas2X8PIrVt9Q1kKSCaO+XEkh234Br72/fDzYEgiC' +
           'xQo5V5F5oUXBZio7/X9Pb6XUCVyLJdXVPQbCwvXrhh5ZGta88CZZc' +
           't2rFkwZYJvUtqqqZ6uNdBFCQktE2ePB0oe2Dn4+MHn968+vb29bdX' +
           'Lz5fOPcYRMHkSRuAsscOPLt45tW1i6+vXnh99TwILVt4FiiblbEcK' +
           'Hv8wDM4Orb/6bG9T4/ufhroOwuoAE0Wjrrb9kNkj+55CkTH9sHQfp' +
           'Ds5L6jibFLgAqO7HiCiRoqdiyYfgaoF1Nq84qb8ZGLgQygrLV5T4D' +
           '3zAXTzkCkgIyy/E0QNlAWyAXKQvwIFIcrA8kCAC6BLIQ=');
      numImageArray[6] := BitmapFromString(10, 16, 'beNo78HzNwgNoq' +
           'K12TVzEdAaGNCBCEzcxaHRz7AIyZvRtRZYqyFwIVFxfvgLTNIhUT/' +
           'N6NPGV8/cBzcGlC4ggdmGVgmusKFgKVANkAxUDLYLIQhwP5M6dvAP' +
           'IXTRjF8QNwX4TIcai+QtZC9zXW9ceP3bwyqWL94Bo08YzQEF7+y6I' +
           '7J27T+8/fIGMIOI5uUuB5KUrD27dfHH14vPzJ6AIKGhn07tk6TEgY' +
           '8GsU6cOPEdGQMGWul1AZbZWvUF+s5Cl5k49BZTdsf4OkA0kgQqqSr' +
           'bs23ofyF065zyQCyThioEKgLIQl+Rnrt208gZIHAB48hOy');
      numImageArray[7] := BitmapFromString(10, 16, 'beNo7eH/W2ssMD' +
           'GlYUWP//rZpR3DJLthwJadyU1Hd1qXbbqw/eB+OgOKhcQuAjIrWnc' +
           'jiEFTVvqtj2hFMcQhy95+OZhoczVp1ISFrBS6NQGf0zz2BS9bUqgu' +
           'X1NQlZ7NK1+OSBUoBFZBhLNAxQCfhMRboHaxSQO8DAwGXRmDQAQMQ' +
           'lyww2IGBjyIIAFI4P9A=');
      numImageArray[8] := BitmapFromString(10, 16, 'beNplUUsLAWEU9' +
           'btkOWtlYamwUDYWsrGREitZsVCzMlmgPBZehSabGUU0ESHJJOJPON' +
           'PRbaJuX/dx7j3n3k+3b/f3znoUC9OAv+rxxGBwcpnRpH82dds0Lop' +
           'Sioa1prZxQt3uNraRUM3nLQ46h2SiDfxqeWWJhkYO4bTT8bVe3N0A' +
           '5oMBFW8+Oz7sn1LCcCQhplW3CEvEm7OhowR0IIUwIjV1SQCToEOvm' +
           'wV40SBdYuXSHFukUz0C4H/31W2AEf6zsAu+nIKCUSIFnR8itWJwAu' +
           '2nKtegEtD9X5LisQvmC4C/IDqpTfZFHqGT/wAqNRK4');
      numImageArray[9] := BitmapFromString(10, 16, 'beNo7eH/voRdAt' +
           'GDplZi4pQwMaUBUVLplzcY7EHEgmjXvgqV1L5AEsjdtfwCUBXIhCp' +
           'avvgFUD5GCI1//2UAFQAZQJVAWWQqIJk8/DRTsmXAMqAZTFmg+UBD' +
           'uEjRZIIKIQ/QC3YxVtqZ+N5DMyF6LKQtxGMR8oDKIONAvaFqAXIgV' +
           'QL8AnQpxM5DEdA+yfzERHo3AQEN2A6YuNClgyAC1AF0ItGvS9FO7D' +
           'j3bfujJtkNPthx8BPF1eNzC5v4D6w/eR0EA36MnuA==');

      Cloud := DTMFromString('78DA635465606010664001EB0FDE05D38C503' +
           'EA3269060465593D5B101558D13901042551356B900558D1A9050' +
           '4055E3573407550DC81E5E543546D11D286A00833A08E8');
    end;

    procedure FindCloud;
    begin
      if FindDTM(Cloud,x, y,609, 141, 678, 182) then
      WriteLn('Found Cloud, attempting solve..');
    end;

    procedure FindTopNumber;
    begin

    end;

    procedure FindBottomNumber;
    begin

    end;

    procedure FindSymbol;
    begin
      if (findbitmaptolerancein(add, x, y, 629, 104, 686, 147, 150)) then

      else if (findbitmaptolerancein(sub, x, y, 629, 104, 686, 147, 150)) then

      else if (findbitmaptolerancein(mult, x, y, 629, 104, 686, 147, 150)) then

      else if (findbitmaptolerancein(divi, x, y, 629, 104, 686, 147, 150)) then
    end;

    procedure Solve;
    begin

    end;




    begin
      ActivateClient;
      LoadPictures;
      FindCloud;
    end.

    This is a remake of the Maths Nightmare script. Kind of stuck. It can't find the cloud bubble DTM. It needs to find the DTM, then click it.

    This is what the DTM is of:


    What it looks like in action:
    "SRL is the best SCAR community in the World, with the most talented programmers: adjust your volume."
    -Wizzup?

  2. #2
    Join Date
    Oct 2009
    Location
    Melb, Australia
    Posts
    179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What's with the search area parameters? Aren't they a little close? Or is that cloud you're trying to click on always in the same spot?

  3. #3
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Did you use tolerance when creating your DTM?

    If you have, and it still fails to find the DTM, try to change the search area.

    I just tested on my whole screen with a new DTM I made and it found it just fine:
    SCAR Code:
    Cloud := DTMFromString('78DA6394626260D0046224B0F9C87D067E20C' +
           'D08C4FF8180510F282F87AAC632B117AE060418FF0059DAA86AB2' +
           '0B37A2AA9105CA9BA3AAF12B9A83AAC614286F80AAC62B6F1A8A1' +
           'A0042AB0E88');

    I also tested with the original DTM you had in it and it worked as well.

    Also, your arraytype type is really unneeded as you could just use:
    SCAR Code:
    numImageArray : array [0..9] of integer;
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  4. #4
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Did a lot for you:
    SCAR Code:
    program MathsNightmare;

    var
      x, y,i: Integer;
      Number:Array[0..9] of Integer;;
      Cloud: Integer;
      Maths:Array[0..3] of Integer;
      //0=add 1=sub 3=mult 4=div
     
    procedure LoadPictures;
    begin
      Maths[0] := BitmapFromString(14, 14, 'beNrbenXd/ttoiIEhDYiAjBW7b' +
           'izaehWO8Khcu+8WkSqBaOXuG0SqRDYWv0ogWrbjOpEq4Q6AiFMXEb' +
           'QdiJZuv0aMOwdc5eJtRIXnmr3gaAIA/Q1Z1g==');
      Maths[1] := BitmapFromString(7, 2, 'beNpjSGNgAKL/SCgNOwIAwQIH+Q=' +
           '=');
      Maths[2] := BitmapFromString(12, 13, 'beNqr21pUt5WBIS00bsH6' +
           'g/fREFAQKFVZvxPOrmrfhaygsX8/UDAybvHeQy+A3AUbrgC5QDR1y' +
           'VmIglmrLgC5plbdazbe2X3oOUSwY9oRsGDX0m03gFx3/+lAbv/cEx' +
           'sOPkA2PKt0PcRhQEuBDKA7MV0I147LCxAENByiBsjApQZuDtBhWBV' +
           'A3AN0TELWCiADyEVTAPEX3BlAc4BcoCBcATB8IIJABnL4IItAwhkY' +
           'sMgmQ0IA6EIgm2B8FQEAeikQNg==');
      Maths[3] := BitmapFromString(15, 14, 'beNqt0e8KgjAUh2GvtusUpf' +
           'DP5nRqUkl9NM/0HjwyPc3JpCB4Pwz2gD+m393K0crzTjo8X4Wq+Kc' +
           'DXGVDHgMLu8RfsmQtBsJ5BBhJEzdylExpYMbDt4XnL+6YLrv0JpYp' +
           'uCQmjCW08O8dDKDSYJkh2Q/4+VLf47aFx31ztV9Ir4HnpoS6cGKxx' +
           'ViRODE/rz9lAk+Pqkg=');
      Number[0] := BitmapFromString(10, 16, 'beNrbcWv9wfsQVFS31dSqi4EhDci' +
           'AC0JQaNyCrNL1cGVALoS9au+dwtotQF3Iit39pydkrQAyZq29DDSt' +
           'pHH7it131uy7C5HtmHYEKLhgw5Xixu1ARvecE0t23IKgZTtvTVl6F' +
           'ihY1rwjKnUpkDFh0Rm4LAQBBYFShuadQAaaFEQWjmghC3EV0F/IUt' +
           'NWXIBIQXyE5mYgFygIlIIoAzKQZSs79gAFgVJAdnL+GmfvqciyQC7' +
           'QWDgX6Ovsik1ABtABQMX+kfOQFUMEgabBlYEQAGnmEb8=');
      Number[1] := BitmapFromString(6, 16, 'beNpjSJu19nJD/4' +
           'Hk/DWG5p1LdtwCIv/IeUDEwJAGRBARCBqWIhMWnYGIABlwWQQCAD1' +
           'lkdE=');
      Number[2] := BitmapFromString(10, 16, 'beNpbe3n9wftA1' +
           'Ni/391/OgNDmqlVV1HdVoggEK07eB/IBYojI6CapdtuAGW755wwtu' +
           'icuPAMRHHHtCMQBVml64Hc5Pw101ZcWLLjFhAt33Vn5Z67bVMPQxQ' +
           'AZYsbt0OkkBFEFlMcLhuVuhSrFNAioGzbtCNYZSs79vhHzsNlrKF5' +
           '54RFZ3BpBCJcNmZXbMIqNWvtZay+g6CG/gNoInDb0aSA5gCtAAYjk' +
           'A10P1osQBBQCy4pIJoFAGNiGWA=');
      Number[3] := BitmapFromString(9, 16, 'beNrbcWvJjluz1l' +
           '7OrthkaN7JwJDm7D21of8AUBAiDhFERhDZpPzVbdOOQJRNW3HBP3I' +
           'eUAqoGMidv/U6RBxuCEQjsiAcAcWBVmOKA20BmgbUi2ZUZcceoJbu' +
           'OScwzYEjoBo02QmLzkSlLoXIYuoFIogs0O+YUkD1+N0P8TWpXoMEG' +
           'tBGuGsh4pBQLW7cDg95oDIgFxoUALQe9y8=');
      Number[4] := BitmapFromString(10, 16, 'beNrbcWvJDnSUX' +
           'bGJgSFtyc7ba/bfQ5OasOgMUAokuwOLRv/IebhkG/oPVHbswSUL1A' +
           'gkscoCHdM95wRWWaBjolKXQtiYskAzZ629jFUW4hg4F00W4hissnD' +
           'HYJWFsHEhTF/jCUmqyQIAdFER5g==');
      Number[5] := BitmapFromString(10, 16, 'beNrbcevgtvsQV' +
           'Fe+lYEhDY7iIhas2X8PIrVt9Q1kKSCaO+XEkh234Br72/fDzYEgiC' +
           'xQo5V5F5oUXBZio7/X9Pb6XUCVyLJdXVPQbCwvXrhh5ZGta88CZZc' +
           't2rFkwZYJvUtqqqZ6uNdBFCQktE2ePB0oe2Dn4+MHn968+vb29bdX' +
           'Lz5fOPcYRMHkSRuAsscOPLt45tW1i6+vXnh99TwILVt4FiiblbEcK' +
           'Hv8wDM4Orb/6bG9T4/ufhroOwuoAE0Wjrrb9kNkj+55CkTH9sHQfp' +
           'Ds5L6jibFLgAqO7HiCiRoqdiyYfgaoF1Nq84qb8ZGLgQygrLV5T4D' +
           '3zAXTzkCkgIyy/E0QNlAWyAXKQvwIFIcrA8kCAC6BLIQ=');
      Number[6] := BitmapFromString(10, 16, 'beNo78HzNwgNoq' +
           'K12TVzEdAaGNCBCEzcxaHRz7AIyZvRtRZYqyFwIVFxfvgLTNIhUT/' +
           'N6NPGV8/cBzcGlC4ggdmGVgmusKFgKVANkAxUDLYLIQhwP5M6dvAP' +
           'IXTRjF8QNwX4TIcai+QtZC9zXW9ceP3bwyqWL94Bo08YzQEF7+y6I' +
           '7J27T+8/fIGMIOI5uUuB5KUrD27dfHH14vPzJ6AIKGhn07tk6TEgY' +
           '8GsU6cOPEdGQMGWul1AZbZWvUF+s5Cl5k49BZTdsf4OkA0kgQqqSr' +
           'bs23ofyF065zyQCyThioEKgLIQl+Rnrt208gZIHAB48hOy');
      Number[7] := BitmapFromString(10, 16, 'beNo7eH/W2ssMD' +
           'GlYUWP//rZpR3DJLthwJadyU1Hd1qXbbqw/eB+OgOKhcQuAjIrWnc' +
           'jiEFTVvqtj2hFMcQhy95+OZhoczVp1ISFrBS6NQGf0zz2BS9bUqgu' +
           'X1NQlZ7NK1+OSBUoBFZBhLNAxQCfhMRboHaxSQO8DAwGXRmDQAQMQ' +
           'lyww2IGBjyIIAFI4P9A=');
      Number[8] := BitmapFromString(10, 16, 'beNplUUsLAWEU9' +
           'btkOWtlYamwUDYWsrGREitZsVCzMlmgPBZehSabGUU0ESHJJOJPON' +
           'PRbaJuX/dx7j3n3k+3b/f3znoUC9OAv+rxxGBwcpnRpH82dds0Lop' +
           'Sioa1prZxQt3uNraRUM3nLQ46h2SiDfxqeWWJhkYO4bTT8bVe3N0A' +
           '5oMBFW8+Oz7sn1LCcCQhplW3CEvEm7OhowR0IIUwIjV1SQCToEOvm' +
           'wV40SBdYuXSHFukUz0C4H/31W2AEf6zsAu+nIKCUSIFnR8itWJwAu' +
           '2nKtegEtD9X5LisQvmC4C/IDqpTfZFHqGT/wAqNRK4');
      Number[9] := BitmapFromString(10, 16, 'beNo7eH/voRdAt' +
           'GDplZi4pQwMaUBUVLplzcY7EHEgmjXvgqV1L5AEsjdtfwCUBXIhCp' +
           'avvgFUD5GCI1//2UAFQAZQJVAWWQqIJk8/DRTsmXAMqAZTFmg+UBD' +
           'uEjRZIIKIQ/QC3YxVtqZ+N5DMyF6LKQtxGMR8oDKIONAvaFqAXIgV' +
           'QL8AnQpxM5DEdA+yfzERHo3AQEN2A6YuNClgyAC1AF0ItGvS9FO7D' +
           'j3bfujJtkNPthx8BPF1eNzC5v4D6w/eR0EA36MnuA==');
      Cloud := DTMFromString('78DA635465606010664001EB0FDE05D38C503' +
           'EA3269060465593D5B101558D13901042551356B900558D1A9050' +
           '4055E3573407550DC81E5E543546D11D286A00833A08E8');
    end;

    procedure FindCloud;
    begin
      if FindDTM(Cloud,x, y,609, 141, 678, 182) then
      WriteLn('Found Cloud, attempting solve..');
    end;

    Function FindTopNumber:Integer;
    begin
      For I:=0 to 9 do
      If FindDTM(Number[i],x,y,x1,y1,x2,y2) Then //put in top bounds
      Begin
        Writeln('Number is ' +IntToStr(i));
        Result:=i
      End;
    end;

    procedure FindBottomNumber;
    begin
      For I:=0 to 9 do
      If FindDTM(Number[i],x,y,x1,y1,x2,y2) Then//put in botom bounds
      Begin
        Writeln('Number is ' +IntToStr(i));
        Result:=i
      End;
    end;


    Function WutMath:Integer;
    begin
      For I:=0 To 3 Do
      Begin
        If FindBitmapToleranceIn(Maths[i],x,y,629, 104, 686, 147, 50) Then
        Begin
          Case I Of
          0:Begin
             Writeln('Add');
             Result:=i;
            End;
          1:Begin
             Writeln('Subtract');
             Result:=i;
            End;
          2:Begin
             Writeln('Multiply');
             Result:=i;
            End;
          2:Begin
             Writeln('Divide');
             Result:=i;
            End;
          End;
        End;
      End;
    end;

    Function Solve:Integer;
    begin
      Result:=( (FindTopNumber)   SIGN HERE (BottomNumber))
    end;

    begin
      ActivateClient;
      LoadPictures;
      FindCloud;
    end.
    Dont know how to make a Result:= (Math Sign) though!
    Frustrating :/.

  5. #5
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    Did a lot for you:
    SCAR Code:
    program MathsNightmare;

    var
      x, y,i: Integer;
      Number:Array[0..9] of Integer;;
      Cloud: Integer;
      Maths:Array[0..3] of Integer;
      //0=add 1=sub 3=mult 4=div
     
    procedure LoadPictures;
    begin
      Maths[0] := BitmapFromString(14, 14, 'beNrbenXd/ttoiIEhDYiAjBW7b' +
           'izaehWO8Khcu+8WkSqBaOXuG0SqRDYWv0ogWrbjOpEq4Q6AiFMXEb' +
           'QdiJZuv0aMOwdc5eJtRIXnmr3gaAIA/Q1Z1g==');
      Maths[1] := BitmapFromString(7, 2, 'beNpjSGNgAKL/SCgNOwIAwQIH+Q=' +
           '=');
      Maths[2] := BitmapFromString(12, 13, 'beNqr21pUt5WBIS00bsH6' +
           'g/fREFAQKFVZvxPOrmrfhaygsX8/UDAybvHeQy+A3AUbrgC5QDR1y' +
           'VmIglmrLgC5plbdazbe2X3oOUSwY9oRsGDX0m03gFx3/+lAbv/cEx' +
           'sOPkA2PKt0PcRhQEuBDKA7MV0I147LCxAENByiBsjApQZuDtBhWBV' +
           'A3AN0TELWCiADyEVTAPEX3BlAc4BcoCBcATB8IIJABnL4IItAwhkY' +
           'sMgmQ0IA6EIgm2B8FQEAeikQNg==');
      Maths[3] := BitmapFromString(15, 14, 'beNqt0e8KgjAUh2GvtusUpf' +
           'DP5nRqUkl9NM/0HjwyPc3JpCB4Pwz2gD+m393K0crzTjo8X4Wq+Kc' +
           'DXGVDHgMLu8RfsmQtBsJ5BBhJEzdylExpYMbDt4XnL+6YLrv0JpYp' +
           'uCQmjCW08O8dDKDSYJkh2Q/4+VLf47aFx31ztV9Ir4HnpoS6cGKxx' +
           'ViRODE/rz9lAk+Pqkg=');
      Number[0] := BitmapFromString(10, 16, 'beNrbcWv9wfsQVFS31dSqi4EhDci' +
           'AC0JQaNyCrNL1cGVALoS9au+dwtotQF3Iit39pydkrQAyZq29DDSt' +
           'pHH7it131uy7C5HtmHYEKLhgw5Xixu1ARvecE0t23IKgZTtvTVl6F' +
           'ihY1rwjKnUpkDFh0Rm4LAQBBYFShuadQAaaFEQWjmghC3EV0F/IUt' +
           'NWXIBIQXyE5mYgFygIlIIoAzKQZSs79gAFgVJAdnL+GmfvqciyQC7' +
           'QWDgX6Ovsik1ABtABQMX+kfOQFUMEgabBlYEQAGnmEb8=');
      Number[1] := BitmapFromString(6, 16, 'beNpjSJu19nJD/4' +
           'Hk/DWG5p1LdtwCIv/IeUDEwJAGRBARCBqWIhMWnYGIABlwWQQCAD1' +
           'lkdE=');
      Number[2] := BitmapFromString(10, 16, 'beNpbe3n9wftA1' +
           'Ni/391/OgNDmqlVV1HdVoggEK07eB/IBYojI6CapdtuAGW755wwtu' +
           'icuPAMRHHHtCMQBVml64Hc5Pw101ZcWLLjFhAt33Vn5Z67bVMPQxQ' +
           'AZYsbt0OkkBFEFlMcLhuVuhSrFNAioGzbtCNYZSs79vhHzsNlrKF5' +
           '54RFZ3BpBCJcNmZXbMIqNWvtZay+g6CG/gNoInDb0aSA5gCtAAYjk' +
           'A10P1osQBBQCy4pIJoFAGNiGWA=');
      Number[3] := BitmapFromString(9, 16, 'beNrbcWvJjluz1l' +
           '7OrthkaN7JwJDm7D21of8AUBAiDhFERhDZpPzVbdOOQJRNW3HBP3I' +
           'eUAqoGMidv/U6RBxuCEQjsiAcAcWBVmOKA20BmgbUi2ZUZcceoJbu' +
           'OScwzYEjoBo02QmLzkSlLoXIYuoFIogs0O+YUkD1+N0P8TWpXoMEG' +
           'tBGuGsh4pBQLW7cDg95oDIgFxoUALQe9y8=');
      Number[4] := BitmapFromString(10, 16, 'beNrbcWvJDnSUX' +
           'bGJgSFtyc7ba/bfQ5OasOgMUAokuwOLRv/IebhkG/oPVHbswSUL1A' +
           'gkscoCHdM95wRWWaBjolKXQtiYskAzZ629jFUW4hg4F00W4hissnD' +
           'HYJWFsHEhTF/jCUmqyQIAdFER5g==');
      Number[5] := BitmapFromString(10, 16, 'beNrbcevgtvsQV' +
           'Fe+lYEhDY7iIhas2X8PIrVt9Q1kKSCaO+XEkh234Br72/fDzYEgiC' +
           'xQo5V5F5oUXBZio7/X9Pb6XUCVyLJdXVPQbCwvXrhh5ZGta88CZZc' +
           't2rFkwZYJvUtqqqZ6uNdBFCQktE2ePB0oe2Dn4+MHn968+vb29bdX' +
           'Lz5fOPcYRMHkSRuAsscOPLt45tW1i6+vXnh99TwILVt4FiiblbEcK' +
           'Hv8wDM4Orb/6bG9T4/ufhroOwuoAE0Wjrrb9kNkj+55CkTH9sHQfp' +
           'Ds5L6jibFLgAqO7HiCiRoqdiyYfgaoF1Nq84qb8ZGLgQygrLV5T4D' +
           '3zAXTzkCkgIyy/E0QNlAWyAXKQvwIFIcrA8kCAC6BLIQ=');
      Number[6] := BitmapFromString(10, 16, 'beNo78HzNwgNoq' +
           'K12TVzEdAaGNCBCEzcxaHRz7AIyZvRtRZYqyFwIVFxfvgLTNIhUT/' +
           'N6NPGV8/cBzcGlC4ggdmGVgmusKFgKVANkAxUDLYLIQhwP5M6dvAP' +
           'IXTRjF8QNwX4TIcai+QtZC9zXW9ceP3bwyqWL94Bo08YzQEF7+y6I' +
           '7J27T+8/fIGMIOI5uUuB5KUrD27dfHH14vPzJ6AIKGhn07tk6TEgY' +
           '8GsU6cOPEdGQMGWul1AZbZWvUF+s5Cl5k49BZTdsf4OkA0kgQqqSr' +
           'bs23ofyF065zyQCyThioEKgLIQl+Rnrt208gZIHAB48hOy');
      Number[7] := BitmapFromString(10, 16, 'beNo7eH/W2ssMD' +
           'GlYUWP//rZpR3DJLthwJadyU1Hd1qXbbqw/eB+OgOKhcQuAjIrWnc' +
           'jiEFTVvqtj2hFMcQhy95+OZhoczVp1ISFrBS6NQGf0zz2BS9bUqgu' +
           'X1NQlZ7NK1+OSBUoBFZBhLNAxQCfhMRboHaxSQO8DAwGXRmDQAQMQ' +
           'lyww2IGBjyIIAFI4P9A=');
      Number[8] := BitmapFromString(10, 16, 'beNplUUsLAWEU9' +
           'btkOWtlYamwUDYWsrGREitZsVCzMlmgPBZehSabGUU0ESHJJOJPON' +
           'PRbaJuX/dx7j3n3k+3b/f3znoUC9OAv+rxxGBwcpnRpH82dds0Lop' +
           'Sioa1prZxQt3uNraRUM3nLQ46h2SiDfxqeWWJhkYO4bTT8bVe3N0A' +
           '5oMBFW8+Oz7sn1LCcCQhplW3CEvEm7OhowR0IIUwIjV1SQCToEOvm' +
           'wV40SBdYuXSHFukUz0C4H/31W2AEf6zsAu+nIKCUSIFnR8itWJwAu' +
           '2nKtegEtD9X5LisQvmC4C/IDqpTfZFHqGT/wAqNRK4');
      Number[9] := BitmapFromString(10, 16, 'beNo7eH/voRdAt' +
           'GDplZi4pQwMaUBUVLplzcY7EHEgmjXvgqV1L5AEsjdtfwCUBXIhCp' +
           'avvgFUD5GCI1//2UAFQAZQJVAWWQqIJk8/DRTsmXAMqAZTFmg+UBD' +
           'uEjRZIIKIQ/QC3YxVtqZ+N5DMyF6LKQtxGMR8oDKIONAvaFqAXIgV' +
           'QL8AnQpxM5DEdA+yfzERHo3AQEN2A6YuNClgyAC1AF0ItGvS9FO7D' +
           'j3bfujJtkNPthx8BPF1eNzC5v4D6w/eR0EA36MnuA==');
      Cloud := DTMFromString('78DA635465606010664001EB0FDE05D38C503' +
           'EA3269060465593D5B101558D13901042551356B900558D1A9050' +
           '4055E3573407550DC81E5E543546D11D286A00833A08E8');
    end;

    procedure FindCloud;
    begin
      if FindDTM(Cloud,x, y,609, 141, 678, 182) then
      WriteLn('Found Cloud, attempting solve..');
    end;

    Function FindTopNumber:Integer;
    begin
      For I:=0 to 9 do
      If FindDTM(Number[i],x,y,x1,y1,x2,y2) Then //put in top bounds
      Begin
        Writeln('Number is ' +IntToStr(i));
        Result:=i
      End;
    end;

    procedure FindBottomNumber;
    begin
      For I:=0 to 9 do
      If FindDTM(Number[i],x,y,x1,y1,x2,y2) Then//put in botom bounds
      Begin
        Writeln('Number is ' +IntToStr(i));
        Result:=i
      End;
    end;


    Function WutMath:Integer;
    begin
      For I:=0 To 3 Do
      Begin
        If FindBitmapToleranceIn(Maths[i],x,y,629, 104, 686, 147, 50) Then
        Begin
          Case I Of
          0:Begin
             Writeln('Add');
             Result:=i;
            End;
          1:Begin
             Writeln('Subtract');
             Result:=i;
            End;
          2:Begin
             Writeln('Multiply');
             Result:=i;
            End;
          2:Begin
             Writeln('Divide');
             Result:=i;
            End;
          End;
        End;
      End;
    end;

    Function Solve:Integer;
    begin
      Result:=( (FindTopNumber)   SIGN HERE (BottomNumber))
    end;

    begin
      ActivateClient;
      LoadPictures;
      FindCloud;
    end.
    Dont know how to make a Result:= (Math Sign) though!
    Frustrating :/.
    YoHoJo's code seems a bit sloppy to me and I am too tired to redo it and was about to go to bed but here's how to do result := math sign or whatever he wanted to do:
    SCAR Code:
    program MathsNightmare;

    var
      x, y,i: Integer;
      Number: Array[0..9] of Integer;
      Cloud: Integer;
      Maths:Array[0..3] of Integer;
      //0=add 1=sub 3=mult 4=div

    procedure LoadPictures;
    begin
      Maths[0] := BitmapFromString(14, 14, 'beNrbenXd/ttoiIEhDYiAjBW7b' +
           'izaehWO8Khcu+8WkSqBaOXuG0SqRDYWv0ogWrbjOpEq4Q6AiFMXEb' +
           'QdiJZuv0aMOwdc5eJtRIXnmr3gaAIA/Q1Z1g==');
      Maths[1] := BitmapFromString(7, 2, 'beNpjSGNgAKL/SCgNOwIAwQIH+Q=' +
           '=');
      Maths[2] := BitmapFromString(12, 13, 'beNqr21pUt5WBIS00bsH6' +
           'g/fREFAQKFVZvxPOrmrfhaygsX8/UDAybvHeQy+A3AUbrgC5QDR1y' +
           'VmIglmrLgC5plbdazbe2X3oOUSwY9oRsGDX0m03gFx3/+lAbv/cEx' +
           'sOPkA2PKt0PcRhQEuBDKA7MV0I147LCxAENByiBsjApQZuDtBhWBV' +
           'A3AN0TELWCiADyEVTAPEX3BlAc4BcoCBcATB8IIJABnL4IItAwhkY' +
           'sMgmQ0IA6EIgm2B8FQEAeikQNg==');
      Maths[3] := BitmapFromString(15, 14, 'beNqt0e8KgjAUh2GvtusUpf' +
           'DP5nRqUkl9NM/0HjwyPc3JpCB4Pwz2gD+m393K0crzTjo8X4Wq+Kc' +
           'DXGVDHgMLu8RfsmQtBsJ5BBhJEzdylExpYMbDt4XnL+6YLrv0JpYp' +
           'uCQmjCW08O8dDKDSYJkh2Q/4+VLf47aFx31ztV9Ir4HnpoS6cGKxx' +
           'ViRODE/rz9lAk+Pqkg=');
      Number[0] := BitmapFromString(10, 16, 'beNrbcWv9wfsQVFS31dSqi4EhDci' +
           'AC0JQaNyCrNL1cGVALoS9au+dwtotQF3Iit39pydkrQAyZq29DDSt' +
           'pHH7it131uy7C5HtmHYEKLhgw5Xixu1ARvecE0t23IKgZTtvTVl6F' +
           'ihY1rwjKnUpkDFh0Rm4LAQBBYFShuadQAaaFEQWjmghC3EV0F/IUt' +
           'NWXIBIQXyE5mYgFygIlIIoAzKQZSs79gAFgVJAdnL+GmfvqciyQC7' +
           'QWDgX6Ovsik1ABtABQMX+kfOQFUMEgabBlYEQAGnmEb8=');
      Number[1] := BitmapFromString(6, 16, 'beNpjSJu19nJD/4' +
           'Hk/DWG5p1LdtwCIv/IeUDEwJAGRBARCBqWIhMWnYGIABlwWQQCAD1' +
           'lkdE=');
      Number[2] := BitmapFromString(10, 16, 'beNpbe3n9wftA1' +
           'Ni/391/OgNDmqlVV1HdVoggEK07eB/IBYojI6CapdtuAGW755wwtu' +
           'icuPAMRHHHtCMQBVml64Hc5Pw101ZcWLLjFhAt33Vn5Z67bVMPQxQ' +
           'AZYsbt0OkkBFEFlMcLhuVuhSrFNAioGzbtCNYZSs79vhHzsNlrKF5' +
           '54RFZ3BpBCJcNmZXbMIqNWvtZay+g6CG/gNoInDb0aSA5gCtAAYjk' +
           'A10P1osQBBQCy4pIJoFAGNiGWA=');
      Number[3] := BitmapFromString(9, 16, 'beNrbcWvJjluz1l' +
           '7OrthkaN7JwJDm7D21of8AUBAiDhFERhDZpPzVbdOOQJRNW3HBP3I' +
           'eUAqoGMidv/U6RBxuCEQjsiAcAcWBVmOKA20BmgbUi2ZUZcceoJbu' +
           'OScwzYEjoBo02QmLzkSlLoXIYuoFIogs0O+YUkD1+N0P8TWpXoMEG' +
           'tBGuGsh4pBQLW7cDg95oDIgFxoUALQe9y8=');
      Number[4] := BitmapFromString(10, 16, 'beNrbcWvJDnSUX' +
           'bGJgSFtyc7ba/bfQ5OasOgMUAokuwOLRv/IebhkG/oPVHbswSUL1A' +
           'gkscoCHdM95wRWWaBjolKXQtiYskAzZ629jFUW4hg4F00W4hissnD' +
           'HYJWFsHEhTF/jCUmqyQIAdFER5g==');
      Number[5] := BitmapFromString(10, 16, 'beNrbcevgtvsQV' +
           'Fe+lYEhDY7iIhas2X8PIrVt9Q1kKSCaO+XEkh234Br72/fDzYEgiC' +
           'xQo5V5F5oUXBZio7/X9Pb6XUCVyLJdXVPQbCwvXrhh5ZGta88CZZc' +
           't2rFkwZYJvUtqqqZ6uNdBFCQktE2ePB0oe2Dn4+MHn968+vb29bdX' +
           'Lz5fOPcYRMHkSRuAsscOPLt45tW1i6+vXnh99TwILVt4FiiblbEcK' +
           'Hv8wDM4Orb/6bG9T4/ufhroOwuoAE0Wjrrb9kNkj+55CkTH9sHQfp' +
           'Ds5L6jibFLgAqO7HiCiRoqdiyYfgaoF1Nq84qb8ZGLgQygrLV5T4D' +
           '3zAXTzkCkgIyy/E0QNlAWyAXKQvwIFIcrA8kCAC6BLIQ=');
      Number[6] := BitmapFromString(10, 16, 'beNo78HzNwgNoq' +
           'K12TVzEdAaGNCBCEzcxaHRz7AIyZvRtRZYqyFwIVFxfvgLTNIhUT/' +
           'N6NPGV8/cBzcGlC4ggdmGVgmusKFgKVANkAxUDLYLIQhwP5M6dvAP' +
           'IXTRjF8QNwX4TIcai+QtZC9zXW9ceP3bwyqWL94Bo08YzQEF7+y6I' +
           '7J27T+8/fIGMIOI5uUuB5KUrD27dfHH14vPzJ6AIKGhn07tk6TEgY' +
           '8GsU6cOPEdGQMGWul1AZbZWvUF+s5Cl5k49BZTdsf4OkA0kgQqqSr' +
           'bs23ofyF065zyQCyThioEKgLIQl+Rnrt208gZIHAB48hOy');
      Number[7] := BitmapFromString(10, 16, 'beNo7eH/W2ssMD' +
           'GlYUWP//rZpR3DJLthwJadyU1Hd1qXbbqw/eB+OgOKhcQuAjIrWnc' +
           'jiEFTVvqtj2hFMcQhy95+OZhoczVp1ISFrBS6NQGf0zz2BS9bUqgu' +
           'X1NQlZ7NK1+OSBUoBFZBhLNAxQCfhMRboHaxSQO8DAwGXRmDQAQMQ' +
           'lyww2IGBjyIIAFI4P9A=');
      Number[8] := BitmapFromString(10, 16, 'beNplUUsLAWEU9' +
           'btkOWtlYamwUDYWsrGREitZsVCzMlmgPBZehSabGUU0ESHJJOJPON' +
           'PRbaJuX/dx7j3n3k+3b/f3znoUC9OAv+rxxGBwcpnRpH82dds0Lop' +
           'Sioa1prZxQt3uNraRUM3nLQ46h2SiDfxqeWWJhkYO4bTT8bVe3N0A' +
           '5oMBFW8+Oz7sn1LCcCQhplW3CEvEm7OhowR0IIUwIjV1SQCToEOvm' +
           'wV40SBdYuXSHFukUz0C4H/31W2AEf6zsAu+nIKCUSIFnR8itWJwAu' +
           '2nKtegEtD9X5LisQvmC4C/IDqpTfZFHqGT/wAqNRK4');
      Number[9] := BitmapFromString(10, 16, 'beNo7eH/voRdAt' +
           'GDplZi4pQwMaUBUVLplzcY7EHEgmjXvgqV1L5AEsjdtfwCUBXIhCp' +
           'avvgFUD5GCI1//2UAFQAZQJVAWWQqIJk8/DRTsmXAMqAZTFmg+UBD' +
           'uEjRZIIKIQ/QC3YxVtqZ+N5DMyF6LKQtxGMR8oDKIONAvaFqAXIgV' +
           'QL8AnQpxM5DEdA+yfzERHo3AQEN2A6YuNClgyAC1AF0ItGvS9FO7D' +
           'j3bfujJtkNPthx8BPF1eNzC5v4D6w/eR0EA36MnuA==');
      Cloud := DTMFromString('78DA635465606010664001EB0FDE05D38C503' +
           'EA3269060465593D5B101558D13901042551356B900558D1A9050' +
           '4055E3573407550DC81E5E543546D11D286A00833A08E8');
    end;

    procedure FindCloud;
    begin
      if FindDTM(Cloud,x, y,609, 141, 678, 182) then
      WriteLn('Found Cloud, attempting solve..');
    end;

    Function FindTopNumber:Integer;
    begin
      For I:=0 to 9 do
      If FindDTM(Number[i],x,y,0,0,1600,900) Then //put in top bounds
      Begin
        Writeln('Number is ' +IntToStr(i));
        Result:=i
      End;
    end;

    function FindBottomNumber : integer;
    begin
      For I:=0 to 9 do
      If FindDTM(Number[i],x,y,0,0,1600,900) Then//put in botom bounds
      Begin
        Writeln('Number is ' +IntToStr(i));
        Result:=i
      End;
    end;


    Function WutMath:(Add, Subtract, Multiply, Divide);
    begin
      For I:=0 To 3 Do
      Begin
        If FindBitmapToleranceIn(Maths[i],x,y,629, 104, 686, 147, 50) Then
        Begin
          Case I Of
          0:Begin
             Writeln('Add');
             Result := Add;
            End;
          1:Begin
             Writeln('Subtract');
             Result := Subtract;
            End;
          2:Begin
             Writeln('Multiply');
             Result := Multiply;
            End;
          2:Begin
             Writeln('Divide');
             Result := Divide;
            End;
          End;
        End;
      End;
    end;

    Function Solve:Integer;
    begin
      Result:=( (FindTopNumber)   SIGN HERE (BottomNumber))
    end;

    begin
      ActivateClient;
      LoadPictures;
      FindCloud;
    end.
    If you still need it tomorrow I'll help you .
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  6. #6
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Quote Originally Posted by Sex View Post
    YoHoJo's code seems a bit sloppy to me
    SCAR Code:
    program MathsNightmare;

    var
      x, y,i: Integer;
      Number: Array[0..9] of Integer;
      Cloud: Integer;
      Maths:Array[0..3] of Integer;
      //0=add 1=sub 3=mult 4=div

    procedure LoadPictures;
    begin
      Maths[0] := BitmapFromString(14, 14, 'beNrbenXd/ttoiIEhDYiAjBW7b' +
           'izaehWO8Khcu+8WkSqBaOXuG0SqRDYWv0ogWrbjOpEq4Q6AiFMXEb' +
           'QdiJZuv0aMOwdc5eJtRIXnmr3gaAIA/Q1Z1g==');
      Maths[1] := BitmapFromString(7, 2, 'beNpjSGNgAKL/SCgNOwIAwQIH+Q=' +
           '=');
      Maths[2] := BitmapFromString(12, 13, 'beNqr21pUt5WBIS00bsH6' +
           'g/fREFAQKFVZvxPOrmrfhaygsX8/UDAybvHeQy+A3AUbrgC5QDR1y' +
           'VmIglmrLgC5plbdazbe2X3oOUSwY9oRsGDX0m03gFx3/+lAbv/cEx' +
           'sOPkA2PKt0PcRhQEuBDKA7MV0I147LCxAENByiBsjApQZuDtBhWBV' +
           'A3AN0TELWCiADyEVTAPEX3BlAc4BcoCBcATB8IIJABnL4IItAwhkY' +
           'sMgmQ0IA6EIgm2B8FQEAeikQNg==');
      Maths[3] := BitmapFromString(15, 14, 'beNqt0e8KgjAUh2GvtusUpf' +
           'DP5nRqUkl9NM/0HjwyPc3JpCB4Pwz2gD+m393K0crzTjo8X4Wq+Kc' +
           'DXGVDHgMLu8RfsmQtBsJ5BBhJEzdylExpYMbDt4XnL+6YLrv0JpYp' +
           'uCQmjCW08O8dDKDSYJkh2Q/4+VLf47aFx31ztV9Ir4HnpoS6cGKxx' +
           'ViRODE/rz9lAk+Pqkg=');
      Number[0] := BitmapFromString(10, 16, 'beNrbcWv9wfsQVFS31dSqi4EhDci' +
           'AC0JQaNyCrNL1cGVALoS9au+dwtotQF3Iit39pydkrQAyZq29DDSt' +
           'pHH7it131uy7C5HtmHYEKLhgw5Xixu1ARvecE0t23IKgZTtvTVl6F' +
           'ihY1rwjKnUpkDFh0Rm4LAQBBYFShuadQAaaFEQWjmghC3EV0F/IUt' +
           'NWXIBIQXyE5mYgFygIlIIoAzKQZSs79gAFgVJAdnL+GmfvqciyQC7' +
           'QWDgX6Ovsik1ABtABQMX+kfOQFUMEgabBlYEQAGnmEb8=');
      Number[1] := BitmapFromString(6, 16, 'beNpjSJu19nJD/4' +
           'Hk/DWG5p1LdtwCIv/IeUDEwJAGRBARCBqWIhMWnYGIABlwWQQCAD1' +
           'lkdE=');
      Number[2] := BitmapFromString(10, 16, 'beNpbe3n9wftA1' +
           'Ni/391/OgNDmqlVV1HdVoggEK07eB/IBYojI6CapdtuAGW755wwtu' +
           'icuPAMRHHHtCMQBVml64Hc5Pw101ZcWLLjFhAt33Vn5Z67bVMPQxQ' +
           'AZYsbt0OkkBFEFlMcLhuVuhSrFNAioGzbtCNYZSs79vhHzsNlrKF5' +
           '54RFZ3BpBCJcNmZXbMIqNWvtZay+g6CG/gNoInDb0aSA5gCtAAYjk' +
           'A10P1osQBBQCy4pIJoFAGNiGWA=');
      Number[3] := BitmapFromString(9, 16, 'beNrbcWvJjluz1l' +
           '7OrthkaN7JwJDm7D21of8AUBAiDhFERhDZpPzVbdOOQJRNW3HBP3I' +
           'eUAqoGMidv/U6RBxuCEQjsiAcAcWBVmOKA20BmgbUi2ZUZcceoJbu' +
           'OScwzYEjoBo02QmLzkSlLoXIYuoFIogs0O+YUkD1+N0P8TWpXoMEG' +
           'tBGuGsh4pBQLW7cDg95oDIgFxoUALQe9y8=');
      Number[4] := BitmapFromString(10, 16, 'beNrbcWvJDnSUX' +
           'bGJgSFtyc7ba/bfQ5OasOgMUAokuwOLRv/IebhkG/oPVHbswSUL1A' +
           'gkscoCHdM95wRWWaBjolKXQtiYskAzZ629jFUW4hg4F00W4hissnD' +
           'HYJWFsHEhTF/jCUmqyQIAdFER5g==');
      Number[5] := BitmapFromString(10, 16, 'beNrbcevgtvsQV' +
           'Fe+lYEhDY7iIhas2X8PIrVt9Q1kKSCaO+XEkh234Br72/fDzYEgiC' +
           'xQo5V5F5oUXBZio7/X9Pb6XUCVyLJdXVPQbCwvXrhh5ZGta88CZZc' +
           't2rFkwZYJvUtqqqZ6uNdBFCQktE2ePB0oe2Dn4+MHn968+vb29bdX' +
           'Lz5fOPcYRMHkSRuAsscOPLt45tW1i6+vXnh99TwILVt4FiiblbEcK' +
           'Hv8wDM4Orb/6bG9T4/ufhroOwuoAE0Wjrrb9kNkj+55CkTH9sHQfp' +
           'Ds5L6jibFLgAqO7HiCiRoqdiyYfgaoF1Nq84qb8ZGLgQygrLV5T4D' +
           '3zAXTzkCkgIyy/E0QNlAWyAXKQvwIFIcrA8kCAC6BLIQ=');
      Number[6] := BitmapFromString(10, 16, 'beNo78HzNwgNoq' +
           'K12TVzEdAaGNCBCEzcxaHRz7AIyZvRtRZYqyFwIVFxfvgLTNIhUT/' +
           'N6NPGV8/cBzcGlC4ggdmGVgmusKFgKVANkAxUDLYLIQhwP5M6dvAP' +
           'IXTRjF8QNwX4TIcai+QtZC9zXW9ceP3bwyqWL94Bo08YzQEF7+y6I' +
           '7J27T+8/fIGMIOI5uUuB5KUrD27dfHH14vPzJ6AIKGhn07tk6TEgY' +
           '8GsU6cOPEdGQMGWul1AZbZWvUF+s5Cl5k49BZTdsf4OkA0kgQqqSr' +
           'bs23ofyF065zyQCyThioEKgLIQl+Rnrt208gZIHAB48hOy');
      Number[7] := BitmapFromString(10, 16, 'beNo7eH/W2ssMD' +
           'GlYUWP//rZpR3DJLthwJadyU1Hd1qXbbqw/eB+OgOKhcQuAjIrWnc' +
           'jiEFTVvqtj2hFMcQhy95+OZhoczVp1ISFrBS6NQGf0zz2BS9bUqgu' +
           'X1NQlZ7NK1+OSBUoBFZBhLNAxQCfhMRboHaxSQO8DAwGXRmDQAQMQ' +
           'lyww2IGBjyIIAFI4P9A=');
      Number[8] := BitmapFromString(10, 16, 'beNplUUsLAWEU9' +
           'btkOWtlYamwUDYWsrGREitZsVCzMlmgPBZehSabGUU0ESHJJOJPON' +
           'PRbaJuX/dx7j3n3k+3b/f3znoUC9OAv+rxxGBwcpnRpH82dds0Lop' +
           'Sioa1prZxQt3uNraRUM3nLQ46h2SiDfxqeWWJhkYO4bTT8bVe3N0A' +
           '5oMBFW8+Oz7sn1LCcCQhplW3CEvEm7OhowR0IIUwIjV1SQCToEOvm' +
           'wV40SBdYuXSHFukUz0C4H/31W2AEf6zsAu+nIKCUSIFnR8itWJwAu' +
           '2nKtegEtD9X5LisQvmC4C/IDqpTfZFHqGT/wAqNRK4');
      Number[9] := BitmapFromString(10, 16, 'beNo7eH/voRdAt' +
           'GDplZi4pQwMaUBUVLplzcY7EHEgmjXvgqV1L5AEsjdtfwCUBXIhCp' +
           'avvgFUD5GCI1//2UAFQAZQJVAWWQqIJk8/DRTsmXAMqAZTFmg+UBD' +
           'uEjRZIIKIQ/QC3YxVtqZ+N5DMyF6LKQtxGMR8oDKIONAvaFqAXIgV' +
           'QL8AnQpxM5DEdA+yfzERHo3AQEN2A6YuNClgyAC1AF0ItGvS9FO7D' +
           'j3bfujJtkNPthx8BPF1eNzC5v4D6w/eR0EA36MnuA==');
      Cloud := DTMFromString('78DA635465606010664001EB0FDE05D38C503' +
           'EA3269060465593D5B101558D13901042551356B900558D1A9050' +
           '4055E3573407550DC81E5E543546D11D286A00833A08E8');
    end;

    procedure FindCloud;
    begin
      if FindDTM(Cloud,x, y,609, 141, 678, 182) then
      WriteLn('Found Cloud, attempting solve..');
    end;

    Function FindTopNumber:Integer;
    begin
      For I:=0 to 9 do
      If FindDTM(Number[i],x,y,0,0,1600,900) Then //put in top bounds
      Begin
        Writeln('Number is ' +IntToStr(i));
        Result:=i
      End;
    end;

    function FindBottomNumber : integer;
    begin
      For I:=0 to 9 do
      If FindDTM(Number[i],x,y,0,0,1600,900) Then//put in botom bounds
      Begin
        Writeln('Number is ' +IntToStr(i));
        Result:=i
      End;
    end;


    Function WutMath:(Add, Subtract, Multiply, Divide);
    begin
      For I:=0 To 3 Do
      Begin
        If FindBitmapToleranceIn(Maths[i],x,y,629, 104, 686, 147, 50) Then
        Begin
          Case I Of
          0:Begin
             Writeln('Add');
             Result := Add;
            End;
          1:Begin
             Writeln('Subtract');
             Result := Subtract;
            End;
          2:Begin
             Writeln('Multiply');
             Result := Multiply;
            End;
          2:Begin
             Writeln('Divide');
             Result := Divide;
            End;
          End;
        End;
      End;
    end;

    Function Solve:Integer;
    begin
      Result:=( (FindTopNumber)   SIGN HERE (BottomNumber))
    end;

    begin
      ActivateClient;
      LoadPictures;
      FindCloud;
    end.
    If you still need it tomorrow I'll help you .
    1) Bitch! Its just a quick script for him, i just edited his up, whats so sloppy?
    2) Not sure if that code even makes sense?
    Function WutMathAdd, Subtract, Multiply, Divide); ?
    How would that play a part in here:
    SCAR Code:
    Function Solve:Integer;
    begin
      Result:=( (FindTopNumber)   SIGN HERE (BottomNumber))
    end;
    Need the result of wutmath to go here it says SIGN HERE
    Last edited by YoHoJo; 10-30-2009 at 05:23 AM.

  7. #7
    Join Date
    Oct 2009
    Location
    Melb, Australia
    Posts
    179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    Function WutMath: integer;
    begin
      For I:=0 To 3 Do
      Begin
        If FindBitmapToleranceIn(Maths[i],x,y,629, 104, 686, 147, 50) Then
        Begin
          Case I Of
          0:Begin
             Writeln('Add');
             Result := (FindTopNumber + FindBottomNumber);
            End;
          1:Begin
             Writeln('Subtract');
             Result := (FindTopNumber - FindBottomNumber);
            End;
          2:Begin
             Writeln('Multiply');
             Result := (FindTopNumber * FindBottomNumber);
            End;
          3:Begin
             Writeln('Divide');
             Result := (FindTopNumber / FindBottomNumber);
            End;
          End;
        End;
      End;
    end;
    No?
    Last edited by code841; 10-30-2009 at 06:40 AM.

  8. #8
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    ROLFMAO!
    Wowwww, how didnt I think of that, so simple!
    Winrar!
    Good job dude!

  9. #9
    Join Date
    Sep 2006
    Posts
    322
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    I give up(for now) Thanks for the help. Toooo complicated.
    "SRL is the best SCAR community in the World, with the most talented programmers: adjust your volume."
    -Wizzup?

  10. #10
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    ROFL, we shall talk on AIM unc.

  11. #11
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    Are you aware that the numbers are bitmaps..

    Not DTMs..
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  12. #12
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Yeh, we fixed that
    Nice catch.

  13. #13
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Lmao, sorry YoHoJo, I was like 75% asleep haha!

    I didn't know what you meant because I had no clue what this was for. But I'm sorry. If you change the FindDTM to FindBitmapTolerance then it might work .
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

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
  •