Cheating this Game

[litlmike]

Trying to cheat at this game :

http://www.miniclip.com/horse.htm

So I tried this code, but it doesn't make the horse move. Can anyone tell me why? Is there another/better way to send the keys?

HotKeySet ("^0", "Running")

While 1 
    sleep (100)
WEnd

Func Running ()

$x = 0
While $x < 75
    Send ("z")
    Sleep (100)
    Send ("x")
    
    $x = $x + 1
WEnd

EndFunc

[evilertoaster]

That should work fine, i can't test it atm but be sure that game has 'focus' before trying to send keys to it. ( I notice that even after it loads you have to mouse click inside the game box to give it focus)

[litlmike]

That should work fine, i can't test it atm but be sure that game has 'focus' before trying to send keys to it. ( I notice that even after it loads you have to mouse click inside the game box to give it focus)

Yea I did that, but it didn't work. Tested script in Notepad, and it does exaclty what it should, not sure why this doesn't work with the game.

[Shade]

Add Opt ("SendKeyDownDelay") maybe? Some games require longer keypresses.

[Nomad]

I've had some problems setting hotkeys on games while the game is in full screen mode. The only way I've been able to get around it is with _IsPressed. There are other ways around it with windows 2000+, if that is the problem, but I'm on windows 98 and as of yet I haven't found out anything that will help.

Nomad

EDIT: 0 for 2 today, I need to read more before posting, lol. Sorry.

Edited June 1, 2006 by Nomad

[AzKay]

dont know if this would work, but maybe ( if you have VB6.0, or if not i could make the thing? ) you can just add a flash control or a IE control, and then having it load JUST the flash game, it might work?, or be easier... once again, im a nobody, i know nothing ^^ thats about the extent of my VB knowledge...

[litlmike]

Add Opt ("SendKeyDownDelay") maybe? Some games require longer keypresses.

Smart. It worked, thanks.

[litlmike]

Omgosh,.... whooped that game badly. Thanks for the help...

HotKeySet ("^0", "Running")

While 1 
    sleep (100)
WEnd

Func Running ()
Opt ("SendKeyDownDelay", 100) 
$x = 0
While $x < 50
    Send ("z")
;Sleep (100)
    Send ("x")
        $x = $x + 1
WEnd
EndFunc

Edited June 1, 2006 by litlmike

[Thatsgreat2345]

yeah this also worked for me

#include <Misc.au3>
HotKeySet("0","KICKASS")
while 1
    sleep(100)
WEnd

Func KICKASS()
While 1
    ControlSend("Horse Racin' - Miniclip.com - Mozilla Firefox","","","{x}")
    ControlSend("Horse Racin' - Miniclip.com - Mozilla Firefox","","","{z}")
    ControlSend("Horse Racin' - Miniclip.com - Mozilla Firefox","","","{Space}")
WEnd
EndFunc

Bored so i added jumping

Edited June 1, 2006 by thatsgreat2345