// Script for the Aidbringer administrator-rod
// This script grants membership to a non-member.
// 5th of September 2005, Alangara, made by -Seeker-

#include "mn_h_constants"
#include "mn_i_checkrank"

void main()
{
   object oPC = GetPCSpeaker();
   object oTarget = GetLocalObject( oPC, "mn_target" );
   DeleteLocalObject( oPC, "mn_target" );

   // *** Pass ***
   TakeGoldFromCreature( 50000, oPC, TRUE );
   object pass = CreateItemOnObject("mn_i_pcaccess", oTarget, 1);
   SetLocalString( pass, "tied_to", GetLocalString( oTarget, "cid" ) );
   SetLocalInt( pass, "rank", MN_RANK_ALLY );
   SetLocalInt( pass, "corrupted", FALSE );

   // *** Keys ***
   CreateItemOnObject("mn_aidbr_memkey", oTarget, 1);

   // *** Token ***
   object token = CreateItemOnObject("mn_aidb_token", oTarget, 1);
   SetLocalInt( token, "mn_rank", MN_AIDB_ASSOCIATE );

   // *** Guild-rod ***

   // Feedback
   effect visual1 = EffectVisualEffect( VFX_FNF_SUMMON_MONSTER_3 );
   effect visual2 = EffectVisualEffect( VFX_FNF_STRIKE_HOLY );

   DelayCommand( 0.1f, ApplyEffectToObject( DURATION_TYPE_INSTANT, visual1, oTarget ) );
   DelayCommand( 1.5f, ApplyEffectToObject( DURATION_TYPE_INSTANT, visual2, oTarget ) );
}