Results 1 to 9 of 9

Thread: Strange Problem After Finding Bitmaps..

  1. #1
    Join Date
    Jan 2015
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default Strange Problem After Finding Bitmaps..

    Posted script in comments below... but atm Im having a problem With Bitmaps.. SO If It does find the Bitmap, and moves to another node and comes

    back Even If the bitmap Isn't their It acts as if it were and Clicks exactly where it found the bitmaps Location last Loop. (notice this is an

    If Then Statement so it shouldnt even activate unless the bitmap is found) The only errors I have is THe simba Client Stating The Bitmaps Were

    not freed Even though I Wrote in the script for them to be. Is there any way to force the script to Forget the bitmap's Cord after it has found

    it while keeping the bitmapstostring Information? Like .... If Findbitmap(VAR,X,Y) then Begin

    What My problem is even if the Bitmap isnt in place as long as it has found it once it remembers its locations and continues on with the

    script even though the Bitmap Is not even There. Any ideas? Im used to using Scar and Have transfered Over to simba Because the game Im

    working with uses OpenGl and Scar doesnt work well with OpenGl after Targeting the program.


    Any Help Appreciated Sorry for the randomness, I didn't know how to exactly state the problem but this is along the lines..
    Code:
    program New;
    
             /////////////////////////////
             //         Made By          /
             //         Schaller         /
             //                          /
             /////////////////////////////
             //Instrunctions, Go to The RIGHT Side apple tree and stand
             // Have Your Compass Zoomed all the way out/////// Make Sure your Char is Pointed North
             // RELOG on Dc
             // Added Camera Fix on Server DC
             // Resolution = 1024x600 on client Then Target Client
             //  Dc Counter Added.
             // added confirm Reward On level
             // Gather Protection Added!
    
    var GatherProtecti2,gpx2,gpy2,DcSupport,inspectmode,ix,iy,gatherprot,gatherprotectio,gpx,gpy,camfixx,reward,lx,ly,Camfix,cf,cy,Rlcounter,Login,xx,y,Counter,x:integer;
    begin
    
    
    
    
              wait(5000);
         Counter:=0;
         rlcounter:=0;
    
    
    repeat
    
           InspectMode := BitmapFromString(4, 6, 'beNq7cejHjUMMDAxAEoL' +
           'wsCEALoKCAFdgLkU=');
    
    GatherProtectio := BitmapFromString(14, 14, 'meJxFkd1r01AYh/8DL2yTnKTD72' +
            'q7Nl1OPlod9pzkxNUurdMWmZvTuamDsYayxW4XQkSYMPzCDxRhboL' +
            'dpN7UwmAUvNvNdqGg+Bf5nkwQnouQ8+R3fu8bmZ0XqRlhiMQQCI6Z' +
            'qkg0kWCRYsk2kGPKzEKOIbPCf62I48O58eX2kVP5hFaXCEaRicDkD' +
            '3nQBGLEi/qAVs7U3njNtpiabL4/iJnZSOAyhEu2JRAdOOtMZEut3E' +
            'x3LOikWGvmxUHcUiONI1Es2iZ0A9jcpjoa6ve+TYdfk3Tx5tqPmAW' +
            'ZOqKcAbcAsQLVoLy32EmPPKyHe/OrX44b94MPcHsGogBEcbJqQ4do' +
            'Rlx78Fm98uzG2h8v2GF+d2i2l6T1dDk8NNPXRrhpg6lX/XWv1S8t9' +
            'UvBrhfsmre3akvtQfcuaNAhMg2Rt9WrjfVSo5uf+sgWeteXeysbP6' +
            'ef7gs5/Z959ZLCYAP89vLca//tfqrysji7/aTzq/Fqzxh/dzSjSjA' +
            'F0c6NuYprcZPiYxeKd1b7dmNn8vH3R9u/y/ObSHf5cvj/0k57RHFN' +
            '/hXVENUq/qfLC51Rf8ua2jjphEL+cHZNIlqCWTLfKteQjU9Yt3B1Z' +
            'Xji+ZmLTXGwAi+liCh2CCZSAGYmXFPAGWTpcsESDCOuZxXHhCOIkm' +
            '3OX+ffm7A=');
            GatherProtecti2 := BitmapFromString(14, 14, 'meJxFkd1r01AYh/8DL2yTnKTD72' +
            'q7Nl1OPlod9pzkxNUurdMWmZvTuamDsYayxW4XQkSYMPzCDxRhboL' +
            'dpN7UwmAUvNvNdqGg+Bf5nkwQnouQ8+R3fu8bmZ0XqRlhiMQQCI6Z' +
            'qkg0kWCRYsk2kGPKzEKOIbPCf62I48O58eX2kVP5hFaXCEaRicDkD' +
            '3nQBGLEi/qAVs7U3njNtpiabL4/iJnZSOAyhEu2JRAdOOtMZEut3E' +
            'x3LOikWGvmxUHcUiONI1Es2iZ0A9jcpjoa6ve+TYdfk3Tx5tqPmAW' +
            'ZOqKcAbcAsQLVoLy32EmPPKyHe/OrX44b94MPcHsGogBEcbJqQ4do' +
            'Rlx78Fm98uzG2h8v2GF+d2i2l6T1dDk8NNPXRrhpg6lX/XWv1S8t9' +
            'UvBrhfsmre3akvtQfcuaNAhMg2Rt9WrjfVSo5uf+sgWeteXeysbP6' +
            'ef7gs5/Z959ZLCYAP89vLca//tfqrysji7/aTzq/Fqzxh/dzSjSjA' +
            'F0c6NuYprcZPiYxeKd1b7dmNn8vH3R9u/y/ObSHf5cvj/0k57RHFN' +
            '/hXVENUq/qfLC51Rf8ua2jjphEL+cHZNIlqCWTLfKteQjU9Yt3B1Z' +
            'Xji+ZmLTXGwAi+liCh2CCZSAGYmXFPAGWTpcsESDCOuZxXHhCOIkm' +
            '3OX+ffm7A=');
    
    
              Reward := BitmapFromString(26, 10, 'beNplzOFLg0AYBnB2ztx524' +
           'dMKak1MW3NeSwFg41R3yLJhUEEEREjqEb///fe887zdPDj5Xl93jN' +
           'yyd+tNPy9I7s1873nq7Zdks9Vy/uysa3s1ubPCn9k0MLkoBWhegLB' +
           'fLtpec3EfEkZHmRVrfg5kVOSKwRSJnLKMHiiZnGNy5jZ1BMUEXlc4' +
           'HzeVGoL37ki6gaW4RXFecwC2FA2YeVfYOVK2jqTVR4P7mcAP8A/49' +
           '7E7I2HAmROrn49OfVGtso98kZoTBqwqnzShP22c+ONtAubQ94hYCG' +
           'w0JUjzCwUOpw4CyxxoxDPA0ufnkja1Dm4PO7PXZ2eAQgd/EALbQgt' +
           'od33j4CRTBqLczZTz8gqqQKqmk5PVUbkCv/y8GfK');
    Camfixx := BitmapFromString(11, 9, 'beNprd01LSjfWUdyyoqy/M7aq' +
           '0Le6yA+Iaor9J/cm9LRF62sqmugp7lpfpa0upigtKCfBa2MkF+ima' +
           'aYnpSDFZ2sqv3FZ6b5NtRM6Y2XEeP7///rnzz4pES57UwVZcZ7Pn0' +
           '4ByWn9iXs21JTnectL8v36vfPUweYnF+dJi3CBuD/3AnXVlQZsWlY' +
           'SHmqsJCvw7M0iRWn+C0c7752epSQj8OjCXKAJMVHm4f7aYSHGKnJC' +
           '5/dPApqvIid48WjXq+sLT+5tl5XgiYs1m7vePjzMSF1R5OTubmkxb' +
           'm0NEQ0l4X17Cmct9pCT5I2JNw2MN86otNbXFt+2Pk9Bms/TT11LXV' +
           'hbXWjOOltFWb7MKhtDXbmSNlcXT1VVJQEzc+nUEqv4HDNDQwllOT4' +
           'ra/kSAAxlaMo=');
    
    Login := BitmapFromString(25, 22, 'meJxtVAswlHsUt6Yolbo1vW73Tn' +
            'VVZG6RiIrVTSIXudJDUSqPtCiJ3CIqsVyvFMUuwso1Edq1i9YrSyT' +
            'PCbNtYrMWu/vtw748r3u+dsbVzJ35zZnzO+d3zv/8z/efT83STzOQ' +
            'dCSz9nJRpw/ts2fpR6t4Mr6JaXr/JTamzCSsQO8a8fVnXpdiplMx2' +
            '62ceS9WNPHGu0TKj5KJVp40tqLDODRnXzhpdUieuvczkyfU07nv3A' +
            's7ThV2YhMr9IKzySOSzbhnBqEFJmEvdwflbfFOrRuTQitAA19qF1c' +
            'UW9WR+6H/7ZCwiStqF8ldUymGtzK3xL6yz6p2ft5gQ6zb+7BYJ5BA' +
            '7B0q+sJLauzzza//4xHleFLZ+YzKks9jLeLJdvl0m2yqsG/4Sg49r' +
            'qrDK7Myp5VVO4w0S5T+LxsOplJ+J1QefkLbHVFgl07LZyOlbIQ+Nk' +
            '4bFpcPIdVccRVXRPuKlPXz6FxJs1j5Hu41PvG8lZX29mP9EOKT/Sa' +
            'goK58VFIqVlqlkS2Sy/TDSQcSStJGpVnMkeKvQgpXQhsdp45I6vhS' +
            'BiJvEMgb+HIGWIGsAVEwhIpGgRyXX5vdzYZV3Kpod0glP+GItKx8N' +
            'bDeGod8nEg0+9ya3x6T8WxB4oAgg43kc0TkMSmVL6Xz5TV8aRVPWj' +
            'QszBtEcgaFxAFBKnPEMYOWMIDEfBF4VHYeIVaFFdTiX7fgMqgYA2e' +
            'jyMyrLGEwk+ff2HOHybve1Jc8gDzuF9xv7oPaJOZYdB/3VBbFJj7f' +
            'NiE/vHvo+N+Mi039rvRu3CfEIvPNqx6O0wNSA1+BOXhV+1gIWIz51' +
            'ZXHQjafCwSLsfBX0W2u13Q8wjUtfXd64E39UgAQX259Za2DNyozR6' +
            'uMcSkwj8N9ElgTXEqLQNGKKH5yiVDTPQz6TxNz7Sr6qx3Y7BYWsZn' +
            'lk06lDiLNAoXzAxJmz0l9D3wHogBEtXEwZpdAqbZlL2bfBXwjK66R' +
            'BY6KxjeyEr9R0KR1cm5VdKO+gdMy2xB8G4cimdvgEqGSxTayfNhzb' +
            'gzOUtsQjP5RCHpWs7yq0Vr1/ZfB+lSzfGtQuiuIEDUytz2QoLbTGk' +
            '6Bo7deJwRz5qxSqJC9SGedecPSzRswpU/uSW/HGJ+DoGF2r0m5RJf' +
            'Yq4JRuWRXVi/Ef4mgWNZOarsnw8U3ud5AZ7bwN6ya3EFEs9sIvYCl' +
            '9nfNy8SHKibAQVtl9ALQW3zDPN16hwyatZ7pMNWh7BpVK4jsjGP8J' +
            '4M3gC+/1D2zwgm9tV0xEzC/q3m6xhUPGmzGO4zR6f1xJDV9G1VkR3' +
            'DevGyVc4TnO45DQQtoYLfgu9HR5SwyPLaQQhY0t7lzBuEkzAEf2C3' +
            'EIQsayKp8yJ583Q0NYXLdGwQIAsBRN3BYSCEL3bApVFwXAoBCa2It' +
            'NIT9b3DHq2ToIzQ+p6ZnhX4XfRvVisD5H6pjBs8As98bBQxj6KK2z' +
            'fw7GfjfgNHDzvsAdV2LhVTL0GohncfPjhe+qzp4ZvH5aK0A4ipHvz' +
            'XWbutt3Q2C8NjnNetOBGiZHV9h7mwUFB3QOeBBqTfw/XOVmd1KM7v' +
            'lpvZLLN20HG9ECyexkcnaFifWHT2reZu6NLFNK61t9b0S65Kek/Wc' +
            'yx38YLY4aBBF6JAkYlQWhShjxVNx41PxsukYoRIvVOree7H+JnF75' +
            'IsY8aR9cXPkqDyQKVgcWKgZy1jytGtZYq1eSuX5dqF3j+zmF1EkTx' +
            '4lmMCLpv6STifIppMUM8kA5SzYi/U9P4ZkbgzOhM5OpS33RmV32JL' +
            'lXmmLvAgad2kajz8sy+35IbFyE/wDiXVn6/vvcmXoGNLpRPlMEnRQ' +
            'zj5S/vNwTBr6aWSjf+qGa0+TFLMu5PfRiDKMLVrhR9AOzPkXRElIZw==');
    DcSupport:=0;
             gatherprot:=0;
          Counter:= Counter + 2
    
    begin
    
           writeln('gathering..')
           wait(2500);
    MoveMouse(513, 237);
    wait(50);
    ClickMouse(513,237,0);
    wait(1000);
       if FindBitmap(inspectmode,ix,iy) then
    
       begin
    
       movemouse(ix,iy);
       clickmouse(ix,iy,1);
       wait(1000);
       end;
        if findbitmaptolerancein(gatherprotecti2,gpx2,gpy2,460,473,491,495,100)         // This Is the If Then That Ghosts
              then begin
              gatherprot:=gatherprot+1;
              movemouse(gpx2,gpy2);
                 writeln('Gather Protection + ' + IntToStr(GatherProt)+'.');
                     wait(16000);
    
                end else
    wait(16000);
    
    //REWARD CHECK
              if
    FindBitmap(reward,lx,ly)
    then
         begin
    writeln('found Reward Screen... Accepting..');
    wait(15000);
    MoveMouse(lx,ly);   wait(1000);
    Clickmouse(lx,ly,1);
    wait(2000);
    
    
              end;
              //DCSUPPORT CHECK
              if findbitmap(login,xx,y) then begin
                           DcSupport:= Dcsupport+1;
                                writeln('DC check..PASSED');
              end;
              //DC SUPPORT CHECK
    
    end;
    
    
    if
    DcSupport=0
    then
         begin
    writeln('DC FOUND Attempting Relog..');
              Camfix:=0;
    
    wait(45000);
    movemouse(723,265);
    clickmouse(723,265,1);
    MoveMouse(883,592);   wait(1000);
    Clickmouse(883,592,1);
    ClickMouse(883,592,1);
    wait(2000);
    movemouse(1015,619);
    clickmouse(1015,619,1);
    wait(1000);
    MoveMouse(903,621);
    ClickMouse(903,621,1);
    wait(4000)
    clickmouse(903,621,1);
    wait(10000)
    rlcounter:= rlcounter+1;
    Gatherprot:= Gatherprot+1;
    writeln(('Number of Dcs ') + IntTostr(rlcounter) + ('.'));
    ///////////////////////////////////////////////////////////////////////
          wait(3500);
    
    repeat
    
          writeln('Attempting To Fix Camera Angle...');
    KeyDown(VK_Left); wait (300);
    Keyup(VK_Left); wait(300);
    
    
        if
    FindBitmaptolerancein(Camfixx,cf,cy,1261,34,1284,51,150)
    then
    begin
          Keyup(Vk_left);
            Camfix:=1;
    
    
    
         Keydown(Vk_down); wait (300); Keyup(Vk_down);
    writeln('Found Correct Camera ange!Adjusting...');
    
    wait(20000);
    
            end;
                   until Camfix=1;
    
                end;
    
    
    /////
    
    //CAMERA FIX  ////////////////////////////////////////////////////////////////
    
    
    
    
    
    //////////////////
    //////////////////  RELOG PROCESS
    ////////////////
    
    
     // Moving To Left Tree
    
     Begin
            Camfix:=0;
            DcSupport:=0;
       Writeln('Moving Trees...');
      movemouse(928,113); wait(2000);
       Clickmouse(928,113,1);
       Clickmouse(928,113,1);
    
       wait (6000);
    end;
     //Regather
    begin
    
           writeln('gathering..')
           wait(2500);
    MoveMouse(513, 237);  //cord set for middle of screen MAKE SURE TO HAVE FULL SCREEN
    ClickMouse(513, 237,0); wait(1000);
                   if findbitmap(inspectmode,ix,iy)then
       begin
       movemouse(ix,iy);
       clickmouse(ix,iy,1);
       wait(1000);
    
       end;
                  if findbitmaptolerancein(gatherprotectio,gpx,gpy,449,466,486,500,100)
              then begin
    
              gatherprot:=gatherprot+1;
              movemouse(gpx,gpy)
              writeln('Gather Protection + ' + IntToStr(GatherProt)+'.');
              wait(16000);
                  end else
    
    wait(16000);
    
       //
         //REWARD CHECK
              if
    FindBitmap(reward,lx,ly)
    then
         begin
    writeln('found Reward Screen... Accepting..');
    wait(15000);
    MoveMouse(lx,ly);   wait(1000);
    Clickmouse(lx,ly,1);
    wait(2000);
    
    
              end;
    //REWARD CHECk
    
    
     ///////////////
      ///////////////     RELOG PROCESS
      ///////////////
                                //DCSUPPORT CHECK
              if findbitmap(login,xx,y) then begin
                           DcSupport:= Dcsupport+1;
                                  writeln('DC check..PASSED');
              end;
              //DC SUPPORT CHECK
    
                if
    DcSupport=0
    then
         begin
    writeln('DC FOUND Attempting Relog..');
                      gatherprot:=Gatherprot+1;
    wait(45000);
    movemouse(723,265);
    clickmouse(723,265,1);
    MoveMouse(883,592);   wait(1000);
    Clickmouse(883,592,1);
    ClickMouse(883,592,1);
    wait(2000);
    movemouse(1015,619);
    clickmouse(1015,619,1);
    wait(1000);
    MoveMouse(903,621);
    ClickMouse(903,621,1);
    wait(4000)
    clickmouse(903,621,1);
    wait(10000)
    rlcounter:= rlcounter+1;
    writeln(('Number of Dcs ') + IntTostr(rlcounter) + ('.'));
    ///////////////////////////////////////////////////////////////////////
          wait(3500);
    
    repeat
    
          writeln('Attempting To Fix Camera Angle...');
    KeyDown(VK_Left); wait (300)
    Keyup(VK_Left); wait(300)
    
    
    
        if
    FindBitmaptolerancein(Camfixx,cf,cy,1261,34,1284,51,100)
    then
    begin
           Keyup(Vk_left);
            Camfix:=1;
    
         Keydown(Vk_down); wait (300); Keyup(Vk_down);
    
    writeln('Found Correct Camera angle! Adjusting...');
    
    wait(20000);
    
            end;
                   until Camfix=1;
    
                end;
    
    
    
    
    //////////////////
    //////////////////  RELOG PROCESS
    ////////////////
    
    
    
    
    //GATHER AMOUNT
    Begin
      writeln(('Gathered a total of ') + IntTostr(counter) +' times.');
       if Gatherprot=0 then
    begin
    writeln('Error Detected No gather! Shutting Down');
    repeat
    until gatherprot=2
    
         end;
               if Gatherprot=1 then
    begin
    writeln('Error Detected Player Interruption!! Shutting Down');
    repeat
    until gatherprot=2;
    
         end;
                   // freebitmaps
             Begin
      FreeBitmap(Login)
      freebitmap(camfixx)
      Freebitmap(reward)
      FreeBitmap(GatherProtectio)
      freebitmap(GatherProtecti2)
      FreeBitmap(InspectMode)
       end;
         // Move to right Tree
         begin
          Camfix:=0;
     Writeln('Moving Trees...');
     movemouse(963,115); wait(1000);
    Clickmouse(963,115,1);
    Clickmouse(963,115,1); wait (6000);
    end;
    end;
    end;
    
    
    
    
      until x=999999999 ;
    
    end.
    Last edited by schallerx; 01-22-2015 at 04:28 AM.

  2. #2
    Join Date
    Dec 2011
    Location
    East Coast, USA
    Posts
    4,231
    Mentioned
    112 Post(s)
    Quoted
    1869 Post(s)

    Default

    Quote Originally Posted by schallerx View Post
    Alright So Im not wanting to post My entire script
    Kind of stopped reading right there, you need to post code. Otherwise we don't have any semblance of what's going wrong and thus have no way to help you.

    The rest of your post might explain the problem ... but yeah. Obvious issues with that.

    I'm having a problem with bitmaps. When my script does find a bitmap, it (the mouse?) moves to another node (location? point?) and comes back, acting if the bitmap isn't there! After it comes back, it clicks, but it's clicking where the bitmap used to be - in the previous iteration of the script's loop.

    Note that this is an if-statement, so it shouldn't even run unless the bitmap is found (we don't know this for sure, we need to see code)

    The only errors I have are the Simba IDE stating that bitmaps were not freed (this is usually due to incorrect termination) even though I am freeing them at some point in the script (the calls are never being made, or the script terminates before the bitmap are declared)

    Is there any way to force my script to forget the bitmap's coordinates while keeping the BitmapFromString() information? (the easiest way to accomplish this will depend on how your script is already structured - post code!)

    In practical terms, my problem lies in the fact that the bitmap is found, but doesn't exist on-screen all the time, so the script ends up continuing regardless of its existence. Any ideas? (a conditional wait would probably solve this, but again we need to see some code)

    I'm used to SCAR and have migrated to Simba because the game I'm working with uses OpenGL - and SCAR doesn't work well when targeting an OpenGL client.
    I've attempted a clarification of sorts ... let me know if I misinterpreted anything.
    Last edited by KeepBotting; 01-22-2015 at 03:31 AM.
    GitLab projects | Simba 1.4 | Find me on IRC or Discord | ScapeRune scripts | Come play bot ScapeRune!

    <BenLand100> we're just in the transitional phase where society reclassifies guns as Badâ„¢ before everyone gets laser pistols

  3. #3
    Join Date
    Jan 2015
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by KeepBotting View Post
    Kind of stopped reading right there, you need to post code. Otherwise we don't have any semblance of what's going wrong and thus have no way to help you.

    The rest of your post might explain the problem ... but yeah. Obvious issues with that.


    Somewhat accurate though the Problem Only lies in Once it has found the bitmap. If the bitmap has never been found


    I've attempted a clarification of sorts ... let me know if I misinterpreted anything.
    Yea To simplify things most of this is correct. Though my problem Is after it has once found the node and then comes back to a spot where a node could be it Automatically assumes the node is there even if it isnt as long as it has found it one time. As far as posting the code I don't see why not as Im going to be releasing it anyway though I wanted it to be done before I do. I have a Complete version of the script in scar but It only Works for Me because the script calls for specific X,y Cord In the client So If I were to release The version That works for me It wouldn't work for others so Im in the proccess of setting it up so it can be used on multiple different systems with no problem, thus I moved to Simba Because Simba Can still find The bitmaps after Being Targeted as to where Scar Wouldn't. As for the script, It's a little sloppy since Ive thrown it around between a few compilers and am still working on getting it to work after Targetting Planes.. Ill post the script up in a few gotta change some stuff around first.

  4. #4
    Join Date
    Oct 2014
    Location
    With ezreal~
    Posts
    295
    Mentioned
    45 Post(s)
    Quoted
    255 Post(s)

    Default

    OH GOD.

    Double space your shtuff! Help us dyslexic kids out... I had to read KeepBotting's spaced out "quote" just to see what was going on.

    Also, please tell me you're writing a hearthstone script. I would love you forever and ever and ever and ever!



    It's not gay if it's efficient.

  5. #5
    Join Date
    Jan 2015
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Code:
    program New;
    
             /////////////////////////////
             //         Made By          /
             //         Schaller         /
             //                          /
             /////////////////////////////
             //Instrunctions, Go to The RIGHT Side apple tree and stand
             // Have Your Compass Zoomed all the way out/////// Make Sure your Char is Pointed North
             // RELOG on Dc
             // Added Camera Fix on Server DC
             // Resolution = 1024x600 on client Then Target Client
             //  Dc Counter Added.
             // added confirm Reward On level
             // Gather Protection Added!
    
    var GatherProtecti2,gpx2,gpy2,DcSupport,inspectmode,ix,iy,gatherprot,gatherprotectio,gpx,gpy,camfixx,reward,lx,ly,Camfix,cf,cy,Rlcounter,Login,xx,y,Counter,x:integer;
    begin
    
    
    
    
              wait(5000);
         Counter:=0;
         rlcounter:=0;
    
    
    repeat
    
           InspectMode := BitmapFromString(4, 6, 'beNq7cejHjUMMDAxAEoL' +
           'wsCEALoKCAFdgLkU=');
    
    GatherProtectio := BitmapFromString(14, 14, 'meJxFkd1r01AYh/8DL2yTnKTD72' +
            'q7Nl1OPlod9pzkxNUurdMWmZvTuamDsYayxW4XQkSYMPzCDxRhboL' +
            'dpN7UwmAUvNvNdqGg+Bf5nkwQnouQ8+R3fu8bmZ0XqRlhiMQQCI6Z' +
            'qkg0kWCRYsk2kGPKzEKOIbPCf62I48O58eX2kVP5hFaXCEaRicDkD' +
            '3nQBGLEi/qAVs7U3njNtpiabL4/iJnZSOAyhEu2JRAdOOtMZEut3E' +
            'x3LOikWGvmxUHcUiONI1Es2iZ0A9jcpjoa6ve+TYdfk3Tx5tqPmAW' +
            'ZOqKcAbcAsQLVoLy32EmPPKyHe/OrX44b94MPcHsGogBEcbJqQ4do' +
            'Rlx78Fm98uzG2h8v2GF+d2i2l6T1dDk8NNPXRrhpg6lX/XWv1S8t9' +
            'UvBrhfsmre3akvtQfcuaNAhMg2Rt9WrjfVSo5uf+sgWeteXeysbP6' +
            'ef7gs5/Z959ZLCYAP89vLca//tfqrysji7/aTzq/Fqzxh/dzSjSjA' +
            'F0c6NuYprcZPiYxeKd1b7dmNn8vH3R9u/y/ObSHf5cvj/0k57RHFN' +
            '/hXVENUq/qfLC51Rf8ua2jjphEL+cHZNIlqCWTLfKteQjU9Yt3B1Z' +
            'Xji+ZmLTXGwAi+liCh2CCZSAGYmXFPAGWTpcsESDCOuZxXHhCOIkm' +
            '3OX+ffm7A=');
            GatherProtecti2 := BitmapFromString(14, 14, 'meJxFkd1r01AYh/8DL2yTnKTD72' +
            'q7Nl1OPlod9pzkxNUurdMWmZvTuamDsYayxW4XQkSYMPzCDxRhboL' +
            'dpN7UwmAUvNvNdqGg+Bf5nkwQnouQ8+R3fu8bmZ0XqRlhiMQQCI6Z' +
            'qkg0kWCRYsk2kGPKzEKOIbPCf62I48O58eX2kVP5hFaXCEaRicDkD' +
            '3nQBGLEi/qAVs7U3njNtpiabL4/iJnZSOAyhEu2JRAdOOtMZEut3E' +
            'x3LOikWGvmxUHcUiONI1Es2iZ0A9jcpjoa6ve+TYdfk3Tx5tqPmAW' +
            'ZOqKcAbcAsQLVoLy32EmPPKyHe/OrX44b94MPcHsGogBEcbJqQ4do' +
            'Rlx78Fm98uzG2h8v2GF+d2i2l6T1dDk8NNPXRrhpg6lX/XWv1S8t9' +
            'UvBrhfsmre3akvtQfcuaNAhMg2Rt9WrjfVSo5uf+sgWeteXeysbP6' +
            'ef7gs5/Z959ZLCYAP89vLca//tfqrysji7/aTzq/Fqzxh/dzSjSjA' +
            'F0c6NuYprcZPiYxeKd1b7dmNn8vH3R9u/y/ObSHf5cvj/0k57RHFN' +
            '/hXVENUq/qfLC51Rf8ua2jjphEL+cHZNIlqCWTLfKteQjU9Yt3B1Z' +
            'Xji+ZmLTXGwAi+liCh2CCZSAGYmXFPAGWTpcsESDCOuZxXHhCOIkm' +
            '3OX+ffm7A=');
    
    
              Reward := BitmapFromString(26, 10, 'beNplzOFLg0AYBnB2ztx524' +
           'dMKak1MW3NeSwFg41R3yLJhUEEEREjqEb///fe887zdPDj5Xl93jN' +
           'yyd+tNPy9I7s1873nq7Zdks9Vy/uysa3s1ubPCn9k0MLkoBWhegLB' +
           'fLtpec3EfEkZHmRVrfg5kVOSKwRSJnLKMHiiZnGNy5jZ1BMUEXlc4' +
           'HzeVGoL37ki6gaW4RXFecwC2FA2YeVfYOVK2jqTVR4P7mcAP8A/49' +
           '7E7I2HAmROrn49OfVGtso98kZoTBqwqnzShP22c+ONtAubQ94hYCG' +
           'w0JUjzCwUOpw4CyxxoxDPA0ufnkja1Dm4PO7PXZ2eAQgd/EALbQgt' +
           'od33j4CRTBqLczZTz8gqqQKqmk5PVUbkCv/y8GfK');
    Camfixx := BitmapFromString(11, 9, 'beNprd01LSjfWUdyyoqy/M7aq' +
           '0Le6yA+Iaor9J/cm9LRF62sqmugp7lpfpa0upigtKCfBa2MkF+ima' +
           'aYnpSDFZ2sqv3FZ6b5NtRM6Y2XEeP7///rnzz4pES57UwVZcZ7Pn0' +
           '4ByWn9iXs21JTnectL8v36vfPUweYnF+dJi3CBuD/3AnXVlQZsWlY' +
           'SHmqsJCvw7M0iRWn+C0c7752epSQj8OjCXKAJMVHm4f7aYSHGKnJC' +
           '5/dPApqvIid48WjXq+sLT+5tl5XgiYs1m7vePjzMSF1R5OTubmkxb' +
           'm0NEQ0l4X17Cmct9pCT5I2JNw2MN86otNbXFt+2Pk9Bms/TT11LXV' +
           'hbXWjOOltFWb7MKhtDXbmSNlcXT1VVJQEzc+nUEqv4HDNDQwllOT4' +
           'ra/kSAAxlaMo=');
    
    Login := BitmapFromString(25, 22, 'meJxtVAswlHsUt6Yolbo1vW73Tn' +
            'VVZG6RiIrVTSIXudJDUSqPtCiJ3CIqsVyvFMUuwso1Edq1i9YrSyT' +
            'PCbNtYrMWu/vtw748r3u+dsbVzJ35zZnzO+d3zv/8z/efT83STzOQ' +
            'dCSz9nJRpw/ts2fpR6t4Mr6JaXr/JTamzCSsQO8a8fVnXpdiplMx2' +
            '62ceS9WNPHGu0TKj5KJVp40tqLDODRnXzhpdUieuvczkyfU07nv3A' +
            's7ThV2YhMr9IKzySOSzbhnBqEFJmEvdwflbfFOrRuTQitAA19qF1c' +
            'UW9WR+6H/7ZCwiStqF8ldUymGtzK3xL6yz6p2ft5gQ6zb+7BYJ5BA' +
            '7B0q+sJLauzzza//4xHleFLZ+YzKks9jLeLJdvl0m2yqsG/4Sg49r' +
            'qrDK7Myp5VVO4w0S5T+LxsOplJ+J1QefkLbHVFgl07LZyOlbIQ+Nk' +
            '4bFpcPIdVccRVXRPuKlPXz6FxJs1j5Hu41PvG8lZX29mP9EOKT/Sa' +
            'goK58VFIqVlqlkS2Sy/TDSQcSStJGpVnMkeKvQgpXQhsdp45I6vhS' +
            'BiJvEMgb+HIGWIGsAVEwhIpGgRyXX5vdzYZV3Kpod0glP+GItKx8N' +
            'bDeGod8nEg0+9ya3x6T8WxB4oAgg43kc0TkMSmVL6Xz5TV8aRVPWj' +
            'QszBtEcgaFxAFBKnPEMYOWMIDEfBF4VHYeIVaFFdTiX7fgMqgYA2e' +
            'jyMyrLGEwk+ff2HOHybve1Jc8gDzuF9xv7oPaJOZYdB/3VBbFJj7f' +
            'NiE/vHvo+N+Mi039rvRu3CfEIvPNqx6O0wNSA1+BOXhV+1gIWIz51' +
            'ZXHQjafCwSLsfBX0W2u13Q8wjUtfXd64E39UgAQX259Za2DNyozR6' +
            'uMcSkwj8N9ElgTXEqLQNGKKH5yiVDTPQz6TxNz7Sr6qx3Y7BYWsZn' +
            'lk06lDiLNAoXzAxJmz0l9D3wHogBEtXEwZpdAqbZlL2bfBXwjK66R' +
            'BY6KxjeyEr9R0KR1cm5VdKO+gdMy2xB8G4cimdvgEqGSxTayfNhzb' +
            'gzOUtsQjP5RCHpWs7yq0Vr1/ZfB+lSzfGtQuiuIEDUytz2QoLbTGk' +
            '6Bo7deJwRz5qxSqJC9SGedecPSzRswpU/uSW/HGJ+DoGF2r0m5RJf' +
            'Yq4JRuWRXVi/Ef4mgWNZOarsnw8U3ud5AZ7bwN6ya3EFEs9sIvYCl' +
            '9nfNy8SHKibAQVtl9ALQW3zDPN16hwyatZ7pMNWh7BpVK4jsjGP8J' +
            '4M3gC+/1D2zwgm9tV0xEzC/q3m6xhUPGmzGO4zR6f1xJDV9G1VkR3' +
            'DevGyVc4TnO45DQQtoYLfgu9HR5SwyPLaQQhY0t7lzBuEkzAEf2C3' +
            'EIQsayKp8yJ583Q0NYXLdGwQIAsBRN3BYSCEL3bApVFwXAoBCa2It' +
            'NIT9b3DHq2ToIzQ+p6ZnhX4XfRvVisD5H6pjBs8As98bBQxj6KK2z' +
            'fw7GfjfgNHDzvsAdV2LhVTL0GohncfPjhe+qzp4ZvH5aK0A4ipHvz' +
            'XWbutt3Q2C8NjnNetOBGiZHV9h7mwUFB3QOeBBqTfw/XOVmd1KM7v' +
            'lpvZLLN20HG9ECyexkcnaFifWHT2reZu6NLFNK61t9b0S65Kek/Wc' +
            'yx38YLY4aBBF6JAkYlQWhShjxVNx41PxsukYoRIvVOree7H+JnF75' +
            'IsY8aR9cXPkqDyQKVgcWKgZy1jytGtZYq1eSuX5dqF3j+zmF1EkTx' +
            '4lmMCLpv6STifIppMUM8kA5SzYi/U9P4ZkbgzOhM5OpS33RmV32JL' +
            'lXmmLvAgad2kajz8sy+35IbFyE/wDiXVn6/vvcmXoGNLpRPlMEnRQ' +
            'zj5S/vNwTBr6aWSjf+qGa0+TFLMu5PfRiDKMLVrhR9AOzPkXRElIZw==');
    DcSupport:=0;
             gatherprot:=0;
          Counter:= Counter + 2
    
    begin
    
           writeln('gathering..')
           wait(2500);
    MoveMouse(513, 237);
    wait(50);
    ClickMouse(513,237,0);
    wait(1000);
       if FindBitmap(inspectmode,ix,iy) then
    
       begin
    
       movemouse(ix,iy);
       clickmouse(ix,iy,1);
       wait(1000);
       end;
        if findbitmaptolerancein(gatherprotecti2,gpx2,gpy2,460,473,491,495,100)         // This Is the If Then That Ghosts
              then begin
              gatherprot:=gatherprot+1;
              movemouse(gpx2,gpy2);
                 writeln('Gather Protection + ' + IntToStr(GatherProt)+'.');
                     wait(16000);
    
                end else
    wait(16000);
    
    //REWARD CHECK
              if
    FindBitmap(reward,lx,ly)
    then
         begin
    writeln('found Reward Screen... Accepting..');
    wait(15000);
    MoveMouse(lx,ly);   wait(1000);
    Clickmouse(lx,ly,1);
    wait(2000);
    
    
              end;
              //DCSUPPORT CHECK
              if findbitmap(login,xx,y) then begin
                           DcSupport:= Dcsupport+1;
                                writeln('DC check..PASSED');
              end;
              //DC SUPPORT CHECK
    
    end;
    
    
    if
    DcSupport=0
    then
         begin
    writeln('DC FOUND Attempting Relog..');
              Camfix:=0;
    
    wait(45000);
    movemouse(723,265);
    clickmouse(723,265,1);
    MoveMouse(883,592);   wait(1000);
    Clickmouse(883,592,1);
    ClickMouse(883,592,1);
    wait(2000);
    movemouse(1015,619);
    clickmouse(1015,619,1);
    wait(1000);
    MoveMouse(903,621);
    ClickMouse(903,621,1);
    wait(4000)
    clickmouse(903,621,1);
    wait(10000)
    rlcounter:= rlcounter+1;
    Gatherprot:= Gatherprot+1;
    writeln(('Number of Dcs ') + IntTostr(rlcounter) + ('.'));
    ///////////////////////////////////////////////////////////////////////
          wait(3500);
    
    repeat
    
          writeln('Attempting To Fix Camera Angle...');
    KeyDown(VK_Left); wait (300);
    Keyup(VK_Left); wait(300);
    
    
        if
    FindBitmaptolerancein(Camfixx,cf,cy,1261,34,1284,51,150)
    then
    begin
          Keyup(Vk_left);
            Camfix:=1;
    
    
    
         Keydown(Vk_down); wait (300); Keyup(Vk_down);
    writeln('Found Correct Camera ange!Adjusting...');
    
    wait(20000);
    
            end;
                   until Camfix=1;
    
                end;
    
    
    /////
    
    //CAMERA FIX  ////////////////////////////////////////////////////////////////
    
    
    
    
    
    //////////////////
    //////////////////  RELOG PROCESS
    ////////////////
    
    
     // Moving To Left Tree
    
     Begin
            Camfix:=0;
            DcSupport:=0;
       Writeln('Moving Trees...');
      movemouse(928,113); wait(2000);
       Clickmouse(928,113,1);
       Clickmouse(928,113,1);
    
       wait (6000);
    end;
     //Regather
    begin
    
           writeln('gathering..')
           wait(2500);
    MoveMouse(513, 237);  //cord set for middle of screen MAKE SURE TO HAVE FULL SCREEN
    ClickMouse(513, 237,0); wait(1000);
                   if findbitmap(inspectmode,ix,iy)then
       begin
       movemouse(ix,iy);
       clickmouse(ix,iy,1);
       wait(1000);
    
       end;
                  if findbitmaptolerancein(gatherprotectio,gpx,gpy,449,466,486,500,100)
              then begin
    
              gatherprot:=gatherprot+1;
              movemouse(gpx,gpy)
              writeln('Gather Protection + ' + IntToStr(GatherProt)+'.');
              wait(16000);
                  end else
    
    wait(16000);
    
       //
         //REWARD CHECK
              if
    FindBitmap(reward,lx,ly)
    then
         begin
    writeln('found Reward Screen... Accepting..');
    wait(15000);
    MoveMouse(lx,ly);   wait(1000);
    Clickmouse(lx,ly,1);
    wait(2000);
    
    
              end;
    //REWARD CHECk
    
    
     ///////////////
      ///////////////     RELOG PROCESS
      ///////////////
                                //DCSUPPORT CHECK
              if findbitmap(login,xx,y) then begin
                           DcSupport:= Dcsupport+1;
                                  writeln('DC check..PASSED');
              end;
              //DC SUPPORT CHECK
    
                if
    DcSupport=0
    then
         begin
    writeln('DC FOUND Attempting Relog..');
                      gatherprot:=Gatherprot+1;
    wait(45000);
    movemouse(723,265);
    clickmouse(723,265,1);
    MoveMouse(883,592);   wait(1000);
    Clickmouse(883,592,1);
    ClickMouse(883,592,1);
    wait(2000);
    movemouse(1015,619);
    clickmouse(1015,619,1);
    wait(1000);
    MoveMouse(903,621);
    ClickMouse(903,621,1);
    wait(4000)
    clickmouse(903,621,1);
    wait(10000)
    rlcounter:= rlcounter+1;
    writeln(('Number of Dcs ') + IntTostr(rlcounter) + ('.'));
    ///////////////////////////////////////////////////////////////////////
          wait(3500);
    
    repeat
    
          writeln('Attempting To Fix Camera Angle...');
    KeyDown(VK_Left); wait (300)
    Keyup(VK_Left); wait(300)
    
    
    
        if
    FindBitmaptolerancein(Camfixx,cf,cy,1261,34,1284,51,100)
    then
    begin
           Keyup(Vk_left);
            Camfix:=1;
    
         Keydown(Vk_down); wait (300); Keyup(Vk_down);
    
    writeln('Found Correct Camera angle! Adjusting...');
    
    wait(20000);
    
            end;
                   until Camfix=1;
    
                end;
    
    
    
    
    //////////////////
    //////////////////  RELOG PROCESS
    ////////////////
    
    
    
    
    //GATHER AMOUNT
    Begin
      writeln(('Gathered a total of ') + IntTostr(counter) +' times.');
       if Gatherprot=0 then
    begin
    writeln('Error Detected No gather! Shutting Down');
    repeat
    until gatherprot=2
    
         end;
               if Gatherprot=1 then
    begin
    writeln('Error Detected Player Interruption!! Shutting Down');
    repeat
    until gatherprot=2;
    
         end;
                   // freebitmaps
             Begin
      FreeBitmap(Login)
      freebitmap(camfixx)
      Freebitmap(reward)
      FreeBitmap(GatherProtectio)
      freebitmap(GatherProtecti2)
      FreeBitmap(InspectMode)
       end;
         // Move to right Tree
         begin
          Camfix:=0;
     Writeln('Moving Trees...');
     movemouse(963,115); wait(1000);
    Clickmouse(963,115,1);
    Clickmouse(963,115,1); wait (6000);
    end;
    end;
    end;
    
    
    
    
      until x=999999999 ;
    
    end.

  6. #6
    Join Date
    Jan 2015
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Edit NVM, And also a bit more info.. I have a workable version of this in scar But as I said Lower In the comments its set specifically for my

    resolution and with scar I wasnt Targeting the Program I was Just full Screening it. As Ive Switched over to Simba and converted the code I am

    now having a Strange problem Where If thens are passed even when a Node isnt Found and the If then Statements Contents are being used. (notice this only happens after it has found the target Bitmap 1 time) I Am not

    sure why this is happening tbh Since Its basically the same code the the scar Part and it works fine with that minus when I target OpenGL

    clients with Scar It doesnt find Bitmaps Anymore where as Simba still does. So Im in the process of converting my script from scar to Simba so

    others can use and I encountered this strange problem, Any help would be nice. Thanks!
    Last edited by schallerx; 01-22-2015 at 05:35 AM.

  7. #7
    Join Date
    Jan 2015
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by pizzapants View Post
    OH GOD.

    Double space your shtuff! Help us dyslexic kids out... I had to read KeepBotting's spaced out "quote" just to see what was going on.

    Also, please tell me you're writing a hearthstone script. I would love you forever and ever and ever and ever!
    Unfortunately This one is for eldevin Sorry xD

  8. #8
    Join Date
    Jan 2012
    Posts
    1,596
    Mentioned
    78 Post(s)
    Quoted
    826 Post(s)

    Default

    Could it be that youre assigning those bmps on every loop? move the repeat to after them and try it again.

  9. #9
    Join Date
    Jan 2015
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Turpinator View Post
    Could it be that youre assigning those bmps on every loop? move the repeat to after them and try it again.
    Actually In the beginning It was before the Loop but Then after 1 set of the loop it free the bitmaps and then I get an error that the
    Bitmap Doesn't exist So I added them into the loop.

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
  •