2 # aNetHack
0.0.1 aNetHackRecover.applescript $ANH-Date$ $ANH-Branch$:$ANH-Revision$
3 #
Copyright (c) Kenneth Lorber, Kensington, Maryland,
2009
4 # aNetHack may be freely redistributed. See license
for details.
10 display dialog "Welcome to the aNetHack recover program. Please make sure aNetHack is not running before continuing. Ready?" with title "aNetHackRecover"
15 set hpath
to the path to me
16 set mpath
to the POSIX
path of hpath
18 --set lastpos to offset of "/anethackdir" in mpath
19 --set lastpos to lastpos + (length of "/anethackdir")
20 --set rawpath to (get text 1 through lastpos of mpath) & "/recover.pl"
21 --set safepath to the quoted form of rawpath
22 set safepath
to the quoted form
of "/Library/Nethack/anethackdir/recover.pl"
24 do shell
script safepath
25 display dialog result
with title "aNetHackRecover Output"