Jump to content

Spawn in vehicle

TheLenn123

By TheLenn123
in Scripting

Recommended Posts

TheLenn123 Square

TheLenn123

Posted
  • Author
Posted

Like this?

g_Root = getRootElement()

g_ResRoot = getResourceRootElement(getThisResource())

g_PlayerData = {}

g_VehicleData = {}

local chatTime = {}

local lastChatMessage = {}

g_ArmedVehicles = {

[425] = true,

[447] = true,

[520] = true,

[430] = true,

[464] = true,

[432] = true

}

g_Trailers = {

[606] = true,

[607] = true,

[610] = true,

[590] = true,

[569] = true,

[611] = true,

[584] = true,

[608] = true,

[435] = true,

[450] = true,

[591] = true

}

g_RPCFunctions = {

addPedClothes = { option = 'clothes', descr = 'Modifying clothes' },

addVehicleUpgrade = { option = 'upgrades', descr = 'Adding/removing upgrades' },

fadeVehiclePassengersCamera = true,

fixVehicle = { option = 'repair', descr = 'Repairing vehicles' },

giveMeVehicles = { option = 'createvehicle', descr = 'Creating vehicles' },

giveMeWeapon = { option = 'weapons.enabled', descr = 'Getting weapons' },

givePedJetPack = { option = 'jetpack', descr = 'Getting a jetpack' },

killPed = { option = 'kill', descr = 'Killing yourself' },

removePedClothes = { option = 'clothes', descr = 'Modifying clothes' },

removePedFromVehicle = true,

removePedJetPack = { option = 'jetpack', descr = 'Removing a jetpack' },

removeVehicleUpgrade = { option = 'upgrades', descr = 'Adding/removing upgrades' },

setElementAlpha = { option = 'alpha', descr = 'Changing your alpha' },

setElementPosition = true,

setElementInterior = true,

setMyGameSpeed = { option = 'gamespeed.enabled', descr = 'Setting game speed' },

setMySkin = { option = 'setskin', descr = 'Setting skin' },

setPedAnimation = { option = 'anim', descr = 'Setting an animation' },

setPedFightingStyle = { option = 'setstyle', descr = 'Setting fighting style' },

setPedGravity = { option = 'gravity.enabled', descr = 'Setting gravity' },

setPedStat = { option = 'stats', descr = 'Changing stats' },

setTime = { option = 'time.set', descr = 'Changing time' },

setTimeFrozen = { option = 'time.freeze', descr = 'Freezing time' },

setVehicleColor = true,

setVehicleHeadLightColor = true,

setVehicleOverrideLights = { option = 'lights', descr = 'Forcing lights' },

setVehiclePaintjob = { option = 'paintjob', descr = 'Applying paintjobs' },

setVehicleRotation = true,

setWeather = { option = 'weather', descr = 'Setting weather' },

spawnMe = true,

warpMe = { option = 'warp', descr = 'Warping' }

}

g_OptionDefaults = {

alpha = true,

anim = true,

clothes = true,

createvehicle = true,

gamespeed = {

enabled = true,

min = 0.0,

max = 3

},

gravity = {

enabled = true,

min = 0,

max = 0.1

},

jetpack = true,

kill = true,

lights = true,

paintjob = true,

repair = true,

setskin = true,

setstyle = true,

spawnmaponstart = true,

spawnmapondeath = true,

stats = true,

time = {

set = true,

freeze = true

},

upgrades = true,

warp = true,

weapons = {

enabled = true,

vehiclesenabled = true,

disallowed = {}

},

weather = true,

welcometextonstart = true,

vehicles = {

maxidletime = 60000,

idleexplode = true,

maxperplayer = 2,

disallowed = {}

}

}

function getOption(optionName)

local option = get(optionName:gsub('%.', '/'))

if option then

if option == 'true' then

option = true

elseif option == 'false' then

option = false

end

return option

end

option = g_OptionDefaults

for i,part in ipairs(optionName:split('.')) do

option = option[part]

end

return option

end

addEventHandler('onResourceStart', g_ResRoot,

function()

table.each(getElementsByType('player'), joinHandler)

end

)

function joinHandler(player)

if not player then

player = source

end

local r, g, b = math.random(50, 255), math.random(50, 255), math.random(50, 255)

setPlayerNametagColor(player, r, g, b)

g_PlayerData[player] = { vehicles = {} }

g_PlayerData[player].blip = createBlipAttachedTo(player, 0, 2, r, g, b)

if g_FrozenTime then

clientCall(player, 'setTimeFrozen', true, g_FrozenTime[1], g_FrozenTime[2], g_FrozenWeather)

end

if getOption('welcometextonstart') then

outputChatBox('Welcome to Freeroam', player, 0, 255, 0)

outputChatBox('Press F1 to show/hide controls', player, 0, 255, 0)

end

end

addEventHandler('onPlayerJoin', g_Root, joinHandler)

addEvent('onLoadedAtClient', true)

addEventHandler('onLoadedAtClient', g_ResRoot,

function(player)

if getOption('spawnmaponstart') and isPedDead(player) then

clientCall(player, 'showWelcomeMap')

end

end,

false

)

addEventHandler('onPlayerWasted', g_Root,

function()

if not getOption('spawnmapondeath') then

return

end

local player = source

setTimer(

function()

if isPedDead(player) then

clientCall(player, 'showMap')

end

end,

2000,

1

)

end

)

addEvent('onClothesInit', true)

