RCRPG/Tcl: Difference between revisions
m
Fixed syntax highlighting.
m (Tidying) |
m (Fixed syntax highlighting.) |
||
| (One intermediate revision by one other user not shown) | |||
Line 1:
{{collection|RCRPG}}[[implementation of task::RCRPG| ]]
This [[Tcl]] version of [[RCRPG]] was typed and tested on a cellphone, so pardon my brevity.
<
proc help args {
return "RosettaCode 3D single user dungeon in Tcl. Type a command:
Line 153:
}
main $argv</
==Alternative Version==
Line 165:
lappend [@ my items &] teacup ;#-- returns a reference
<
return "RosettaCode 3D single-user dungeon in Tcl. Type a command:
e(ast), s(outh), n(orth), w(est), u(p), d(own)
Line 327:
regsub {(.+),} [join $tmp ", "] {\1, and}
}
main $argv</
| |||