<mdl.comp>/rhack.mud.1

   1 <BLOCK (<ROOT>)>
   2 COMBAT
   3 <ENDBLOCK>
   4
   5 <DEFINE COMBAT-HACKER ("AUX" CH)
   6         <COND (<NOT <GASSIGNED? PLANNED!-COMBAT!->>
   7                <REALTIMER 20>)
   8               (<AND <=? ,PLANNED!-COMBAT!- "RIOT">
   9                     <SET CH <OPEN "READ" "MUDSYS;T.PRINT >">>>
  10                <OFF "REALT">
  11                <REALTIMER 0>
  12                <CLOSE .CH>
  13                <SETG FR& <FUNCTION ("TUPLE" T) T>>
  14                <ERROR "Rioting is no longer available, please use Plans">)
  15               (ELSE
  16                <OFF "REALT">
  17                <REALTIMER 0>)>>
  18
  19
  20 <DEFINE HACKER (A B)
  21         <COND (<==? .A <ASCII 4>> <SETG DONT-HACK-ME T>)>
  22         <QUITTER .A .B>>
  23
  24 <DEFINE RHACK ()
  25         <OFF "CHAR" ,INCHAN>
  26         <COND (,DONT-HACK-ME
  27                <SETG DONT-HACK-ME <>>
  28                <ON "CHAR" ,QUITTER 8 0 ,INCHAN>
  29                <REALTIMER 0>
  30                <OFF "REALT">)
  31               (ELSE
  32                <REALTIMER 0>
  33                <OFF "REALT">
  34                <MPV-IN-GC>)>>
  35
  36
  37
  38 <SETG MPV-IN-GC
  39       <FIXUP!-RSUBRS '[
  40 #CODE ![23852220422 23852482567 23849036821 23852220423 268671802 23085677464
  41 10223615 -262143 6718806673 0 2!]
  42                        MPV-IN-GC
  43                        #DECL ("VALUE" ANY)
  44                        ""]
  45                      '(51
  46                        $TLOSE!-MUDDLE
  47                        224256
  48                        (3)
  49                        GC
  50                        236346
  51                        (5)
  52                        FINIS!-MUDDLE
  53                        228248
  54                        (6))>>
  55
  56 \f\ 3\ 3