/*
FullScreen
Made by BlueThen on November 22, 2008.
To install, paste this script into your remotes (Alt + R)
Then use the syntax:
/fullscreen -cmr @ [refresh rate in milliseconds]
The -c switch doesn't expand the picwin, but puts it in the center of a blank window.
The -m switch changes the stretch mode quality when the picture is resized.
The -r switch means you stated a refresh rate of the fullscreen window. 
If window isn't stated, a popup will come up asking for the window.
*\
alias fullscreen {
  if ($left($1, 1) == -) {
    if (c isin $1) set %full.c y
    if (m isin $1) set %full.m y
    if ((r isin $1) && ($3 isnum)) set %full.r $3
    set %full.win $2
  }
  else {
    if (!$1) set %full.win $$?="Window? (@ included)"
    else set %full.win $1
  }
  if (($left(%full.win,1) != @) || (!$window(%full.win))) echo -a 4Invalid window.
  window -paozCdk0 +dn @FullScreen -1 -1 $window(-1).w $window(-1).h
  fullscreen.frame
}
alias -l fullscreen.frame {
  if ($window(@fullscreen)) {
    drawcopy $iif(%full.m == y, -m, $null) %full.win 0 0 $window(%full.win).w $window(%full.win).h @FullScreen $iif(%full.c == y, $calc(($window(-1).w / 2) - ($window(%full.win).w / 2)), 0) $iif(%full.c == y, $calc(($window(-1).h / 2) - ($window(%full.win).h / 2)), 0) $iif(%full.c == y, $window(%full.win).w, $window(-1).w) $iif(%full.c == y, $window(%full.win).h, $window(-1).h)
    .timer -m 1 $iif(%full.r, $v1, 0) fullscreen.frame
  }
}
on *:keydown:@fullscreen:27: {
  window -c @fullscreen
  unset %full.*
}

Commenting Options