addEventHandler('onClothesInit', g_Root,

function()

local result = {}

local texture, model

-- get all clothes

result.allClothes = {}

local typeGroup, index

for type=0,17 do

typeGroup = {'group', type = type, name = getClothesTypeName(type), children = {}}

table.insert(result.allClothes, typeGroup)

index = 0

texture, model = getClothesByTypeIndex(type, index)

while texture do

table.insert(typeGroup.children, {id = index, texture = texture, model = model})

index = index + 1

texture, model = getClothesByTypeIndex(type, index)

end

end

-- get current player clothes { type = {texture=texture, model=model} }

result.playerClothes = {}

for type=0,17 do

texture, model = getPedClothes(source, type)

if texture then

result.playerClothes[type] = {texture = texture, model = model}

end

end

triggerClientEvent(source, 'onClientClothesInit', source, result)

end

)

addEvent('onPlayerGravInit', true)

addEventHandler('onPlayerGravInit', g_Root,

function()

triggerClientEvent('onClientPlayerGravInit', source, getPedGravity(source))

end

)

function setMySkin(skinid)

if isPedDead(source) then

local x, y, z = getElementPosition(source)

if isPedTerminated(source) then

x = 0

y = 0

z = 3

end

local r = getPedRotation(source)

local interior = getElementInterior(source)

spawnPlayer(source, x, y, z, r, skinid)

setElementInterior(source, interior)

setCameraInterior(source, interior)

else

setElementModel(source, skinid)

setElementHealth(source, 100)

end

setCameraTarget(source, source)

setCameraInterior(source, getElementInterior(source))

end

function spawnMe(x, y, z)

if not x then

x, y, z = getElementPosition(source)

end

if isPedTerminated(source) then

repeat until spawnPlayer(source, x, y, z, 0, math.random(9, 288))

else

spawnPlayer(source, x, y, z, 0, getPedSkin(source))

end

setCameraTarget(source, source)

setCameraInterior(source, getElementInterior(source))

end

function warpMe(targetPlayer)

if isPedDead(source) then

spawnMe()

end

local vehicle = getPedOccupiedVehicle(targetPlayer)

if not vehicle then

-- target player is not in a vehicle - just warp next to him

local x, y, z = getElementPosition(targetPlayer)

clientCall(source, 'setPlayerPosition', x + 2, y, z)

else

-- target player is in a vehicle - warp into it if there's space left

if getPedOccupiedVehicle(source) then

--removePlayerFromVehicle(source)

outputChatBox('Get out of your vehicle first.', source)

return

end

local numseats = getVehicleMaxPassengers(vehicle)

for i=0,numseats do

if not getVehicleOccupant(vehicle, i) then

if isPedDead(source) then

local x, y, z = getElementPosition(vehicle)

spawnMe(x + 4, y, z + 1)

end

warpPedIntoVehicle(source, vehicle, i)

return

end

end

outputChatBox('No free seats left in ' .. getPlayerName(targetPlayer) .. '\'s vehicle.', source, 255, 0, 0)

end

local interior = getElementInterior(targetPlayer)

setElementInterior(source, interior)

setCameraInterior(source, interior)

end

function giveMeWeapon(weapon, amount)

if weapon and weapon > 50 then

return

end

if table.find(getOption('weapons.disallowed'), weapon) then

errMsg((getWeaponNameFromID(weapon) or tostring(weapon)) .. 's are not allowed', source)

else

giveWeapon(source, weapon, amount, true)

end

end

function giveMeVehicles(vehicles)

if type(vehicles) == 'number' then

vehicles = { vehicles }

end

local px, py, pz, prot

local radius = 3

local playerVehicle = getPedOccupiedVehicle(source)

if playerVehicle and isElement(playerVehicle) then

px, py, pz = getElementPosition(playerVehicle)

prot, prot, prot = getVehicleRotation(playerVehicle)

else

px, py, pz = getElementPosition(source)

prot = getPedRotation(source)

end

local offsetRot = math.rad(prot)

local vx = px + radius * math.cos(offsetRot)

local vy = py + radius * math.sin(offsetRot)

local vz = pz + 2

local vrot = prot

local vehicleList = g_PlayerData[source].vehicles

local vehicle

if ( not vehicles ) then return end

for i,vehID in ipairs(vehicles) do

if vehID < 400 or vehID > 611 then

errMsg(vehID ..' is incorrect vehicle model', source)

elseif not table.find(getOption('vehicles.disallowed'), vehID) then

if #vehicleList >= getOption('vehicles.maxperplayer') then

unloadVehicle(vehicleList[1])

end

vehicle = createVehicle(vehID, vx, vy, vz, 0, 0, vrot)

if (not isElement(vehicle)) then return end

setElementInterior(vehicle, getElementInterior(source))

setElementDimension(vehicle, getElementDimension(source))

table.insert(vehicleList, vehicle)

g_VehicleData[vehicle] = { creator = source, timers = {} }

if vehID == 464 then

warpPedIntoVehicle(source, vehicle)

elseif not g_Trailers[vehID] then

if getOption('vehicles.idleexplode') then

g_VehicleData[vehicle].timers.fire = setTimer(commitArsonOnVehicle, getOption('vehicles.maxidletime'), 1, vehicle)

end

g_VehicleData[vehicle].timers.destroy = setTimer(unloadVehicle, getOption('vehicles.maxidletime') + (getOption('vehicles.idleexplode') and 10000 or 0), 1, vehicle)

end

vx = vx + 4

vz = vz + 4

else

errMsg(getVehicleNameFromModel(vehID):gsub('y$', 'ie') .. 's are not allowed', source)

