GetOffMyYarn
69879d6957
Added CCOH and missing areas Changed some areas to be craftable, Fixed some on death issues, Fixed the Gaurd
38 lines
1.1 KiB
Plaintext
38 lines
1.1 KiB
Plaintext
void MakeCopy(object oItem, object oSelf);
|
|
|
|
void main()
|
|
{
|
|
object oSelf = OBJECT_SELF;
|
|
object oItem = GetFirstItemInInventory(oSelf);
|
|
string sItemTag;
|
|
string sItemName;
|
|
|
|
if (oItem!=OBJECT_INVALID)
|
|
{
|
|
while (oItem!=OBJECT_INVALID)
|
|
{
|
|
sItemTag = GetTag(oItem);
|
|
sItemName = GetName(oItem);
|
|
if (GetStringRight(sItemTag,6)=="_Store")
|
|
{
|
|
AssignCommand(oItem,DelayCommand(8.0,MakeCopy(oItem,oSelf)));
|
|
//SendMessageToPC(GetFirstPC(),"Making New Scroll");
|
|
}
|
|
if (GetStringLowerCase(GetStringLeft(sItemName,7))=="pattern") DestroyObject(oItem,10.0);
|
|
if (GetStringLowerCase(GetStringLeft(sItemName,6))=="recipe") DestroyObject(oItem,10.0);
|
|
oItem=GetNextItemInInventory(oSelf);
|
|
if (oItem==OBJECT_INVALID) return;
|
|
}
|
|
}
|
|
}
|
|
|
|
void MakeCopy (object oItem, object oSelf)
|
|
{
|
|
string sItemTag = GetTag(oItem);
|
|
int iTagLength = GetStringLength(sItemTag)-6;
|
|
string sNewTag = GetStringLeft(sItemTag,iTagLength)+"a";
|
|
CopyObject(oItem,GetLocation(oSelf),oSelf,sNewTag);
|
|
DestroyObject(oItem,2.0);
|
|
return;
|
|
}
|