qcsrc/menu/oo/base.h

   1 .string classname;
   2 entity Object_vtbl;
   3 .string vtblname;
   4 .entity vtblbase;
   5 entity spawnVtbl(entity e, entity b)
   6 {
   7         entity v;
   8         v = spawn();
   9         copyentity(e, v);
  10         v.vtblname = v.classname;
  11         v.classname = "vtbl";
  12         if(b)
  13                 v.vtblbase = b;
  14         else
  15                 v.vtblbase = v;
  16         return v;
  17 }
  18 entity spawnObject()
  19 {
  20         entity e;
  21         e = spawn();
  22         e.classname = "Object";
  23         if(!Object_vtbl)
  24                 Object_vtbl = spawnVtbl(e, null_entity);
  25         return e;
  26 }