• API
• FAQ
• Tools
• Archive
SHARE
TWEET

# flappy.pl

a guest Dec 9th, 2019 135 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
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@");