El código:
Using perl Syntax Highlighting
- #!usr/bin/perl
- #AOE2 Cheater 0.1
- #Coded By Doddy H
- #ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd
- use 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 ?
Coloreado en 0.008 segundos, usando GeSHi 1.0.8.4