Hacking The Google’s Doodle using Perl (Basketball)

Same as yesterday, today I used the same logic, but, a little complex calcs, one bug on the doodle runner could be generated doing fast clics on the doodle, the time could be 2 seconds for that bug.

Here is the code for basketball cracking:

#!/usr/bin/perl -w
use X11::GUITest qw/ PressKey ReleaseKey WaitSeconds /;
sleep 2;
for my $shoot1 ( 1 .. 5 ) {
PressKey(space);
WaitSeconds(0.27);
ReleaseKey(space);
WaitSeconds(0.8);
print “Bucle 1, tiro $shoot1\n”; }

for my $shoot2 ( 1 .. 4 ) {
PressKey(space);
WaitSeconds(0.5);
ReleaseKey(space);
WaitSeconds(0.75);
print “Bucle 2, tiro $shoot2\n”; }

for my $shoot3 ( 1 .. 4 ) {
PressKey(space);
WaitSeconds(0.72);
ReleaseKey(space);
WaitSeconds(0.7);
print “Bucle 3, tiro $shoot3\n”; }

for my $shoot4 ( 1 .. 4 ) {
PressKey(space);
WaitSeconds(0.82);
ReleaseKey(space);
WaitSeconds(0.75);
print “Bucle 4, tiro $shoot4\n”; }

for my $shoot5 ( 1 .. 4 ) {
PressKey(space);
WaitSeconds(0.88);
ReleaseKey(space);
WaitSeconds(0.7);
print “Bucle 5, tiro $shoot5\n”;}

Nerds Doesn’t sweat! xD

Like said yesterday, #LikeABoss…

And Screencast: