3B;Soccer, By Foshizzle & Couch

alias soccer window -pkodCfB @s 1 1 400 200 | %ballx = 202 | %bally = 100 | %balls = 0 | scr
alias scr {
  var %dd drawdot -n @s,%dline drawline -n @s,%drect drawrect -n @s,%dc drawrect -en @s
  drawfill -n @s 3 1 0 0
  %dline 0 2 200 0 200 200
  %drect 0 2 0 0 400 200
  %dd 12 6 28 100
  %dd 4 6 374 100
  %dc 0 2 160 59 80 80
  %drect 0 2 0 40 60 120
  %drect 0 2 340 40 60 120
  %drect 0 2 0 70 20 60
  %drect 0 2 380 70 20 60
  if (%ballx = 22) && (%bally >= 72) && (%bally <= 138) {
    $iif($input(You Loose!,oid,Loose), , )
    %ballx = 202
    %bally = 100
  }
  elseif (%ballx = 378) && (%bally >= 72) && (%bally <= 138) {
    $iif($input(You Won!,oid,Win), , )
    %ballx = 202
    %bally = 100
  }
  %dd 15 4 %ballx %bally
  %dd 0 2 $calc(%ballx -1) $calc(%bally -1)
  drawdot @s
}
on *:KEYDOWN:@s:37,38,39,40: {
  if ($keyval == 37) dec %ballx 2
  elseif ($keyval == 38) dec %bally 2
  elseif ($keyval == 39) inc %ballx 2
  elseif ($keyval == 40) inc %bally 2
  scr
}