-- This is a script that can be used to modify particle properties
--
-- Created:  		8-8-2004
-- Last Updated:
--
-- Author :  ZhangYang
-- Version:  3ds max 6
--********************************************************************
-- MODIFY THIS AT YOUR OWN RISK
-- Notes: Ranger _1.02 test
 
on ChannelsUsed pCont do
(
	 pCont.useTime = true
	 pCont.useSpeed = true
)

on Init pCont do 
(
  
--init var for scenes:Soldier,teamA,TeamB
--start of struct
Struct Soldier
(
Pos=[0,0,0],
Status=0,
Hp=10,
Strengh=1,
Timer=0,
EmyIndex=0,
Vision=100,
--function for search near enemy. cur_pos:Currenty soldier position. enemy_Array:enemy team array
fn search_near emyPos_Array =
	(if emyPos_Arra==#() do return 0 --0 means search failed.
	 min_dis=100000
	 min_index=0
	 emy_count=emyPos_Array.count
	 for i=1 to  emy_count do
		(	cur_dis=(distance pos emyPos_Array[i])
			if min_dis>cur_dis do 
			(min_dis=cur_dis
			 min_index=i
			 )
		)
	 if min_index!=0 and min_dis<=Vision then return min_index
	 else return 0
	 )

)
--end of struct

--init env var
Global Team_Num=50
Global Fight_Dis=10,Run_Speed=0.01,Run_Timer=10,Walk_Timer=15,Fight_Timer=8,Min_HP=3,Flee_Timer=5  --Timer or Dis
Global Walk_State=1, Run_State=2, Fight_State=3, Flee_State=4, Dead_State=5 --status var
Global Walk_Speed=[0.00166667,0,0],Flee_Speed=0.1

--team declare
TeamA=#()
TeamB=#()
--soldier per team
for i=1 to Team_Num do
(
TeamA[i]=Soldier Hp:10 Status:Walk_State Timer:Walk_Timer  --set defualt walking
TeamB[i]=Soldier Hp:10 Status:Walk_State Timer:Walk_Timer
)
Global Team=#(TeamA,TeamB)
--string execute try
Global MyTeam=0
Global EmyTeam=0


--end of init
)

on Proceed pCont do 
(
	count= pCont.NumParticles()
	pfsys_Curr=pCont.getParticleSystemNode()
	if pfsys_Curr.name=="TeamA" do 
	( MyTeam=1 
	EmyTeam=2 )
	if pfsys_Curr.name=="TeamB" do 
	( MyTeam=2
	 EmyTeam=1 )	

	--collect team pos
	Pos_col=#()

	for i in 1 to count do
	(  	
		pCont.particleIndex=i
		Team[MyTeam][i].Timer-=1
		Case Team[MyTeam][i].status of 
			(
			Walk_State:
				(if MyTeam==1 then pCont.ParticleSpeed=Walk_Speed
							  else pCont.ParticleSpeed=-Walk_Speed
				--collect the enemy pos to a array
				for j=1 to count do append Pos_col (Team[EmyTeam][j].pos)
				Near_emy=Team[MyTeam][i].search_near Pos_col
				if Near_emy>0 and Team[MyTeam][i].timer<=0 do 
					( 
			  		Team[MyTeam][i].status=Run_State -- if enemy in sight. set status to run
			  		Team[MyTeam][i].Timer=Run_Timer  -- set the timer to run as 5
		  			Team[MyTeam][i].EmyIndex=Near_emy --set target enemy
					)
				if Team[MyTeam][i].timer<=0 do Team[MyTeam][i].timer=Walk_Timer  --if one cycle finish , refresh it
				)

			Run_State:
				(
				--load the enemy position
				if Team[EmyTeam][i].EmyIndex==0 do continue
				emy_pos=Team[EmyTeam][Team[MyTeam][i].EmyIndex].pos	
				--set myteam speed:emypos-mypos
				pCont.particlespeed=Run_Speed*normalize(emy_pos-Team[MyTeam][i].pos)
				emy_dis=distance emy_pos Team[MyTeam][i].pos
				if emy_dis<=Fight_Dis and Team[MyTeam][i].timer<=0 do 
					( 
				  	Team[MyTeam][i].status=Fight_State -- if enemy in sight. set status to run
			        Team[MyTeam][i].Timer=Fight_Timer  -- set the timer to run as 5
					Continue
					)
		
				if Team[MyTeam][i].timer<=0 do Team[MyTeam][i].timer=Run_Timer  --if one cycle finish , refresh it
				)
			
			Fight_State:
				(
				--debug use
				 format "Team:% Particle No:% fight Against:% MyHp:% \n" MyTeam i Team[MyTeam][i].EmyIndex Team[MyTeam][i].hp
				 
				pCont.particleSpeed=[0,0,0]
				--if hp 0:turn to dead
				if Team[MyTeam][i].Hp<=0 do 
			    	(
				  	Team[MyTeam][i].status=Dead_State
				  	continue
		  			)
				--if hp too low:turn to flee
				if Team[MyTeam][i].Hp<Min_HP do
				   (
					Team[MyTeam][i].status=Flee_State 
					Team[MyTeam][i].Timer=Flee_Timer 
					continue
				  	)
				--if enemy dead:turn to walk and search another 
				if Team[EmyTeam][Team[MyTeam][i].EmyIndex].Status==Dead_State do
					(
					 Team[MyTeam][i].status=Walk_State -- if enemy in sight. set status to run
					 Team[MyTeam][i].timer=Walk_Timer
					 continue
					 )
				--continue fight
				if Team[EmyTeam][i].EmyIndex==0 do continue
				emy_pos=Team[EmyTeam][Team[EmyTeam][i].EmyIndex].pos
		 		emy_dis=distance emy_pos Team[MyTeam][i].pos
		 		--if one fight cycle finished. decrease enemy hp by 1
		 		if Team[MyTeam][i].Timer<=0 do	
		 			(
					Team[EmyTeam][Team[MyTeam][i].EmyIndex].Hp-=1
					Team[MyTeam][i].Timer=Fight_Timer --reset fight cycle
				 	)
	 		 	--if the enemy too far then run to it
			 	if emy_dis>=Fight_Dis do
			 		(
					Team[MyTeam][i].status=Run_State
			 		Team[MyTeam][i].timer=Run_Timer
	 		 		)
				)		

			Flee_State:
				( if MyTeam==1 then pCont.ParticleSpeed=-Flee_Speed*Walk_Speed
				else pCont.ParticleSpeed=Flee_Speed*Walk_Speed
				--debug use
				 format "Team:% Particle No:% Flee MyHp:% \n" MyTeam i Team[MyTeam][i].hp
				)
			Dead_State: 
				(
				--debug use
				format "Team:% Particle No:% Dead \n" MyTeam i
				pCont.particleSpeed=[0,0,0]
				)
			)
	)
)

on Release pCont do 
(
 
)

