Skip to content
Snippets Groups Projects
Commit 7667da94 authored by rswindell's avatar rswindell
Browse files

For Nelgin:

";!" will repeat the last (non-blank) ";string" command.
parent c15cc877
No related merge requests found
...@@ -27,6 +27,8 @@ ...@@ -27,6 +27,8 @@
!include sbbsdefs.inc !include sbbsdefs.inc
str last_str_cmd
# Set return point for main menu commands (via end_cmd) # Set return point for main menu commands (via end_cmd)
cmd_home cmd_home
...@@ -166,7 +168,15 @@ cmdkey ; ...@@ -166,7 +168,15 @@ cmdkey ;
else else
getstr 40 getstr 40
end_if end_if
compare_str !
if_equal
copy str last_str_cmd
end_if
exec_bin "str_cmds %s" exec_bin "str_cmds %s"
compare_str ""
if_not_equal
copy last_str_cmd str
end_if
end_cmd end_cmd
cmdkey T cmdkey T
...@@ -645,7 +655,15 @@ cmdkey ; ...@@ -645,7 +655,15 @@ cmdkey ;
else else
getstr 40 getstr 40
end_if end_if
compare_str !
if_equal
copy str last_str_cmd
end_if
exec_bin "str_cmds %s" exec_bin "str_cmds %s"
compare_str ""
if_not_equal
copy last_str_cmd str
end_if
end_cmd end_cmd
cmdkey Q cmdkey Q
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment