Bad Class System

function clone(a,tab)

if (a ~= tab) then

for i,v in pairs(tab) do if type(v) == 'table' then

a[i] = {} clone(a[i],v) setmetatable(a[i],getmetatable(v))

else a[i] = v

end

end

end

end

local Skeletons = {}

local __Classes = {}

local Classes = {}

local ClassFns = {}

setmetatable(Classes,{__index = ClassFns})

ClassFns.CreateClass = function(Name,build,__init)

__Classes[Name] = {}

Classes[Name] = {}

Skeletons[Name] = {SKELETON = build,INIT = __init,Name = Name}

Skeletons[__Classes[Name]] = Skeletons[Name]

Skeletons[Classes[Name]] = Skeletons[Name]

setmetatable(Classes[Name],{__index = function(_,b)

if __Classes[Name][b] then return __Classes[Name][b] end

return ClassFns[b]

end

,__newindex = function(a,b,c) __Classes[Name][b] = c end})

return Classes[Name]

end

function ClassFns:NewInstance(ID,...)

local new = {Destroy = function() __Classes[Skeletons[self].Name][ID] = nil end}

clone(new,Skeletons[self].SKELETON)

Skeletons[self].INIT(new,...)

setmetatable(new,{__index = self})

self[ID] = new

return self[ID]

end

function ClassFns:Extend(From) -- trash working

clone(Skeletons[self].SKELETON,Skeletons[From].SKELETON)

end

function ClassFns:Delete() -- trash working (i have no idea if ts s deleting anything)

local n = Skeletons[self].Name

Skeletons[__Classes[n]] = nil

Classes[n] = nil

__Classes[n] = nil

Skeletons[n] = nil

Skeletons[self] = nil

end

local Thing = Classes.CreateClass("THING!",{AddValue = function(self,Key,Value) self[Key] = Value end},function() end)

local Class = Classes.CreateClass("Objects",{Name = "Object",Description = "The Object"},function(self,N,D) self.Name = D self.Description = D end)

Class:Extend(Thing)

function Class:DoSmth(X)

self[X] = true

end

local Obj = Class:NewInstance("OBJECT1","Object X","Object X - Object")

Obj:AddValue("String","STR")

Classes.Objects:NewInstance("OBJ","A","B")

Obj:DoSmth("asd")