43 lines
1.2 KiB
Plaintext
43 lines
1.2 KiB
Plaintext
// op6_setup
|
|
void main()
|
|
{
|
|
object oPC=GetPCSpeaker();
|
|
object oWP;
|
|
int nC=0;
|
|
int nTC=0;
|
|
int nBase=GetLocalInt(oPC,"nCarpetBase");
|
|
object oMod=GetModule();
|
|
SetCustomToken(5001,"");
|
|
SetCustomToken(5002,"");
|
|
SetCustomToken(5003,"");
|
|
SetCustomToken(5004,"");
|
|
SetCustomToken(5005,"");
|
|
SetCustomToken(5006,"");
|
|
SetCustomToken(5007,"");
|
|
SetCustomToken(5008,"");
|
|
SetCustomToken(5009,"");
|
|
SetCustomToken(5010,"");
|
|
DeleteLocalInt(oMod,"bCarpetLoc1");
|
|
DeleteLocalInt(oMod,"bCarpetLoc2");
|
|
DeleteLocalInt(oMod,"bCarpetLoc3");
|
|
DeleteLocalInt(oMod,"bCarpetLoc4");
|
|
DeleteLocalInt(oMod,"bCarpetLoc5");
|
|
DeleteLocalInt(oMod,"bCarpetLoc6");
|
|
DeleteLocalInt(oMod,"bCarpetLoc7");
|
|
DeleteLocalInt(oMod,"bCarpetLoc8");
|
|
DeleteLocalInt(oMod,"bCarpetLoc9");
|
|
DeleteLocalInt(oMod,"bCarpetLoc10");
|
|
oWP=GetObjectByTag("FLYING_CARPET",nC);
|
|
while(GetIsObjectValid(oWP)&&nTC<10)
|
|
{ // build custom tokens
|
|
if (nC>=nBase)
|
|
{ // in range
|
|
nTC++;
|
|
SetCustomToken(5000+nTC,GetName(GetArea(oWP)));
|
|
SetLocalInt(oMod,"bCarpetLoc"+IntToString(nTC),TRUE);
|
|
} // in range
|
|
nC++;
|
|
oWP=GetObjectByTag("FLYING_CARPET",nC);
|
|
} // build custom tokens
|
|
}
|