Miroirs/emstar
1
0
Fork 0
mirror of https://github.com/gwenhael-le-moine/emstar.git synced 2025-02-07 08:46:26 +01:00
Code Issues Projects Releases Packages Wiki Activity

should not be cutomized

Browse source
This commit is contained in:
Gwenhael Le Moine 2010-05-26 11:46:39 +07:00
parent b146e1e21b
commit 852ebea8b8
1 changed files with 23 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
emstar.el
View file

@ -89,27 +89,32 @@ as saved in the playerfile."
:group 'emstar :group 'emstar
:type 'integer) :type 'integer)
(defcustom emstar-eater-char ?@ (defvar emstar-eater-char ?@)
"*Defines the character used to diplay the eater." (defvar emstar-gift-char ?*)
:group 'emstar (defvar emstar-stopper-char ?H)
:type 'character) (defvar emstar-wall-char ?#)
(defcustom emstar-gift-char ?* ;; (defcustom emstar-eater-char ?@
"*Defines the character used to diplay the gifts." ;; "*Defines the character used to diplay the eater."
:group 'emstar ;; :group 'emstar
:type 'character) ;; :type 'character)
(defcustom emstar-stopper-char ?s ;; (defcustom emstar-gift-char ?*
"*Defines the character used to diplay the stopper." ;; "*Defines the character used to diplay the gifts."
:group 'emstar ;; :group 'emstar
:type 'character) ;; :type 'character)
(defcustom emstar-wall-char ?# ;; (defcustom emstar-stopper-char ?H
"*Defines the character used to diplay the walls." ;; "*Defines the character used to diplay the stopper."
:group 'emstar ;; :group 'emstar
:type 'character) ;; :type 'character)
(defface emstar-eater-face ?e ;; (defcustom emstar-wall-char ?#
;; "*Defines the character used to diplay the walls."
;; :group 'emstar
;; :type 'character)
(defface emstar-eater-face
'((t (:foreground "green" '((t (:foreground "green"
:weight bold))) :weight bold)))
"*Face used display the eater in emstar game." "*Face used display the eater in emstar game."
@ -350,7 +355,7 @@ If requested level doesn't exist, load `emstar-start-level'."
(defun emstar-move-here () (defun emstar-move-here ()
"Move player to point. "Move player to point.
Move player char to point, repaint pits and evaluate game status." Move player char to point and evaluate game status."
(interactive) (interactive)
(setq emstar-pos (point)) (setq emstar-pos (point))
(emstar-paint (if (equal emstar-selected emstar-eater) (emstar-paint (if (equal emstar-selected emstar-eater)