;; Movement modes
(define mmodes
(list
- (list 'mmode-walk "walking" 0)
- (list 'mmode-hover "hovering" 1)
- (list 'mmode-ship "sailing" 2)
- (list 'mmode-phase "phasing" 3)
- (list 'mmode-fly "flying" 4)
- (list 'mmode-skiff "rowing" 5)
- (list 'mmode-fish "swimming" 6)
- (list 'mmode-crawl "crawling" 7) ;; spiders, can cross boulders
- (list 'mmode-voidship "sailing" 8)
- (list 'mmode-ranger "stalking" 9)
- (list 'mmode-none "stationary" 10)
- (list 'mmode-wriggle "wriggle" 11) ;; rogue special move
- (list 'mmode-missile "missile" 12)
- (list 'mmode-fastfly "flying" 13)
- (list 'mmode-fastrun "running" 14)
- (list 'mmode-fastcrawl "crawling" 15)
- (list 'mmode-smallobj "smallobj" 16) ;; for determining dropability of small objects
- (list 'mmode-largeobj "largeobj" 17) ;; for determining dropability of big objects- basically, stuff that wont fit through bars/windows
- (list 'mmode-field "field" 18) ;; for determining dropability of fields
- (list 'mmode-return "return" 19) ;; return path for magic axe (for now assume it always returns)
- (list 'mmode-cannon "cannon" 20) ;; enhanced missile passibility for cannon shells
- (list 'mmode-large "striding" 21) ;; big critters
+ (list 'mmode-walk "Ê⤤¤Æ¤¤¤ë" 0)
+ (list 'mmode-hover "É⤤¤Æ¤¤¤ë" 1)
+ (list 'mmode-ship "¹Ò¹Ô¤·¤Æ¤¤¤ë" 2)
+ (list 'mmode-phase "ÊÑ·Á¤·¤Æ¤¤¤ë" 3)
+ (list 'mmode-fly "Èô¹Ô¤·¤Æ¤¤¤ë" 4)
+ (list 'mmode-skiff "Á椤¤Ç¤¤¤ë" 5)
+ (list 'mmode-fish "±Ë¤¤¤Ç¤¤¤ë" 6)
+ (list 'mmode-crawl "Çç¤Ã¤Æ¤¤¤ë" 7) ;; spiders, can cross boulders
+ (list 'mmode-voidship "¹Ò¹Ô¤·¤Æ¤¤¤ë" 8)
+ (list 'mmode-ranger "ÄÉÀפ·¤Æ¤¤¤ë" 9)
+ (list 'mmode-none "Æ°¤«¤Ê¤¤" 10)
+ (list 'mmode-wriggle "Ǧ¤Ó¹þ¤ó¤Ç¤¤¤ë" 11) ;; rogue special move
+ (list 'mmode-missile "Èô¤ó¤Ç¤¤¤ë" 12)
+ (list 'mmode-fastfly "Èô¹Ô¤·¤Æ¤¤¤ë" 13)
+ (list 'mmode-fastrun "Áö¤Ã¤Æ¤¤¤ë" 14)
+ (list 'mmode-fastcrawl "Çç¤Ã¤Æ¤¤¤ë" 15)
+ (list 'mmode-smallobj "¾®¤µ¤¤¤â¤Î" 16) ;; for determining dropability of small objects
+ (list 'mmode-largeobj "Â礤¤¤â¤Î" 17) ;; for determining dropability of big objects- basically, stuff that wont fit through bars/windows
+ (list 'mmode-field "¾ì" 18) ;; for determining dropability of fields
+ (list 'mmode-return "Ìá¤Ã¤Æ¤¤¤ë" 19) ;; return path for magic axe (for now assume it always returns)
+ (list 'mmode-cannon "ˤ" 20) ;; enhanced missile passibility for cannon shells
+ (list 'mmode-large "µðÂç¤Ê¤â¤Î" 21) ;; big critters
))
(map (lambda (mmode) (apply kern-mk-mmode mmode)) mmodes)
(load "quest-sys.scm")
;; Miscellaneous crap
-(mk-obj-type 't_crosshair "crosshair" s_crosshair layer-crosshair nil)
+(mk-obj-type 't_crosshair "¾È½àÀþ" s_crosshair layer-crosshair nil)
(kern-set-crosshair t_crosshair)
(kern-set-frame s_frame_ulc
s_frame_urc