Beiträge von Steckl

Steckl

@UnLimiTeD^ Ok, wenn das dein Werk ist dann kannste mir bestimmt helfen oder?

Steckl

@UnLimiTeD^ ist ein gekauftes Script von @#Nils

Steckl

Bei uns im Script gibt es keine fuel datei, daher hier mal was mit distance

Lua

--[[function 
return string.lower ( "privVeh"..pname..carslot )
end]]--


local usedCarStrings = {}
debug.sethook()
carsSpawned = false
--gangVehicles = {}


function privVeh_spawning()
	caramount = 0
	deletedcars = 0
	result = mysql_query(handler, "SELECT * FROM vehicles")
	if( not result) then
		 outputDebugString("Error executing the query: (" .. mysql_errno(handler) .. ") " .. mysql_error(handler))
	else
		if(mysql_num_rows(result) > 0) then
			carsData = mysql_fetch_assoc(result)
			mySQLCarCreate ()
		else
			mysql_free_result(result)
			outputServerLog("Es wurden keine Autos gefunden")
		end
	end
end
setTimer ( privVeh_spawning, 5000, 1 )


function mySQLCarCreate ()
	if not carsSpawned then
		caramount = caramount + 1
		local Besitzer = carsData["Besitzer"]
		local valid = true
		--if carsData["AuktionsID"] then
			--carsData["AuktionsID"] = tonumber ( carsData["AuktionsID"] )
			--if carsData["AuktionsID"] then
				--if carsData["AuktionsID"] > 0 then
					--valid = false
				--end
			--end
		--end
		if valid then
			if Besitzer == MySQL_Save ( Besitzer ) then
				if isOwnerActive ( Besitzer ) then
					local Typ = carsData["Typ"]
					local Tuning = carsData["Tuning"]
					local Spawnpos_X = tonumber(carsData["Spawnpos_X"])
					local Spawnpos_Y = tonumber(carsData["Spawnpos_Y"])
					local Slot = carsData["Slot"]
					local tmp = getPrivVehString ( Besitzer, Slot )
					if not badMySQLCarHouseXSpawns[math.floor ( Spawnpos_X )] and not badMySQLCarHouseYSpawns[math.floor ( Spawnpos_Y )] and not usedCarStrings[tmp] then
						usedCarStrings[tmp] = true
						local Spawnpos_Z = tonumber(carsData["Spawnpos_Z"])
						local Spawnrot_X = tonumber(carsData["Spawnrot_X"])
						local Spawnrot_Y = tonumber(carsData["Spawnrot_Y"])
						local Spawnrot_Z = tonumber(carsData["Spawnrot_Z"])
						local Special = tonumber(carsData["Special"]) 
						local Farbe = carsData["Farbe"]
						local Tieferlegung = tonumber(carsData["NewTuningTL"])
						local MotorUpgrade = tonumber(carsData["NewTuningMU"])
						if #( tostring ( Farbe ) )<= 3 then
							Farbe = "0|0|0|0"
							MySQL_SetString("vehicles", "Farbe", Farbe, "Besitzer LIKE '" ..Besitzer.."' AND Slot LIKE '" ..tonumber(Slot).. "' ")
						end
						local Paintjob = carsData["Paintjob"]
						local Benzin = carsData["Benzin"]
						local Gang = carsData["Gang"]
						_G[getPrivVehString ( Besitzer, Slot )] = createVehicle ( Typ, Spawnpos_X, Spawnpos_Y, Spawnpos_Z, 0, 0, 0, Besitzer )
						if Special == 2 then
							local vx, vy, vz = Spawnpos_X, Spawnpos_Y-2, 1.55
							both = Besitzer..Slot
							_G["ObjYacht"..both] = createObject ( 1337, vx, vy, vz )
							attachElements ( _G["ObjYacht"..both], _G[getPrivVehString ( Besitzer, Slot )], 0, 2, 1.55 )
							setElementDimension ( _G["ObjYacht"..both], 1 )
						end
						local veh = _G[getPrivVehString ( Besitzer, Slot )]
						--if not isNotCarTowing(getPlayerName(player), Slot)then
							--setElementDimension(veh, 999999);
						--end
						if not isNotCarTowing(player,Slot) then
						setElementDimension(veh,99999);
						end
						local STuning = MySQL_GetString("vehicles", "STuning", "Besitzer LIKE '"..Besitzer.."' AND Slot LIKE '"..Slot.."'")
						westsideSetElementData ( veh, "stuning", STuning )
						setVehicleRotation ( veh, Spawnrot_X, Spawnrot_Y, Spawnrot_Z )
						westsideSetElementData ( veh, "owner", Besitzer )
						westsideSetElementData ( veh, "name", veh )
						westsideSetElementData ( veh, "carslotnr_owner", Slot )
						westsideSetElementData ( veh, "locked", true )
						westsideSetElementData ( veh, "color", Farbe )
						westsideSetElementData ( veh, "NewTuningTL", Tieferlegung )
						westsideSetElementData ( veh, "NewTuningMU", MotorUpgrade )
						westsideSetElementData ( veh, "spawnpos_x", Spawnpos_X )
						westsideSetElementData ( veh, "spawnpos_y", Spawnpos_Y )
						westsideSetElementData ( veh, "spawnpos_z", Spawnpos_Z )
						westsideSetElementData ( veh, "spawnrot_x", Spawnrot_X )
						westsideSetElementData ( veh, "spawnrot_y", Spawnrot_Y )
						westsideSetElementData ( veh, "spawnrot_z", Spawnrot_Z )
						westsideSetElementData ( veh, "special", Special )
						westsideSetElementData ( veh, "lcolor", carsData["Lights"] )
						westsideSetElementData ( veh, "distance", tonumber ( carsData["Distance"] ) )
						--westsideSetElementData ( veh, "Gang", tonumber ( Gang ) )
						setPrivVehCorrectLightColor ( veh )
						setVehicleLocked ( veh, true )
						westsideSetElementData ( veh, "fuelstate", tonumber ( Benzin ) )
						setPrivVehCorrectColor ( veh )
						setVehiclePaintjob ( veh, Paintjob )
						setElementFrozen ( veh, true )
						--if westsideGetElementData ( veh, "Gang" ) ~= 0 then
							--setElementFrozen ( veh, false )
							--if not ( gangVehicles[westsideGetElementData ( veh, "Gang" )] ) then
								--gangVehicles[westsideGetElementData ( veh, "Gang" )] = {}
							--end
							--gangVehicles[westsideGetElementData ( veh, "Gang" )][veh] = true
							--setVehicleLocked ( veh, false )
							--westsideSetElementData ( veh, "locked", false )
							--westsideSetElementData ( veh, "owner", getGangName ( westsideGetElementData ( veh, "Gang" ) ) )
						--end
						if tonumber(Tuning) == 1 then
							MySQL_SetString("vehicles", "Tuning", "|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|", "Besitzer LIKE '"..Besitzer.."' AND Slot LIKE '"..Slot.."'")
							local Tuning = "|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|"
						else
							pimpVeh ( veh, Tuning )
						end

						westsideSetElementData ( veh, "rcVehicle", tonumber ( carsData["rc"] ) )
					end
				else
					local Besitzer = carsData["Besitzer"]
					local bantime = tonumber ( MySQL_GetString ( "ban", "STime", "Name LIKE '"..Besitzer.."'" ) )
					local diff = math.floor ( ( ( bantime - getTBanSecTime ( 0 ) ) / 60 ) * 100 ) / 100
				end
			end
		end
		carsData = mysql_fetch_assoc(result)
		if carsData then
			mySQLCarCreate()
		else
			mysql_free_result(result)
			carsSpawned = true
			outputServerLog("Es wurden "..caramount.." Fahrzeuge gefunden und "..deletedcars.." Fahrzeuge von inaktiven Benutzern entfernt.")
		end
	end
