/*   Script generated by
Lilac Soul's NWN Script Generator, v. 2.3

For download info, please visit:
http://nwvault.ign.com/View.php?view=Other.Detail&id=4683&id=625    */

void main()
{
object oPC;

if (GetIsPC(GetItemActivatedTarget()))
{
    SendMessageToPC(GetItemActivator(), "Improper use of item!");
    return;
}

if ((GetObjectType(GetItemActivatedTarget())!=OBJECT_TYPE_CREATURE)
){

SendMessageToPC(GetItemActivator(), "Improper use of item!");
return;}

oPC = GetItemActivator();

object oTarget;
oTarget = GetItemActivatedTarget();

SetCreatureAppearanceType(oTarget, APPEARANCE_TYPE_BAT);

SetPortraitResRef(oTarget, "po_bat_");

}