Resource generation tweak

#1 Function seedResource(%type, %seed){
%minX = getWord(MissionArea.Area, 0);
%minY = getWord(MissionArea.Area, 1);
%maxX = getWord(MissionArea.Area, 2);
%maxY = getWord(MissionArea.Area, 3);
//echo(MissionArea.Area);
for(%i = %minX; %i < %maxX; %i +=%seed){
for(%j = %minY; %j < %maxY; %j +=%seed){
%rd = getRandom(%seed);
//even odd chance to spawn
if((%rd % 2) == 0){

// jwn tweak ----------------------------------------------------------------
// jwn elim %z = getWord(getTerrainLevel(%i SPC %j SPC 500, 1), 2);
// jwn - use the position returned instead
%z = getTerrainLevel(%i SPC %j SPC 500, 1);
// jwn tweak ----------------------------------------------------------------

%resource = new StaticShape() {
scale = "0.25 0.25 0.25";
dataBlock = %type;
};

// jwn tweak ----------------------------------------------------------------
// jwn elim %resource.setTransform( %i SPC %j SPC %z SPC"0 0 0.5 3.14159" );
// jwn use the position returned %z
%resource.setTransform(%z SPC "0 0 0.5 3.14159" );
// jwn tweak ----------------------------------------------------------------


// MissionGroup.add(%resource);
ResourceSet.add(%resource);
//for(%k = 0; %k < ClientGroup.getCount(); %k++ ){
// %cl = ClientGroup.getObject(%k);
// %resource.scopeToClient(%cl);
//}
}
}
}
}

(More code follows in next post)

#2 Function getTerrainLevel(%pos,%rad)
{
// jwn tweak ----------------------------------------------------------------
// MissionArea.Area = -210 -145 310 320
// For true random generation we need to get the min and max allowable X coordinates
// and the min and max allowable Y coordinates from -210 -145 310 320, then use random
// numbers within these ranges.
// The minX and minY are given as -210 and -145 and represent the lower left coordinate
// of the missionarea.
// The maxX and maxY are not given (they are not 310 and 320). Positioning objects near
// the upper right coordinates of the missionarea editor yielded coordinates of approx 100,171
//
// The maxX and maxY can be roughly approximated using:
// maxX = maxX - abs(minY) = 310 - abs(-210) = 100
// maxY = maxY - abs(minX) = 320 - abs(-145) = 175
//
// So, we need random X coordinate >= -210 and <= 100 and
// random Y coordinate >= -145 and <= 175.
//
// begin add jwn
%minX = getWord(MissionArea.Area, 0);
%minY = getWord(MissionArea.Area, 1);
%maxX = getWord(MissionArea.Area, 2);
%maxY = getWord(MissionArea.Area, 3);

%minX2 = 0;
%minY2 = 0;

// jwn in lieu of abs value function ?
if(%minX < 0)
{
%minX2 = %minX * -1;
}
if(%minY < 0)
{
%minY2 = %minY * -1;
}

%maxX = %maxX - %minX2;
%maxY = %maxY - %minY2;
// end add jwn
// jwn tweak ----------------------------------------------------------------



while(%retries < 1000)
{

// jwn tweak ----------------------------------------------------------------
// begin add jwn - get an x/y coordinate within the missionarea
//
// end add jwn

// jwn elim: %x = getWord(%pos, 0) + mFloor(getRandom(%rad * 2) - %rad);
// jwn elim: %y = getWord(%pos, 1) + mFloor(getRandom(%rad * 2) - %rad);

// jwn use randoms instead
%x = getRandom(%minX,%maxX);
%y = getRandom(%minY,%maxY);

// jwn tweak ----------------------------------------------------------------

%z = getWord(%pos, 2) + mFloor(getRandom(%rad * 2) - %rad);

%start = %x @ " " @ %y @ " 5000";
%end = %x @ " " @ %y @ " -1";
%ground = containerRayCast(%start, %end, $TypeMasks::TerrainObjectType, 0);
%z = getWord(%ground, 3);
%z += 0.05;

error ("Spawn Position : " @ %x SPC %y);
error ("Ground Level : " @ %z);


%position = %x @ " " @ %y @ " " @ %z;

%mask = ($TypeMasks::VehicleObjectType |
$TypeMasks::MoveableObjectType |
$TypeMasks::StaticShapeObjectType |
$TypeMasks::ForceFieldObjectType |
$TypeMasks::InteriorObjectType |
$TypeMasks::ItemObjectType);

if (ContainerBoxEmpty(%mask,%position,3.5))
{
error ("Spawn Position Is Good");
return %position;
}
else
%retries++;
}
return "0 0 1300 1 0 0 0";
}

#3 Darn, change the minX2 and minY2 to account for positive numbers (added else conditions)

This:

// jwn in lieu of abs value function ?
if(%minX < 0)
{
%minX2 = %minX * -1;
}
if(%minY < 0)
{
%minY2 = %minY * -1;
}


Should be:

// jwn in lieu of abs value function ?
if(%minX < 0)
{
%minX2 = %minX * -1;
}
else
{
%minX2 = minX;
}
if(%minY < 0)
{
%minY2 = %minY * -1;
}
else
{
%minY2 = %minY;
}

(Just in case your missionarea minX and minY are positive numbers)

(Sorry - saw this reviewing the post.......)

#4 You know you can edit your posts, right?