27 lines
874 B
Plaintext
27 lines
874 B
Plaintext
//::///////////////////////////////////////////////
|
|
//:: 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);
|
|
}
|
|
|
|
}
|