Adjust Lua diagnostics
This commit is contained in:
@@ -39,6 +39,8 @@
|
||||
--
|
||||
--/////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
---@diagnostic disable
|
||||
|
||||
require("PGDebug")
|
||||
|
||||
YieldCount = 0;
|
||||
@@ -52,7 +54,6 @@ function ScriptExit()
|
||||
end
|
||||
|
||||
function Sleep(time)
|
||||
|
||||
--DebugMessage("Sleeping... SleepTime: %.3f, CurTime: %.3f\n", time, GetCurrentTime())
|
||||
ThreadValue.Set("StartTime", GetCurrentTime())
|
||||
while GetCurrentTime() - ThreadValue("StartTime") < time do
|
||||
@@ -64,7 +65,6 @@ end
|
||||
-- Service the block until optional max duration has expired or alternate break function returns true
|
||||
-- Pass -1 max_duration to use optional alternate break function with no time limit
|
||||
function BlockOnCommand(block, max_duration, alternate_break_func)
|
||||
|
||||
PumpEvents()
|
||||
|
||||
if not block then
|
||||
@@ -93,7 +93,6 @@ function BlockOnCommand(block, max_duration, alternate_break_func)
|
||||
--MessageBox("%s-- had a break func and it returned true", tostring(Script))
|
||||
return nil
|
||||
end
|
||||
|
||||
until (block.IsFinished() == true)
|
||||
|
||||
PumpEvents()
|
||||
@@ -116,7 +115,6 @@ function TestCommand(block)
|
||||
end
|
||||
|
||||
function PumpEvents()
|
||||
|
||||
if Object and type(Object) == "userdata" then
|
||||
Object.Service_Wrapper()
|
||||
end
|
||||
@@ -188,16 +186,15 @@ function Simple_Mod(a,b)
|
||||
return a - b * Dirty_Floor(a / b)
|
||||
end
|
||||
|
||||
|
||||
-- Returns if something happened, given a % chance
|
||||
function Chance(seed, percent)
|
||||
roll = Simple_Mod((seed + 1), 100)
|
||||
is_allowed = roll < percent
|
||||
DebugMessage("%s -- seed:%d percent:%d roll:%d is_allowed:%s", tostring(Script), seed, percent, roll, tostring(is_allowed))
|
||||
DebugMessage("%s -- seed:%d percent:%d roll:%d is_allowed:%s", tostring(Script), seed, percent, roll,
|
||||
tostring(is_allowed))
|
||||
return is_allowed
|
||||
end
|
||||
|
||||
|
||||
function GetCurrentMinute()
|
||||
--return math.floor(GetCurrentTime()/60)
|
||||
return Dirty_Floor(GetCurrentTime() / 60)
|
||||
@@ -219,7 +216,6 @@ function GetChanceAllowed(difficulty)
|
||||
return chance
|
||||
end
|
||||
|
||||
|
||||
function PlayerSpecificName(player_object, var_name)
|
||||
-- ret_value = tostring(player_object.Get_ID()) .. "_" .. var_name
|
||||
-- DebugMessage("%s -- creating player specific string %s.", tostring(Script), ret_value)
|
||||
@@ -228,7 +224,6 @@ function PlayerSpecificName(player_object, var_name)
|
||||
end
|
||||
|
||||
function Flush_G()
|
||||
|
||||
entries_for_deletion = {}
|
||||
|
||||
--Define the set of tables that we had better keep around
|
||||
@@ -248,7 +243,6 @@ function Flush_G()
|
||||
|
||||
--Iterate all globals
|
||||
for i, g_entry in pairs(_G) do
|
||||
|
||||
if type(g_entry) == "table" then
|
||||
--Tables are inherently unsafe: who knows what might be in there?
|
||||
--If they're not in the list of things we must keep then they go.
|
||||
@@ -263,7 +257,6 @@ function Flush_G()
|
||||
end
|
||||
|
||||
keep_table = nil
|
||||
|
||||
elseif type(g_entry) == "userdata" then
|
||||
--Some User Data (e.g. our code functions) should be kept, but some is very, very dangerous.
|
||||
--Query the object to see whether it's safe to persist.
|
||||
@@ -271,9 +264,7 @@ function Flush_G()
|
||||
if not g_entry.Is_Pool_Safe() then
|
||||
table.insert(entries_for_deletion, i)
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
for i, bad_entry in pairs(entries_for_deletion) do
|
||||
@@ -282,6 +273,4 @@ function Flush_G()
|
||||
|
||||
entries_for_deletion = nil
|
||||
very_important_tables = nil
|
||||
|
||||
end
|
||||
|
||||
|
||||
@@ -39,6 +39,7 @@
|
||||
--
|
||||
--/////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
---@diagnostic disable
|
||||
|
||||
function DebugEventAlert(event, params)
|
||||
message = tostring(Script) .. ": handled event " .. tostring(event)
|
||||
|
||||
@@ -63,6 +63,7 @@ function Base_Definitions()
|
||||
end
|
||||
|
||||
---Main script function. Does event pumps and servicing.
|
||||
---@diagnostic disable-next-line
|
||||
function main()
|
||||
DebugMessage("%s -- In main.", tostring(Script))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user