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

Mac recover bits

Browse Source 
add headers, typo fix
This commit is contained in:
keni
2009-10-29 00:24:05 +00:00
parent 97509efaaf
commit 9509a94c5b
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
win/macosx/NetHackRecover.applescript
+7
View File
@@ -1,3 +1,10 @@
#!/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 set canceled to false
try try
display dialog "Welcome to the NetHack recover program. Please make sure NetHack is not running before continuing. Ready?" with title "NetHackRecover" display dialog "Welcome to the NetHack recover program. Please make sure NetHack is not running before continuing. Ready?" with title "NetHackRecover"
win/macosx/recover.pl
+5 -2
View File
@@ -1,6 +1,9 @@
#!/usr/bin/perl #!/usr/bin/perl
# $Id$ # NetHack 3.5 recover.pl $Date$ $Revision$
# Copyright (c) Kenneth Lorber, Kensington, Maryland, 2009
# NetHack may be freely redistributed. See license for details.
# Wrapper for 3.4.3 recover to be called from Applescript to reset the Qt # Wrapper for 3.4.3 recover to be called from Applescript to reset the Qt
# package after it locks up due to a bug in suspend handling. # package after it locks up due to a bug in suspend handling.
@@ -37,7 +40,7 @@ if($try_perm){
# run recover, but only if there is something that looks promising # run recover, but only if there is something that looks promising
$uid = $<; $uid = $<;
foreach ( <$uid*.0> ){ foreach ( <$uid*.0> ){
system ("./recover -d . $_); system ("./recover -d . $_");
} }
print "Done.\n"; print "Done.\n";