end

function pimpVeh ( veh, tuning )
	for i = 0, 16 do
		local x = i + 1
		_G["tunepart"..i] = tonumber(gettok ( tuning, x, string.byte('|') ))
	end
	for i = 0, 16 do
		if _G["tunepart"..i] > 0 then
			addVehicleUpgrade ( veh, _G["tunepart"..i] )
		end
	end
	specPimpVeh ( veh )
end


function setPrivVehCorrectColor ( veh )
	local colors = westsideGetElementData ( veh, "color" )
	local c1 = gettok ( colors, 1, string.byte( '|' ) )
	local c2 = gettok ( colors, 2, string.byte( '|' ) )
	local c3 = gettok ( colors, 3, string.byte( '|' ) )
	local c4 = gettok ( colors, 4, string.byte( '|' ) )
	if string.find ( c1, "," ) then
		local c1a = gettok ( c1, 1, string.byte( ',' ) )
		local c1b = gettok ( c1, 2, string.byte( ',' ) )
		local c1c = gettok ( c1, 3, string.byte( ',' ) )
		local c2a = gettok ( c2, 1, string.byte( ',' ) )
		local c2b = gettok ( c2, 2, string.byte( ',' ) )
		local c2c = gettok ( c2, 3, string.byte( ',' ) )
		local c3a = gettok ( c3, 1, string.byte( ',' ) )
		local c3b = gettok ( c3, 2, string.byte( ',' ) )
		local c3c = gettok ( c3, 3, string.byte( ',' ) )
		local c4a = gettok ( c4, 1, string.byte( ',' ) )
		local c4b = gettok ( c4, 2, string.byte( ',' ) )
		local c4c = gettok ( c4, 3, string.byte( ',' ) )
		setVehicleColor ( veh, c1a, c1b, c1c, c2a, c2b, c2c, c3a, c3b, c3c, c4a, c4b, c4c )
		setTimer ( setVehicleColor, 100, 1, veh, c1a, c1b, c1c, c2a, c2b, c2c, c3a, c3b, c3c, c4a, c4b, c4c )
	else
		setVehicleColor ( veh, c1, c2, c3, c4 )
		setTimer ( setVehicleColor, 100, 1, veh, c1, c2, c3, c4 )
	end
	local NT1 = westsideGetElementData ( veh, "NewTuningTL" )
	local NT2 = westsideGetElementData ( veh, "NewTuningMU" )
	local id = getElementModel(veh)
	local this = getOriginalHandling ( id )
	if NT1 >= 1 and NT1 <= 5 then
		setVehicleHandling(veh, "suspensionLowerLimit", this["suspensionLowerLimit"]+0.05*NT1)
	end
	if NT2 >= 1 and NT2 <= 3 then
		setVehicleHandling(veh, "maxVelocity", this["maxVelocity"]+30/3*NT2)
		setVehicleHandling(veh, "engineAcceleration", this["engineAcceleration"]/this["maxVelocity"]*(this["maxVelocity"]+100/3*NT2))
		setVehicleHandling(veh, "engineInertia", this["engineInertia"]/this["maxVelocity"]*(this["maxVelocity"]+100/3*NT2))
	end
