Added bone_attach, bone mappings, handle invalid objects in CreateObject, PlayAudioStreamForPlayer, StopAudioStreamForPlayer, general fixes for TogglePlayerSpectating, added SetPlayerAttachedObject, RemovePlayerAttachedObject, AttachCameraToObject.

Author: colistro123

amx/client/bone_attach_c.lua

@@ -0,0 +1,90 @@
+function sendReadyMessage()
+	triggerServerEvent("boneAttach_requestAttachmentData",root)
+end
+addEventHandler("onClientResourceStart",resourceRoot,sendReadyMessage)
+
+function getAttachmentData(ped,bone,x,y,z,rx,ry,rz)
+	for element,att_ped in pairs(ped) do
+		setElementCollisionsEnabled(element,false)
+		attached_ped[element] = att_ped
+		attached_bone[element] = bone[element]
+		attached_x[element] = x[element]
+		attached_y[element] = y[element]
+		attached_z[element] = z[element]
+		attached_rx[element] = rx[element]
+		attached_ry[element] = ry[element]
+		attached_rz[element] = rz[element]
+	end
+end
+addEvent("boneAttach_sendAttachmentData",true)
+addEventHandler("boneAttach_sendAttachmentData",root,getAttachmentData)
+
+function initAttach()
+	addEvent("boneAttach_attach",true)
+	addEvent("boneAttach_detach",true)
+	addEventHandler("boneAttach_attach",root,attachElementToBone)
+	addEventHandler("boneAttach_detach",root,detachElementFromBone)
+end
+addEventHandler("onClientResourceStart",resourceRoot,initAttach)
+
+bone_0,bone_t,bone_f = {},{},{}
+bone_0[1],bone_t[1],bone_f[1] = 5,nil,6 --head
+bone_0[2],bone_t[2],bone_f[2] = 4,5,8 --neck
+bone_0[3],bone_t[3],bone_f[3] = 3,nil,31 --spine
+bone_0[4],bone_t[4],bone_f[4] = 1,2,3 --pelvis
+bone_0[5],bone_t[5],bone_f[5] = 4,32,5 --left clavicle
+bone_0[6],bone_t[6],bone_f[6] = 4,22,5 --right clavicle
+bone_0[7],bone_t[7],bone_f[7] = 32,33,34 --left shoulder
+bone_0[8],bone_t[8],bone_f[8] = 22,23,24 --right shoulder
+bone_0[9],bone_t[9],bone_f[9] = 33,34,32 --left elbow
+bone_0[10],bone_t[10],bone_f[10] = 23,24,22 --right elbow
+bone_0[11],bone_t[11],bone_f[11] = 34,35,36 --left hand
+bone_0[12],bone_t[12],bone_f[12] = 24,25,26 --right hand
+bone_0[13],bone_t[13],bone_f[13] = 41,42,43 --left hip
+bone_0[14],bone_t[14],bone_f[14] = 51,52,53 --right hip
+bone_0[15],bone_t[15],bone_f[15] = 42,43,44 --left knee
+bone_0[16],bone_t[16],bone_f[16] = 52,53,54 --right knee
+bone_0[17],bone_t[17],bone_f[17] = 43,42,44 --left ankle
+bone_0[18],bone_t[18],bone_f[18] = 53,52,54 --right angle
+bone_0[19],bone_t[19],bone_f[19] = 44,43,42 --left foot
+bone_0[20],bone_t[20],bone_f[20] = 54,53,52 --right foot
+
+function putAttachedElementsOnBones()
+	for element,ped in pairs(attached_ped) do
+		if not isElement(element) then
+			clearAttachmentData(element)
+		elseif isElementStreamedIn(ped) then
+			local bone = attached_bone[element]
+			local x,y,z = getPedBonePosition(ped,bone_0[bone])
+			local xx,xy,xz,yx,yy,yz,zx,zy,zz = getBoneMatrix(ped,bone)
+			local offx,offy,offz = attached_x[element],attached_y[element],attached_z[element]
+			local offrx,offry,offrz = attached_rx[element],attached_ry[element],attached_rz[element]
+			local objx = x+offx*xx+offy*yx+offz*zx
+			local objy = y+offx*xy+offy*yy+offz*zy
+			local objz = z+offx*xz+offy*yz+offz*zz
+			local rxx,rxy,rxz,ryx,ryy,ryz,rzx,rzy,rzz = getMatrixFromEulerAngles(offrx,offry,offrz)
+
+			local txx = rxx*xx+rxy*yx+rxz*zx
+			local txy = rxx*xy+rxy*yy+rxz*zy
+			local txz = rxx*xz+rxy*yz+rxz*zz
+			local tyx = ryx*xx+ryy*yx+ryz*zx
+			local tyy = ryx*xy+ryy*yy+ryz*zy
+			local tyz = ryx*xz+ryy*yz+ryz*zz
+			local tzx = rzx*xx+rzy*yx+rzz*zx
+			local tzy = rzx*xy+rzy*yy+rzz*zy
+			local tzz = rzx*xz+rzy*yz+rzz*zz
+			offrx,offry,offrz = getEulerAnglesFromMatrix(txx,txy,txz,tyx,tyy,tyz,tzx,tzy,tzz)
+			if (string.find(objx..objy..objz, "a")) then
+			  setElementPosition(element, x, y, z)
+			else
+			  setElementPosition(element, objx, objy, objz)
+			end
+			if (not string.find(offrx..offry..offrz, "a")) then
+			  setElementRotation(element, offrx, offry, offrz, "ZXY")
+		else
+			setElementPosition(element,getElementPosition(ped))
+			end
+		end
+	end
+end
+addEventHandler("onClientPreRender",root,putAttachedElementsOnBones)

amx/client/bone_pos_rot.lua

@@ -0,0 +1,66 @@
+sx,sy,sz = 0,0,3
+tx,ty,tz = 0,0,4
+fx,fy,fz = 0,1,3
+
+function getMatrixFromPoints(x,y,z,x3,y3,z3,x2,y2,z2)
+	x3 = x3-x
+	y3 = y3-y
+	z3 = z3-z
+	x2 = x2-x
+	y2 = y2-y
+	z2 = z2-z
+	local x1 = y2*z3-z2*y3
+	local y1 = z2*x3-x2*z3
+	local z1 = x2*y3-y2*x3
+	x2 = y3*z1-z3*y1
+	y2 = z3*x1-x3*z1
+	z2 = x3*y1-y3*x1
+	local len1 = 1/math.sqrt(x1*x1+y1*y1+z1*z1)
+	local len2 = 1/math.sqrt(x2*x2+y2*y2+z2*z2)
+	local len3 = 1/math.sqrt(x3*x3+y3*y3+z3*z3)
+	x1 = x1*len1 y1 = y1*len1 z1 = z1*len1
+	x2 = x2*len2 y2 = y2*len2 z2 = z2*len2
+	x3 = x3*len3 y3 = y3*len3 z3 = z3*len3
+	return x1,y1,z1,x2,y2,z2,x3,y3,z3
+end
+
+function getEulerAnglesFromMatrix(x1,y1,z1,x2,y2,z2,x3,y3,z3)
+	local nz1,nz2,nz3
+	nz3 = math.sqrt(x2*x2+y2*y2)
+	nz1 = -x2*z2/nz3
+	nz2 = -y2*z2/nz3
+	local vx = nz1*x1+nz2*y1+nz3*z1
+	local vz = nz1*x3+nz2*y3+nz3*z3
+	return math.deg(math.asin(z2)),-math.deg(math.atan2(vx,vz)),-math.deg(math.atan2(x2,y2))
+end
+
+function getMatrixFromEulerAngles(x,y,z)
+	x,y,z = math.rad(x),math.rad(y),math.rad(z)
+	local sinx,cosx,siny,cosy,sinz,cosz = math.sin(x),math.cos(x),math.sin(y),math.cos(y),math.sin(z),math.cos(z)
+	return
+		cosy*cosz-siny*sinx*sinz,cosy*sinz+siny*sinx*cosz,-siny*cosx,
+		-cosx*sinz,cosx*cosz,sinx,
+		siny*cosz+cosy*sinx*sinz,siny*sinz-cosy*sinx*cosz,cosy*cosx
+end
+
+if not script_serverside then
+	function getBoneMatrix(ped,bone)
+		local x,y,z,tx,ty,tz,fx,fy,fz
+		x,y,z = getPedBonePosition(ped,bone_0[bone])
+		if bone == 1 then
+			local x6,y6,z6 = getPedBonePosition(ped,6)
+			local x7,y7,z7 = getPedBonePosition(ped,7)
+			tx,ty,tz = (x6+x7)*0.5,(y6+y7)*0.5,(z6+z7)*0.5
+		elseif bone == 3 then
+			local x21,y21,z21 = getPedBonePosition(ped,21)
+			local x31,y31,z31 = getPedBonePosition(ped,31)
+			tx,ty,tz = (x21+x31)*0.5,(y21+y31)*0.5,(z21+z31)*0.5
+		else
+			tx,ty,tz = getPedBonePosition(ped,bone_t[bone])
+		end
+		fx,fy,fz = getPedBonePosition(ped,bone_f[bone])
+		local xx,xy,xz,yx,yy,yz,zx,zy,zz = getMatrixFromPoints(x,y,z,tx,ty,tz,fx,fy,fz)
+		if bone == 1 or bone == 3 then xx,xy,xz,yx,yy,yz = -yx,-yy,-yz,xx,xy,xz end
+		return xx,xy,xz,yx,yy,yz,zx,zy,zz
+	end
+end

