Start of vim script to stop repeating movement keys

hardtime.vim

command! HardTimeOn call HardTimeOn()
command! HardTimeOff call HardTimeOff()

fun! HardTimeOff()
    silent! nunmap <buffer> h
    silent! nunmap <buffer> j
    silent! nunmap <buffer> k
    silent! nunmap <buffer> l
    silent! nunmap <buffer> -
    silent! nunmap <buffer> +
endf

fun! HardTimeOn()
    nnoremap <buffer> <silent> <expr> j GoAgain() ? "j" : TooSoon()
	nnoremap <buffer> <silent> <expr> k GoAgain() ? "k" : TooSoon()
	nnoremap <buffer> <silent> <expr> + GoAgain() ? "+" : TooSoon()
	nnoremap <buffer> <silent> <expr> - GoAgain() ? "-" : TooSoon()
	nnoremap <buffer> <silent> <expr> l GoAgain() ? "l" : TooSoon()
	nnoremap <buffer> <silent> <expr> h GoAgain() ? "h" : TooSoon()
endf

" Timeout in seconds
let g:hardtime_timeout = 1

let s:lasttime = 0

fun! GoAgain()
	let now = GetNow()
	if now > s:lasttime + g:hardtime_timeout
		let s:lasttime = now
		return 1
	else
		return 0
	endif
endf

fun! TooSoon()
	echo "Too Soon\r"
	return ""
endf

fun! GetNow()
	return localtime() 
endf