end


function setPrivVehCorrectLightColor ( veh )
	if veh then
		local colors = westsideGetElementData ( veh, "lcolor" )
		if colors then
			local c1 = tonumber ( gettok ( colors, 1, string.byte( '|' ) ))
			local c2 = tonumber ( gettok ( colors, 2, string.byte( '|' ) ))
			local c3 = tonumber ( gettok ( colors, 3, string.byte( '|' ) ))
			westsideSetElementData ( veh, "lc1", c1 )
			westsideSetElementData ( veh, "lc2", c2 )
			westsideSetElementData ( veh, "lc3", c3 )
			setVehicleHeadLightColor ( veh, c1, c2, c3 )
		end
	end
end


function isOwnerActive ( pname )
	return true
end

Alles anzeigen

Steckl

@[Rise]Bonus Nope funktioniert nicht

Steckl

Okay danke ich probiers mal!

Steckl

Hallo,
ich hab folgendes Problem bei meinem Tacho:

-Kilometer werden nicht angezeigt

Danke im Vorraus!

Lua

Speedo = {};


local sx, sy = guiGetScreenSize();
local px, py = 1920, 1080;
local x, y = (sx/px), (sy/py);


function Speedo:constructor(...)
	local self = setmetatable({}, {__index = self});
	self.m_RenderFunc = function()
		self:func_Render();
	end
	if (isPedInVehicle(localPlayer)) then
		addEventHandler("onClientRender", getRootElement(), self.m_RenderFunc);
	end
	addEventHandler("onClientVehicleEnter", getRootElement(), function(player)
		if (player == localPlayer) then
			addEventHandler("onClientRender", getRootElement(), self.m_RenderFunc);
		end
	end);
	addEventHandler("onClientVehicleExit", getRootElement(), function(player)
		if (player == localPlayer) then
			removeEventHandler("onClientRender", getRootElement(), self.m_RenderFunc);
		end
	end);
	return self;
