Jump to content
Victor1G

Script only works in full screen(bad)

Recommended Posts

Hello guys, the following script works to it's entirety, but I am trying to tweak it a bit in order to make it so I don't need to be in full screen for said script to actually function.

 

I am trying to make the following script work at anytime where the pictures are view-able by the computer.

 

Broken down version:

This script only works when the game is in full screen, if I try to minimize (the pictures are still view-able) the script won't do anything.

 

Somebody please help me as I want to be able to play the game with my 2 characters, which require 2 active windows.

 

Thanks

 

program BLEACH_BOT;
var
a,b,RED_MSG:Integer;
c,d,GREEN_MSG:Integer;
e,f,BLUE_MSG:Integer;

g,h,COLOR_RED:Integer;
i,j,COLOR_GREEN:Integer;
k,l,COLOR_BLUE:Integer;

Procedure LoadPictures;
begin

 RED_MSG := BitmapFromString(22, 28, 'ceNrdk8ENwCAIRZnLg' +
   'ZjHaViGYTRpD1qECpL0UMLJhBf/5wPwkyoVWvM1Q0kS7qY0oQFXn' +
   'SDeZeEDggeEq0j7RogwJNMhYWg5JSDlCAU44YNYOubyQJhKlBgPE' +
   'dbZrQ8z3BrfOzn5v96Udxdo3pR/m+9ynHmorIchkEnbEH+qLS2hy' +
   '1K1xK5b0xIjuGP2ZXVhMKf3'); 

 GREEN_MSG := BitmapFromString(21, 27, 'ceNrNlMkRgDAIRak' +
   'rBVEP1dBMionjQWISEpaLMpzUh/BZAH5nyNDa4hWKBXLTwNFJi1L' +
   'IBsUrHVktz6kiRnkRKJDq/OX6BHwR7gTQ0ERrTFegV8SZFnP016P' +
   'VB8fUgIVES+C9LwfP4mbtZzynvMSUvk9b4MTfU4cJPD7zEz5snCO' +
   'Ht5i7W6EoiUq7c9dmJ7Vrxti70Z4j+aFd50qMog==');      

 BLUE_MSG := BitmapFromString(19, 24, 'ceNrFktENgDAIRDsX' +
   'AzEP07AMw1RTIxJMLNdEJfw04RU4jqT1Pktt96AKOFJ5EUysg+nD' +
   'UNHMWdtfZXCEnqwQBrLmMhREO+rCjkEcbwedg/8wQPReRRyxizXB' +
   'VI2DMQJG8xyVddAH/gxMPn9VnOdzoMaDQMYtN1MOiA39/LCG');

 COLOR_RED := BitmapFromString(32, 32, 'ceNrtzDENAAAIAzA' +
   'DnPgXgUFQsYc06d2pmrDtDvH7/X6/3+/3+//9UQcVfW8x'); 

 COLOR_GREEN := BitmapFromString(32, 32, 'ceNpT3MSjSGPk8' +
   'F+ERmjU/FHzR80fNX/U/FHzR80fNX/U/FHzh5/5NEUA4/kUHA==');

 COLOR_BLUE := BitmapFromString(32, 32, 'ceNrjidzEQ2Mk0v' +
   'CfRmjU/FHzR80fNX/U/FHzR80fNX/U/FHzh5/5NEUASxMQSw==');
end;

Procedure RED;             
begin
 if(FindBitMap(a,b,RED_MSG))then
  if(FindBitMap(g,h,COLOR_RED))then
   begin
    ;wait(90)
    ClickMouse((g + 20), (h + 14),true);       
    ;wait(90)
   end else
    ;wait(90)
end;

Procedure GREEN;             
begin
 if(FindBitMap(c,d,GREEN_MSG))then
  if(FindBitMap(i,j,COLOR_GREEN))then
   begin
    ;wait(90)
    ClickMouse((i + 20), (j + 14),true);       
    ;wait(90)
   end else
    ;wait(90)
end;

Procedure BLUE;             
begin
 if(FindBitMap(e,f,RED_MSG))then
  if(FindBitMap(k,l,COLOR_RED))then
   begin
    ;wait(90)
    ClickMouse((k + 20), (h + 14),true);       
    ;wait(90)
   end else
    ;wait(90)
end;

Procedure Color_Clicker;
begin
 RED;
 GREEN;
 BLUE;
end;
begin
 LoadPictures;  
 repeat
   Color_Clicker;
 until(false)
end.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...