Permalink
Find file
d1cb893 Mar 31, 2010
James Long final release!
16 lines (12 sloc) 523 Bytes
(defun animattack-send-string (str)
(comint-send-string (scheme-proc) str))
(defun animattack-restart ()
(interactive)
(animattack-send-string "(set! LIFE (current-max-life))")
(animattack-send-string "(set! EXISTING-CRACKS '())")
(animattack-send-string "(set! FAILED #f)")
(animattack-send-string "(set! SCORE 0)")
(animattack-send-string "(set-screen! level-screen)")
(animattack-send-string "(load-randomized-cracks)")
(animattack-send-string "\n"))
(global-set-key "\C-x\C-r" 'animattack-restart)