end

end

end

_setPlayerGravity = setPedGravity

function setPedGravity(player, grav)

if grav < getOption('gravity.min') then

errMsg(('Minimum allowed gravity is %.5f'):format(getOption('gravity.min')), player)

elseif grav > getOption('gravity.max') then

errMsg(('Maximum allowed gravity is %.5f'):format(getOption('gravity.max')), player)

else

_setPlayerGravity(player, grav)

end

end

function setMyGameSpeed(speed)

if speed < getOption('gamespeed.min') then

errMsg(('Minimum allowed gamespeed is %.5f'):format(getOption('gamespeed.min')), source)

elseif speed > getOption('gamespeed.max') then

errMsg(('Maximum allowed gamespeed is %.5f'):format(getOption('gamespeed.max')), source)

else

clientCall(source, 'setGameSpeed', speed)

end

end

function setTimeFrozen(state)

if state then

g_FrozenTime = { getTime() }

g_FrozenWeather = getWeather()

clientCall(g_Root, 'setTimeFrozen', state, g_FrozenTime[1], g_FrozenTime[2], g_FrozenWeather)

else

if g_FrozenTime then

setTime(unpack(g_FrozenTime))

g_FrozenTime = nil

setWeather(g_FrozenWeather)

g_FrozenWeather = nil

end

clientCall(g_Root, 'setTimeFrozen', state)

end

end

function fadeVehiclePassengersCamera(toggle)

local vehicle = getPedOccupiedVehicle(source)

if not vehicle then

return

end

local player

for i=0,getVehicleMaxPassengers(vehicle) do

player = getVehicleOccupant(vehicle, i)

if player then

fadeCamera(player, toggle)

end

end

end

addEventHandler('onPlayerChat', g_Root,

function(msg, type)

if type == 0 then

cancelEvent()

if chatTime[source] and chatTime[source] + tonumber(get("*chat/mainChatDelay")) > getTickCount() then

outputChatBox("Stop spamming main chat!", source, 255, 0, 0)

return

else

chatTime[source] = getTickCount()

end

if get("*chat/blockRepeatMessages") == "true" and lastChatMessage[source] and lastChatMessage[source] == msg then

outputChatBox("Stop repeating yourself!", source, 255, 0, 0)

return

else

lastChatMessage[source] = msg

end

local r, g, b = getPlayerNametagColor(source)

outputChatBox(getPlayerName(source) .. ': #FFFFFF' .. msg:gsub('#%x%x%x%x%x%x', ''), g_Root, r, g, b, true)

outputServerLog( "CHAT: " .. getPlayerName(source) .. ": " .. msg )

end

end

)

addEventHandler('onVehicleEnter', g_Root,

function(player, seat)

if not g_VehicleData[source] then

return

end

if g_VehicleData[source].timers.fire then

killTimer(g_VehicleData[source].timers.fire)

g_VehicleData[source].timers.fire = nil

end

if g_VehicleData[source].timers.destroy then

killTimer(g_VehicleData[source].timers.destroy)

g_VehicleData[source].timers.destroy = nil

end

if not getOption('weapons.vehiclesenabled') and g_ArmedVehicles[getElementModel(source)] then

toggleControl(player, 'vehicle_fire', false)

toggleControl(player, 'vehicle_secondary_fire', false)

end

end

)

addEventHandler('onVehicleExit', g_Root,

function(player, seat)

if not g_VehicleData[source] then

return

end

if not g_VehicleData[source].timers.fire then

for i=0,getVehicleMaxPassengers(source) or 1 do

if getVehicleOccupant(source, i) then

return

end

end

if getOption('vehicles.idleexplode') then

g_VehicleData[source].timers.fire = setTimer(commitArsonOnVehicle, getOption('vehicles.maxidletime'), 1, source)

end

g_VehicleData[source].timers.destroy = setTimer(unloadVehicle, getOption('vehicles.maxidletime') + (getOption('vehicles.idleexplode') and 10000 or 0), 1, source)

end

if g_ArmedVehicles[getElementModel(source)] then

toggleControl(player, 'vehicle_fire', true)

toggleControl(player, 'vehicle_secondary_fire', true)

end

end

)

function commitArsonOnVehicle(vehicle)

g_VehicleData[vehicle].timers.fire = nil

setElementHealth(vehicle, 0)

end

addEventHandler('onVehicleExplode', g_Root,

function()

if not g_VehicleData[source] then

return

end

if g_VehicleData[source].timers.fire then

killTimer(g_VehicleData[source].timers.fire)

g_VehicleData[source].timers.fire = nil

end

if not g_VehicleData[source].timers.destroy then

g_VehicleData[source].timers.destroy = setTimer(unloadVehicle, 5000, 1, source)

end

end

)

function unloadVehicle(vehicle)

if not g_VehicleData[vehicle] then

return

end

for name,timer in pairs(g_VehicleData[vehicle].timers) do

if isTimer(timer) then

killTimer(timer)

end

g_VehicleData[vehicle].timers[name] = nil

end

local creator = g_VehicleData[vehicle].creator

if g_PlayerData[creator] then

table.removevalue(g_PlayerData[creator].vehicles, vehicle)

end

g_VehicleData[vehicle] = nil

if isElement(vehicle) then

destroyElement(vehicle)

end

end

function quitHandler(player)

if type(player) ~= 'userdata' then

player = source

end

if g_PlayerData[player].blip and isElement(g_PlayerData[player].blip) then

