Method code for $has_reactions.check_reaction_args()

[Turn on line numbering]

---

arg method, template, type, chance, times, hook, min, max;

if (type(method) != 'symbol)
    throw(~type, "Match type (arg 1) is not a symbol.");
if (type(template) != 'string)
    throw(~type, "Match template (arg 2) is not a string.");
if (type(type) != 'symbol)
    throw(~type, "Reaction type (arg 3) is not a symbol.");
if (type(chance) != 'integer)
    throw(~type, "Reaction chance (arg 4) is not a integer.");
if (type(times) != 'integer)
    throw(~type, "Reaction times (arg 5) is not a integer.");
if (type(hook) != 'list)
    throw(~type, "Reaction hook (arg 6) is not a list.");
if (!hook || type(hook[1]) != 'symbol)
    throw(~type, "Reaction hook method (arg 6[1]) is not a symbol.");
if (listlen(hook) == 1 || type(hook[2]) != 'list)
    throw(~type, "Reaction hook arguments (arg 6[2]) is not a list.");
if (type(min) != 'integer)
    throw(~type, "Reaction minimum delay (arg 7) is not a integer.");
if (type(max) != 'integer)
    throw(~type, "Reaction maximum delay (arg 8) is not a integer.");

---

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