Foro - Perl en Español

por **BigBear** » 2012-09-23 12:05 @545

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

El código:

Sintáxis: [ Descargar ] [ Ocultar ]

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.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

AOE2 Cheater 0.1

AOE2 Cheater 0.1

Publicidad

Re: AOE2 Cheater 0.1

Re: AOE2 Cheater 0.1

¿Quién está conectado?