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