diff --git a/src/mudsys/stink.1 b/src/mudsys/stink.2 similarity index 99% rename from src/mudsys/stink.1 rename to src/mudsys/stink.2 index 60e72faf..7bdce956 100644 --- a/src/mudsys/stink.1 +++ b/src/mudsys/stink.2 @@ -1,6 +1,6 @@ TITLE TSTINKING ODOR -ITS==0 ; FLAG SAYING WHETHER FOR ITS OR 20 +ITS==1 ; FLAG SAYING WHETHER FOR ITS OR 20 IFE ITS,.INSRT MUDSYS;STENEX > @@ -1832,6 +1832,7 @@ IFN T-1,[ IFN T-1,[ MOVE T,1 MOVE 1,JSYS1 +] ] CAIE T,15 CAIN T,12 @@ -2056,7 +2057,7 @@ IFN T-1,[ ] PBOUT IFN T-1, MOVE 1,JSYS1 - +] C.12: POPJ P,12 CRLS1: MOVEI T,"* @@ -2350,7 +2351,7 @@ IFE ITS,[ -] + LOADN: SKIPA C,SYMFLG LOADG: MOVEI C,DDSYMS PUSHJ P,OPNPTR ;DO THE REAL OPEN (AND FIRST READ) @@ -2985,6 +2986,7 @@ TWNTY4: MOVE B,T MOVEI B,0 PUSHJ P,OUTWRD JRST TWNTY6 +] ;SUBROUTINE TO PUT OUT ONE WORD