end


function Speedo:func_Render()
	local handyIsOpen = handyIsOpen or false;
	local KMDistance = KMDistance or 0;
	if (not handyIsOpen and isPedInVehicle(localPlayer)) then
		local vehicle = getPedOccupiedVehicle(localPlayer);
		local vehspeed = getElementSpeed(vehicle);
		local vehfuel = getElementData(vehicle, "fuelstate") or 100;
		dxDrawImage(x*1450, y*650, x*500, y*500, "CARSYSTEM/TACHO/SPEEDO.png", 0, 0, 0, tocolor(255, 255, 255, 255), false);
		if (getVehicleEngineState(vehicle) == true) then
			dxDrawImage(x*1600.5, y*1002, x*16, y*16, "CARSYSTEM/TACHO/ENGINE.png", 0, 0, 0, tocolor(255, 255, 255, 255), false);
		end
		if (getVehicleOverrideLights(vehicle) == 2) then
			dxDrawImage(x*1572, y*1001, x*16, y*16, "CARSYSTEM/TACHO/LIGHT.png", 0, 0, 0, tocolor(255, 255, 255, 255), false);
		end
		dxDrawText(KMDistance.." KM", x*1707, y*948, x*1790, y*965, tocolor(0, 0, 0, 255), x*1.00, "default-bold", "center", "center", false, false, false, false, false)
	 	dxDrawImage(x*1567, y*704, x*366, y*331, "CARSYSTEM/TACHO/NADEL.png", (vehspeed*1.23), 0, 0, tocolor(255, 255, 255, 255), false);
		dxDrawImage(x*1496, y*868, x*200, y*200, "CARSYSTEM/TACHO/NADEL.png", (5+vehfuel*1.35), 0, 0, tocolor(255, 255, 255, 255), false);
	end
end




function getElementSpeed(element,unit)
	if (unit == nil) then unit = 0 end
	if (isElement(element)) then
		local x,y,z = getElementVelocity(element)
		if (unit=="mph" or unit==1 or unit =='1') then
			return (x^2 + y^2 + z^2) ^ 0.5 * 100
		else
			return (x^2 + y^2 + z^2) ^ 0.5 * 1.61 * 100
		end
	else
		outputDebugString("[getElementSpeed]  No Element")
		return false
	end
end


local instance = Speedo:constructor();

Alles anzeigen

Steckl

@HandyStyle

Lua

