#!usr/bin/perl#AOE2 Cheater 0.1#Coded By Doddy H#ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppduse Win32::GuiTest qw(SendKeys);head();for my $se ( reverse 1 .. 10 ) { sleep 1; syswrite STDOUT, "[+] Wait $se seconds \r";}print "\n\n[+] Cheating ...\n";cheatnow();print "[+] Finished";copyright();sub cheatnow { for ( 1 .. 30 ) { SendKeys("{ENTER}lumberjack{ENTER}"); SendKeys("{ENTER}cheese steak jimmy's{ENTER}"); SendKeys("{ENTER}robin hood{ENTER}"); SendKeys("{ENTER}rock on{ENTER}"); }}sub head { print "\n\n-- == AOE2 Cheater == --\n\n";}sub copyright { print "\n\n(C) Doddy Hackman 2012\n\n"; <stdin>; exit(1);}#The End ?