Tetris: Difference between revisions
Content added Content deleted
(Added Wren (redirects to separate page for code)) |
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
||
Line 1,803: | Line 1,803: | ||
Very basic tetris. Use arrow keys for left and right (or 'h' and 'l'), up arrow for rotate (or 'r'), |
Very basic tetris. Use arrow keys for left and right (or 'h' and 'l'), up arrow for rotate (or 'r'), |
||
and down arrow for instant drop (or 'j'). |
and down arrow for instant drop (or 'j'). |
||
< |
<syntaxhighlight lang="perl">#!/usr/bin/perl |
||
use strict; |
use strict; |
||
Line 1,972: | Line 1,972: | ||
ReadMode 'restore'; |
ReadMode 'restore'; |
||
endwin(); |
endwin(); |
||
print $errormsg;</ |
print $errormsg;</syntaxhighlight> |
||