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
  • 1717 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: 5448
  • Actividad:
    18.33%
  • 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: 3460
Ú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: 1716
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1282
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1423
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1471
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear