Beiträge von AgendZero

Marker = {}




function Marker_am_Fahrzeug_erstellen (veh)
	local x, y, z = getElementPosition( veh )
	Marker[i] = createMarker ( x, y, z, "arrow", 0.75, 255, 0, 0, 255 )
	attachElements ( Marker[i], veh, 0, 0, 2 )
	setElementData (veh, "marker", Marker[i])
end
addEvent ( "Marker_am_Fahrzeug", true )
addEventHandler ( "Marker_am_Fahrzeug", getRootElement(), Marker_am_Fahrzeug_erstellen )

function collect_func ( player, cmd, targetName )


	if not client or client == player then
		local target = getPlayerFromName( targetName )
		if isMedic(player) then
			if isElement ( target ) then
				if ( isPedDead ( target ) ) then
					local x1, y1, z1 = getElementPosition ( player )
					local x2, y2, z2 = getElementPosition ( target )
					if getDistanceBetweenPoints3D ( x1, y1, z1, x2, y2, z2 ) < 10 then
						local veh = getPedOccupiedVehicle ( player )
						local model = getElementModel ( veh )
						local validSeats = {}
						if  model == 416 then
							for i = 3, 4 do
								if not getVehicleOccupant ( veh, i ) then
								validSeats[i] = true
								end
							end
						else
							outputChatBox("Du bist in einem falschen Fahrzeug!", 125, 0, 0, player)
							return
						end
						for key, index in pairs ( validSeats ) do
							warpPedIntoVehicle ( target, veh, key )
							outputChatBox("Spieler aufgesammelt", 0, 125, 0, player)
							outputChatBox("Du wurdest von einem Medic aufgesammelt", 0, 125, 0, target)
							destroyElement (DeatMarker)
							destroyElement (Deathblip)
							return
						end
						outputChatBox("Du haste keinen freien Sitz mehr!", 125, 0, 0, player)
					else
						outputChatBox("Du bist zuweit entfernt!", 125, 0, 0, player)
					end
				else
					outputChatBox("Der Spieler muss Tod sein!", 125, 0, 0, player)
				end
			end
		end
	end
end
addCommandHandler ( "collect", collect_func )
addEventHandler( "onMarkerHit", DeatMarker, collect_func )

function isYearALeapYear(year)
    if (not year) then year = getRealTime().year + 1900 end
    return ((year % 4 == 0 and year % 100 ~= 0) or year % 400 == 0)
end


monthDays = {
 [1]=31,
 [2]=28,
 [3]=31,
 [4]=30,
 [5]=31,
 [6]=30,
 [7]=31,
 [8]=31,
 [9]=30,
 [10]=31,
 [11]=30,
 [12]=31
 }


function getDaysInMonth ( month, year )


	local leap = isYearALeapYear ( year )
	if month == 2 and leap then
		return 29
	else
		return monthDays[month]
	end
end

function timestampDays ( add )


	local regtime = getRealTime()
	local day = regtime.monthday + add
	local year = regtime.year + 1900
	while day > 365 do
		day = day - 365
		year = year + 1
	end
	local month = regtime.month + 1
	local hour = regtime.hour + winterzeit
	if hour == 24 then hour = 0 end
	local minute = regtime.minute
	local timestamp = day.."."..month.."."..year
	return timestamp
end

function warn_func ( player, cmd, name, extends, ... )
	local suspect = getPlayerFromName ( name )
	local reason = {...}
	reason = table.concat( reason, " " )
	if getElementType ( player ) == "console" then
		setElementData ( player, "adminlvl", 99 )
	end
	if getElementData ( player, "adminlvl" ) >= 3 and ( not client or client == player ) then
		if extends and tonumber(extends) ~= nil then
			local extends = math.abs ( math.floor ( tonumber ( extends ) ) )
			if extends and extends > 0 and extends < 365 then
				name = MySQL_Safe ( name )
				reason = MySQL_Safe ( reason )
				if isRegistered ( name ) then
					local admin = getPlayerName ( player )
					rt = getRealTime ()
					mysql_vio_query ( "INSERT INTO warns ( player, admin, reason, extends, extends_o, date ) VALUES ( '"..name.."', '"..admin.."', '"..reason.."', '"..( rt.timestamp + 3600 * 24 * extends ).."', '"..timestampDays ( extends )..", 4:00".."', '"..timestamp().."' )" )
					if isElement ( suspect ) then
						if getPlayerWarnCount ( name ) == 3 then
							kickPlayer ( suspect, "Von: "..admin..", Grund: "..reason.." (Gebannt, 3 Verwarnungen)" )
						else
							outputChatBox ( "Du wurdest von "..admin.." verwarnt! Grund: "..reason..", Ablaufzeit: "..extends.." Tage!", suspect, 255, 0, 0 )
							outputChatBox ( "Beim dritten Warn wirst du automatisch gebannt. Tippe /warns, um deine Verwarnungen einzusehen.", suspect, 255, 0, 0 )
						end
					else
						offlinemsg ( "Du wurdest von "..admin.." verwarnt; Grund: "..reason, "Server", name )
					end
					outputChatBox ( "Du hast "..name.." verwarnt!", player, 0, 200, 0 )
				else
					infobox ( player, "Der Spieler\nexistiert nicht!", 5000, 125, 0, 0 )
				end
			end
		else
			infobox ( player, "Gebrauch:\n/warn [Name]\n[Dauer in Tagen]\n[Grund]", 5000, 125, 0, 0 )
		end
	else
		triggerClientEvent ( player, "infobox_start", getRootElement(), "Du bist nicht authorisiert,\ndiesen Befehl zu nutzen.", 5000, 255, 0, 0 )
	end
end
addCommandHandler ( "warn", warn_func )
addEvent ( "warn", true )
addEventHandler ( "warn", getRootElement(),
	function ( name, extends, reason )
		warn_func ( client, "warn", name, extends, reason )
	end
)