help_outline
Ayudanos!
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] AOE2 Cheater 0.1

  • 3 Respuestas
  • 1678 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« 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
  1. #!usr/bin/perl
  2. #AOE2 Cheater 0.1
  3. #Coded By Doddy H
  4. #ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd
  5.  
  6. use Win32::GuiTest qw(SendKeys);
  7.  
  8. head();
  9.  
  10. for my $se ( reverse 1 .. 10 ) {
  11.     sleep 1;
  12.     syswrite STDOUT, "[+] Wait $se seconds \r";
  13. }
  14.  
  15. print "\n\n[+] Cheating ...\n";
  16. cheatnow();
  17. print "[+] Finished";
  18.  
  19. copyright();
  20.  
  21. sub cheatnow {
  22.  
  23.     for ( 1 .. 30 ) {
  24.         SendKeys("{ENTER}lumberjack{ENTER}");
  25.         SendKeys("{ENTER}cheese steak jimmy's{ENTER}");
  26.         SendKeys("{ENTER}robin hood{ENTER}");
  27.         SendKeys("{ENTER}rock on{ENTER}");
  28.     }
  29.  
  30. }
  31.  
  32. sub head {
  33.     print "\n\n-- == AOE2 Cheater == --\n\n";
  34. }
  35.  
  36. sub copyright {
  37.     print "\n\n(C) Doddy Hackman 2012\n\n";
  38.     <stdin>;
  39.     exit(1);
  40. }
  41.  
  42. #The End ?
  43.  
« Última modificación: Septiembre 23, 2012, 02:30:23 pm por Doddy »

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5428
  • Actividad:
    36.67%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Septiembre 23, 2012, 02:20:10 pm »
Juaaa!! Buenisimo Doddy!
Vamos a ver que tal va


Desconectado Xt3mP

  • *
  • Underc0der
  • Mensajes: 432
  • Actividad:
    0%
  • Reputación 0
  • Ellos me están buscando, pero yo los encontraré.
    • MSN Messenger - Xt3mP@h4x0rz.us
    • AOL Instant Messenger - Xt3mP@h4x0rz.us
    • Yahoo Instant Messenger - Xt3mP@h4x0rz.us
    • Ver Perfil
    • Xt3mP
« Respuesta #2 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.
Cada vez que me das Karma me motivas

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« Respuesta #3 en: Septiembre 25, 2012, 12:13:49 pm »
solo lo hice para jugar el modo campaña , en realidad nunca eh jugado multiplayer.

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3337
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1597
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 193
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1362
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1205
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear