[ACS] actorSetSpeed(x, tid) script, aka A_SetSpeed

[determin1st]

A_SetSpeed() doesn't work in zandronum, so, here is the script that will set it:

Code: Select all

script "actorSetSpeed" (int speed, int tid) CLIENTSIDE
{
	// desired value is multiplied by 100,
	// convert it to fixed number
	speed = 0.01 * speed;
	// get currents
	int pitch = GetActorPitch(tid);// [-0.25, 0.25]
	int angle = GetActorAngle(tid);// [0.0, 1.0]
	// determine vectors
	int vx,vy,vz;
	vx = FixedMul(speed, Cos(pitch));
	vz = FixedMul(-speed, Sin(pitch));
	vy = FixedMul(vx, Sin(angle));
	vx = FixedMul(vx, Cos(angle));
	//Log(s:"pitch=",f:pitch,s:" angle=",f:angle);
	//Log(s:"speed=",f:speed,s:" vx=",f:vx,s:" vy=",f:vy,s:" vz=",f:vz);
	SetActorVelocity(tid, vx, vy, vz, false, false);
}

usage:

Code: Select all

TNT1 A 0 ACS_NamedExecuteAlways("actorSetSpeed", 0, 1) // speed=0.01
TNT1 A 0 ACS_NamedExecuteAlways("actorSetSpeed", 0, 100) // speed=1.0
TNT1 A 0 ACS_NamedExecuteAlways("actorSetSpeed", 0, 1000) // speed=10.0
...

[i6g9o5r1]

tysm