26 lines
874 B
AppleScript
26 lines
874 B
AppleScript
#!/usr/bin/osascript
|
|
# NetHack 3.5 NetHackRecover.applescript $Date$ $Revision$
|
|
# Copyright (c) Kenneth Lorber, Kensington, Maryland, 2009
|
|
# NetHack may be freely redistributed. See license for details.
|
|
|
|
|
|
|
|
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
|