1.KEY oper/a,tmp/a,real/a,f1,f2,f3,f4,f5 2 3. ; miscellaneous script functions for the Amiga 4. ; SCCS Id: @(#)ifchange 3.2 96/02/04 5. ; Copyright (c) Kenneth Lorber, Bethesda, Maryland, 1992, 1993, 1996. 6. ; NetHack may be freely redistributed. See license for details. 7 8FAILAT 6 9IF <oper> EQ "MOVE" 10 IF EXISTS <real> 11 diff >T:mic -c <tmp> <real> 12 search from T:mic SEARCH "---" QUIET 13 IF WARN 14 echo "MOVE: no change" 15 delete <tmp> 16 ELSE 17 echo "MOVE: copy" 18 copy <tmp> <real> clone 19 delete <tmp> 20 ENDIF 21 ELSE 22 echo "MOVE: copy2" 23 copy <tmp> <real> clone 24 delete <tmp> 25 ENDIF 26 QUIT 27ENDIF 28 29IF <oper> EQ "TOUCH" 30 IF EXISTS <real> 31 diff >T:mic -c <tmp> <real> 32 search from T:mic SEARCH "---" QUIET 33 IF NOT WARN 34 echo "TOUCH: touch" 35 IF NOT <f1$@> EQ "@" 36 setdate <f1> 37 ENDIF 38 IF NOT <f2$@> EQ "@" 39 setdate <f2> 40 ENDIF 41 IF NOT <f3$@> EQ "@" 42 setdate <f3> 43 ENDIF 44 IF NOT <f4$@> EQ "@" 45 setdate <f4> 46 ENDIF 47 IF NOT <f5$@> EQ "@" 48 setdate <f5> 49 ENDIF 50 ENDIF 51 ENDIF 52 QUIT 53ENDIF 54 55echo "ifchange: '<oper>' not recognized" 56quit 10 57