35 lines
917 B
Plaintext
35 lines
917 B
Plaintext
|
// *** Socket Tool script designed by Tarashon for the Alangara server ***
|
||
|
|
|
||
|
|
|
||
|
|
#include "prc_x2_itemprop"
|
||
|
|
|
||
|
|
|
||
|
|
void main()
|
||
|
|
{
|
||
|
|
object oItem;
|
||
|
|
itemproperty ipAdd;
|
||
|
|
int nType;
|
||
|
|
object oEventItem = GetItemActivated();
|
||
|
|
object oActTarget = GetItemActivatedTarget();
|
||
|
|
location lActTarget = GetItemActivatedTargetLocation();
|
||
|
|
object oActivator = GetItemActivator();
|
||
|
|
|
||
|
|
object oPC = oActivator;
|
||
|
|
|
||
|
|
// The target must be a certain type of object.
|
||
|
|
nType = GetObjectType(oActTarget);
|
||
|
|
if ( nType != OBJECT_TYPE_ITEM )
|
||
|
|
{
|
||
|
|
SendMessageToPC(oActivator, "Improper use of this item!");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Set a local integer.
|
||
|
|
SetLocalInt(oActTarget, "SOCKET_SLOTS", 1);
|
||
|
|
|
||
|
|
SetPlotFlag(oActTarget, TRUE);
|
||
|
|
|
||
|
|
// ipAdd = ItemPropertyCastSpell(IP_CONST_CASTSPELL_UNIQUE_POWER_SELF_ONLY, IP_CONST_CASTSPELL_NUMUSES_UNLIMITED_USE);
|
||
|
|
// IPSafeAddItemProperty(oActTarget, ipAdd);
|
||
|
|
}
|