SRL Archive - First Scripts

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

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.

From: schallerx
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.

From: KeepBotting
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.

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!

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.

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!

From: pizzapants
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

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

From: Turpinator
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.