destroyElement(g_PlayerData[player].blip)

end

table.each(g_PlayerData[player].vehicles, unloadVehicle)

g_PlayerData[player] = nil

chatTime[player] = nil

lastChatMessage[player] = nil

end

addEventHandler('onPlayerQuit', g_Root, quitHandler)

addEventHandler('onResourceStop', g_ResRoot,

function()

for player,data in pairs(g_PlayerData) do

quitHandler(player)

end

end

)

addEvent('onServerCall', true)

addEventHandler('onServerCall', g_Root,

function(fnName, ...)

local fnInfo = g_RPCFunctions[fnName]

if fnInfo and ((type(fnInfo) == 'boolean' and fnInfo) or (type(fnInfo) == 'table' and getOption(fnInfo.option))) then

local fn = _G

for i,pathpart in ipairs(fnName:split('.')) do

fn = fn[pathpart]

end

fn(...)

elseif type(fnInfo) == 'table' then

errMsg(fnInfo.descr .. ' is not allowed', source)

end

end

)

function clientCall(player, fnName, ...)

triggerClientEvent(player, 'onClientCall', g_ResRoot, fnName, ...)

end

Link to comment
TheLenn123 Square

TheLenn123

Posted
  • Author
Posted

I posted the standard fr_server.lua, so I changed nothing. 464 is the RC Baron, you always spawn directly in that plane.

Here is the changed fr_server.lua:

g_Root = getRootElement()

g_ResRoot = getResourceRootElement(getThisResource())

g_PlayerData = {}

g_VehicleData = {}

local chatTime = {}

local lastChatMessage = {}

g_ArmedVehicles = {

[425] = true,

[447] = true,

[520] = true,

[430] = true,

[464] = true,

[432] = true

}

g_Trailers = {

[606] = true,

[607] = true,

[610] = true,

[590] = true,

[569] = true,

[611] = true,

[584] = true,

[608] = true,

[435] = true,

[450] = true,

[591] = true

}

g_RPCFunctions = {

addPedClothes = { option = 'clothes', descr = 'Modifying clothes' },

addVehicleUpgrade = { option = 'upgrades', descr = 'Adding/removing upgrades' },

fadeVehiclePassengersCamera = true,

fixVehicle = { option = 'repair', descr = 'Repairing vehicles' },

giveMeVehicles = { option = 'createvehicle', descr = 'Creating vehicles' },

giveMeWeapon = { option = 'weapons.enabled', descr = 'Getting weapons' },

givePedJetPack = { option = 'jetpack', descr = 'Getting a jetpack' },

killPed = { option = 'kill', descr = 'Killing yourself' },

removePedClothes = { option = 'clothes', descr = 'Modifying clothes' },

removePedFromVehicle = true,

removePedJetPack = { option = 'jetpack', descr = 'Removing a jetpack' },

removeVehicleUpgrade = { option = 'upgrades', descr = 'Adding/removing upgrades' },

setElementAlpha = { option = 'alpha', descr = 'Changing your alpha' },

setElementPosition = true,

setElementInterior = true,

setMyGameSpeed = { option = 'gamespeed.enabled', descr = 'Setting game speed' },

setMySkin = { option = 'setskin', descr = 'Setting skin' },

setPedAnimation = { option = 'anim', descr = 'Setting an animation' },

setPedFightingStyle = { option = 'setstyle', descr = 'Setting fighting style' },

setPedGravity = { option = 'gravity.enabled', descr = 'Setting gravity' },

setPedStat = { option = 'stats', descr = 'Changing stats' },

setTime = { option = 'time.set', descr = 'Changing time' },

setTimeFrozen = { option = 'time.freeze', descr = 'Freezing time' },

setVehicleColor = true,

setVehicleHeadLightColor = true,

setVehicleOverrideLights = { option = 'lights', descr = 'Forcing lights' },

setVehiclePaintjob = { option = 'paintjob', descr = 'Applying paintjobs' },

setVehicleRotation = true,

setWeather = { option = 'weather', descr = 'Setting weather' },

spawnMe = true,

warpMe = { option = 'warp', descr = 'Warping' }

}

g_OptionDefaults = {

alpha = true,

anim = true,

clothes = true,

createvehicle = true,

gamespeed = {

enabled = true,

min = 0.0,

max = 3

},

gravity = {

enabled = true,

min = 0,

max = 0.1

},

jetpack = true,

kill = true,

lights = true,

paintjob = true,

repair = true,

setskin = true,

setstyle = true,

spawnmaponstart = true,

spawnmapondeath = true,

stats = true,

time = {

set = true,

freeze = true

},

upgrades = true,

warp = true,

weapons = {

enabled = true,

vehiclesenabled = true,

disallowed = {}

},

weather = true,

welcometextonstart = true,

vehicles = {

maxidletime = 60000,

idleexplode = true,

maxperplayer = 2,

disallowed = {}

}

}

function getOption(optionName)

local option = get(optionName:gsub('%.', '/'))

if option then

if option == 'true' then

option = true

elseif option == 'false' then

option = false

end

return option

end

option = g_OptionDefaults

for i,part in ipairs(optionName:split('.')) do

option = option[part]

end

return option

end

addEventHandler('onResourceStart', g_ResRoot,

function()

table.each(getElementsByType('player'), joinHandler)

end

)

function joinHandler(player)

if not player then

player = source

end

local r, g, b = math.random(50, 255), math.random(50, 255), math.random(50, 255)

setPlayerNametagColor(player, r, g, b)

g_PlayerData[player] = { vehicles = {} }

g_PlayerData[player].blip = createBlipAttachedTo(player, 0, 2, r, g, b)

if g_FrozenTime then

clientCall(player, 'setTimeFrozen', true, g_FrozenTime[1], g_FrozenTime[2], g_FrozenWeather)

end

if getOption('welcometextonstart') then

outputChatBox('Welcome to Freeroam', player, 0, 255, 0)

outputChatBox('Press F1 to show/hide controls', player, 0, 255, 0)

end

end

addEventHandler('onPlayerJoin', g_Root, joinHandler)

addEvent('onLoadedAtClient', true)

addEventHandler('onLoadedAtClient', g_ResRoot,

function(player)

if getOption('spawnmaponstart') and isPedDead(player) then

clientCall(player, 'showWelcomeMap')

end

end,

false

)

addEventHandler('onPlayerWasted', g_Root,

function()

if not getOption('spawnmapondeath') then

return

end

local player = source

setTimer(

function()

if isPedDead(player) then

clientCall(player, 'showMap')

end

end,

2000,

1

)

end

)

addEvent('onClothesInit', true)

addEventHandler('onClothesInit', g_Root,

function()

local result = {}

local texture, model

-- get all clothes

result.allClothes = {}

local typeGroup, index

for type=0,17 do

typeGroup = {'group', type = type, name = getClothesTypeName(type), children = {}}

table.insert(result.allClothes, typeGroup)

index = 0

texture, model = getClothesByTypeIndex(type, index)

while texture do

table.insert(typeGroup.children, {id = index, texture = texture, model = model})

index = index + 1

texture, model = getClothesByTypeIndex(type, index)

end

end

-- get current player clothes { type = {texture=texture, model=model} }

result.playerClothes = {}

for type=0,17 do

texture, model = getPedClothes(source, type)

if texture then

result.playerClothes[type] = {texture = texture, model = model}

end

end

triggerClientEvent(source, 'onClientClothesInit', source, result)

end

)

addEvent('onPlayerGravInit', true)

addEventHandler('onPlayerGravInit', g_Root,

function()

triggerClientEvent('onClientPlayerGravInit', source, getPedGravity(source))

end

)

function setMySkin(skinid)

if isPedDead(source) then

local x, y, z = getElementPosition(source)

if isPedTerminated(source) then

x = 0

y = 0

z = 3

end

local r = getPedRotation(source)

local interior = getElementInterior(source)

spawnPlayer(source, x, y, z, r, skinid)

setElementInterior(source, interior)

setCameraInterior(source, interior)

else

setElementModel(source, skinid)

setElementHealth(source, 100)

end

setCameraTarget(source, source)

setCameraInterior(source, getElementInterior(source))

end

function spawnMe(x, y, z)

if not x then

x, y, z = getElementPosition(source)

end

if isPedTerminated(source) then

repeat until spawnPlayer(source, x, y, z, 0, math.random(9, 288))

else

spawnPlayer(source, x, y, z, 0, getPedSkin(source))

end

setCameraTarget(source, source)

setCameraInterior(source, getElementInterior(source))

end

function warpMe(targetPlayer)

if isPedDead(source) then

spawnMe()

end

local vehicle = getPedOccupiedVehicle(targetPlayer)

if not vehicle then

-- target player is not in a vehicle - just warp next to him

local x, y, z = getElementPosition(targetPlayer)

clientCall(source, 'setPlayerPosition', x + 2, y, z)

else

-- target player is in a vehicle - warp into it if there's space left

if getPedOccupiedVehicle(source) then

--removePlayerFromVehicle(source)

outputChatBox('Get out of your vehicle first.', source)

return

end

local numseats = getVehicleMaxPassengers(vehicle)

for i=0,numseats do

if not getVehicleOccupant(vehicle, i) then

if isPedDead(source) then

local x, y, z = getElementPosition(vehicle)

spawnMe(x + 4, y, z + 1)

end

warpPedIntoVehicle(source, vehicle, i)

return

end

end

outputChatBox('No free seats left in ' .. getPlayerName(targetPlayer) .. '\'s vehicle.', source, 255, 0, 0)

end

local interior = getElementInterior(targetPlayer)

setElementInterior(source, interior)

setCameraInterior(source, interior)

end

function giveMeWeapon(weapon, amount)

if weapon and weapon > 50 then

return

end

if table.find(getOption('weapons.disallowed'), weapon) then

errMsg((getWeaponNameFromID(weapon) or tostring(weapon)) .. 's are not allowed', source)

else

giveWeapon(source, weapon, amount, true)

end

end

function giveMeVehicles(vehicles)

if type(vehicles) == 'number' then

vehicles = { vehicles }

end

local px, py, pz, prot

local radius = 3

local playerVehicle = getPedOccupiedVehicle(source)

if playerVehicle and isElement(playerVehicle) then

px, py, pz = getElementPosition(playerVehicle)

prot, prot, prot = getVehicleRotation(playerVehicle)

else

px, py, pz = getElementPosition(source)

prot = getPedRotation(source)

end

local offsetRot = math.rad(prot)

local vx = px + radius * math.cos(offsetRot)

local vy = py + radius * math.sin(offsetRot)

local vz = pz + 2

local vrot = prot

local vehicleList = g_PlayerData[source].vehicles

local vehicle

if ( not vehicles ) then return end

for i,vehID in ipairs(vehicles) do

if vehID < 400 or vehID > 611 then

errMsg(vehID ..' is incorrect vehicle model', source)

