Editing Room #58

Parent #2Owner #10Flags read, writeSource MurpgCore-0.4/MurpgCore-0.4.db

5 verbs · 21 properties · 0 children

Verbs

Properties

Ancestry

• #1 Root Class

  • #11 Game Class

    • #2 Room Class

      • #58 Editing Room

Ancestors (nearest first): #2 Room Class → #11 Game Class → #1 Root Class

Children: none

Call graph

Source

"$editor:exit none none none";
player:tell("You are now %Wleaving%w the Editor...");
player.editing_prop = "";
player.editing_obj = #-1;
player:move_to(player.editing_loc);
player.editing_loc = #-1;

"$editor:list none none none";
x = 1;
player:tell(((("You are currently editing %W" + tostr(player.editing_obj)) + ".") + player.editing_prop) + "%w.");
for each in (player.editing_obj.(player.editing_prop))
player:tell((("%W" + tostr(x)) + ((x == player.insert_point) ? ":^^%w" | ":  %w")) + each);
x = x + 1;
endfor

"$editor:del*ete any none none";
if (length(args) == 0)
player:tell("%Gsyntax: %Wdelete linenum%w");
else
linenum = tonum(args[1]);
if ((linenum == 0) || (linenum > length(player.editing_obj.(player.editing_prop))))
player:tell(("%W" + args[1]) + "%w is not a valid line number.");
else
player.editing_obj.(player.editing_prop) = listdelete(player.editing_obj.(player.editing_prop), linenum);
player:tell(("Line %W" + tostr(linenum)) + "%w deleted.");
endif
endif
article_length = length(player.editing_obj.(player.editing_prop));
if (player.insert_point > (article_length + 1))
player.insert_point = article_length + 1;
elseif (linenum < player.insert_point)
player.insert_point = player.insert_point - 1;
endif

"$editor:describe_to this none this";
"just like room, but tells you what you are editing";
pass(@args);
player:tell(((("You are currently editing %W" + tostr(player.editing_obj)) + ".") + player.editing_prop) + "%w.");

"$editor:insert any none none";
{?line = "none"} = args;
article_length = length(player.editing_obj.(player.editing_prop));
if (article_length == 0)
player:tell("Property is blank.");
player.insert_point = 1;
elseif (line == "none")
ip = player.insert_point;
player:tell((("%W" + tostr(ip - 1)) + ":%w  ") + player.editing_obj.(player.editing_prop)[ip - 1]);
if (ip <= article_length)
player:tell((("%W" + tostr(ip)) + ":%w^^") + player.editing_obj.(player.editing_prop)[ip]);
endif
if ((ip + 1) <= article_length)
player:tell((("%W" + tostr(ip + 1)) + ":%w  ") + player.editing_obj.(player.editing_prop)[ip + 1]);
endif
return;
elseif (line == "$")
player.insert_point = article_length + 1;
elseif ((tonum(line) < 1) || (tonum(line) > (article_length + 1)))
player:tell("Insertion point out of range.");
else
player.insert_point = tonum(line);
endif
player:tell(("Insertion point set to before line %W" + tostr(player.insert_point)) + "%w.");