amx/client/client.lua

@@ -262,15 +262,96 @@ function showIntroScene()
 end
 
 -----------------------------
+-- Camera related
+function removeCamHandlers()
+	removeInterpCamHandler()
+	removeCamAttachHandler()
+end
+
+-- Camera attachments
+--Based on https://forum.mtasa.com/topic/36692-move-camera-by-mouse-like-normal/?do=findComment&comment=368670
+local ca = {}
+ca.active = 0
+ca.objCamPos = nil
+ca.dist = 0.025
+ca.speed = 5 
+ca.x = math.rad(60) 
+ca.y = math.rad(60) 
+ca.z = math.rad(15) 
+ca.maxZ = math.rad(89) 
+ca.minZ = math.rad(-45) 
+
+function removeCamAttachHandler()
+	outputConsole('removeCamAttachHandler was called')
+	if(ca.active == 1) then
+		outputConsole('Destroying cam attach handler...')
+		ca.active = 0
+	end
+end
+
+function camAttachRender()
+	if (ca.active == 1) then
+		local x1,y1,z1 = 0.0, 0.0, 0.0
+		if ca.objCamPos ~= nil then
+			x1,y1,z1 = getElementPosition(ca.objCamPos)
+		end
+		local camDist = ca.dist 
+		local cosZ = math.cos(ca.z) 
+		local camX = x1 + math.cos(ca.x)*camDist*cosZ 
+		local camY = y1 + math.sin(ca.y)*camDist*cosZ 
+		local camZ = z1 + math.sin(ca.z)*camDist 
+		setCameraMatrix(camX, camY, camZ, x1, y1, z1) 
+
+		--If aiming, set the target (does nothing, todo fix)
+		if getPedTask(localPlayer, "secondary", 0) == "TASK_SIMPLE_USE_GUN" or isPedDoingGangDriveby(localPlayer) then
+			setPedAimTarget ( localPlayer, camX, camY, camZ )
+			setPlayerHudComponentVisible ( localPlayer, "crosshair", true )
+			outputConsole('ped is aiming')
+		end
+		
+		--outputConsole(string.format("camAttachRender - Camera Matrix is: CamPos: %f %f %f CamLookAt: %f %f %f", camX, camY, camZ, x1,y1,z1))
+	else
+		removeEventHandler("onClientPreRender", root, camAttachRender)
+	end
+end
+
+function cursorMouseMoveHandler(curX, curY, absX, absY)
+	if (ca.active == 1) then
+		local diffX = curX - 0.5 
+		local diffY = curY - 0.5 
+		local camX = ca.x - diffX*ca.speed 
+		local camY = ca.y - diffX*ca.speed 
+		local camZ = ca.z + (diffY*ca.speed)/math.pi 
+		if(camZ > ca.maxZ) then 
+			camZ = ca.maxZ 
+		end 
+		if(camZ < ca.minZ) then 
+			camZ = ca.minZ 
+		end 
+		ca.x = camX 
+		ca.y = camY 
+		ca.z = camZ 
+	else
+		removeEventHandler("onClientCursorMove", root, cursorMouseMoveHandler)
+	end
+end
+
+function AttachCameraToObject(camObj)
+	outputConsole('AttachCameraToObject was called')
+	ca.active = 1
+	ca.objCamPos = camObj
+	addEventHandler("onClientPreRender", root, camAttachRender)
+	addEventHandler("onClientCursorMove", root, cursorMouseMoveHandler)
+end
+
 -- Camera Interpolation
 --Originally from https://wiki.multitheftauto.com/wiki/SmoothMoveCamera
-
 local sm = {}
 sm.moov = 0
 sm.objCamPos,sm.objLookAt = nil,nil
 
-function removeCamHandler()
-	outputConsole('removeCamHandler was called')
+function removeInterpCamHandler()
+	outputConsole('removeInterpCamHandler was called')
 	if(sm.moov == 1) then
 		outputConsole('Destroying cam handler...')
 		sm.moov = 0