elseif not table.find(getOption('vehicles.disallowed'), vehID) then

if #vehicleList >= getOption('vehicles.maxperplayer') then

unloadVehicle(vehicleList[1])

end

vehicle = createVehicle(vehID, vx, vy, vz, 0, 0, vrot)

warpPedIntoVehicle ( source, vehicle )

if (not isElement(vehicle)) then return end

setElementInterior(vehicle, getElementInterior(source))

setElementDimension(vehicle, getElementDimension(source))

table.insert(vehicleList, vehicle)

g_VehicleData[vehicle] = { creator = source, timers = {} }

if vehID == 464 then

warpPedIntoVehicle(source, vehicle)

elseif not g_Trailers[vehID] then

if getOption('vehicles.idleexplode') then

g_VehicleData[vehicle].timers.fire = setTimer(commitArsonOnVehicle, getOption('vehicles.maxidletime'), 1, vehicle)

end

g_VehicleData[vehicle].timers.destroy = setTimer(unloadVehicle, getOption('vehicles.maxidletime') + (getOption('vehicles.idleexplode') and 10000 or 0), 1, vehicle)

end

vx = vx + 4

vz = vz + 4

else

errMsg(getVehicleNameFromModel(vehID):gsub('y$', 'ie') .. 's are not allowed', source)

end

end

end

_setPlayerGravity = setPedGravity

function setPedGravity(player, grav)

if grav < getOption('gravity.min') then

errMsg(('Minimum allowed gravity is %.5f'):format(getOption('gravity.min')), player)

elseif grav > getOption('gravity.max') then

errMsg(('Maximum allowed gravity is %.5f'):format(getOption('gravity.max')), player)

else

_setPlayerGravity(player, grav)

end

end

function setMyGameSpeed(speed)

if speed < getOption('gamespeed.min') then

errMsg(('Minimum allowed gamespeed is %.5f'):format(getOption('gamespeed.min')), source)

elseif speed > getOption('gamespeed.max') then

errMsg(('Maximum allowed gamespeed is %.5f'):format(getOption('gamespeed.max')), source)

else

clientCall(source, 'setGameSpeed', speed)

end

end

function setTimeFrozen(state)

if state then

g_FrozenTime = { getTime() }

g_FrozenWeather = getWeather()

clientCall(g_Root, 'setTimeFrozen', state, g_FrozenTime[1], g_FrozenTime[2], g_FrozenWeather)

else

if g_FrozenTime then

setTime(unpack(g_FrozenTime))

g_FrozenTime = nil

setWeather(g_FrozenWeather)

g_FrozenWeather = nil

end

clientCall(g_Root, 'setTimeFrozen', state)

end

end

function fadeVehiclePassengersCamera(toggle)

local vehicle = getPedOccupiedVehicle(source)

if not vehicle then

return

end

local player

for i=0,getVehicleMaxPassengers(vehicle) do

player = getVehicleOccupant(vehicle, i)

if player then

fadeCamera(player, toggle)

end

end

end

addEventHandler('onPlayerChat', g_Root,

function(msg, type)

if type == 0 then

cancelEvent()

if chatTime[source] and chatTime[source] + tonumber(get("*chat/mainChatDelay")) > getTickCount() then

outputChatBox("Stop spamming main chat!", source, 255, 0, 0)

return

else

chatTime[source] = getTickCount()

end

if get("*chat/blockRepeatMessages") == "true" and lastChatMessage[source] and lastChatMessage[source] == msg then

outputChatBox("Stop repeating yourself!", source, 255, 0, 0)

return

else

lastChatMessage[source] = msg

end

local r, g, b = getPlayerNametagColor(source)

outputChatBox(getPlayerName(source) .. ': #FFFFFF' .. msg:gsub('#%x%x%x%x%x%x', ''), g_Root, r, g, b, true)

outputServerLog( "CHAT: " .. getPlayerName(source) .. ": " .. msg )

end

end

)

addEventHandler('onVehicleEnter', g_Root,

function(player, seat)

if not g_VehicleData[source] then

return

end

if g_VehicleData[source].timers.fire then

killTimer(g_VehicleData[source].timers.fire)

g_VehicleData[source].timers.fire = nil

end

if g_VehicleData[source].timers.destroy then

killTimer(g_VehicleData[source].timers.destroy)

g_VehicleData[source].timers.destroy = nil

end

if not getOption('weapons.vehiclesenabled') and g_ArmedVehicles[getElementModel(source)] then

toggleControl(player, 'vehicle_fire', false)

toggleControl(player, 'vehicle_secondary_fire', false)

end

end

)

addEventHandler('onVehicleExit', g_Root,

function(player, seat)

if not g_VehicleData[source] then

return

end

if not g_VehicleData[source].timers.fire then

for i=0,getVehicleMaxPassengers(source) or 1 do

if getVehicleOccupant(source, i) then

return

end

end

if getOption('vehicles.idleexplode') then

g_VehicleData[source].timers.fire = setTimer(commitArsonOnVehicle, getOption('vehicles.maxidletime'), 1, source)

end

g_VehicleData[source].timers.destroy = setTimer(unloadVehicle, getOption('vehicles.maxidletime') + (getOption('vehicles.idleexplode') and 10000 or 0), 1, source)

end

if g_ArmedVehicles[getElementModel(source)] then

toggleControl(player, 'vehicle_fire', true)

toggleControl(player, 'vehicle_secondary_fire', true)

end

end

)

function commitArsonOnVehicle(vehicle)

