Untitled
unknown
lua
2 years ago
50 kB
7
Indexable
-- Made by GCodeman --
--configs
startingcash = 20000
bailoutcost = 15000 --Not used unless bailout feature turned on
hospitalbill = 500
recoverycostpercent = 0.80
maxloan = 15000
maxdebt = 15000
debtcap = 15000
fuelcostperliter = 500
debtperday = 0.5
incometax = 0 --Can be positive or negative
islandclaiming = true --Set to false to disable claiming of islands and teleport/spawn/bench permissions
negativetaxdebt = true --Set to false to disable negative tax adding debt. If player cannot pay, it'll just set them to $0 bank
--[[
g_savedata = {}
playertable {{player name, bank, debt, lastvehicle, lastdebtdate, lasttaxdate}, {player name, bank, debt, lastvehicle, lastdebtdate, lasttaxdate}}
vehicletable {{vehicle id, owner name, cost}, {vehicle id, owner name, cost}}
islandtable {island tile name, owner, {co-owners}, {allowed to teleport}, {allowed to spawn vehicles}, {allowed to bench}, {spawncoords}}
datatable {incometax}
append them together when saving to g_savedata
]]--
function saveGame()
saveTables()
server.save(("Career"))
end
function saveTables()
g_savedata = {playertable, vehicletable, islandtable, datatable}
end
function ownsVehicle(target_id, target_vehicle)
matches = 0
for k, v in pairs(vehicletable) do
if (v[1] == target_vehicle) and (v[2] == server.getPlayerName(target_id)) then
matches = 1
end
end
return matches
end
function isPlayerOnline(target_name)
playeronline = 0
for k, v in pairs(server.getPlayers()) do
if (v["name"] == target_name) then
playeronline = 1
end
end
return playeronline
end
function getPlayerID(target_name)
playerid = -1
for k, v in pairs(server.getPlayers()) do
if (v["name"] == target_name) then
playerid = v["id"]
end
end
return playerid
end
function nearestVehicle(target_id)
local playerloc = server.getPlayerPos(target_id)
local nearestveh = -1
local nearestvehdistance = 1000
for k, v in pairs(vehicletable) do
local dist, is_success = matrix.distance(playerloc, (server.getVehiclePos(v[1])))
if dist < nearestvehdistance then
nearestvehdistance = dist
nearestveh = v[1]
end
end
return nearestveh, nearestvehdistance
end
function isInPurchasedArea(target_id)
local playerloc = server.getPlayerPos(target_id)
local x, y, z = matrix.position(playerloc)
return server.getTilePurchased(matrix.translation(x,y,z))
end
function isInMainland(target_id)
local playerloc = server.getPlayerPos(target_id)
local x, y, z = matrix.position(playerloc)
if (z < 0 and z > -14000) then
return true
else
return false
end
end
function isHomeIsland(island_tile_name)
local hometile = server.getStartTile()
local hometilename = hometile["name"]
if (island_tile_name == hometilename) then return 1 else return 0 end
end
function getIslandOwner(island_tile_name)
for k, v in pairs(islandtable) do
if v[1] == island_tile_name then
return v[2]
end
end
return "Unowned"
end
function getIslandKeyFromID(island_tile_name)
for k, v in pairs(islandtable) do
if v[1] == island_tile_name then
return k
end
end
return -1 --if not found
end
function getIslandCoOwners(island_tile_name)
for k, v in pairs(islandtable) do
if v[1] == island_tile_name then
return v[3]
end
end
return {} --if not found
end
function getIslandTeleportAccess(island_tile_name)
for k, v in pairs(islandtable) do
if v[1] == island_tile_name then
return v[4]
end
end
return {} --if not found
end
function getIslandSpawnAccess(island_tile_name)
for k, v in pairs(islandtable) do
if v[1] == island_tile_name then
return v[5]
end
end
return {} --if not found
end
function getIslandBenchAccess(island_tile_name)
for k, v in pairs(islandtable) do
if v[1] == island_tile_name then
return v[6]
end
end
return {} --if not found
end
function isCoOwner(player_name, island_tile_name)
local coowners = getIslandCoOwners(island_tile_name)
for k, v in pairs(coowners) do
if v == player_name then return 1 end
end
return 0
end
function hasTeleportAccess(player_name, island_tile_name)
if isHomeIsland(island_tile_name) == 1 then return 1 end
local access = getIslandTeleportAccess(island_tile_name)
for k, v in pairs(access) do
if v == player_name then return 1 end
end
return 0
end
function hasSpawnAccess(player_name, island_tile_name)
if isHomeIsland(island_tile_name) == 1 then return 1 end
local access = getIslandSpawnAccess(island_tile_name)
for k, v in pairs(access) do
if v == player_name then return 1 end
end
return 0
end
function hasBenchAccess(player_name, island_tile_name)
if isHomeIsland(island_tile_name) == 1 then return 1 end
local access = getIslandBenchAccess(island_tile_name)
for k, v in pairs(access) do
if v == player_name then return 1 end
end
return 0
end
function tableToFormattedString(table)
local string = ""
for k, v in pairs(table) do
string = string .. v .. "\n"
end
return string
end
function getBank(target_id)
for k, v in pairs(playertable) do
if (v[1] == server.getPlayerName(target_id)) then
return playertable[k][2] --Returns bank amount
end
end
end
function getDebt(target_id)
for k, v in pairs(playertable) do
if (v[1] == server.getPlayerName(target_id)) then
return playertable[k][3] --Returns debt amount
end
end
end
function teleportHome(target_id)
local hometile = server.getStartTile()
local x = hometile["x"]
local y = hometile["y"]
local z = hometile["z"]
local pos = matrix.translation(x,y,z)
server.setPlayerPos(target_id, pos)
end
function accrueDebt()
for k, v in pairs(playertable) do
if (v[3] > 0) and (v[5] < server.getDateValue()) then
if (isPlayerOnline(v[1]) == 1) then
local currentdebt = v[3]
local debtadded = math.ceil(currentdebt * debtperday)
local newdebt = math.ceil(currentdebt + debtadded)
if (newdebt > debtcap) then newdebt = debtcap end
playertable[k][3] = newdebt
playertable[k][5] = server.getDateValue()
server.notify(getPlayerID(v[1]), "Debt Accrued", "Debt: $" .. currentdebt .. "\n(" .. debtperday * 100 .. "%) = $" .. debtadded .. "\nNew Debt: $" .. newdebt, 8)
end
end
end
end
function incomeTax()
for k, v in pairs(playertable) do
if (v[6] < server.getDateValue()) then
if (isPlayerOnline(v[1]) == 1) then
local amount = datatable[1]
playertable[k][6] = server.getDateValue()
if (amount == 0) then return end
local target_id = getPlayerID(v[1])
addBank(target_id, amount)
if (amount > 0) then
server.notify(target_id, "Tax Return", "$" .. amount .. " has been added to your account", 8)
else
server.notify(target_id, "Taxes Due", "$" .. amount .. " has been deducted from your account", 8)
if (getBank(target_id) < 0) then
local deficit = getBank(target_id)
setBank(target_id, 0)
if (negativetaxdebt) then
addDebt(target_id, deficit * -1)
if (getDebt(target_id) > debtcap) then
setDebt(target_id, debtcap)
end
end
end
end
end
end
end
end
function displayUI()
if (playertable ~= nil) then
for k, v in pairs(playertable) do
if (isPlayerOnline(v[1]) == 1) then
local target_id = getPlayerID(v[1])
server.setPopupScreen(target_id, 47, "Bank", true, "Bank:\n$" .. string.format('%.0f', getBank(target_id)), 0.885, 0.75)
if (getDebt(target_id) > 0) then
server.setPopupScreen(target_id, 48, "Debt", true, "Debt:\n$" .. string.format('%.0f', getDebt(target_id)), 0.885, 0.62)
server.setPopupScreen(target_id, 49, "Shared Bank", true, "Shared Bank:\n$" .. getSharedBank(), 0.885, 0.49)
else
server.setPopupScreen(target_id, 48, "Debt", false, "", 0.885, 0.62)
server.setPopupScreen(target_id, 49, "Shared Bank", true, "Shared Bank:\n$" .. getSharedBank(), 0.885, 0.62)
end
end
end
end
end
function searchTable(table, searchedvalue) --returns key or -1 if not found
for k, v in pairs(table) do
if v == searchedvalue then return k end
end
return -1
end
function getVehicleCost(target_vehicle)
for k, v in pairs(vehicletable) do
if (v[1] == target_vehicle) then
return vehicletable[k][3] --Returns vehicle cost
end
end
end
function deleteVehicleFromTable(target_vehicle)
for k, v in pairs(vehicletable) do
if (v[1] == target_vehicle) then
vehicletable[k] = nil --Removes from array
end
end
end
function getLastVehicle(target_id)
for k, v in pairs(playertable) do
if (v[1] == server.getPlayerName(target_id)) then
return playertable[k][4] --Returns last vehicle they were in
end
end
end
function setLastVehicle(target_id, target_vehicle)
for k, v in pairs(playertable) do
if (v[1] == server.getPlayerName(target_id)) then
playertable[k][4] = target_vehicle
end
end
end
function clearVehicles(target_id)
for k, v in pairs(vehicletable) do
if (v[2] == server.getPlayerName(target_id)) then
server.despawnVehicle(v[1], true)
end
end
end
function getSharedBank()
local sharedbank = server.getCurrency() - 1000000000
if sharedbank < 0 then
return 0
else
return sharedbank
end
end
function addSharedBank(amount) -- do not subtract using this function
if server.getCurrency() - 1000000000 < 0 then
server.setCurrency(1000000000 + amount, server.getResearchPoints())
else
server.setCurrency(server.getCurrency() + amount, server.getResearchPoints())
end
end
function addBank(target_id, amount)
for k, v in pairs(playertable) do
if (v[1] == server.getPlayerName(target_id)) then
playertable[k][2] = playertable[k][2] + amount
end
end
end
function setBank(target_id, amount)
for k, v in pairs(playertable) do
if (v[1] == server.getPlayerName(target_id)) then
playertable[k][2] = amount
end
end
end
--Used for loans and fines
function addDebt(target_id, amount)
for k, v in pairs(playertable) do
if (v[1] == server.getPlayerName(target_id)) then
if playertable[k][3] == 0 then
playertable[k][5] = server.getDateValue() --Makes it so you dont get interest immediately
end
playertable[k][3] = playertable[k][3] + amount
end
end
end
--Used for loans and fines
function setDebt(target_id, amount)
for k, v in pairs(playertable) do
if (v[1] == server.getPlayerName(target_id)) then
if playertable[k][3] == 0 then
playertable[k][5] = server.getDateValue() --Makes it so you dont get interest immediately
end
playertable[k][3] = amount
end
end
end
function InitializePlayer(target_player)
playerfound = false
for k, v in pairs(playertable) do
if (v[1] == server.getPlayerName(target_player)) then
playerfound = true
end
end
if (playerfound == false) then
table.insert (playertable, {server.getPlayerName(target_player), startingcash, 0, -1, -1, -1})
server.notify(target_player, "Welcome " .. server.getPlayerName(target_player), "$" .. startingcash .. " has been deposited into your account. Type '?help' to get started!", 8)
else
server.notify(target_player, "Welcome back " .. server.getPlayerName(target_player), "", 8)
end
end
function getCurrentTileName(target_id)
local playerloc = server.getPlayerPos(target_id)
local x, y, z = matrix.position(playerloc)
local islandinfo, is_success = server.getTile(playerloc)
islandname = islandinfo["name"]
if (islandname == nil) then return "NotFound" else return islandname end
end
function onCreate(is_world_create)
server.setGameSetting("infinite_resources", false)
--server.setGameSetting("auto_refuel", false) --No longer exists
if (islandclaiming) then
server.setGameSetting("map_teleport", false)
server.setGameSetting("fast_travel", false)
end
if (is_world_create) then
playertable = {}
vehicletable = {}
islandtable = {}
datatable = {incometax}
server.setCurrency(1000000000, server.getResearchPoints())
else
playertable = g_savedata[1]
vehicletable = g_savedata[2]
islandtable = g_savedata[3]
datatable = g_savedata[4]
end
--TURN OFF WHEN NOT TESTING --[[ ]]--
--[[
playertable = {}
vehicletable = {}
islandtable = {}
datatable = {incometax}
]]--
end
function onTick(game_ticks)
if (server.getCurrency() < 1000000000) then server.setCurrency(0, server.getResearchPoints()) end
accrueDebt()
displayUI()
end
function onPlayerJoin(steam_id, name, peer_id, admin, auth)
server.announce("[Server]", name .. " joined the game")
InitializePlayer(peer_id)
if getLastVehicle(peer_id) > -1 then
server.pressVehicleButton(getLastVehicle(peer_id), "Killswitch")
server.notify(peer_id, "Possible Crash/Disconnect", "If your last occupied vehicle has a button labelled 'Killswitch' it has been pressed", 8)
end
end
function onPlayerLeave(steam_id, name, peer_id, admin, auth)
server.announce("[Server]", name .. " left the game")
saveGame()
end
function onCustomCommand(full_message, user_peer_id, is_admin, is_auth, command, arg1, arg2)
--if (command == "?test") then
--end
if (command == "?addbank" and is_admin == true) then
local arg2num = tonumber(arg2)
addBank(arg1, arg2num) --target_id, amount
server.notify(user_peer_id, "Account Updated", server.getPlayerName(arg1) .. "'s bank has increased by $" .. arg2, 8)
server.notify(arg1, "Account Updated", "Your bank has been increased by $" .. arg2, 8)
end
if (command == "?adddebt" and is_admin == true) then
local arg2num = tonumber(arg2)
addDebt(arg1, arg2num) --target_id, amount
server.notify(user_peer_id, "Account Updated", server.getPlayerName(arg1) .. "'s debt has increased by $" .. arg2, 8)
server.notify(arg1, "Account Updated", "Your debt has been increased by $" .. arg2, 8)
end
if (command == "?setbank" and is_admin == true) then
local arg2num = tonumber(arg2)
setBank(arg1, arg2num) --target_id, amount
server.notify(user_peer_id, "Account Updated", server.getPlayerName(arg1) .. "'s bank has been set to $" .. arg2, 8)
server.notify(arg1, "Account Updated", "Your bank has been set to $" .. arg2, 8)
end
if (command == "?setdebt" and is_admin == true) then
local arg2num = tonumber(arg2)
setDebt(arg1, arg2num) --target_id, amount
server.notify(user_peer_id, "Account Updated", server.getPlayerName(arg1) .. "'s debt has been set to $" .. arg2, 8)
server.notify(arg1, "Account Updated", "Your debt has been set to $" .. arg2, 8)
end
if (command == "?resetisland" and is_admin == true) then
local islandname = getCurrentTileName(user_peer_id)
local formattedname = getFormattedTileName(islandname)
if (formattedname ~= "NotFound") then
server.notify(user_peer_id, "Island Reset", formattedname .. " is no longer owned by anybody", 8)
local islandkey = getIslandKeyFromID(islandname)
islandtable[islandkey] = nil
else
server.notify(user_peer_id, "Reset Failed", "This area is not ownable", 8)
end
end
if (command == "?pay") then
local arg2num = tonumber(arg2)
if (arg2num > 0) then
if (getBank(user_peer_id) >= arg2num) then
addBank(user_peer_id, arg2num * -1)
addBank(arg1, arg2num)
server.notify(user_peer_id, "Payment Success", "You paid " .. server.getPlayerName(arg1) .. " $" .. arg2, 8)
server.notify(arg1, "Payment Received", "You were paid $" .. arg2 .. " by " .. server.getPlayerName(user_peer_id), 8)
else
server.notify(user_peer_id, "Payment Failed", "You only have $" .. getBank(user_peer_id), 8)
end
else
server.notify(user_peer_id, "Invalid number", "Please enter a valid number", 8)
end
end
if (command == "?init") then
InitializePlayer(user_peer_id)
end
if (command == "?loan") then
local amount = tonumber(arg1)
local currentdebt = getDebt(user_peer_id)
if (amount + currentdebt <= maxloan) then
addBank(user_peer_id, amount)
addDebt(user_peer_id, amount)
server.notify(user_peer_id, "Loan Successful", "Current Debt: $" .. currentdebt + amount.. "\nYour debt will increase by " .. debtperday * 100 .. "%" .. " at the beginning of each day", 8)
else
server.notify(user_peer_id, "Loan Failed", "Loan exceeds available amount\nMax: $" .. maxloan - currentdebt, 8)
end
end
if (command == "?payloan") then
local amount = tonumber(arg1)
local currentdebt = getDebt(user_peer_id)
if (amount > 0) then
if (getBank(user_peer_id) >= amount) then
if (currentdebt >= amount) then
addBank(user_peer_id, amount * -1)
addDebt(user_peer_id, amount * -1)
server.notify(user_peer_id, "Payment Successful", "Remaining Debt: $" .. currentdebt - amount, 8)
else
server.notify(user_peer_id, "Payment Failed", "Amount larger than current debt", 8)
end
else
server.notify(user_peer_id, "Payment Failed", "You do not have enough money", 8)
end
else
server.notify(user_peer_id, "Payment Failed", "Please enter a valid number", 8)
end
end
if (command == "?accruedebt" and is_admin == true) then
accrueDebt()
end
--Currently disabled. System can be abused by taking loans then paying other players then getting bailed out
--Could adapt this to an admin-only command
--[[
if (command == "?bailout") then
if (getBank(user_peer_id) >= bailoutcost) then
if (getDebt(arg1) >= maxdebt) then
clearVehicles(arg1)
addBank(user_peer_id, bailoutcost * -1)
setBank(arg1, startingcash)
setDebt(arg1, 0)
else
server.notify(user_peer_id, "Bailout Failed", server.getPlayerName(arg1) .. " does not need a bailout", 8)
end
else
server.notify(user_peer_id, "Bailout Failed", "You need $" .. bailoutcost .. "to bail out another player", 8)
end
end
--]]
if (command == "?bank") then
local bank = getBank(user_peer_id)
local debt = getDebt(user_peer_id)
local sharedbank = getSharedBank()
server.notify(user_peer_id, "Account", "Personal Bank: $" .. bank .. "\nShared Bank: $" .. sharedbank .. "\nDebt: $" .. debt, 8)
end
if (command == "?addsharedbank" and is_admin == true) then
local arg1num = tonumber(arg1)
if arg1num > 0 then
addSharedBank(arg1num)
else
server.setCurrency(server.getCurrency() + arg1num, server.getResearchPoints())
end
server.notify(user_peer_id, "Shared Account Updated", "Balance: $" .. getSharedBank(), 8)
end
if (command == "?addresearch" and is_admin == true) then
local arg1num = tonumber(arg1)
server.setCurrency(server.getCurrency(), server.getResearchPoints() + arg1num)
server.notify(user_peer_id, "Research Updated", "Total Research: " .. server.getResearchPoints(), 8)
end
if (command == "?setresearch" and is_admin == true) then
local arg1num = tonumber(arg1)
server.setCurrency(server.getCurrency(), arg1num)
server.notify(user_peer_id, "Research Updated", "Total Research: " .. server.getResearchPoints(), 8)
end
if (command == "?savegame") then
saveGame()
end
if (command == "?playertable" and is_admin == true) then
for k, v in pairs(playertable) do
server.announce("Player Table", "Key ID " .. k .. "\nPlayer Name: " .. v[1] .. "\nBank: $" .. v[2] .. "\nDebt: $" .. v[3] .. "\nLast Veh ID: " .. v[4] .. "\nLast Debt Date: " .. v[5], (user_peer_id))
end
end
if (command == "?vehicletable" and is_admin == true) then
for k, v in pairs(vehicletable) do
server.announce("Vehicle Table", "Key ID " .. k .. "\nVehicle ID: " .. v[1] .. "\nOwner Name: " .. v[2] .. "\nCost: $" .. v[3], (user_peer_id))
end
end
if (command == "?islandtable" and is_admin == true) then
for k, v in pairs(islandtable) do
server.announce("Island Table", "Key ID " .. k .. "\nTile: " .. v[1] .. "\nOwner Name: " .. v[2] .. "\nCo-Owner Names: " .. "WIP" .. "\nTP Access: " .. "WIP" .. "\nSpawn Access: " .. "WIP" .. "\nBench Access: " .. "WIP", (user_peer_id))
end
end
if (command == "?bring" and is_admin == true) then
server.setPlayerPos(arg1, (server.getPlayerPos(user_peer_id)))
server.notify(user_peer_id, "Teleport", server.getPlayerName(arg1) .. " has been teleported to your position." , 8)
server.notify(arg1, "Teleport", server.getPlayerName(user_peer_id) .. " has teleported you to their position." , 8)
end
if (command == "?goto" and is_admin == true) then
server.setPlayerPos(user_peer_id, (server.getPlayerPos(arg1)))
server.notify(user_peer_id, "Teleport", "You have teleported to " .. server.getPlayerName(arg1) .. "'s position", 8)
server.notify(arg1, "Teleport", server.getPlayerName(user_peer_id) .. " has teleported to your position" , 8)
end
if (command == "?settax" and is_admin == true) then
local arg1num = tonumber(arg1)
if type(arg1num) ~= "number" then
server.notify(user_peer_id, "Command Failed", "Please enter a valid number", 8)
return end
datatable[1] = arg1num
server.notify(user_peer_id, "Taxes Updated", "Each player gets $" .. arg1num .. " per day", 8)
end
if (command == "?bancada") or (command == "?b") then
local islandname = getCurrentTileName(user_peer_id)
local formattedname = getFormattedTileName(islandname)
if isInPurchasedArea(user_peer_id) or (string.find(formattedname, "Deposit")) then
local playername = server.getPlayerName(user_peer_id)
if (islandclaiming == false) or (hasBenchAccess(playername, islandname) == 1 or getIslandOwner(islandname) == playername or isCoOwner(playername, islandname) == 1 or (isHomeIsland(islandname) == 1)) then
local nearestveh, nearestvehdist = nearestVehicle(user_peer_id)
if (nearestvehdist <= 25) then
if ownsVehicle(user_peer_id, nearestveh) == 1 then
local vehiclecost = getVehicleCost(nearestveh)
addBank(user_peer_id, vehiclecost)
setLastVehicle(user_peer_id, -1)
server.despawnVehicle(nearestveh, true)
server.notify(user_peer_id, "Vehicle Returned", "$" .. string.format('%.0f', vehiclecost) .. " was refunded to your account", 8)
else
server.notify(user_peer_id, "Return Failed", "This vehicle does not belong to you", 8)
end
else
server.notify(user_peer_id, "Return Failed", "No vehicle within 25m found", 8)
end
else
server.notify(peer_id, "Bench Failed", "You do not have clearance to bench here", 8)
end
else
server.notify(user_peer_id, "Return Failed", "You must be near a workbench you own", 8)
end
end
if (command == "?lock" and is_admin == true) then
local nearestveh, nearestvehdist = nearestVehicle(user_peer_id)
if (nearestvehdist <= 25) then
server.setVehicleEditable(nearestveh, false)
server.notify(user_peer_id, "Vehicle Locked", "", 8)
else
server.notify(user_peer_id, "Lock Failed", "No vehicle within 25m found", 8)
end
end
if (command == "?unlock" and is_admin == true) then
local nearestveh, nearestvehdist = nearestVehicle(user_peer_id)
if (nearestvehdist <= 25) then
server.setVehicleEditable(nearestveh, true)
server.notify(user_peer_id, "Vehicle Unlocked", "", 8)
else
server.notify(user_peer_id, "Unlock Failed", "No vehicle within 25m found", 8)
end
end
if (command == "?resgatar" || ) or (command == "?r" || ) then
local nearestveh, nearestvehdist = nearestVehicle(user_peer_id)
if (nearestvehdist <= 25) then
if ownsVehicle(user_peer_id, nearestveh) == 1 then
local refund = math.floor(getVehicleCost(nearestveh) - (getVehicleCost(nearestveh) * recoverycostpercent))
addBank(user_peer_id, refund)
server.notify(user_peer_id, "Vehicle Recovered", "$" .. string.format('%.0f', refund) .. " was refunded to your account after a " .. recoverycostpercent * 100 .. "% ($" .. (getVehicleCost(nearestveh) * recoverycostpercent) ..") recovery fee", 8)
setLastVehicle(user_peer_id, -1)
server.despawnVehicle(nearestveh, true)
else
server.notify(user_peer_id, "Return Failed", "This vehicle does not belong to you", 8)
end
else
server.notify(user_peer_id, "Return Failed", "No vehicle within 25m found", 8)
end
end
if (command == "?tilename" and is_admin == true) then
local tilename = getCurrentTileName(user_peer_id)
server.notify(user_peer_id, "Tile Name", tilename, 8)
end
if (command == "?help") then
server.announce("Commands", "?bank\n?deposit (amount)\n?claim (amount)\n?pay (player id) (amount)\n?loan (amount)\n?payloan (amount)\n?bancada (ou ?b)\n?resgatar (ou ?r) [" .. string.format('%.0f', recoverycostpercent * 100) .. "% vehicle cost fee]\n?buyfuel (diesel/jetfuel) (amount) [$" .. fuelcostperliter .. "/L, non-dynamic tanks only]\n?savegame", (user_peer_id))
if (islandclaiming) then
server.announce("Island Commands", "?access\n?islandaccess (island name)\n?claimisland\n?unclaimisland\n?setcoowner (player id) (island name)\n?setteleport (player id) (island name)\n?setspawn (player id) (island name)\n?setbench (player id) (island name)", (user_peer_id))
end
if (is_admin == true) then
server.announce("Admin Commands", "?addbank (player id) (amount)\n?setbank (player id) (amount)\n?addsharedbank (amount)\n?adddebt (player id) (amount)\n?setdebt (player id) (amount)\n?addresearch (amount)\n?setresearch (amount)\n?settax (amount)\n?bring (player id)\n?lock\n?unlock\n?resetisland", (user_peer_id))
server.announce("Debug Commands", "?init\n?playertable\n?vehicletable\n?islandtable\n?accruedebt\n?tilename", (user_peer_id))
end
end
if (command == "?deposit") then
local arg1num = tonumber(arg1)
if (arg1num > 0) then
if (getBank(user_peer_id) >= arg1num) then
addBank(user_peer_id, arg1num * -1)
addSharedBank(arg1num)
server.notify(-1, server.getPlayerName(user_peer_id) .. " has deposited $"..arg1num, "Shared Bank: $".. getSharedBank(), 8)
else
server.notify(user_peer_id, "Deposit Failed", "You only have $" .. getBank(user_peer_id), 8)
end
else
server.notify(user_peer_id, "Invalid number", "Please enter a valid number", 8)
end
end
if (command == "?claim") then
local arg1num = tonumber(arg1)
if (arg1num > 0) then
if (getSharedBank() >= arg1num) then
addBank(user_peer_id, arg1num * 1)
server.setCurrency(server.getCurrency() - arg1num, server.getResearchPoints())
server.notify(-1, server.getPlayerName(user_peer_id) .. " has claimed $"..arg1num, "Shared Bank: $".. getSharedBank(), 8)
else
server.notify(user_peer_id, "Claim Failed", "The bank only has $" .. getSharedBank(), 8)
end
else
server.notify(user_peer_id, "Invalid number", "Please enter a valid number", 8)
end
end
if (command == "?buyfuel") then
if (getLastVehicle(user_peer_id) ~= -1) then
if isInMainland(user_peer_id) then
if isInPurchasedArea(target_id) then
if (arg1 == "diesel" or arg1 == "jetfuel") then
if (getBank(user_peer_id) >= arg2 * fuelcostperliter) then
addBank(user_peer_id, (arg2 * fuelcostperliter) * -1)
if (arg1 == "diesel") then
server.setVehicleTank(getLastVehicle(user_peer_id), tank_name, arg2, 1)
server.notify(user_peer_id, "Fueling Successful", arg2 .. "L diesel purchased for $" .. arg2 * fuelcostperliter, 8)
end
if (arg1 == "jetfuel") then
server.setVehicleTank(getLastVehicle(user_peer_id), tank_name, arg2, 2)
server.notify(user_peer_id, "Fueling Successful", arg2 .. "L jet fuel purchased for $" .. arg2 * fuelcostperliter, 8)
end
else
server.notify(user_peer_id, "Fueling Failed", "You do not have enough cash", 8)
end
else
server.notify(user_peer_id, "Fueling Failed", "You must enter diesel or jetfuel", 8)
end
else
server.notify(user_peer_id, "Fueling Failed", "You must be near a workbench you own", 8)
end
else
server.notify(user_peer_id, "Fueling Failed", "You can only purchase fuel on the mainland and main islands", 8)
end
else
server.notify(user_peer_id, "Fueling Failed", "You must be in a vehicle to do this", 8)
end
end
--?teleport islandformattedname
if (command == "?teleport") or (command == "?tp") then
if (islandclaiming) then
local islandformattedname = arg1
local islandtilename = getTileIDFromName(islandformattedname)
local playername = server.getPlayerName(user_peer_id)
if (islandtilename ~= "NotFound") then
if (getIslandOwner(islandtilename) == playername) or (isCoOwner(playername, islandtilename) == 1) or hasTeleportAccess(playername, islandtilename) == 1 or isHomeIsland(islandtilename) == 1 then
if (isHomeIsland(islandtilename) == 1) then
local hometile = server.getStartTile()
local x = hometile["x"]
local y = hometile["y"]
local z = hometile["z"]
local loc = matrix.translation(x,y,z)
server.setPlayerPos(user_peer_id, loc)
else
local islandkey = getIslandKeyFromID(islandtilename)
local loc = islandtable[islandkey][7]
server.setPlayerPos(user_peer_id, loc)
end
else
server.notify(user_peer_id, "Teleport Failed", "You do not have clearance to teleport to " .. islandformattedname, 8)
end
else
server.notify(user_peer_id, "Teleport Failed", "Island not found", 8)
end
else
server.notify(user_peer_id, "Island Teleporting Disabled", "This command has been disabled by server settings", 8)
end
end
if (command == "?access") then
if (islandclaiming) then
local hometile = server.getStartTile()
local hometilename = hometile["name"]
local hometileformattedname = getFormattedTileName(hometilename)
local playername = server.getPlayerName(user_peer_id)
local accessstring = hometileformattedname .. ": Home"
for k, v in pairs(islandtable) do
local island_tile_name = v[1]
local islandformattedname = getFormattedTileName(island_tile_name)
if (getIslandOwner(island_tile_name) == playername) then
accessstring = accessstring .. "\n" .. islandformattedname .. ": Owner"
elseif (isCoOwner(playername, island_tile_name) == 1) then
accessstring = accessstring .. "\n" .. islandformattedname ..": Co-Owner"
elseif hasTeleportAccess(playername, island_tile_name) == 1 or
hasSpawnAccess(playername, island_tile_name) == 1 or
hasBenchAccess(playername, island_tile_name) == 1 then
accessstring = accessstring .. "\n" .. islandformattedname .. ": "
if hasTeleportAccess(playername, island_tile_name) == 1 then accessstring = accessstring .. "Teleport " end
if hasSpawnAccess(playername, island_tile_name) == 1 then accessstring = accessstring .. "Spawn " end
if hasBenchAccess(playername, island_tile_name) == 1 then accessstring = accessstring .. "Bench" end
end
end
server.announce("Access", accessstring, (user_peer_id))
else
server.notify(user_peer_id, "Island Claiming Disabled", "This command has been disabled by server settings", 8)
end
end
--?islandaccess islandformattedname
if (command == "?islandaccess") then
local islandformattedname = arg1
local islandtilename = getTileIDFromName(islandformattedname)
local playername = server.getPlayerName(user_peer_id)
if (islandtilename ~= "NotFound") then
if (getIslandOwner(islandtilename) == playername) or (isCoOwner(playername, islandtilename) == 1) then
for k, v in pairs(islandtable) do
if (v[1] == islandtilename) then
--Owner
server.announce("Owner", getIslandOwner(islandtilename), (user_peer_id))
--Co-Owners
local coowners = getIslandCoOwners(islandtilename)
local coownersstring = tableToFormattedString(coowners)
if (coownersstring ~= "") then
server.announce("Co-Owners", coownersstring, (user_peer_id))
end
--Teleport
local teleportaccess = getIslandTeleportAccess(islandtilename)
local teleportaccessstring = tableToFormattedString(teleportaccess)
if (teleportaccessstring ~= "") then
server.announce("Teleport Access", teleportaccessstring, (user_peer_id))
end
--Spawn
local spawnaccess = getIslandSpawnAccess(islandtilename)
local spawnaccessstring = tableToFormattedString(spawnaccess)
if (spawnaccessstring ~= "") then
server.announce("Spawn Access", spawnaccessstring, (user_peer_id))
end
--Bench
local benchaccess = getIslandBenchAccess(islandtilename)
local benchaccessstring = tableToFormattedString(benchaccess)
if (benchaccessstring ~= "") then
server.announce("Bench Access", benchaccessstring, (user_peer_id))
end
end
end
else
server.notify(user_peer_id, "Request Failed", "You do not have clearance to see this", 8)
end
else
server.notify(user_peer_id, "Request Failed", "Island not found", 8)
end
end
--?setcoowner playerid islandformattedname
if (command == "?setcoowner") then
local playername = server.getPlayerName(user_peer_id)
local targetname = server.getPlayerName(arg1)
local islandformattedname = arg2
local islandtilename = getTileIDFromName(islandformattedname)
if (islandtilename ~= "NotFound") then
if (arg1 ~= user_peer_id) then
if (getIslandOwner(islandtilename) == playername) or (isCoOwner(playername, islandtilename) == 1) then
if (getIslandOwner(islandtilename) ~= targetname) then
local islandkey = getIslandKeyFromID(islandtilename)
if (isCoOwner(targetname, islandtilename) == 1) then
server.notify(user_peer_id, "Permission Removed", targetname .. " is no longer a co-owner of " .. islandformattedname, 8)
local playerkey = searchTable(islandtable[islandkey][3], targetname)
islandtable[islandkey][3][playerkey] = nil
else
table.insert (islandtable[islandkey][3], targetname)
server.notify(user_peer_id, "Permission Added", targetname .. " is now a co-owner of " .. islandformattedname, 8)
end
else
server.notify(user_peer_id, "Permission Failed", "That player is the owner of the island", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "You do not own this island", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "You cannot edit your own permissions", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "Island not found", 8)
end
end
--?setteleport playerid islandformattedname
if (command == "?setteleport") then
local playername = server.getPlayerName(user_peer_id)
local targetname = server.getPlayerName(arg1)
local islandformattedname = arg2
local islandtilename = getTileIDFromName(islandformattedname)
if (islandtilename ~= "NotFound") then
if (arg1 ~= user_peer_id) then
if (getIslandOwner(islandtilename) == playername) or (isCoOwner(playername, islandtilename) == 1) then
if (getIslandOwner(islandtilename) ~= targetname) then
local islandkey = getIslandKeyFromID(islandtilename)
if (hasTeleportAccess(targetname, islandtilename) == 1) then
server.notify(user_peer_id, "Permission Removed", targetname .. " can no longer teleport to " .. islandformattedname, 8)
local playerkey = searchTable(islandtable[islandkey][4], targetname)
islandtable[islandkey][4][playerkey] = nil
else
table.insert (islandtable[islandkey][4], targetname)
server.notify(user_peer_id, "Permission Added", targetname .. " can now teleport to " .. islandformattedname, 8)
end
else
server.notify(user_peer_id, "Permission Failed", "That player is the owner of the island", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "You do not own this island", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "You cannot edit your own permissions", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "Island not found", 8)
end
end
--?setspawn playerid islandformattedname
if (command == "?setspawn") then
local playername = server.getPlayerName(user_peer_id)
local targetname = server.getPlayerName(arg1)
local islandformattedname = arg2
local islandtilename = getTileIDFromName(islandformattedname)
if (islandtilename ~= "NotFound") then
if (arg1 ~= user_peer_id) then
if (getIslandOwner(islandtilename) == playername) or (isCoOwner(playername, islandtilename) == 1) then
if (getIslandOwner(islandtilename) ~= targetname) then
local islandkey = getIslandKeyFromID(islandtilename)
if (hasSpawnAccess(targetname, islandtilename) == 1) then
server.notify(user_peer_id, "Permission Removed", targetname .. " can no longer spawn vehicles at " .. islandformattedname, 8)
local playerkey = searchTable(islandtable[islandkey][5], targetname)
islandtable[islandkey][5][playerkey] = nil
else
table.insert (islandtable[islandkey][5], targetname)
server.notify(user_peer_id, "Permission Added", targetname .. " can now spawn vehicles at " .. islandformattedname, 8)
end
else
server.notify(user_peer_id, "Permission Failed", "That player is the owner of the island", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "You do not own this island", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "You cannot edit your own permissions", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "Island not found", 8)
end
end
--?setbench playerid islandformattedname
if (command == "?setbench") then
local playername = server.getPlayerName(user_peer_id)
local targetname = server.getPlayerName(arg1)
local islandformattedname = arg2
local islandtilename = getTileIDFromName(islandformattedname)
if (islandtilename ~= "NotFound") then
if (arg1 ~= user_peer_id) then
if (getIslandOwner(islandtilename) == playername) or (isCoOwner(playername, islandtilename) == 1) then
if (getIslandOwner(islandtilename) ~= targetname) then
local islandkey = getIslandKeyFromID(islandtilename)
if (hasBenchAccess(targetname, islandtilename) == 1) then
server.notify(user_peer_id, "Permission Removed", targetname .. " can no longer bench vehicles at " .. islandformattedname, 8)
local playerkey = searchTable(islandtable[islandkey][6], targetname)
islandtable[islandkey][6][playerkey] = nil
else
table.insert (islandtable[islandkey][6], targetname)
server.notify(user_peer_id, "Permission Added", targetname .. " can now bench vehicles at " .. islandformattedname, 8)
end
else
server.notify(user_peer_id, "Permission Failed", "That player is the owner of the island", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "You do not own this island", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "You cannot edit your own permissions", 8)
end
else
server.notify(user_peer_id, "Permission Failed", "Island not found", 8)
end
end
if (command == "?claimisland") then
if (islandclaiming) then
local islandname = getCurrentTileName(user_peer_id)
local formattedname = getFormattedTileName(islandname)
local islandowner = getIslandOwner(islandname)
local is_purchased = isInPurchasedArea(user_peer_id)
if (is_purchased) or (string.find(formattedname, "Deposit")) then
if (isHomeIsland(islandname) == 0) then
if (formattedname ~= "NotFound") then
if (islandowner == "Unowned") then
server.notify(user_peer_id, "Claim Successful", "You now own " .. formattedname, 8)
table.insert (islandtable, {islandname, server.getPlayerName(user_peer_id), {}, {}, {}, {}, server.getPlayerPos(user_peer_id)}) --Sets to owner and spawn coordinates
else
server.notify(user_peer_id, "Claim Failed", formattedname .. " is already owned by " .. islandowner, 8)
end
else
server.notify(user_peer_id, "Claim Failed", "This area is not ownable", 8)
end
else
server.notify(user_peer_id, "Claim Failed", "The starting area is not ownable", 8)
end
else
server.notify(user_peer_id, "Claim Failed", "This island is not purchased", 8)
end
else
server.notify(user_peer_id, "Island Claiming Disabled", "This command has been disabled by server settings", 8)
end
end
if (command == "?unclaimisland") then
if (islandclaiming) then
local islandname = getCurrentTileName(user_peer_id)
local formattedname = getFormattedTileName(islandname)
local islandowner = getIslandOwner(islandname)
if (formattedname ~= "NotFound") then
if (islandowner == server.getPlayerName(user_peer_id)) then
server.notify(user_peer_id, "Unclaim Successful", "You no longer own " .. formattedname, 8)
local islandkey = getIslandKeyFromID(islandname)
islandtable[islandkey] = nil
else
server.notify(user_peer_id, "Unclaim Failed", "You do not own " .. formattedname, 8)
end
else
server.notify(user_peer_id, "Unclaim Failed", "This area is not ownable", 8)
end
else
server.notify(user_peer_id, "Island Claiming Disabled", "This command has been disabled by server settings", 8)
end
end
end --end for custom commands
function onPlayerSit(peer_id, vehicle_id, seat_name)
setLastVehicle(peer_id, vehicle_id)
end
function onPlayerUnsit(peer_id, vehicle_id, seat_name)
setLastVehicle(peer_id, -1)
end
function onPlayerRespawn(peer_id)
setLastVehicle(peer_id, -1)
teleportHome(peer_id)
if (getBank(peer_id) >= hospitalbill) then
addBank(peer_id, hospitalbill * -1)
server.notify(peer_id, "Hospital Bills", "$" .. hospitalbill .. " was deducted from your account", 8)
else
server.notify(peer_id, "Hospital Bills", "$" .. getBank(peer_id) .. "was deducted from your account", 8)
setBank(peer_id, 0)
end
end
function onVehicleSpawn(vehicle_id, peer_id, x, y, z, cost)
if (peer_id > -1) then
local playername = server.getPlayerName(peer_id)
local islandname = getCurrentTileName(peer_id)
if (islandclaiming == false) or (hasSpawnAccess(playername, islandname) == 1 or getIslandOwner(islandname) == playername or isCoOwner(playername, islandname) == 1 or (isHomeIsland(islandname) == 1)) then
if (cost ~= 2) then
if (getDebt(peer_id) <= maxdebt) then
if (getBank(peer_id) >= cost) then
addBank((peer_id), cost * -1)
server.setCurrency(server.getCurrency() + cost, server.getResearchPoints())
table.insert (vehicletable, {vehicle_id, server.getPlayerName(peer_id), cost})
--server.setVehicleEditable(vehicle_id, false) --Moved to onVehicleLoad
server.notify(peer_id, "Vehicle Purchased", "$".. string.format('%.0f', getBank(peer_id)) .." remains", 8)
if (server.getCurrency() < 1000000000) then server.setCurrency(0, server.getResearchPoints()) end --ontick doesnt work when vehicle is spawned here sometimes for some reason
else
server.despawnVehicle(vehicle_id, true)
server.setCurrency(server.getCurrency() + cost, server.getResearchPoints())
server.notify(peer_id, "Not enough money", "You need $"..cost - getBank(server.getPlayerName(peer_id)).." more.", 8)
end
else
server.despawnVehicle(vehicle_id, true)
server.setCurrency(server.getCurrency() + cost, server.getResearchPoints())
server.notify(peer_id, "Debt too high", "You must get your debt below $" .. maxdebt .. " to spawn a vehicle", 8)
end
else
server.despawnVehicle(vehicle_id, true)
server.notify(-1, server.getPlayerName(peer_id) .. " accidentally spawned the Cube of Shame", "Everybody point and laugh", 8)
end
else
server.despawnVehicle(vehicle_id, true)
server.setCurrency(server.getCurrency() + cost, server.getResearchPoints())
server.notify(peer_id, "Purchase Failed", "You do not have clearance to spawn here", 8)
end
end
end
function onVehicleLoad(vehicle_id)
server.setVehicleEditable(vehicle_id, false) --Had to move this here because it wasn't calculating fuel on spawn correctly
end
function onVehicleDespawn(vehicle_id, peer_id)
deleteVehicleFromTable(vehicle_id)
end
--You can make a tile purchasable by adding entries in the next 2 sections
--If "Deposit" is in the name, it can be claimed without purchasing (useful for areas with no purchase sign like oil sites)
function getFormattedTileName(tile_id)
--Base Tiles
if (tile_id) == "data/tiles/island_33_tile_end.xml" then return "Camodo" end
if (tile_id) == "data/tiles/island_33_tile_32.xml" then return "Spycakes" end
if (tile_id) == "data/tiles/island_33_tile_33.xml" then return "Dreimor" end
if (tile_id) == "data/tiles/island_43_multiplayer_base.xml" then return "MPI" end
if (tile_id) == "data/tiles/island_15.xml" then return "Coastguard" end
if (tile_id) == "data/tiles/test_tile.xml" then return "CoastguardTT" end
if (tile_id) == "data/tiles/island12.xml" then return "CoastguardB" end
if (tile_id) == "data/tiles/island_24.xml" then return "Airstrip" end
if (tile_id) == "data/tiles/island_34_military.xml" then return "Military" end
if (tile_id) == "data/tiles/island_25.xml" then return "Harbor" end
if (tile_id) == "data/tiles/mega_island_9_8.xml" then return "NorthHarbor" end
if (tile_id) == "data/tiles/mega_island_2_6.xml" then return "Harrison" end
if (tile_id) == "data/tiles/mega_island_12_6.xml" then return "ONeill" end
if (tile_id) == "data/tiles/mega_island_15_2.xml" then return "FishingVillage" end
if (tile_id) == "data/tiles/island_31_playerbase_combo.xml" then return "CustomSmallBoat" end
if (tile_id) == "data/tiles/island_30_playerbase_boat.xml" then return "CustomLargeBoat" end
if (tile_id) == "data/tiles/island_32_playerbase_heli.xml" then return "CustomHeli" end
if (tile_id) == "data/tiles/island_29_playerbase_submarine.xml" then return "CustomSub" end
if (tile_id) == "data/tiles/oil_rig_playerbase.xml" then return "CustomRig" end
if (tile_id) == "data/tiles/arctic_tile_22.xml" then return "Endo" end
if (tile_id) == "data/tiles/arctic_tile_12_oilrig.xml" then return "Trinite" end
if (tile_id) == "data/tiles/arctic_island_playerbase.xml" then return "Tajin" end
--Desert Tiles
if (tile_id) == "data/tiles/arid_island_5_14.xml" then return "NorthMeier" end
if (tile_id) == "data/tiles/arid_island_8_15.xml" then return "Uran" end
if (tile_id) == "data/tiles/arid_island_6_7.xml" then return "Serpentine" end
if (tile_id) == "data/tiles/arid_island_7_5.xml" then return "Ender" end
if (tile_id) == "data/tiles/arid_island_11_14.xml" then return "Brainz" end
if (tile_id) == "data/tiles/arid_island_12_10.xml" then return "Mauve" end
if (tile_id) == "data/tiles/arid_island_19_12.xml" then return "Monkey" end
if (tile_id) == "data/tiles/arid_island_19_11.xml" then return "Clarke" end
if (tile_id) == "data/tiles/arid_island_24_3.xml" then return "JSI" end
if (tile_id) == "data/tiles/arid_island_26_14.xml" then return "FJWarner" end
--Desert Oil Deposits
if (tile_id) == "data/tiles/arid_island_23_14.xml" then return "CarnivoreDeposit" end
if (tile_id) == "data/tiles/arid_island_24_4.xml" then return "JSIDeposit" end
if (tile_id) == "data/tiles/arid_island_3_12.xml" then return "TurmoildDeposit" end
if (tile_id) == "data/tiles/arid_island_8_11.xml" then return "ShymavanDeposit" end
return "NotFound"
end
function getTileIDFromName(formatted_name)
--Base Tiles
if (formatted_name) == "Camodo" then return "data/tiles/island_33_tile_end.xml" end
if (formatted_name) == "Spycakes" then return "data/tiles/island_33_tile_32.xml" end
if (formatted_name) == "Dreimor" then return "data/tiles/island_33_tile_33.xml" end
if (formatted_name) == "MPI" then return "data/tiles/island_43_multiplayer_base.xml" end
if (formatted_name) == "Coastguard" then return "data/tiles/island_15.xml" end
if (formatted_name) == "CoastguardTT" then return "data/tiles/test_tile.xml" end
if (formatted_name) == "CoastguardB" then return "data/tiles/island12.xml" end
if (formatted_name) == "Airstrip" then return "data/tiles/island_24.xml" end
if (formatted_name) == "Military" then return "data/tiles/island_34_military.xml" end
if (formatted_name) == "Harbor" then return "data/tiles/island_25.xml" end
if (formatted_name) == "NorthHarbor" then return "data/tiles/mega_island_9_8.xml" end
if (formatted_name) == "Harrison" then return "data/tiles/mega_island_2_6.xml" end
if (formatted_name) == "ONeill" then return "data/tiles/mega_island_12_6.xml" end
if (formatted_name) == "FishingVillage" then return "data/tiles/mega_island_15_2.xml" end
if (formatted_name) == "CustomSmallBoat" then return "data/tiles/island_31_playerbase_combo.xml" end
if (formatted_name) == "CustomLargeBoat" then return "data/tiles/island_30_playerbase_boat.xml" end
if (formatted_name) == "CustomHeli" then return "data/tiles/island_32_playerbase_heli.xml" end
if (formatted_name) == "CustomSub" then return "data/tiles/island_29_playerbase_submarine.xml" end
if (formatted_name) == "CustomRig" then return "data/tiles/oil_rig_playerbase.xml" end
if (formatted_name) == "Endo" then return "data/tiles/arctic_tile_22.xml" end
if (formatted_name) == "Trinite" then return "data/tiles/arctic_tile_12_oilrig.xml" end
if (formatted_name) == "Tajin" then return "data/tiles/arctic_island_playerbase.xml" end
--Desert Tiles
if (formatted_name) == "NorthMeier" then return "data/tiles/arid_island_5_14.xml" end
if (formatted_name) == "Uran" then return "data/tiles/arid_island_8_15.xml" end
if (formatted_name) == "Serpentine" then return "data/tiles/arid_island_6_7.xml" end
if (formatted_name) == "Ender" then return "data/tiles/arid_island_7_5.xml" end
if (formatted_name) == "Brainz" then return "data/tiles/arid_island_11_14.xml" end
if (formatted_name) == "Mauve" then return "data/tiles/arid_island_12_10.xml" end
if (formatted_name) == "Monkey" then return "data/tiles/arid_island_19_12.xml" end
if (formatted_name) == "Clarke" then return "data/tiles/arid_island_19_11.xml" end
if (formatted_name) == "JSI" then return "data/tiles/arid_island_24_3.xml" end
if (formatted_name) == "FJWarner" then return "data/tiles/arid_island_26_14.xml" end
--Desert Oil Deposits
if (formatted_name) == "CarnivoreDeposit" then return "data/tiles/arid_island_23_14.xml" end
if (formatted_name) == "JSIDeposit" then return "data/tiles/arid_island_24_4.xml" end
if (formatted_name) == "TurmoildDeposit" then return "data/tiles/arid_island_3_12.xml" end
if (formatted_name) == "ShymavanDeposit" then return "data/tiles/arid_island_8_11.xml" end
return "NotFound"
endEditor is loading...