Anonymous user
RCRPG/PureBasic: Difference between revisions
→{{header|PureBasic}}: Updated description and minor code change
(→{{header|PureBasic}}: updated description) |
(→{{header|PureBasic}}: Updated description and minor code change) |
||
Line 1:
=={{header|PureBasic}}==
This version is a more or less direct translation of the version done in Perl (See [[RCRPG/Perl]]) with some additional functionality added. Commands include attack, drop, take, equip, alias, name, inventory, and directions.
An additional command 'ask' was implemented for providing hints in finding the randomly placed Prize Room. The program also allows the stacking of commands if they are separated by a space (i.e. 'take all equip sledge a north n' will perform four actions).
<lang PureBasic>;Here is a description of all of the commands:
;
Line 194 ⟶ 196:
rooms()\items() = #itm_sledge
setLocation(prizeRoom, Random(
*locations(Str(prizeRoom\x) + "," + Str(prizeRoom\y) + "," + Str(prizeRoom\z)) = AddElement(rooms())
rooms()\name = "The Prize Room"
| |||