alias rollercoaster {
  unset %rk
  set %rk2 10
  window -pkdCf @rollercoaster 1 1 500 250
  var %x = 1
  while (%x <= 500) {
    if (%ly) drawline @rollercoaster 1 4 $calc(%x - 0.025) %ly %x $calc($round($calc($sin($calc(%x * 0.025)) * 100),0) + 125)
    var %ly = $calc($round($calc($sin($calc(%x * 0.025)) * 100),0) + 125)   
    inc %x 
  }
  rk 1
}
alias -l lin { return $calc($1 - 0.025) $calc($round($calc($sin($calc($calc($1 - 0.025) * 0.025)) * 100),0) + 125) }
alias -l rk {
  if ($!$1) {
    drawline @rollercoaster 1 4 $calc(%rk2 - 0.025) $calc($round($calc($sin($calc($calc(%rk2 - 0.025) * 0.025)) * 100),0) + 125) %rk2 $calc($round($calc($sin($calc(%rk2 * 0.025)) * 100),0) + 125)
  drawline @rollercoaster 1 4 $calc(%rk - 0.025) $calc($round($calc($sin($calc($calc(%rk - 0.025) * 0.025)) * 100),0) + 125) %rk $calc($round($calc($sin($calc(%rk * 0.025)) * 100),0) + 125) }
  else set %rk2 10
  if (%rk == 500) { unset %rk | set %rk2 10 }
  inc %rk
  inc %rk2
  drawline @rollercoaster 7 3 $calc(%rk - 0.025) $calc($round($calc($sin($calc($calc(%rk - 0.025) * 0.025)) * 100),0) + 125) %rk $calc($round($calc($sin($calc(%rk * 0.025)) * 100),0) + 125)
  drawline @rollercoaster 7 3 $calc(%rk2 - 0.025) $calc($round($calc($sin($calc($calc(%rk2 - 0.025) * 0.025)) * 100),0) + 125) %rk2 $calc($round($calc($sin($calc(%rk2 * 0.025)) * 100),0) + 125)
  drawline @rollercoaster 7 3 $calc(%rk2 - 0.025) $calc($round($calc($sin($calc($calc(%rk2 - 0.025) * 0.025)) * 100),0) + 125) $calc(%rk - 0.025) $calc($round($calc($sin($calc($calc(%rk - 0.025) * 0.025)) * 100),0) + 125)
  if (!$timer(rk)) timerrk -h 0 10 rk
}
on *:close:@rollercoaster: { timerrk off  }

;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 
;alias hk { dialog -m hkadvance hkadvance }