@@ -300,7 +381,7 @@ function setupCameraObject(camObj, FromX, FromY, FromZ, ToX, ToY, ToZ, time, cut
 	setElementAlpha(camObj, 0)
 	setObjectScale(camObj, 0.01)
 	moveObject(camObj, time, ToX, ToY, ToZ, ToX, ToY, ToZ, "InOutQuad")
-	setTimer(removeCamHandler,time,1)
+	setTimer(removeInterpCamHandler,time,1)
 	setTimer(destroyElement,time,1,camObj)
 	return camObj
 end
@@ -320,7 +401,14 @@ end
 -----------------------------
 -- Player objects
 function RemoveBuildingForPlayer(model, x, y, z, radius)
+	if model == -1 then
+		for i=550,20000 do --Remove all world models if they sent -1
+			removeWorldModel(i,20000,0,0,0)
+		end
+		return true --Don't run the rest of the code
+	end
 	removeWorldModel(model, radius, x, y, z)
+	return true
 end
 
 function AttachPlayerObjectToPlayer(amxName, objID, attachPlayer, offsetX, offsetY, offsetZ, rX, rY, rZ)
@@ -377,7 +465,30 @@ function StopPlayerObject(amxName, objID)
 	stopObject(obj)
 end
 
-
+--- Audio
+local pAudioStreamSound = nil --samp can only do one stream at a time anyway
+function PlayAudioStreamForPlayer(url, posX, posY, posZ, distance, usepos)
+	--outputConsole(string.format("PlayAudioStreamForPlayer called with args %s %f %f %f %f %d", url, posX, posY, posZ, distance, usepos))
+	if pAudioStreamSound ~= nil then --If there's one already playing, stop it
+		--outputConsole("PlayAudioStreamForPlayer is stopping an audio stream")
+		StopAudioStreamForPlayer()
+	end
+	if usepos == nil or usepos == 0 then
+		--outputConsole(string.format("PlayAudioStreamForPlayer now playing non-3d sound %s", url))
+		pAudioStreamSound = playSound(url)
+	else
+		--outputConsole(string.format("PlayAudioStreamForPlayer now playing 3d sound %s with max dist %d", url, distance))
+		pAudioStreamSound = playSound3D(url, posX, posY, posZ)
+		setSoundMaxDistance(pAudioStreamSound, distance)
+	end
+	if pAudioStreamSound ~= nil then
+		setSoundVolume(pAudioStreamSound, 1.0)
+	end
+	return true
+end
+function StopAudioStreamForPlayer()
+    stopSound(pAudioStreamSound)
+end
 -----------------------------
 -- Checkpoints
 

amx/meta.xml

@@ -18,6 +18,17 @@
     <script src="client/bars.lua" type="client" />
     <script src="client/garages.lua" type="client" />
 
+    <!-- 
+        Bone_attach: Credit to  Devan_LT (also known as CrystalMV)
+        https://forum.mtasa.com/profile/1985-crystalmv/
+        https://wiki.multitheftauto.com/wiki/Resource:Bone_attach 
+    -->
+    <script src="shared/bone_attach.lua" />
+	<script src="client/bone_attach_c.lua" type="client" />
+	<script src="shared/attach_func.lua" />
+	<script src="shared/attach_func.lua" type="client" />
+	<script src="client/bone_pos_rot.lua" type="client" />
+
     <file src="client/logo_small.png" />
     <file src="client/closebtn.png" />
     <file src="client/closebtn_hover.png" />

amx/server/defines.lua

@@ -135,6 +135,34 @@ g_PoliceVehicles = {
 	[601] = true
 }
 
+--Left is SAMP, right is MTA
+g_BoneMapping = setmetatable({
+	[2] = 1,	-- Head
+	[17] = 2,	-- Neck
+	[1] = 3,	-- Spine
+	[15] = 5,	-- Left Clavicle (Shoulder)
+	[16] = 6,	-- Right Clavicle (Shoulder)
+	[3] = 9,	-- Left Upper Arm
+	[4] = 10,	-- Right Upper Arm
+	[5] = 11,	-- Left Hand
+	[6] = 12,	-- Right Hand
+	[7] = 13,	-- Left thigh (Samp doesn't really have hips)
+	[8] = 14,	-- Right thigh
+	[12] = 15,	-- Left calf
+	[11] = 16,	-- Right Calf
+	[9] = 19,	-- Left Foot
+	[10] = 20	-- Right Foot
+}, {
+	__index = function(t, k)
+		if k == 18 then --Since 18 is jaw in SAMP
+			k = 2 --Default to head
+		end
+		if k >= 1 and k <= 17 then
+			return k
+		end
+	end
+})
+
 PLAYER_STATE_NONE = 0
 PLAYER_STATE_ONFOOT = 1
 PLAYER_STATE_DRIVER = 2
@@ -172,5 +200,6 @@ PLAYER_VARTYPE_STRING = 2
 PLAYER_VARTYPE_FLOAT = 3
 
 INVALID_ACTOR_ID = 0xFFFF
+INVALID_OBJECT_ID = 0xFFFF
 
 ManualVehEngineAndLights = false

amx/server/events.lua

@@ -25,6 +25,7 @@ function gameModeInit(player)
 	g_Players[playerID].streamedActors = {}
 	g_Players[playerID].streamedVehicles = {}
 	g_Players[playerID].streamedPlayers = {}
+	g_Players[playerID].attachedObjects = {}
 	if g_PlayerClasses[0] then
 		g_Players[playerID].viewingintro = true
 		fadeCamera(player, true)