#include "nw_i0_tool"
/*   Script generated by
Lilac Soul's NWN Script Generator, v. 1.6

For download info, please visit:
http://www.lilacsoul.revility.com    */

//Put this OnUsed
void main()
{

object oPC = GetLastUsedBy();

if (!GetIsPC(oPC)) return;

if (GetItemPossessedBy(oPC, "kloakmedalje")!= OBJECT_INVALID)
   return;

CreateItemOnObject("kloakmedalje", oPC);

ActionSpeakString("Welcome follower of The Sick One, may this medallion  bring you closer to our Master.");

object oTarget;
oTarget = oPC;

effect eEffect;
eEffect = EffectHaste();

ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eEffect, oTarget, 120.0f);

}