3B;;BlackHole the Game by Foshizzle
alias blackhole window -pkdCf @BlackHole 1 1 300 300 | %bh.x = 3 | %bh.y = 3 | bh
alias -l bh { var %dot drawdot -n @BlackHole | drawfill @BlackHole 1 1 0 0 | drawtext -np @blackhole 7 verdana 10 165 10 BlackHole by Foshizzle | drawline -n @blackhole 0 5 3 3 150 3 150 40 100 40 100 150 200 150 200 200 294 294 | %dot 9 4 297 297
if ($getdot(@blackhole,%bh.x,%bh.y) != 16777215) { %bh.ch =  $iif($getdot(@blackhole,%bh.x,%bh.y) == 64512, You Made it!, You Died) | if ($input(%bh.ch $+ $iif(%bh.ch == You Died,  ., ) Play Again?,iudyv,%bh.ch) == $no) { unset %bh.* | window -c @blackhole | halt } else { unset %bh.ch | window -c @blackhole | blackhole } } | %dot 4 4 $calc(%bh.x + 2) $calc(%bh.y + 2) | drawdot @blackhole }
on *:KEYDOWN:@BlackHole:37,38,39,40:$iif($keyval == 37, dec %bh.x, ) | $iif($keyval == 38, dec %bh.y, ) | $iif($keyval == 39, inc %bh.x, ) | $iif($keyval == 40, inc %bh.y, ) | bh