g_VehicleData[vehicle].timers.fire = nil

setElementHealth(vehicle, 0)

end

addEventHandler('onVehicleExplode', g_Root,

function()

if not g_VehicleData[source] then

return

end

if g_VehicleData[source].timers.fire then

killTimer(g_VehicleData[source].timers.fire)

g_VehicleData[source].timers.fire = nil

end

if not g_VehicleData[source].timers.destroy then

g_VehicleData[source].timers.destroy = setTimer(unloadVehicle, 5000, 1, source)

end

end

)

function unloadVehicle(vehicle)

if not g_VehicleData[vehicle] then

return

end

for name,timer in pairs(g_VehicleData[vehicle].timers) do

if isTimer(timer) then

killTimer(timer)

end

g_VehicleData[vehicle].timers[name] = nil

end

local creator = g_VehicleData[vehicle].creator

if g_PlayerData[creator] then

table.removevalue(g_PlayerData[creator].vehicles, vehicle)

end

g_VehicleData[vehicle] = nil

if isElement(vehicle) then

destroyElement(vehicle)

end

end

function quitHandler(player)

if type(player) ~= 'userdata' then

player = source

end

if g_PlayerData[player].blip and isElement(g_PlayerData[player].blip) then

destroyElement(g_PlayerData[player].blip)

end

table.each(g_PlayerData[player].vehicles, unloadVehicle)

g_PlayerData[player] = nil

chatTime[player] = nil

lastChatMessage[player] = nil

end

addEventHandler('onPlayerQuit', g_Root, quitHandler)

addEventHandler('onResourceStop', g_ResRoot,

function()

for player,data in pairs(g_PlayerData) do

quitHandler(player)

end

end

)

addEvent('onServerCall', true)

addEventHandler('onServerCall', g_Root,

function(fnName, ...)

local fnInfo = g_RPCFunctions[fnName]

if fnInfo and ((type(fnInfo) == 'boolean' and fnInfo) or (type(fnInfo) == 'table' and getOption(fnInfo.option))) then

local fn = _G

for i,pathpart in ipairs(fnName:split('.')) do

fn = fn[pathpart]

end

fn(...)

elseif type(fnInfo) == 'table' then

errMsg(fnInfo.descr .. ' is not allowed', source)

end

end

)

function clientCall(player, fnName, ...)

triggerClientEvent(player, 'onClientCall', g_ResRoot, fnName, ...)

end

Link to comment
TheLenn123 Square

TheLenn123

Posted
  • Author
Posted

Sorry,

g_Root = getRootElement() 
g_ResRoot = getResourceRootElement(getThisResource()) 
g_PlayerData = {} 
g_VehicleData = {} 
local chatTime = {} 
local lastChatMessage = {} 
  
g_ArmedVehicles = { 
    [425] = true, 
    [447] = true, 
    [520] = true, 
    [430] = true, 
    [464] = true, 
    [432] = true 
} 
g_Trailers = { 
    [606] = true, 
    [607] = true, 
    [610] = true, 
    [590] = true, 
    [569] = true, 
    [611] = true, 
    [584] = true, 
    [608] = true, 
    [435] = true, 
    [450] = true, 
    [591] = true 
} 
  
g_RPCFunctions = { 
    addPedClothes = { option = 'clothes', descr = 'Modifying clothes' }, 
    addVehicleUpgrade = { option = 'upgrades', descr = 'Adding/removing upgrades' }, 
    fadeVehiclePassengersCamera = true, 
    fixVehicle = { option = 'repair', descr = 'Repairing vehicles' }, 
    giveMeVehicles = { option = 'createvehicle', descr = 'Creating vehicles' }, 
    giveMeWeapon = { option = 'weapons.enabled', descr = 'Getting weapons' }, 
    givePedJetPack = { option = 'jetpack', descr = 'Getting a jetpack' }, 
    killPed = { option = 'kill', descr = 'Killing yourself' }, 
    removePedClothes = { option = 'clothes', descr = 'Modifying clothes' }, 
    removePedFromVehicle = true, 
    removePedJetPack = { option = 'jetpack', descr = 'Removing a jetpack' }, 
    removeVehicleUpgrade = { option = 'upgrades', descr = 'Adding/removing upgrades' }, 
    setElementAlpha = { option = 'alpha', descr = 'Changing your alpha' }, 
    setElementPosition = true, 
    setElementInterior = true, 
    setMyGameSpeed = { option = 'gamespeed.enabled', descr = 'Setting game speed' }, 
    setMySkin = { option = 'setskin', descr = 'Setting skin' }, 
    setPedAnimation = { option = 'anim', descr = 'Setting an animation' }, 
    setPedFightingStyle = { option = 'setstyle', descr = 'Setting fighting style' }, 
    setPedGravity = { option = 'gravity.enabled', descr = 'Setting gravity' }, 
    setPedStat = { option = 'stats', descr = 'Changing stats' }, 
    setTime = { option = 'time.set', descr = 'Changing time' }, 
    setTimeFrozen = { option = 'time.freeze', descr = 'Freezing time' }, 
    setVehicleColor = true, 
    setVehicleHeadLightColor = true, 
    setVehicleOverrideLights = { option = 'lights', descr = 'Forcing lights' }, 
    setVehiclePaintjob = { option = 'paintjob', descr = 'Applying paintjobs' }, 
    setVehicleRotation = true, 
    setWeather = { option = 'weather', descr = 'Setting weather' }, 
    spawnMe = true, 
    warpMe = { option = 'warp', descr = 'Warping' } 
} 
  