--********************************************************************
--Interface: MaxscriptParticleContainer - argument in all script methods
-- Properties:
--				// to use in ChannelsUsed method
--  .useTime : bool : Read|Write
--  .useAge : bool : Read|Write
--  .useLifespan : bool : Read|Write
--  .useEventTime : bool : Read|Write
--  .usePosition : bool : Read|Write
--  .useSpeed : bool : Read|Write
--  .useAcceleration : bool : Read|Write
--  .useOrientation : bool : Read|Write
--  .useSpin : bool : Read|Write
--  .useScale : bool : Read|Write
--  .useTM : bool : Read|Write
--  .useSelected : bool : Read|Write
--  .useShape : bool : Read|Write
--  .useInteger : bool : Read|Write
--  .useFloat : bool : Read|Write
--  .useVector : bool : Read|Write
--  .useMatrix : bool : Read|Write
--				// to use in Proceed method
--  .particleIndex : index : Read|Write|Validated by Range: 1 to 100000000	// set/get current particle index
--  .particleID : index : Read|Write|Validated by Range: 1 to 100000000		// set/get current particle ID
--  .particleNew : bool : Read		// check if particle just arrived into the event
--  .particleTime : time : Read|Write  // time of the current status of the particle
--  .particleAge : time : Read|Write|Validated by Range: 0f to 9e+006f
--  .particleLifespan : time : Read|Write|Validated by Range: 0f to 9e+006f
--  .particleEventTime : time : Read|Write|Validated by Range: 0f to 9e+006f // for how long the particle is present in the current event
--  .particlePosition : point3 : Read|Write
--  .particleSpeed : point3 : Read|Write
--  .particleAcceleration : point3 : Read|Write
--  .particleOrientation : point3 : Read|Write
--  .particleSpin : angleAxis : Read|Write
--  .particleScale : float : Read|Write
--  .particleScaleXYZ : point3 : Read|Write
--  .particleTM : matrix3 : Read|Write		// set/get particle transformation matrix 
--  .particleSelected : bool : Read|Write
--  .particleShape : mesh : Read|Write
--  .useMtlIndex: bool: Read|Write
--  .useMapping: bool: Read|Write
--  .particleInteger : integer : Read|Write // to store custom integer data per particle
--  .particleFloat : float : Read|Write		// to store custom float data per particle
--  .particleVector : point3 : Read|Write	// to store custom vector data per particle
--  .particleMatrix : matrix3 : Read|Write	// to store custom matrix data per particle
-- Methods:
--				// to use in Init, Release and Proceed methods
--  <IObject>getParticleContainer()	// get particle container
--				// to use in Init and Proceed methods
--  <object>getParticleSystem()		// get the particle system object
--  <node>getParticleSystemNode()	// get the particle system node
--				// to use in Init method
--  <object array>getInitActions()	// get list of all action objects in the current event
--  <node array>getInitActionNodes()// get list of all action nodes in the current event
--				// to use in Proceed method
--  <time>getTimeStart()			// get start of the proceed interval
--  <time>getTimeEnd()				// get end of the proceed interval
--  <void>setTimeEnd <time>time		// if it is not possible to proceed all particles to the given timeEnd
--									// then set the closest possible time of the proceed interval
--  <void>setTimeEndPrecise <time>time <float>fraction  // to set the end time with higher precision
--  <node>getActionNode()			// get node the action
--  <Interface>getIntegrator()		// get interface of the procedure that integrates particle motion in time
--  <integer>randSign()				// get random sign (-1 or +1)
--  <float>rand01()					// get random number from interval [0, 1]
--  <float>rand11()					// get random number from interval [-1, 1]
--  <float>rand55()					// get random number from interval [-0.5, 0.5]
--  <integer>rand0X <integer>maxNumber // get random integer number from interval [0..maxNumber]
--  <point3>randSpherePoint()		// get random 3D point from surface of sphere with radius 1
--  <point3>randDivergeVector <point3>vectorToDiverge <angle>maxAngle // get random vector that diverges
--									// from the given vector for no more that maxAngle angle
--  <integer>numParticles()			// number of particles in the current event
--  <bool>addParticle()				// add a single particle. Use .particleTime to define when particle is added
--									// Use .particleAge=0 to set particle age to zero
--									// Use other methods to define particle position, speed, orientation etc.
--  <bool>addParticles <integer>amount  // add 'amount' particles
--  <bool>deleteParticle <index>index // delete a single particle with the given index
--  <bool>deleteParticles <index>startIndex <integer>amount // delete 'amount' particles starting from startIndex
--  <index>getParticleID <index>particleIndex // get ID of the particle with the given index
--  <bool>hasParticleID <index>particleID <&index>particleIndex // verify if the event has a particle with the given ID
--     particleIndex is In and Out parameter					// if the particle is present then particleIndex is the index of the particle
--  <bool>isParticleNew <index>particleIndex	// check if a particle just arrived into the event
--  <bool>isParticleNewByID <index>particleID   // check if a particle with the given ID just arrived into the event
--  <time>getParticleTime <index>particleIndex  // get time of the current status of the particle
--  <time>getParticleTimeByID <index>particleID
--  <void>setParticleTime <index>particleIndex <time>time  // change time of the current status of the particle
--  <void>setParticleTimePrecise <index>particleIndex <time>time <float>fraction
--  <void>setParticleTimeByID <index>particleID <time>time
--  <void>setParticleTimePreciseByID <index>particleID <time>time <float>fraction
--  <time>getParticleAge <index>particleIndex
--  <time>getParticleAgeByID <index>particleID
--  <void>setParticleAge <index>particleIndex <time>age
--  <void>setParticleAgeByID <index>particleID <time>age
--  <time>getParticleLifespan <index>particleIndex
--  <time>getParticleLifespanByID <index>particleID
--  <void>setParticleLifespan <index>particleIndex <time>lifespan
--  <void>setParticleLifespanByID <index>particleID <time>lifespan
--  <time>getParticleEventTime <index>particleIndex
--  <time>getParticleEventTimeByID <index>particleID
--  <void>setParticleEventTime <index>particleIndex <time>eventTime
--  <void>setParticleEventTimeByID <index>particleID <time>eventTime
--  <point3>getParticlePosition <index>particleIndex
--  <point3>getParticlePositionByID <index>particleID
--  <void>setParticlePosition <index>particleIndex <point3>position
--  <void>setParticlePositionByID <index>particleID <point3>position
--  <point3>getParticleSpeed <index>particleIndex
--  <point3>getParticleSpeedByID <index>particleID
--  <void>setParticleSpeed <index>particleIndex <point3>speed
--  <void>setParticleSpeedByID <index>particleID <point3>speed
--  <point3>getParticleAcceleration <index>particleIndex
--  <point3>getParticleAccelerationByID <index>particleID
--  <void>setParticleAcceleration <index>particleIndex <point3>acceleration
--  <void>setParticleAccelerationByID <index>particleID <point3>acceleration
--  <point3>getParticleOrientation <index>particleIndex
--  <point3>getParticleOrientationByID <index>particleID
--  <void>setParticleOrientation <index>particleIndex <point3>orientation
--  <void>setParticleOrientationByID <index>particleID <point3>orientation
--  <angleAxis>getParticleSpin <index>particleIndex
--  <angleAxis>getParticleSpinByID <index>particleID
--  <void>setParticleSpin <index>particleIndex <angleAxis>spin
--  <void>setParticleSpinByID <index>particleID <angleAxis>spin
--  <float>getParticleScale <index>particleIndex
--  <float>getParticleScaleByID <index>particleID
--  <void>setParticleScale <index>particleIndex <float>scale
--  <void>setParticleScaleByID <index>particleID <float>scale
--  <point3>getParticleScaleXYZ <index>particleIndex
--  <point3>getParticleScaleXYZByID <index>particleID
--  <void>setParticleScaleXYZ <index>particleIndex <point3>scale
--  <void>setParticleScaleXYZByID <index>particleID <point3>scale
--  <matrix3>getParticleTM <index>particleIndex
--  <matrix3>getParticleTMByID <index>particleID
--  <void>setParticleTM <index>particleIndex <matrix3>transformationMatrix
--  <void>setParticleTMByID <index>particleID <matrix3>transformationMatrix
--  <bool>getParticleSelected <index>particleIndex
--  <bool>getParticleSelectedByID <index>particleID
--  <void>setParticleSelected <index>particleIndex <bool>selected
--  <void>setParticleSelectedByID <index>particleID <bool>selected
--  <mesh>getParticleShape <index>particleIndex
--  <mesh>getParticleShapeByID <index>particleID
--  <void>setParticleShape <index>particleIndex <mesh>shape
--  <void>setParticleShapeByID <index>particleID <mesh>shape
--  <void>setShapeForAllParticles <mesh>shape
--  <void>setParticleMtlIndex <index>particleIndex <index>materialIndex
--  <void>setParticleMtlIndexByID <index>particleID <index>materialIndex
--  <void>setMtlIndexForAllParticles <index>materialIndex
--  <void>setParticleMapping <index>particleIndex <int>mapChannel <point3>mapValue
--  <void>setParticleMappingByID <index>particleID <int>mapChannel <point3>mapValue
--  <void>setMappingForAllParticles <int>mapChannel <point3>mapValue
--  <integer>getParticleInteger <index>particleIndex
--  <integer>getParticleIntegerByID <index>particleID
--  <void>setParticleInteger <index>particleIndex <integer>integerValue
--  <void>setParticleIntegerByID <index>particleID <integer>integerValue
--  <float>getParticleFloat <index>particleIndex
--  <float>getParticleFloatByID <index>particleID
--  <void>setParticleFloat <index>particleIndex <float>floatValue
--  <void>setParticleFloatByID <index>particleID <float>floatValue
--  <point3>getParticleVector <index>particleIndex
--  <point3>getParticleVectorByID <index>particleID
--  <void>setParticleVector <index>particleIndex <point3>vectorValue
--  <void>setParticleVectorByID <index>particleID <point3>vectorValue
--  <matrix3>getParticleMatrix <index>particleIndex
 
--  <matrix3>getParticleMatrixByID <index>particleID
--  <void>setParticleMatrix <index>particleIndex <matrix3>matrixValue
--  <void>setParticleMatrixByID <index>particleID <matrix3>matrixValue