Debug-commands #RECORD/#UNRECORD

[heasm66]

Split out from issue #49.

Torbjörn Andersson wrote:

It might be useful to also have at least the #RECORD / #UNRECORD commands to save a lot of the player's actions.

I don't know about #COMMAND since it's It's already possible to pipe a text file into Confusion. Though at least when I tried it it would complain about an unexpected EOF at the end.

RECORD / #UNRECORD would be pretty simple to implement, I think. Here I've piggy-backed on SCRIPT / UNSCRIPT (so error checking isn't as strict as it should be) because I think things get hairy if both of those can be active at the same time.

Whether or not it's useful is, of course, still open to debate.

diff --git a/mdlzork_810722/patched_confusion/dung.mud b/mdlzork_810722/patched_confusion/dung.mud
index 9498983..eac0e14 100644
--- a/mdlzork_810722/patched_confusion/dung.mud
+++ b/mdlzork_810722/patched_confusion/dung.mud
@@ -3744,6 +3744,11 @@ L;"funny verbs"

<SADD-ACTION "GO-IN" TIME> ;"funny verb for room actions when entering"

+;"Debug commands" + +<SADD-ACTION "#RECO" DO-SCRIPT> +<SADD-ACTION "#UNRE" DO-UNSCRIPT> + ;"ZORK game commands"

<SADD-ACTION "BRIEF" BRIEF> diff --git a/mdlzork_810722/patched_confusion/rooms.mud b/mdlzork_810722/patched_confusion/rooms.mud index 2df516b..03f1176 100644 --- a/mdlzork_810722/patched_confusion/rooms.mud +++ b/mdlzork_810722/patched_confusion/rooms.mud @@ -402,38 +402,48 @@ <FINISH <>>> <FINISH <>>>>

-<DEFINE DO-SCRIPT ("AUX" (CH <>) (UNM ,XUNM) (MUDDLE ,MUDDLE))

• DECL ((CH) (UNM) STRING (MUDDLE) FIX)

  +<DEFINE DO-SCRIPT ("AUX" (CH <>) (UNM ,XUNM) (MUDDLE ,MUDDLE) (ACT "script")

• (CACT "Script") (EXT "SCRIPT"))

• DECL ((CH) (UNM ACT CACT EXT) STRING (MUDDLE) FIX)

• <COND (<VERB? "#RECO">
• <SET ACT "record">
• <SET CACT "Record">
• <SET EXT "RECORD">)> <COND (,MY-SCRIPT <DO-UNSCRIPT <>>)> <COND (,SCRIPT-CHANNEL
• <TELL "You are already scripting.">)
• <TELL "You are already " ,POST-CRLF .ACT "ing.">) (<AND <OR <G? .MUDDLE 100> <AND <SET CH <OPEN "READ" ".FILE." "(DIR)" "DSK" .UNM>> <=? <10 .CH> .UNM> <CLOSE .CH>>>
• <SET CH <OPEN "PRINT" "ZORK" "SCRIPT" "DSK" .UNM>>>
• <SET CH <OPEN "PRINT" "ZORK" .EXT "DSK" .UNM>>> <PUT <TOP ,INCHAN> 1 (.CH)>
• <PUT <TOP ,OUTCHAN> 1 (.CH)>
• <COND (<VERB? "SCRIP">
• <PUT <TOP ,OUTCHAN> 1 (.CH)>)> <SETG SCRIPT-CHANNEL .CH> <COND (<L? ,MUDDLE 100>
• <TELL "Scripting to " ,POST-CRLF ,XUNM ";ZORK SCRIPT">)
• <TELL .CACT 0 "ing to " ,XUNM>
• <TELL ";ZORK " ,POST-CRLF .EXT>) (T
• <TELL "Scripting to <" ,POST-CRLF ,XUNM ">ZORK.SCRIPT">)>)
• <TELL .CACT 0 "ing to <" ,XUNM>
• <TELL ">ZORK." ,POST-CRLF .EXT>)>) (T <COND (.CH <CLOSE .CH>)>
• <TELL "I can't open the script channel.">)>>
• <TELL "I can't open the " ,POST-CRLF .ACT " channel.">)>>

-<DEFINE DO-UNSCRIPT ("OPTIONAL" (VERBOSE T))

• DECL ((VERBOSE) )

  +<DEFINE DO-UNSCRIPT ("OPTIONAL" (VERBOSE T) "AUX" (CACT "Script"))

• DECL ((VERBOSE) (CACT) STRING)

• <COND (<VERB? "#UNRE">
• <SET CACT "Record">)> <COND (,SCRIPT-CHANNEL <PUT <TOP ,INCHAN> 1 ()> <PUT <TOP ,OUTCHAN> 1 ()> <CLOSE ,SCRIPT-CHANNEL> <SETG SCRIPT-CHANNEL <>>
• <AND .VERBOSE <TELL "Scripting off.">>)
• (<AND .VERBOSE <TELL "Scripting wasn't on.">>)>>
• <AND .VERBOSE <TELL .CACT ,POST-CRLF "ing off.">>)

• (<AND .VERBOSE <TELL .CACT ,POST-CRLF "ing wasn't on.">>)>>

  <GDECL (THEN) FIX>