[Perl] AOE2 Cheater 0.1

[BigBear]

Bueno , como se me falseo la tecla enter de tanto escribir los mismos trucos para los suministros del juego Age of Empires 2 decidi hacer este simple script para que los haga por mi , al terminar vamos a tener 30.000 de madera,alimentos,oro y piedra.

El codigo

Código (perl) [Seleccionar] Expandir


#!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 ?