MacroQuest64

Code: Select all

TLO(dataNearestSpawn)
{
	if (ISINDEX())
	{
		unsigned long nth;
		SEARCHSPAWN ssSpawn;
		ClearSearchSpawn(&ssSpawn);
		ssSpawn.FRadius=999999.0f;
#ifndef ISXEQ
		PCHAR pSearch;
		if (pSearch=strchr(szIndex,','))
		{
			*pSearch=0;
			++pSearch;
			ParseSearchSpawn(pSearch,&ssSpawn);
			nth=GETNUMBER();
		}
		else
		{
			if (IsNumberToComma(szIndex))
			{
				nth=GETNUMBER();
			}
			else
			{
				nth=1;
				ParseSearchSpawn(szIndex,&ssSpawn);
			}
		}
#else
		if (!ISNUMBER()) {
			nth=1;
			ParseSearchSpawn(0,argc,argv,ssSpawn);
		} else {
			nth=GETNUMBER();
			ParseSearchSpawn(1,argc,argv,ssSpawn);
		}
#endif
		for (unsigned long N = 0 ; N < gSpawnCount ; N++)
		{
			if (EQP_DistArray[N].Value.Float>ssSpawn.FRadius)
				return false;
			if (SpawnMatchesSearch(&ssSpawn,(PSPAWNINFO)pCharSpawn,(PSPAWNINFO)EQP_DistArray[N].VarPtr.Ptr))
			{
				if (--nth==0)
				{
					Ret.Ptr=EQP_DistArray[N].VarPtr.Ptr;
					Ret.Type=pSpawnType;
					return true;
				}
			}
		}
	}
	// No spawn
	return false;
}