generated from Jaysyn/ModuleTemplate
54 lines
1.9 KiB
Plaintext
54 lines
1.9 KiB
Plaintext
/* tp_next
|
|
* by dluan on jan 2003 */
|
|
|
|
void main()
|
|
{
|
|
int nCount = 0;
|
|
|
|
if (!GetLocalInt(OBJECT_SELF, "TP_TYPE")) {
|
|
|
|
object oPlayer = GetLocalObject(OBJECT_SELF, "TP_CHAR");
|
|
while (GetIsObjectValid(oPlayer) && nCount < 6) {
|
|
if (oPlayer != OBJECT_SELF) {
|
|
nCount++;
|
|
SetCustomToken(2000+nCount, GetPCPlayerName(oPlayer));
|
|
SetLocalObject(OBJECT_SELF, "TP_CUSTOM"+IntToString(nCount), oPlayer);
|
|
}
|
|
oPlayer = GetNextPC();
|
|
}
|
|
if (GetIsObjectValid(oPlayer)) {
|
|
//SetCustomToken(2006, "Next.");
|
|
SetLocalObject(OBJECT_SELF, "TP_CHAR", oPlayer);
|
|
} else DeleteLocalObject(OBJECT_SELF, "TP_CHAR");
|
|
SetLocalInt(OBJECT_SELF, "TP_ITEM", nCount);
|
|
|
|
} else {
|
|
|
|
object oArea;
|
|
int nArea = GetLocalInt(OBJECT_SELF, "TP_AREA");
|
|
string sCount;
|
|
if (nArea < 10) sCount = "00"+IntToString(nArea);
|
|
else if (nArea < 100) sCount = "0"+IntToString(nArea);
|
|
else sCount = IntToString(nArea);
|
|
string sArea = GetLocalString(GetModule(), "TP_TAGAREA_"+sCount);
|
|
|
|
while (sArea != "" && nCount < 6) {
|
|
nCount++;
|
|
oArea = GetObjectByTag(sArea);
|
|
SetCustomToken(2000+nCount, GetName(oArea));
|
|
SetLocalObject(OBJECT_SELF, "TP_CUSTOM"+IntToString(nCount), oArea);
|
|
nArea++;
|
|
if (nArea < 10) sCount = "00"+IntToString(nArea);
|
|
else if (nArea < 100) sCount = "0"+IntToString(nArea);
|
|
else sCount = IntToString(nArea);
|
|
sArea = GetLocalString(GetModule(), "TP_TAGAREA_"+sCount);
|
|
}
|
|
|
|
if (sArea != "") {
|
|
SetLocalInt(OBJECT_SELF, "TP_AREA", nArea);
|
|
} else DeleteLocalInt(OBJECT_SELF, "TP_AREA");
|
|
SetLocalInt(OBJECT_SELF, "TP_ITEM", nCount);
|
|
|
|
}
|
|
}
|