_G[getPrivVehString ( x, y )] = createVehicle ( vehid, spawnX, spawnY, spawnZ, 0, 0, 0, getPlayerName ( player )
westsideSetElementData ( _G[getPrivVehString ( x, y )], "owner", pname )
westsideSetElementData ( _G[getPrivVehString ( x, y )], "name", "privVeh"..x..y )
westsideSetElementData ( _G[getPrivVehString ( x, y )], "carslotnr_owner", y )
westsideSetElementData ( _G[getPrivVehString ( x, y )], "locked", true )
westsideSetElementData ( _G[getPrivVehString ( x, y )], "fuelstate", 100 )
westsideSetElementData ( _G[getPrivVehString ( x, y )], "Gang", 0 )

Wo ist da genau die "(" zunah an der ")" ?

Und wie erstelle ich eine getPrivVehString ?

Steckl

@Rainbow333 ja toll, nur würde ich kein Theard erstellen wenn ich die Errors verstehen würde und diese fixxen könnte.

Steckl

hmm... ne funktioniert iwi nicht

[2015-08-11 19:34:21] SCRIPT ERROR: [gamemodes]/Reallife_SoR/CARSYSTEM/CARHOUSES/CARBUY_ALLROUND.lua:80: ')' expected (to close '(' at line 79) near 'westsideSetElementData'
[2015-08-11 19:34:21] ERROR: Loading script failed: [gamemodes]/Reallife_SoR/CARSYSTEM/CARHOUSES/CARBUY_ALLROUND.lua:80: ')' expected (to close '(' at line 79) near 'westsideSetElementData'
[2015-08-11 19:34:26] ERROR: [gamemodes]/Reallife_SoR/CARSYSTEM/CARSYS_MYSQL.lua:45: attempt to call global 'getPrivVehString' (a nil value)
[2015-08-11 19:34:26] ERROR: [gamemodes]/Reallife_SoR/CARSYSTEM/CARSYS_MYSQL.lua:45: attempt to call global 'getPrivVehString' (a nil value)

Steckl

@Dawi könntest du mir vll bei der Funktion helfen? Ich verstehe nicht wie ich die machen soll da die die ich gemacht habe nicht funktionieren

Steckl

ahh okay danke

Steckl

Hier der Error: [2015-08-11 17:06:27] ERROR: Reallife_SoR/CARSYSTEM/CARHOUSES/CARBUY_S.lua:84: attempt to call global 'carbuy' (a nil value)

Hier der Scriptausschnitt

Lua

local CarbuyMarker = {}


function loadVehicleSystem()
	for key, data in pairs(CarbuyTable) do 
		local id 		  = tonumber(data.vehicleID);
		local price 	  = tonumber(carprices[data.vehicleID]);
		local mPosX		  = tonumber(data.vehicleMarkerX);
		local mPosY 	  = tonumber(data.vehicleMarkerY);
		local mPosZ 	  = tonumber(data.vehicleMarkerZ);
		local carhouse_id = tonumber(data.carhouse_id);
		CarbuyMarker[key] = createPickup(mPosX, mPosY, mPosZ, 3, 1239, 500);
		setElementData(CarbuyMarker[key], 'veh_Id', id);
		setElementData(CarbuyMarker[key], 'veh_Price', price);
		setElementData(CarbuyMarker[key], 'veh_Carhouse', carhouse_id);
	end
end
loadVehicleSystem();


function hitVehicleSystemMarker(element)
	if(getElementType(element) == "player")then
		if(getElementData(source, 'veh_Id'))then
			local vehid = tonumber(getElementData(source, 'veh_Id'));
			local price = tonumber(getElementData(source, 'veh_Price'));
			local carhouse_id = tonumber(getElementData(source, 'veh_Carhouse'));
			triggerClientEvent(element, 'onLoadClientVehicleWindow', element, vehid, price);
			westsideSetElementData(element, 'carHouse', carhouse_id);
			westsideSetElementData(element, 'veh_ID', vehid);
		end
	end
end
addEventHandler('onPickupHit', root, hitVehicleSystemMarker);




function buyVehicleSystem(player)
	local carid		 = tonumber(westsideGetElementData(player, 'veh_ID'));
	local carprice	 = tonumber(carprices[carid]);
	local id 		 = tonumber(westsideGetElementData(player, 'carHouse'));
	local sx, sy, sz, rx, ry, rz = MySQLCarhouses[id]["sx"], MySQLCarhouses[id]["sy"], MySQLCarhouses[id]["sz"], MySQLCarhouses[id]["srx"], MySQLCarhouses[id]["sry"], MySQLCarhouses[id]["srz"]
	carbuy ( player, carprice, carid, spawnx, spawny, spawnz, rx, ry, rz, c1, c2, c3, c4, p, ec, Tuning );
end
addEvent('doBuyVehicle', true);
addEventHandler('doBuyVehicle', root, buyVehicleSystem);

Alles anzeigen

Steckl

Füg das Script hier bei der Allround.lua ein Also dort bei den Fraktionen

Lua

function isPostbote( player )
	if vioGetElementData ( player, "job" ) == "postbote" then
		return true
	else
		return false
	end
end

Steckl

Probier das hier einfach mal

Lua

function start_postbote( player )


outputChatBox ("es kommt an")
local rnd = math.random (1,3)


	if rnd == 1 then
		if not (postbotenmarker1) then
			postbotenmarker1 = createMarker(-317.10000610352,1059.3000488281,19.700000762939,"checkpoint",1,200,0,0, 255)
			postbotenmarker1blip = createBlip(-317.10000610352,1059.3000488281,19.700000762939,0, 0, 2, 255, 0, 0, 255, 0, 99999.0)
			outputChatBox ("marker1")
		end
	end


	if rnd == 2 then
		if not (postbotenmarker2) then
			postbotenmarker2 = createMarker( -247.30000305176,1010.5999755859,19.700000762939,"checkpoint",1,200,0,0,255)
			postbotenmarker2blip = createBlip(-247.30000305176,1010.5999755859,19.700000762939,0, 0, 2, 255, 0, 0, 255, 0, 99999.0)
			outputChatBox ("marker2")
		end
	end


	if rnd == 3 then
		if not (postbotenmarker3) then
			postbotenmarker3 = createMarker(-267.60000610352,1124.3000488281,19.700000762939,"checkpoint",1,200,0,0,255)
			postbotenmarker3blip = createBlip(-267.60000610352,1124.3000488281,19.700000762939,0, 0, 2, 255, 0, 0, 255, 0, 99999.0)
			outputChatBox ("marker3")
		end
	end
end
addEvent("startpostboten_job", true)
addEventHandler("startpostboten_job", getLocalPlayer(), start_postbote)

Alles anzeigen

Jedoch damit das funktioniert muss du die Zeile 6 die ich dir geschrieben habe benutzen

Steckl

Oh okay mein Fehler sorry, ämm und im Debugscript kommt kein Fehler? Wenn nicht dann ist was mit deinem Debugscript, weil wenn das Script nicht funktioniert kommt meistens irgend ein Error

Steckl

Ersetz das in Zeile 6 mit dem hier

Lua

triggerClientEvent (theplayer, "startpostboten_job", theplayer, theplayer)

Steckl

Hast du bei deinem Problem Nummer 1. das end auch noch in das Script geschrieben oder einfach nur die If ... then?

Steckl

local mysqlhost1 = "localhost"
local mysqluser1 = "root"
local mysqlpassword1 = ""
local mysqldatabase1 = "dbs_housesystem2"

Hier fügst du deine Daten einfach mal ein und dann einfach mal probieren

Steckl

Da muss noch dazu, dass alle Teammitglieder ( egal welcher Rang ) Nitradodaten bekommen und PPanel

Steckl

@fs626 Ich glaube er meint was er noch zusätzlich erstellen muss damit im Script kein Error kommt bzw. dass es funktioniert

Beiträge von Steckl

Tacho funkt nicht

Tacho funkt nicht

Tacho funkt nicht

Tacho funkt nicht

Tacho funkt nicht

Tacho funkt nicht

Carsystem buggt

Carsystem buggt

Carsystem buggt

Carsystem buggt

Carsystem buggt

Carsystem buggt

abfrage des jobs und problem mit marker wird nicht erstellt

abfrage des jobs und problem mit marker wird nicht erstellt

abfrage des jobs und problem mit marker wird nicht erstellt

abfrage des jobs und problem mit marker wird nicht erstellt

abfrage des jobs und problem mit marker wird nicht erstellt

[Hilfe]Mysql housesystem einrichten und auf server auspielen. Aber wie ?

Regelung für jeden Vio Serverbesitzer [dem Gesetz gemäß, 06.08.2015]

LA - Medic zu Vio ?