LineOfSight TLO
Posted: Thu Mar 06, 2008 7:03 pm
Code: Select all
TLO(dataLineOfSight)
{
#ifdef ISXEQ
if (!GetCharInfo()->pSpawn)
return FALSE;
if (argc==6)
{
if (!(IsNumber(argv[0]) && IsNumber(argv[1]) && IsNumber(argv[2]) &&
IsNumber(argv[3]) && IsNumber(argv[4]) && IsNumber(argv[5])))
return FALSE;
FLOAT P1[3];
FLOAT P2[3];
P1[0]=(FLOAT)atof(argv[0]);
P1[1]=(FLOAT)atof(argv[1]);
P1[2]=(FLOAT)atof(argv[2]);
P2[0]=(FLOAT)atof(argv[3]);
P2[1]=(FLOAT)atof(argv[4]);
P2[2]=(FLOAT)atof(argv[5]);
SPAWNINFO Temp=*GetCharInfo()->pSpawn;
Temp.Y=P2[0];
Temp.X=P2[1];
Temp.Z=P2[2];
Ret.DWord=CastRay(&Temp,P1[0],P1[1],P1[2]);
Ret.Type=pBoolType;
return true;
}
#endif
return false;
}