nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity

bits to allow GUI to run recover under MacOS X

Browse Source 
Will require additional work for 3.5 (shouldn't blindly remove perm_lock
without asking the user; update comments; add standard headers) but I don't
want to lose this code.
This commit is contained in:
keni
2009-10-27 01:12:57 +00:00
parent 3197e22563
commit 97509efaaf
2 changed files with 63 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
win/macosx/NetHackRecover.applescript Normal file
View File

@@ -0,0 +1,18 @@
set canceled to false
try
display dialog "Welcome to the NetHack recover program. Please make sure NetHack is not running before continuing. Ready?" with title "NetHackRecover"
on error number -128
set canceled to true
end try
if not canceled then
set hpath to the path to me
set mpath to the POSIX path of hpath
considering case
set lastpos to offset of "/nethackdir" in mpath
set lastpos to lastpos + (length of "/nethackdir")
set rawpath to (get text 1 through lastpos of mpath) & "/recover.pl"
set safepath to the quoted form of rawpath
end considering
do shell script safepath
display dialog result with title "NetHackRecover Output"
end if