Underc0de

Programación Scripting => Perl => Mensaje iniciado por: BigBear en Septiembre 23, 2012, 02:06:35 PM

Título: [Perl] AOE2 Cheater 0.1
Publicado por: BigBear en Septiembre 23, 2012, 02:06:35 PM
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]

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

Título: Re:[Perl] AOE2 Cheater 0.1
Publicado por: ANTRAX en Septiembre 23, 2012, 02:20:10 PM
Juaaa!! Buenisimo Doddy!
Vamos a ver que tal va
Título: Re:[Perl] AOE2 Cheater 0.1
Publicado por: Xt3mP en Septiembre 25, 2012, 06:22:01 AM
Esta bueno el script, simple pero eficaz... sólo si se tiene permitido los "cheats"; y lo más probable es que no funcione a modo Multi-player puesto que al menos con quienes juego, no se permiten cheats, pero para joder un rato con los amigos (activando la opción allow cheats) esta bien.

Una alternativa sería ctrol + c y ctrol + v.
Título: Re:[Perl] AOE2 Cheater 0.1
Publicado por: BigBear en Septiembre 25, 2012, 12:13:49 PM
solo lo hice para jugar el modo campaña , en realidad nunca eh jugado multiplayer.