Hello,
first for use this procedure u must make some things edit in your script
-Add Bitmap in Load Bitmap and in Programm
-Add Sendkey in Variables and in Programm( Key for join in Raid 0-9)
-Add Repeat Procedure
Code:
programm RaidBot;
inRaid , EnterRaid :Integer; // u must add this
procedure variables;
EnterRaid :='0' // u must add this
procedure LoadBmp;
inRaid:= BitmapFromString(26, 25, 'beNqV0vtXknccB/C/Yefo9kO7H3' +
'/YOu1sbTtTp+Wkbe3sUtOjrayWLS8gSyhhUYTLqWuds1JGmiKBukw' +
'DREOZAkFcYlxELg8XwWsoFxFobmc6ZQr7PpLoAqw+5/UDz/N5f94/' +
'AAVJbi3Ga8TNWQj+EWLATgqMVgbGgO8jHsQT2FAJ5+0kv43os571Q' +
'niXGu3RYb0QKPzOZyX4bef8diJs9HxUYN3Gy0gGsJ3zjZz1Wc54TX' +
'iP/tS0otSpQbt1GI/x9MzQSctAganv4MxwuW+E8JAtxtp7j6nCfqc' +
'Q6j0wKS+ehSrceqxz6Nsp6XGHonhGg4K4+fzL2Vo23tB3QVj/EXj0' +
'WnAwK27Oio8An2EW3JSiRFCXqepEQ7/VSpry5bQ9zqEyh7JkTHh4Q' +
'nJsTPS1qhOzEvwnvDah1RVjX5Wek+OBMMCsCRsFHidk38ha8hf/9I' +
'eDww==');
end;
//Make a Screenshot from Leave Raidmap and use this for Programm
//My Bitmap not for you create new
procedure JoinRaid;
If (Findbitmap (inRaid,x,y)=false) then begin
Sendkeys(EnterRaid);
Wait(20000)
end;
end;
begin
repeat
JoinRaid; // u must add this
until false;
end.
If you need Bm Jump make the same with Leave Bm screen