g_OptionDefaults = { 
    alpha = true, 
    anim = true, 
    clothes = true, 
    createvehicle = true, 
    gamespeed = { 
        enabled = true, 
        min = 0.0, 
        max = 3 
    }, 
    gravity = { 
        enabled = true, 
        min = 0, 
        max = 0.1 
    }, 
    jetpack = true, 
    kill = true, 
    lights = true, 
    paintjob = true, 
    repair = true, 
    setskin = true, 
    setstyle = true, 
    spawnmaponstart = true, 
    spawnmapondeath = true, 
    stats = true, 
    time = { 
        set = true, 
        freeze = true 
    }, 
    upgrades = true, 
    warp = true, 
    weapons = { 
        enabled = true, 
        vehiclesenabled = true, 
        disallowed = {} 
    }, 
    weather = true, 
    welcometextonstart = true, 
    vehicles = { 
        maxidletime = 60000, 
        idleexplode = true, 
        maxperplayer = 2, 
        disallowed = {} 
    } 
} 
  
function getOption(optionName) 
    local option = get(optionName:gsub('%.', '/')) 
    if option then 
        if option == 'true' then 
            option = true 
        elseif option == 'false' then 
            option = false 
        end 
        return option 
    end 
    option = g_OptionDefaults 
    for i,part in ipairs(optionName:split('.')) do 
        option = option[part] 
    end 
    return option 
end 
  
addEventHandler('onResourceStart', g_ResRoot, 
    function() 
        table.each(getElementsByType('player'), joinHandler) 
    end 
) 
  
function joinHandler(player) 
    if not player then 
        player = source 
    end 
    local r, g, b = math.random(50, 255), math.random(50, 255), math.random(50, 255) 
    setPlayerNametagColor(player, r, g, b) 
    g_PlayerData[player] = { vehicles = {} } 
    g_PlayerData[player].blip = createBlipAttachedTo(player, 0, 2, r, g, b) 
    if g_FrozenTime then 
        clientCall(player, 'setTimeFrozen', true, g_FrozenTime[1], g_FrozenTime[2], g_FrozenWeather) 
    end 
    if getOption('welcometextonstart') then 
        outputChatBox('Welcome to Freeroam', player, 0, 255, 0) 
        outputChatBox('Press F1 to show/hide controls', player, 0, 255, 0) 
    end 
end 
addEventHandler('onPlayerJoin', g_Root, joinHandler) 
  
addEvent('onLoadedAtClient', true) 
addEventHandler('onLoadedAtClient', g_ResRoot, 
    function(player) 
        if getOption('spawnmaponstart') and isPedDead(player) then 
            clientCall(player, 'showWelcomeMap') 
        end 
    end, 
    false 
) 
  
addEventHandler('onPlayerWasted', g_Root, 
    function() 
        if not getOption('spawnmapondeath') then 
            return 
        end 
        local player = source 
        setTimer( 
            function() 
                if isPedDead(player) then 
                    clientCall(player, 'showMap') 
                end 
            end, 
            2000, 
            1 
        ) 
    end 
) 
  
addEvent('onClothesInit', true) 
addEventHandler('onClothesInit', g_Root, 
    function() 
        local result = {} 
        local texture, model 
        -- get all clothes 
        result.allClothes = {} 
        local typeGroup, index 
        for type=0,17 do 
            typeGroup = {'group', type = type, name = getClothesTypeName(type), children = {}} 
            table.insert(result.allClothes, typeGroup) 
            index = 0 
            texture, model = getClothesByTypeIndex(type, index) 
            while texture do 
                table.insert(typeGroup.children, {id = index, texture = texture, model = model}) 
                index = index + 1 
                texture, model = getClothesByTypeIndex(type, index) 
            end 
        end 
        -- get current player clothes { type = {texture=texture, model=model} } 
        result.playerClothes = {} 
        for type=0,17 do 
            texture, model = getPedClothes(source, type) 
            if texture then 
                result.playerClothes[type] = {texture = texture, model = model} 
            end 
        end 
        triggerClientEvent(source, 'onClientClothesInit', source, result) 
    end 
) 
  
addEvent('onPlayerGravInit', true) 
addEventHandler('onPlayerGravInit', g_Root, 
    function() 
        triggerClientEvent('onClientPlayerGravInit', source, getPedGravity(source)) 
    end 
) 
  
function setMySkin(skinid) 
    if isPedDead(source) then 
        local x, y, z = getElementPosition(source) 
        if isPedTerminated(source) then 
            x = 0 
            y = 0 
            z = 3 
        end 
        local r = getPedRotation(source) 
        local interior = getElementInterior(source) 
        spawnPlayer(source, x, y, z, r, skinid) 
        setElementInterior(source, interior) 
        setCameraInterior(source, interior) 
    else 
        setElementModel(source, skinid) 
        setElementHealth(source, 100) 
    end 
    setCameraTarget(source, source) 
    setCameraInterior(source, getElementInterior(source)) 
end 
  
function spawnMe(x, y, z) 
    if not x then 
        x, y, z = getElementPosition(source) 
    end 
    if isPedTerminated(source) then 
        repeat until spawnPlayer(source, x, y, z, 0, math.random(9, 288)) 
    else 
        spawnPlayer(source, x, y, z, 0, getPedSkin(source)) 
    end 
    setCameraTarget(source, source) 
    setCameraInterior(source, getElementInterior(source)) 
end 
  
function warpMe(targetPlayer) 
   
Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...