MS Mouse Program for Hack.
simpsong at ncoast.UUCP
simpsong at ncoast.UUCP
Sun Nov 23 15:02:56 AEST 1986
*** Yep... it the line-eater. ***
Here is a Microsoft Mouse Program to drive hack. Of course this
will only work if you have an MS mouse... I use it to play
PC-Hack 3.5, but if you dial-up from your pc, you can use it
to play any 1.0.3 hack...
Hopefully it will also serve as a simple Mouse program example
for those interested.
(I remember at least one request for MS mouse programs...)
Briefly, to make this work: do the following:
Install your mouse driver
Save it in a file called hack.def
Execute makemenu "C> makemenu"
Tell makemenu the definition file is called hack.
Type: "C> menu hack"
Enjoy,
Greg
#include disclaimer
----- This is not shared.... and don't forget to remove my .signature. ---
BEGIN master, general, master,lf,rt,up,dn
lf: TYPE 0,75
rt: TYPE 0,77
up: TYPE 0,72
dn: TYPE 0,80
master: MENU "Master Hacking Menu!",5,30,inverse
OPTION "Cancel"
OPTION "General Hacking Menu", general
OPTION "Take it off, or Put it on!", dress
OPTION "Attack Menu!", attack
OPTION "Save, Restore, Options", options
OPTION "M&M, Movement and Messages", movement
OPTION "Miscellaneous Menu", misc
OPTION "Help and Identify", help1
MEND
general: MENU "General Hacking Menu!",5,30,inverse
OPTION "Cancel"
OPTION "Inventory",inv
OPTION "Quaff",qua
OPTION "Read",read
OPTION "Eat",eat
OPTION "Rest", rest
OPTION "Do the last command again", agai
MEND
movement: MENU "M&M, Movement and Messages",5,27,normal
OPTION "Search for Hidden Doors", sear
OPTION "Go Upstairs <", upst
OPTION "Go Downstairs >", dnst
OPTION "No, don't hit my Dog.", no
OPTION "Repeat Previous Message", prev
MEND
dress: MENU "Take it off, and Put it on.",5,27,normal
OPTION "Cancel"
OPTION "Take off Armour",take
OPTION "Wear Armour",wear
OPTION "Put on Ring",put
OPTION "Remove Ring",rem
OPTION "Wield a Weapon",wield
MEND
attack: MENU "Attack Menu!",5,34,bold
OPTION "Cancel"
OPTION "Zap!", zap
OPTION "Throw!", throw
OPTION "Wield a Weapon", wield
MEND
options: MENU "Save, Quit and Options",5,29,normal
OPTION "Cancel"
OPTION "Save",save
OPTION "Quit",quit
OPTION "Options", optionmenu
MEND
optionmenu: MENU "Toggle Options",5,33,normal
OPTION "Cancel"
OPTION "Pickup", pick
OPTION "Silent", silent
OPTION "Confirm Hitting Tame Animals", confirm
MEND
misc: MENU "Miscellaneous",5,34,normal
OPTION "Cancel"
OPTION "Look",look
OPTION "Identify Previous Trap", trap
OPTION "Teleport", tele
OPTION "Engrave a Message", engrave
OPTION "Apply a Tool", apply
OPTION "Pay your Bill", pay
OPTION "Name a Class of Objects {c}", call
OPTION "Name an Individual Monster {C}", name
OPTION "Pickup all you can carry", pickup
MEND
help1: MENU "Help",5,38,normal
OPTION "Cancel"
OPTION "Identify Object",iden
OPTION "Identify Previous Trap", trap
OPTION "Print a List of Discoverys",disc
OPTION "Long Help",long
OPTION "Short Help",shlp
OPTION "Identify Current Weapon )",idweap
OPTION "Identify Current Armour [",idarm
OPTION "Identify Current Rings =",idring
OPTION "Count your Gold $",idgold
OPTION "Option Help",opt
OPTION "Version Number",vers
MEND
inv: TYPE "i"
qua: TYPE "q"
read: TYPE "r"
eat: TYPE "e"
rest: TYPE "."
sear: TYPE "s"
upst: TYPE "<"
dnst: TYPE ">"
no: TYPE "n"
prev: TYPE ""
agai: TYPE "a"
take: TYPE "T"
wear: TYPE "W"
put: TYPE "P"
rem: TYPE "R"
wield: TYPE "w"
zap: TYPE "z"
throw: TYPE "t"
look: TYPE ";"
trap: TYPE "^"
tele: TYPE ""
engrave: TYPE "E"
apply: TYPE "A"
pay: TYPE "p"
call: TYPE "c"
name: TYPE "C"
pickup: TYPE ","
save: TYPE "S"
quit: TYPE "Q"
pick: EXECUTE epick,ent
confirm: EXECUTE econfirm,ent
silent: EXECUTE esilent,ent
epick: TYPE "O pickup"
econfirm: TYPE "O confirm"
esilent: TYPE "O silent"
iden: TYPE "/"
disc: TYPE "\"
idweap: TYPE ")"
idarm: TYPE "["
idring: TYPE "="
idgold: TYPE "$"
vers: TYPE "v"
opt: EXECUTE option,ent
option: TYPE "O help"
long: EXECUTE help,ent,lhlp
lhlp: TYPE "l"
shlp: EXECUTE help,ent,short
short: TYPE "s"
help: TYPE "?"
ent: TYPE ENTER
--
Gregory R. Simpson
UUCP: {ihnp4, seismo, decwrl, philabs, ucbvax}!decvax!cwruecmp!ncoast!simpsong
CSNET: ncoast!simpsong at case.CSNET
ARPA: ncoast!simpsong%case.CSNET at Csnet-Relay.ARPA
More information about the Comp.sources.unix
mailing list