RunScript Functions

npc RunNPCScript(int ID, int scriptNum, untyped args)
{
    // Invalid script
    if(scriptNum < 0 || scriptNum > 511) // Why allow script 0 here?
        return Debug->NULL();

    npc n = Screen->CreateNPC(ID);
    n->Script = scriptNum;
    int sz = SizeOfArray(args);
    if(sz)
    {
        sz = ( sz > 7 ) ? 7 : sz-1;
        for (; sz >= 0; --sz)
            n->InitD[sz] = args[sz];
    }
    return n;
}

lweapon RunLWeaponScript(int ID, int scriptNum, untyped args)
{
    // Invalid script
    if(scriptNum < 0 || scriptNum > 511) // Why allow script 0 here?
        return Debug->NULL();

    lweapon n = Screen->CreateLWeapon(ID);
    n->Script = scriptNum;
    int sz = SizeOfArray(args);
    if(sz)
    {
        sz = ( sz > 7 ) ? 7 : sz-1;
        for (; sz >= 0; --sz)
            n->InitD[sz] = args[sz];
    }
    return n;
}

lweapon RunEWeaponScript(int ID, int scriptNum, untyped args)
{
    // Invalid script
    if(scriptNum < 0 || scriptNum > 511) // Why allow script 0 here?
        return Debug->NULL();

    eweapon n = Screen->CreateEWeapon(ID);
    n->Script = scriptNum;
    int sz = SizeOfArray(args);
    if(sz)
    {
        sz = ( sz > 7 ) ? 7 : sz-1;
        for (; sz >= 0; --sz)
            n->InitD[sz] = args[sz];
    }
    return n;
}