[Perl] AOE2 Cheater 0.1

  • 3 Respuestas
  • 2102 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] AOE2 Cheater 0.1

  • 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, "<ul class="bbc_list"><li type="square"> Wait $se seconds \r";[/li][/list]
  13. }
  14.  
  15. print "\n\n</li><li type="square"> Cheating ...\n";[/li][/list]
  16. cheatnow();
  17. print "</li><li type="square"> Finished";[/li][/list]
  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: 5704
  • Actividad:
    36.67%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Re:[Perl] AOE2 Cheater 0.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

Re:[Perl] AOE2 Cheater 0.1

  • 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

Re:[Perl] AOE2 Cheater 0.1

  • en: Septiembre 25, 2012, 12:13:49 pm
solo lo hice para jugar el modo campaña , en realidad nunca eh jugado multiplayer.

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 5331
Ú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: 3474
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 3017
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 2560
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 4374
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora