97509efaaf
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.
19 lines
664 B
AppleScript
19 lines
664 B
AppleScript
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
|