Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Auto Loot ~ Partial Failure?

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming
View previous topic :: View next topic  
Author Message
Kalookakoo
Expert Cheater
Reputation: 0

Joined: 03 Mar 2008
Posts: 117

PostPosted: Sat Apr 05, 2008 10:23 am    Post subject: Auto Loot ~ Partial Failure? Reply with quote

This is my auto loot code:



Code:
procedure TForm1.Timer15Timer(Sender: TObject);
var
h:hwnd;
a:DWORD;
begin
if Checkbox1.Checked=True then
begin
h:=FindWindowA(nil,'MapleStory');
a:=MapVirtualKey($5A,0);
a:= a shr 16;
if h<>0 then
 begin
hhPostMessageA(h,WM_KEYDOWN,$5A,a);
Application.ProcessMessages;
 end;
end
else
end;



It does "z" in chat, but when it comes to picking stuff up, it doesn't. And I triple checked if my loot was on z, and it is. Any help?
Back to top
View user's profile Send private message
Anden100
Grandmaster Cheater
Reputation: 0

Joined: 20 Apr 2007
Posts: 668

PostPosted: Sat Apr 05, 2008 10:26 am    Post subject: Reply with quote

Code:
procedure TForm1.Timer15Timer(Sender: TObject);
var
h:hwnd;
a:DWORD;
begin
if Checkbox1.Checked=True then
begin
h:=FindWindowA(nil,'MapleStory');
a:=MapVirtualKey($5A,0);
a:= a shr 16;
if h<>0 then
 begin
hhPostMessageA(h,WM_KEYDOWN,$5A,a);
Application.ProcessMessages;
 end;
end
else
end;


Hmm, that reminds me of an old source, Rot1 gave me, you need to make it "shl 16" not "shr 16"

fixed it for you:

Code:
procedure TForm1.Timer15Timer(Sender: TObject);
var
h:hwnd;
a:DWORD;
begin
if Checkbox1.Checked=True then
begin
h:=FindWindowA(nil,'MapleStory');
a:=MapVirtualKey($5A,0);
a:= a shl 16;
if h<>0 then
 begin
hhPostMessageA(h,WM_KEYDOWN,$5A,a);
Application.ProcessMessages;
 end;
end
else
end;
Back to top
View user's profile Send private message
Kalookakoo
Expert Cheater
Reputation: 0

Joined: 03 Mar 2008
Posts: 117

PostPosted: Sat Apr 05, 2008 10:34 am    Post subject: Reply with quote

thanks anden.

+rep
Back to top
View user's profile Send private message
Anden100
Grandmaster Cheater
Reputation: 0

Joined: 20 Apr 2007
Posts: 668

PostPosted: Sat Apr 05, 2008 11:01 am    Post subject: Reply with quote

Kalookakoo wrote:
thanks anden.

+rep

You should thank Rot1 instead, he told me this Razz

btw, i fixed another fail here:
http://forum.cheatengine.org/viewtopic.php?t=222367

using doing it the way i think you would like to do it
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites