active = "" ' ' check all worlds ' for each id in world.GetWorldIdList set thisworld = GetWorldById (id) if not (thisworld is nothing) then if thisworld.GetInfo (202) > 0 then if active <> "" then active = active & ", " active = active & thisworld.GetInfo (2) end if set thisworld = nothing end if next ' ' display results ' InfoClear if active <> "" then InfoFont "", 0, 1 ' bold font Info "Activity: " InfoFont "", 0, 0 ' normal font Info active end if