Tag Transions
Posted: Mon Mar 10, 2008 2:16 am
This is for AL to help me get something working.
Code: Select all
void main()
{
object oPC = GetLastOpenedBy();
if (!GetIsPC(oPC)) return;
object oTarget;
location lTarget;
string sEnteringTrigger = GetTag(OBJECT_SELF);
SendMessageToPC(oPC, sEnteringTrigger);
string sMinusExtension = GetSubString(sEnteringTrigger,0,GetStringLength(sEnteringTrigger)-4);
SendMessageToPC(oPC, sMinusExtension);
int nLen = GetStringLength(sMinusExtension);
string sModifyingCharacter = "exit";
SendMessageToPC(oPC, sModifyingCharacter);
if (GetLocalInt(OBJECT_SELF, "Exit")>= 1)
{
string sModifyingCharacter = "entr";
string sTeleportTo = InsertString( sMinusExtension, sModifyingCharacter, nLen);
oTarget = GetObjectByTag(sTeleportTo);
lTarget = GetLocation(oTarget);
AssignCommand(oPC, ClearAllActions());
AssignCommand(oPC, ActionJumpToLocation(lTarget));
}
else
{
string sTeleportTo = InsertString( sMinusExtension, sModifyingCharacter, nLen);
oTarget = GetObjectByTag(sTeleportTo);
lTarget = GetLocation(oTarget);
AssignCommand(oPC, ClearAllActions());
AssignCommand(oPC, ActionJumpToLocation(lTarget));
}
}