SHARE
TWEET

flappy.pl

a guest Dec 9th, 2019 135 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. use Term::ReadKey; sub k {ReadKey(-1)}; ReadMode 3;
  2. sub rk {$Q='';$Q.=$QQ while($QQ=k());$Q}; $|=1;
  3. print "\ec\e[0;0r\e[4242;1H\e[6n\e[1;1H";
  4. ($p .= $c) until (($c=k()) eq 'R'); $x=75;$dx=3;
  5. (($yy) = ($p =~ /(\d+);/))&&($yy-=10);
  6. print (("\r\n\e[40m\e[37m#".(' 'x78)."#")x100);
  7. $r=(sub {$M=shift; sub {$M=(($M*0x41C64E6D)+12345)&0x7FFFFFFF;$M%shift;}})
  8. ->(42);$s=(sub {select($HV18, $faLL, $D33p, shift);});$INT0?$H3ll:$PERL;
  9. @HASH=unpack("C*",pack("H*",'73740c12387652487105575346620e6c55655e1b4b6b6f541a6b2d7275'));
  10. for $i(0..666){$s->(0.1);print("\e[40;91m\e[${yy};${x}H.");
  11. $dx += int(rk() =~ / /g)*2-1; $dx = ($dx>3?3:($dx<-3?-3:$dx));
  12. $x += $dx; ($x>1&&$x<80)||last;
  13. (($i%23)&&print ("\e[4242;1H\n\e[40m\e[37m#".(' 'x78)."#"))||
  14. (($h=20+$r->(42))&&(print ("\e[4242;1H\n\e[40m\e[37m#".
  15. ((chr($HASH[$i/23]^$h))x($h-5)).(" "x10).((chr($HASH[$i/23]^$h))x(73-$h))."#")));
  16. (($i+13)%23)?42:((abs($x-$h)<6)||last);
  17. print ("\e[${yy};${x}H\e[41m\e[37m@");
  18. }; ReadMode 1;###################-EOF-flappy.pl###############
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top