//::///////////////////////////////////////////////
//:: FileName mh_at_001
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////
//:: Created By: Script Wizard
//:: Created On: 11/02/2004 15:33:49
//:://////////////////////////////////////////////
#include "mh_instr_inc"
void main()
{
    // Donner les objets à la personne qui parle

    object oSpeaker = GetPCSpeaker();
    object oItem = CreateItemOnObject("mh_it_harp", oSpeaker, 1);
    SetIdentified(oItem,TRUE);
    SetLocalObject(oItem, "mh_createur", oSpeaker);
    SetLocalInt(oItem,"cout_instrument",50000);
    //ExecuteScript("mh_ins_sp_script", oSpeaker);
    TakeGoldFromCreature(25000, GetPCSpeaker(), TRUE);
    SetXP(GetPCSpeaker(), GetXP(GetPCSpeaker()) - 2000);
    if(!GetLocalInt(oSpeaker,"use_CIMM"))
    {
        ActiveModeCIMM(oSpeaker);
    }

}