Refactor syscalls into separate files (#62)

Author: Disinterpreter

amx/meta.xml

@@ -6,6 +6,17 @@
     <script src="server/util.lua" type="server" />
     <script src="server/_triggerqueue.lua" type="server" />
     <script src="server/rcon.lua" type="server" />
+
+    <script src="server/natives/a_samp.lua" type="server" />
+    <script src="server/natives/a_objects.lua" type="server" />
+    <script src="server/natives/a_players.lua" type="server" />
+    <script src="server/natives/a_vehicles.lua" type="server" />
+    <script src="server/natives/a_actors.lua" type="server" />
+    <script src="server/natives/a_npc.lua" type="server" />
+    <script src="server/natives/a_http.lua" type="server" />
+    <script src="server/natives/a_sampdb.lua" type="server" />
+    <script src="server/natives/a_mta.lua" type="server" />
+
     <script src="server/syscalls.lua" type="server" />
     <script src="server/events.lua" type="server" />
     <script src="server/amx.lua" type="server" />

amx/server/natives/a_actors.lua

@@ -0,0 +1,75 @@
+-----------------------------------------------------
+-- Actor funcs
+function CreateActor(amx, model, x, y, z, rotation)
+	local actor = createPed(model, x, y, z, rotation, false)
+	setElementData(actor, 'amx.actorped', true)
+	return addElem(g_Actors, actor)
+end
+
+function DestroyActor(amx, actor)
+	for i,playerdata in pairs(g_Players) do
+		playerdata.streamedActors[getElemID(actor)] = nil
+	end
+
+	removeElem(g_Actors, actor)
+	destroyElement(actor)
+end
+
+function IsActorStreamedIn(amx, actorId, player)
+	return g_Players[getElemID(player)].streamedActors[actorId] ~= nil
+end
+
+function ApplyActorAnimation(amx, actor, animlib, animname, fDelta, loop, lockx, locky, freeze, time)
+	setPedAnimation(actor, animlib, animname, time, loop, lockx or locky, false, freeze)
+	setPedAnimationSpeed(actor, animname, fDelta)
+end
+
+function ClearActorAnimations(amx, actor)
+	setPedAnimation(actor, false)
+end
+
+function SetActorFacingAngle(amx, actor, ang)
+	local rotX, rotY, rotZ = getElementRotation(actor) -- get the local players's rotation
+    setElementRotation(actor, rotX, rotY, ang, "default", true) -- turn the player 10 degrees clockwise
+end
+
+function GetActorFacingAngle(amx, actor, refAng)
+	local rX, rY, rZ = getElementRotation(vehicle)
+	writeMemFloat(amx, refAng, rZ)
+end
+
+-- stub
+function SetActorInvulnerable(amx)
+	return 1
+end
+
+-- stub
+function IsActorInvulnerable(amx)
+	return 1
+end
+
+function IsValidActor(amx, actorId)
+	return g_Objects[actorId] ~= nil
+end
+
+GetActorHealth = GetPlayerHealth
+GetActorVirtualWorld = GetPlayerVirtualWorld
+
+function GetActorPoolSize(amx)
+	local highestId = 0
+	for id,v in pairs(g_Actors) do
+		if id > highestId then
+			highestId = id
+		end
+	end
+	return highestId
+end
+
+SetActorHealth = SetPlayerHealth
+SetActorPos = SetPlayerPos
+SetActorVirtualWorld = SetPlayerVirtualWorld
+
+-- stub
+function GetPlayerCameraTargetActor(amx)
+	return INVALID_ACTOR_ID
+end

amx/server/natives/a_http.lua

@@ -0,0 +1,56 @@
+-- Now we have all of RESTful types of requests. Our function is better!
+-- The SAMP documentation said about 'url' - "The URL you want to request. (Without 'http://')"
+-- I made a check. The state without a protocol is called as 'default'.
+-- HTTP and HTTPS you can put into URL if you want. It works fine.
+-- TODO: An "index" argument only for compatibility.
+function HTTP(amx, index, type, url, data, callback)
+
+	local protomatch = pregMatch(url,'^(\\w+):\\/\\/')
+	local proto = protomatch[1] or 'default'
+	-- if somebody will try to put here ftp:// ssh:// etc...
+	if proto ~= 'http' and proto ~= 'https' and proto ~= 'default' then
+		print('Current protocol is not supporting')
+		return 0
+	end
+	local typesToText = {
+		'GET',
+		'POST',
+		'HEAD',
+		[-4] = 'PUT',
+		[-5] = 'PATCH',
+		[-6] = 'DELETE',
+		[-7] = 'COPY',
+		[-8] = 'OPTIONS',
+		[-9] = 'LINK',
+		[-10] = 'UNLINK',
+		[-11] = 'PURGE',
+		[-12] = 'LOCK',
+		[-13] = 'UNLOCK',
+		[-14] = 'PROPFIND',
+		[-15] = 'VIEW'
+	}
+	local sendOptions = {
+		queueName = "amx." .. getResourceName(amx.res) .. "." .. amx.name,
+		postData = data,
+		method = typesToText[tonumber(type)],
+	}
+	local successRemote = fetchRemote(url, sendOptions, 
+	function (responseData, responseInfo)
+		local error = responseInfo.statusCode
+		if error == 0 then
+			procCallInternal(amx, callback, index, 200, responseData)
+		elseif error >= 1 and error <= 89 then
+			procCallInternal(amx, callback, index, 3, responseData)
+		elseif error == 1006 or error == 1005 then
+			procCallInternal(amx, callback, index, 1, responseData)
+		elseif error == 1007 then 
+			procCallInternal(amx, callback, index, 5, responseData)	
+		else
+			procCallInternal(amx, callback, index, error, responseData)
+		end
+	end)
+	if not successRemote then
+		return 0
+	end
+	return 1
+end