Freeroam Warining Help Me !!!! http://i.hizliresim.com/8MW5Vk.png
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' },
setPedWalkingStyle = { option = 'walkstyle', descr = 'Setting walking 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' },
setMyPos = true
}
g_OptionDefaults = {
alpha = true,
anim = true,
clothes = true,
createvehicle = true,
gamespeed = {
enabled = false,
min = 0.0,
max = 1
},
gravity = {
enabled = true,
min = 0,
max = 0.1
},
jetpack = true,
kill = true,
lights = true,
paintjob = true,
repair = true,
setskin = true,
setstyle = true,
walkstyle= true,
spawnmaponstart = true,
spawnmapondeath = true,
stats = true,
time = {
set = false,
freeze = false
},
upgrades = true,
warp = true,
weapons = {
enabled = true,
vehiclesenabled = true,
disallowed = {}
},
weather = false,
welcometextonstart = true,
vehicles = {
maxidletime = 100000,
idleexplode = true,
maxperplayer = 1,
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
end
end
addEventHandler('onPlayerJoin', g_Root, joinHandler)
addEvent('onLoadedAtClient', true)
addEventHandler('onLoadedAtClient', g_ResRoot,
function()
if getOption('spawnmaponstart') and isPedDead(client) then
clientCall(client, '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', resourceRoot,
function()
local result = {}
local texture, model
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
result.playerClothes = {}
for type=0,17 do
texture, model = getPedClothes(client, type)
if texture then
result.playerClothes[type] = {texture = texture, model = model}
end
end
triggerClientEvent(client, 'onClientClothesInit', resourceRoot, result)
end
)
addEvent('onPlayerGravInit', true)
addEventHandler('onPlayerGravInit', resourceRoot,
function()
triggerClientEvent(root, 'onClientPlayerGravInit', resourceRoot, getPedGravity(client))
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, 200)
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)
local interior = getElementInterior(targetPlayer)
if not vehicle then
local x, y, z = getElementPosition(targetPlayer)
clientCall(source, 'setPlayerPosition', x + 2, y, z)
setElementInterior(source, interior)
setCameraInterior(source, interior)
else
if getPedOccupiedVehicle(source) then
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
setElementInterior(source, interior)
setCameraInterior(source, interior)
warpPedIntoVehicle(source, vehicle, i)
return
end
end
outputChatBox('No free seats left in ' .. getPlayerName(targetPlayer) .. '\'s vehicle.', source, 255, 0, 0)
end
end
local sawnoffAntiAbuse = {}
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)
if weapon == 26 then
if not sawnoffAntiAbuse[source] then
setControlState (source, "aim_weapon", false)
setControlState (source, "fire", false)
toggleControl (source, "fire", false)
reloadPedWeapon (source)
sawnoffAntiAbuse[source] = setTimer (function(source)
if not source then return end
toggleControl (source, "fire", true)
sawnoffAntiAbuse[source] = nil
end, 3000, 1, source)
end
end
end
end
function killSawnOffTimersOnQuit()
if isTimer (sawnoffAntiAbuse[source]) then
killTimer (sawnoffAntiAbuse[source])
sawnoffAntiAbuse[source] = nil
end
end
addEventHandler ("onPlayerQuit", root, killSawnOffTimersOnQuit)
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("Teker teker yazınız!", source, 255, 0, 0)
return
else
chatTime[source] = getTickCount()
end
if get("*chat/blockRepeatMessages") == "true" and lastChatMessage[source] and lastChatMessage[source] == msg then
outputChatBox("Aynı kelimeleri tekrarlamayınız!", source, 255, 0, 0)
return
else
lastChatMessage[source] = msg
end
local r, g, b = getPlayerNametagColor(source)
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
)
function setMyPos(x, y, z)
if not isElement(client) or getElementType(client) ~= "player" then
return
end
local veh = getPedOccupiedVehicle (client)
if veh then
if getVehicleController(veh) == client then
setElementPosition (veh, x, y, z)
setElementInterior (veh, getElementInterior (client))
for s = 1, getVehicleMaxPassengers (veh) do
local occ = getVehicleOccupant (veh, s)
if occ then
setElementInterior (occ, getElementInterior(veh))
end
end
else
removePedFromVehicle(source)
end
end
setElementPosition (client, x, y, z)
fadeCamera (client, true)
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', resourceRoot,
function(fnName, ...)
source = client
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
