Pasted

npc RunNPCScript(int ID, int scriptNum, untyped args)
{
    // Invalid script
    if(scriptNum < 1 || scriptNum > 511) 
    {
        LogPrint("Invalid script ID ( %d ) passed to RunNPCScript. \n Valid range is (1 to 511). Aborting. \n", ID);
        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 < 1 || scriptNum > 511) 
    {
        LogPrint("Invalid script ID ( %d ) passed to RunLWeaponScript. \n Valid range is (1 to 511). Aborting. \n", ID);
        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 < 1 || scriptNum > 511) 
    {
        LogPrint("Invalid script ID ( %d ) passed to RunEWeaponScript. \n Valid range is (1 to 511). Aborting. \n", ID);
        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;
}