;ELC ;;; Compiled by nelhage@mit.edu on Thu May 24 21:08:21 2007 ;;; from file /home/nelhage/.elisp/site/nethack_el-0.9.5/nethack-cmd.el ;;; in Emacs version 23.0.0.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nethack-cmd.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'nethack-api) #@40 Define an interactive nethack command. (defalias 'defun-nethack-command '(macro . #[(fun docstr cmdstr &rest body) "\304\305\306\307!P!\310 \311\312\313\n\314\315\n\316BBDE BB\257\207" [fun docstr cmdstr body defun intern "nethack-command-" symbol-name (&optional count) (interactive "p") unwind-protect if nh-send-and-wait concat (" " (if count (number-to-string count) "1"))] 12 (#$ . 624)])) #@59 Go north 1 space (or if number_pad is on, kick something) (defalias 'nethack-command-north #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gonorth" " " number-to-string "1"] 5 (#$ . 1027) "p"]) #@44 Go north until you are on top of something (defalias 'nethack-command-north-until-ontop #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gonorthontop" " " number-to-string "1"] 5 (#$ . 1281) "p"]) #@39 Go north until you are near something (defalias 'nethack-command-north-until-near #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gonorthnear" " " number-to-string "1"] 5 (#$ . 1537) "p"]) #@22 Go northwest 1 space (defalias 'nethack-command-northwest #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gonorthwest" " " number-to-string "1"] 5 (#$ . 1786) "p"]) #@48 Go northwest until you are on top of something (defalias 'nethack-command-northwest-until-ontop #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gonorthwestontop" " " number-to-string "1"] 5 (#$ . 2011) "p"]) #@43 Go northwest until you are near something (defalias 'nethack-command-northwest-until-near #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gonorthwestnear" " " number-to-string "1"] 5 (#$ . 2279) "p"]) #@17 Go west 1 space (defalias 'nethack-command-west #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gowest" " " number-to-string "1"] 5 (#$ . 2540) "p"]) #@43 Go west until you are on top of something (defalias 'nethack-command-west-until-ontop #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gowestontop" " " number-to-string "1"] 5 (#$ . 2750) "p"]) #@38 Go west until you are near something (defalias 'nethack-command-west-until-near #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gowestnear" " " number-to-string "1"] 5 (#$ . 3003) "p"]) #@22 Go southwest 1 space (defalias 'nethack-command-southwest #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gosouthwest" " " number-to-string "1"] 5 (#$ . 3249) "p"]) #@48 Go southwest until you are on top of something (defalias 'nethack-command-southwest-until-ontop #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gosouthwestontop" " " number-to-string "1"] 5 (#$ . 3474) "p"]) #@43 Go southwest until you are near something (defalias 'nethack-command-southwest-until-near #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gosouthwestnear" " " number-to-string "1"] 5 (#$ . 3742) "p"]) #@69 Go south 1 space (or if number_pad is on, jump to another location) (defalias 'nethack-command-south #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gosouth" " " number-to-string "1"] 5 (#$ . 4003) "p"]) #@44 Go south until you are on top of something (defalias 'nethack-command-south-until-ontop #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gosouthontop" " " number-to-string "1"] 5 (#$ . 4267) "p"]) #@39 Go south until you are near something (defalias 'nethack-command-south-until-near #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gosouthnear" " " number-to-string "1"] 5 (#$ . 4523) "p"]) #@22 Go southeast 1 space (defalias 'nethack-command-southeast #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gosoutheast" " " number-to-string "1"] 5 (#$ . 4772) "p"]) #@73 Go southeast until you are on something (if number_pad, name an object) (defalias 'nethack-command-southeast-until-ontop #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gosoutheastontop" " " number-to-string "1"] 5 (#$ . 4997) "p"]) #@43 Go southeast until you are near something (defalias 'nethack-command-southeast-until-near #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gosoutheastnear" " " number-to-string "1"] 5 (#$ . 5290) "p"]) #@67 Go east 1 space (or if number_pad is on, loot a box on the floor) (defalias 'nethack-command-east #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "goeast" " " number-to-string "1"] 5 (#$ . 5551) "p"]) #@43 Go east until you are on top of something (defalias 'nethack-command-east-until-ontop #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "goeastontop" " " number-to-string "1"] 5 (#$ . 5811) "p"]) #@38 Go east until you are near something (defalias 'nethack-command-east-until-near #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "goeastnear" " " number-to-string "1"] 5 (#$ . 6064) "p"]) #@65 Go northeast 1 space (or if number_pad is on, untrap something) (defalias 'nethack-command-northeast #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gonortheast" " " number-to-string "1"] 5 (#$ . 6310) "p"]) #@48 Go northeast until you are on top of something (defalias 'nethack-command-northeast-until-ontop #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gonortheastontop" " " number-to-string "1"] 5 (#$ . 6578) "p"]) #@43 Go northeast until you are near something (defalias 'nethack-command-northeast-until-near #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "gonortheastnear" " " number-to-string "1"] 5 (#$ . 6846) "p"]) #@59 Move via a shortest-path algorithm to a point on the map. (defalias 'nethack-command-travel #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "travel" " " number-to-string "1"] 5 (#$ . 7107) "p"]) #@25 Show the type of a trap (defalias 'nethack-command-identify-trap #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "idtrap" " " number-to-string "1"] 5 (#$ . 7361) "p"]) #@20 Apply (use) a tool (defalias 'nethack-command-apply #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "apply" " " number-to-string "1"] 5 (#$ . 7588) "p"]) #@18 Remove all armor (defalias 'nethack-command-remove-all-armor #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "remarm" " " number-to-string "1"] 5 (#$ . 7801) "p"]) #@14 Close a door (defalias 'nethack-command-close-door #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "close" " " number-to-string "1"] 5 (#$ . 8024) "p"]) #@14 Drop an item (defalias 'nethack-command-drop #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "drop" " " number-to-string "1"] 5 (#$ . 8236) "p"]) #@26 Drop specific item types (defalias 'nethack-command-drop-specific-item #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "ddrop" " " number-to-string "1"] 5 (#$ . 8441) "p"]) #@15 Eat something (defalias 'nethack-command-eat #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "eat" " " number-to-string "1"] 5 (#$ . 8673) "p"]) #@30 Engrave writing on the floor (defalias 'nethack-command-engrave #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "engrave" " " number-to-string "1"] 5 (#$ . 8877) "p"]) #@29 Fire ammunition from quiver (defalias 'nethack-command-fire #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "fire" " " number-to-string "1"] 5 (#$ . 9104) "p"]) #@21 Show your inventory (defalias 'nethack-command-inventory #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "inv" " " number-to-string "1"] 5 (#$ . 9324) "p"]) #@31 Inventory specific item types (defalias 'nethack-command-type-inventory #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "typeinv" " " number-to-string "1"] 5 (#$ . 9540) "p"]) #@13 Open a door (defalias 'nethack-command-open #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "open" " " number-to-string "1"] 5 (#$ . 9775) "p"]) #@44 Show option settings, possibly change them (defalias 'nethack-command-settings #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "set" " " number-to-string "1"] 5 (#$ . 9979) "p"]) #@24 Pay your shopping bill (defalias 'nethack-command-pay #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "pay" " " number-to-string "1"] 5 (#$ . 10217) "p"]) #@41 Put on an accessory (ring, amulet, etc) (defalias 'nethack-command-put-on #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "puton" " " number-to-string "1"] 5 (#$ . 10431) "p"]) #@25 Quaff (drink) something (defalias 'nethack-command-quaff #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "drink" " " number-to-string "1"] 5 (#$ . 10667) "p"]) #@30 Select ammunition for quiver (defalias 'nethack-command-select-ammo-for-quiver #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wieldquiver" " " number-to-string "1"] 5 (#$ . 10886) "p"]) #@28 Read a scroll or spellbook (defalias 'nethack-command-read #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "read" " " number-to-string "1"] 5 (#$ . 11133) "p"]) #@41 Remove an accessory (ring, amulet, etc) (defalias 'nethack-command-remove-accessory #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "remring" " " number-to-string "1"] 5 (#$ . 11353) "p"]) #@35 Search for traps and secret doors (defalias 'nethack-command-search #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "search" " " number-to-string "1"] 5 (#$ . 11601) "p"]) #@15 Save the game (defalias 'nethack-command-save-game #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "save" " " number-to-string "1"] 5 (#$ . 11832) "p"]) #@17 Throw something (defalias 'nethack-command-throw #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "throw" " " number-to-string "1"] 5 (#$ . 12044) "p"]) #@29 Take off one piece of armor (defalias 'nethack-command-remove-single-armor #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "takeoff" " " number-to-string "1"] 5 (#$ . 12255) "p"]) #@14 Show version (defalias 'nethack-command-version #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count ((byte-code "\300\301\302 \"\207" [nhapi-message nil nethack-el-version] 3)) nh-send-and-wait "simpleversion" " " number-to-string "1"] 5 (#$ . 12494) "p"]) #@36 Show long version and game history (defalias 'nethack-command-version-and-history #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "history" " " number-to-string "1"] 5 (#$ . 12785) "p"]) #@29 Wield (put in use) a weapon (defalias 'nethack-command-wield #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wield" " " number-to-string "1"] 5 (#$ . 13031) "p"]) #@23 Wear a piece of armor (defalias 'nethack-command-wear-armor #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wear" " " number-to-string "1"] 5 (#$ . 13254) "p"]) #@36 Swap wielded and secondary weapons (defalias 'nethack-command-swap-weapons #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "swapweapon" " " number-to-string "1"] 5 (#$ . 13475) "p"]) #@50 Enter explore (discovery) mode (only if defined) (defalias 'nethack-command-explore-mode #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "enter_explore_mode" " " number-to-string "1"] 5 (#$ . 13717) "p"]) #@12 Zap a wand (defalias 'nethack-command-zap-wand #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "zap" " " number-to-string "1"] 5 (#$ . 13981) "p"]) #@20 Zap (cast) a spell (defalias 'nethack-command-cast-spell #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "cast" " " number-to-string "1"] 5 (#$ . 14188) "p"]) #@19 Go up a staircase (defalias 'nethack-command-up #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "up" " " number-to-string "1"] 5 (#$ . 14406) "p"]) #@21 Go down a staircase (defalias 'nethack-command-down #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "down" " " number-to-string "1"] 5 (#$ . 14613) "p"]) #@49 Show what type of thing a symbol corresponds to (defalias 'nethack-command-what-is-symbol #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "whatis" " " number-to-string "1"] 5 (#$ . 14826) "p"]) #@21 Give a help message (defalias 'nethack-command-help #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "help" " " number-to-string "1"] 5 (#$ . 15079) "p"]) #@26 Tell what a command does (defalias 'nethack-command-command-help #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "whatdoes" " " number-to-string "1"] 5 (#$ . 15292) "p"]) #@37 Do a shell escape (only if defined) (defalias 'nethack-command-shell #[(&optional count) "\300\216)\301\207" [((shell)) nil] 1 (#$ . 15522) "p"]) #@45 Show what object types have been discovered (defalias 'nethack-command-show-discoveries #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "discovered" " " number-to-string "1"] 5 (#$ . 15674) "p"]) #@35 Rest one move while doing nothing (defalias 'nethack-command-rest-one-move #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "null" " " number-to-string "1"] 5 (#$ . 15929) "p"]) #@30 Look at what is on the floor (defalias 'nethack-command-look-here #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "look" " " number-to-string "1"] 5 (#$ . 16165) "p"]) #@66 Show what type of thing a map symbol on the level corresponds to (defalias 'nethack-command-what-is-map-piece #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "quickwhatis" " " number-to-string "1"] 5 (#$ . 16392) "p"]) #@40 Pick up things at the current location (defalias 'nethack-command-pick-up #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "pickup" " " number-to-string "1"] 5 (#$ . 16670) "p"]) #@33 Toggle the pickup option on/off (defalias 'nethack-command-toggle-pickup #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "togglepickup" " " number-to-string "1"] 5 (#$ . 16907) "p"]) #@67 Show all equipment in use (combination of the ),[,=,",( commands) (defalias 'nethack-command-show-all-equipment-in-use #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "prinuse" " " number-to-string "1"] 5 (#$ . 17149) "p"]) #@17 Count your gold (defalias 'nethack-command-count-gold #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "countgold" " " number-to-string "1"] 5 (#$ . 17432) "p"]) #@6 Kick (defalias 'nethack-command-kick #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "kick" " " number-to-string "1"] 5 (#$ . 17651) "p"]) #@19 List known spells (defalias 'nethack-command-list-known-spells #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "listspells" " " number-to-string "1"] 5 (#$ . 17849) "p"]) #@73 Show your attributes (intrinsic ones included in debug or explore mode) (defalias 'nethack-command-show-attributes #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "attributes" " " number-to-string "1"] 5 (#$ . 18079) "p"]) #@46 Search a room (available in debug mode only) (defalias 'nethack-command-wizard-detect #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wiz_detect" " " number-to-string "1"] 5 (#$ . 18361) "p"]) #@46 Map the level (available in debug mode only) (defalias 'nethack-command-wizard-map #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wiz_map" " " number-to-string "1"] 5 (#$ . 18614) "p"]) #@49 Create a monster (available in debug mode only) (defalias 'nethack-command-wizard-genesis #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wiz_genesis" " " number-to-string "1"] 5 (#$ . 18861) "p"]) #@51 Identify all items (available in debug mode only) (defalias 'nethack-command-wizard-identify #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wiz_identify" " " number-to-string "1"] 5 (#$ . 19119) "p"]) #@64 Show location of special levels (available in debug mode only) (defalias 'nethack-command-wizard-where #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wiz_where" " " number-to-string "1"] 5 (#$ . 19381) "p"]) #@56 Teleport between levels (available in debug mode only) (defalias 'nethack-command-wizard-level-teleport #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wiz_level_tele" " " number-to-string "1"] 5 (#$ . 19650) "p"]) #@37 Wish (available in debug mode only) (defalias 'nethack-command-wizard-wish #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wiz_wish" " " number-to-string "1"] 5 (#$ . 19925) "p"]) #@28 pray to the gods for help. (defalias 'nethack-command-pray #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "pray" " " number-to-string "1"] 5 (#$ . 20165) "p"]) #@27 adjust inventory letters. (defalias 'nethack-command-adjust #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "adjust" " " number-to-string "1"] 5 (#$ . 20385) "p"]) #@18 talk to someone. (defalias 'nethack-command-chat #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "chat" " " number-to-string "1"] 5 (#$ . 20608) "p"]) #@44 list which challenges you have adhered to. (defalias 'nethack-command-conduct #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "conduct" " " number-to-string "1"] 5 (#$ . 20818) "p"]) #@31 dip an object into something. (defalias 'nethack-command-dip #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "dip" " " number-to-string "1"] 5 (#$ . 21060) "p"]) #@34 advance or check weapons skills. (defalias 'nethack-command-enhance #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "enhance" " " number-to-string "1"] 5 (#$ . 21281) "p"]) #@15 force a lock. (defalias 'nethack-command-force #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "force" " " number-to-string "1"] 5 (#$ . 21513) "p"]) #@28 invoke an object's powers. (defalias 'nethack-command-invoke #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "invoke" " " number-to-string "1"] 5 (#$ . 21722) "p"]) #@21 jump to a location. (defalias 'nethack-command-jump #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "jump" " " number-to-string "1"] 5 (#$ . 21946) "p"]) #@26 loot a box on the floor. (defalias 'nethack-command-loot #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "loot" " " number-to-string "1"] 5 (#$ . 22159) "p"]) #@34 use a monster's special ability. (defalias 'nethack-command-monster #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "monster" " " number-to-string "1"] 5 (#$ . 22377) "p"]) #@33 name an item or type of object. (defalias 'nethack-command-name #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "name" " " number-to-string "1"] 5 (#$ . 22609) "p"]) #@32 offer a sacrifice to the gods. (defalias 'nethack-command-offer #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "offer" " " number-to-string "1"] 5 (#$ . 22834) "p"]) #@35 exit without saving current game. (defalias 'nethack-command-quit #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "quit" " " number-to-string "1"] 5 (#$ . 23060) "p"]) #@34 ride (or stop riding) a monster. (defalias 'nethack-command-ride #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "ride" " " number-to-string "1"] 5 (#$ . 23287) "p"]) #@13 rub a lamp. (defalias 'nethack-command-rub #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "rub" " " number-to-string "1"] 5 (#$ . 23513) "p"]) #@11 sit down. (defalias 'nethack-command-sit #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "sit" " " number-to-string "1"] 5 (#$ . 23716) "p"]) #@14 turn undead. (defalias 'nethack-command-turn #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "turn" " " number-to-string "1"] 5 (#$ . 23917) "p"]) #@27 toggle two-weapon combat. (defalias 'nethack-command-twoweapon #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "twoweapon" " " number-to-string "1"] 5 (#$ . 24123) "p"]) #@19 untrap something. (defalias 'nethack-command-untrap #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "untrap" " " number-to-string "1"] 5 (#$ . 24352) "p"]) #@56 list compile time options for this version of NetHack. (defalias 'nethack-command-extended-version #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "version" " " number-to-string "1"] 5 (#$ . 24567) "p"]) #@21 wipe off your face. (defalias 'nethack-command-wipe #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "wipe" " " number-to-string "1"] 5 (#$ . 24830) "p"]) #@22 Perform a technique. (defalias 'nethack-command-technique #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "technique" " " number-to-string "1"] 5 (#$ . 25043) "p"]) #@51 Scroll through previously displayed game messages (defalias 'nethack-command-previous-message #[(&optional count) "\300\216)\301\207" [((nhapi-doprev-message)) nil] 1 (#$ . 25267) "p"]) #@93 Restores the default window configuration. With a prefix arg, also redraws the map glyphs. (defalias 'nethack-command-redraw-screen #[(&optional count) "\301\216\302V\205\303\302V\205\304\305\203\306!\202\307Q!)\207" [count ((nhapi-restore-window-configuration)) 1 nh-send-and-wait "redraw" " " number-to-string "1"] 5 (#$ . 25459) "p"]) #@23 Teleport around level (defalias 'nethack-command-teleport-around-level #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "teleport" " " number-to-string "1"] 5 (#$ . 25816) "p"]) #@27 Redo the previous command (defalias 'nethack-command-redo-previous #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "again" " " number-to-string "1"] 5 (#$ . 26052) "p"]) #@34 Call (name) a particular monster (defalias 'nethack-command-call-monster #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "callmon" " " number-to-string "1"] 5 (#$ . 26281) "p"]) #@69 Followed by direction, fight a monster (even if you don't sense it) (defalias 'nethack-command-force-fight #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "fight" " " number-to-string "1"] 5 (#$ . 26518) "p"]) #@58 Followed by direction, move until you are near something (defalias 'nethack-command-move-until-near #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "movenear" " " number-to-string "1"] 5 (#$ . 26787) "p"]) #@50 Followed by direction, same as control-direction (defalias 'nethack-command-move #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "move" " " number-to-string "1"] 5 (#$ . 27052) "p"]) #@69 Followed by direction, move without picking anything up or fighting (defalias 'nethack-command-move-no-pickup-or-fight #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "movenopickuporfight" " " number-to-string "1"] 5 (#$ . 27294) "p"]) #@68 Followed by direction, move a distance without picking anything up (defalias 'nethack-command-move-distance-no-pickup #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "movenopickup" " " number-to-string "1"] 5 (#$ . 27589) "p"]) #@35 Show the weapon currently wielded (defalias 'nethack-command-show-wielded-weapon #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "showweapon" " " number-to-string "1"] 5 (#$ . 27876) "p"]) #@31 Show the armor currently worn (defalias 'nethack-command-show-worn-armor #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "showarmor" " " number-to-string "1"] 5 (#$ . 28124) "p"]) #@33 Show the ring(s) currently worn (defalias 'nethack-command-show-worn-rings #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "showrings" " " number-to-string "1"] 5 (#$ . 28363) "p"]) #@32 Show the amulet currently worn (defalias 'nethack-command-show-worn-amulet #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "showamulet" " " number-to-string "1"] 5 (#$ . 28604) "p"]) #@33 Show the tools currently in use (defalias 'nethack-command-show-tool-in-use #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "showtool" " " number-to-string "1"] 5 (#$ . 28846) "p"]) #@30 get all the nethack options. (defalias 'nethack-command-options #[(&optional count) "\301\216\302\303\304\203\305!\202\306Q!)\207" [count nil nh-send-and-wait "options" " " number-to-string "1"] 5 (#$ . 29087) "p"]) (provide 'nethack-cmd)