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 <20> 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);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|