Method code for $robot.reactions_cmd()

[Turn on line numbering]

---

arg cmdstr, cmd, this;
var id, m, tmpl, type, chance, times, method, args, max, min, out, t, a;

// [id, [match, template, type, chance, times, [method, args], max, min]]
out = [];
for id in (dict_keys(reactions || #[])) {
    [m, tmpl, type, chance, times, [method, args], min, max] = reactions[id];
    t = $robot.match_type(m);
    a = dict_contains(active_ids || #[], id);
    out += [strfmt("%l%3r %3r %4r %6l %8c %22l %l %l", a ? "*" : " ", id, chance, times == -1 ? "inf" : times, type, min == max ? min : min + "~" + max, method, t[2], tmpl ? "\"" + tmpl + "\"" : "anything")];
}
if (out)
    return ["-- Defined Reactions:", "  ID %CH    # TYPE    DELAY   HOOK                   MT  TEMPLATE"] + out + ["--"];
return "-- No Reactions Defined --";

// $#Edited: 18 Aug 97 22:11 $brandon

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]