34 lines
1.0 KiB
Plaintext
34 lines
1.0 KiB
Plaintext
#include "mw_teleport_inc"
|
|
void main()
|
|
{
|
|
object oPC,
|
|
oLeader;
|
|
int iTime;
|
|
oPC = GetPCSpeaker();
|
|
oLeader = GetFactionLeader(oPC);
|
|
if (oLeader == oPC)
|
|
{
|
|
/*
|
|
if the requester is the party leader, cycle through everyone in the
|
|
party, teleporting to the first one found
|
|
*/
|
|
/* if you want to allow only teleport to party leader cut until ...*/
|
|
oLeader = GetFirstFactionMember(oPC, TRUE);
|
|
while (GetIsObjectValid(oLeader) && oLeader == oPC)
|
|
{
|
|
oLeader = GetNextFactionMember(oPC, TRUE);
|
|
}
|
|
if (oLeader == OBJECT_INVALID)
|
|
{
|
|
/* cut until here for party leader only */
|
|
AssignCommand(OBJECT_SELF, ActionSpeakString("You are the only member in your party!"));
|
|
return;
|
|
} /*this would be removed too */
|
|
}
|
|
iTime = GetHitDice(oPC);
|
|
TakeGoldFromCreature(iTime*50, oPC, TRUE);
|
|
if (oLeader != oPC)
|
|
mw_TeleportWithEffects(oPC, oLeader, IntToFloat(iTime));
|
|
}
|
|
|