// imbue invisibility sight
void main()
{
  object oTarget=GetItemActivatedTarget();
  object oPC=GetItemActivator();
  object oItem=GetItemActivated();
  effect eBeam=EffectBeam(VFX_BEAM_SILENT_MIND,oPC,BODY_NODE_HAND);
  effect eSee=EffectSeeInvisible();
  if (GetIsPC(oTarget)==TRUE)
  { // PC
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eBeam,oTarget,2.5);
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eSee,oTarget,120.0);
  } // PC
  else if (GetObjectType(oTarget)==OBJECT_TYPE_CREATURE)
  { // NPC
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eBeam,oTarget,2.5);
    ApplyEffectToObject(DURATION_TYPE_PERMANENT,eSee,oTarget,10000.0);
  } // NPC
  else
  { // not proper target
    SendMessageToPC(oPC,"CANCELED: That was not a proper target for the scroll.");
    oTarget=CreateItemOnObject("scrollofimbuingi",oPC,1);
    DestroyObject(oItem);
  } // not proper target
}