class BaseBehavior
  unitPos: UnitPos [shared]
  fn DoTurn [virtual]
class PathBuilder
  unitPos: UnitPos [shared]
  fn Moving:boolean [virtual]
    ...
  fn BuildPath(x:int, y:int) [virtual]
    ...
  // ... and some more helper functions ...

class SimpleBehavior
  base: BaseBehavior [shared]
  path: PathBuilder [shared]
  fne DoTurn // override of BaseBehavior.DoTurn
    if path.Moving = false
      path.BuildRandomPath
class AgressiveBehavior
  open SimpleBehavior [shared]
  fne DoTurn // override of SimpleBehavior.DoTurn
    d: float = path.GetDistance(player.x, player.y) // get distance from this unit to player
    if d < 30
      path.BuildPath(player.x, player.y) // run to player
    else
      nextFn // inherited call to next DoTurn
class ScaredBehavior
  open SimpleBehavior [shared]
  fne DoTurn // override of SimpleBehavior.DoTurn
    d: float = path.GetDistance(player.x, player.y) // get distance from this unit to player
    if d < 50
      path.BuildPathAwayFrom(player.x, player.y) // run away from player
    else
      nextFn // inherited call to next DoTurn

class UncertainBehavior
  open AgressiveBehavior [shared]
  open ScaredBehavior [shared]

class PathBuilder_air // поиск пути по воздуху
  path: PathBuilder [shared]
  fne BuildPath(x:int, y:int)
    ...
class PathBuilder_water // поиск пути в воде
  path: PathBuilder [shared]
  fne BuildPath(x:int, y:int)
    ...

class Shark
  open PathBuilder_water [shared]
  open AgressiveBehavior [shared]

class Fish
  open PathBuilder_water [shared]
  open ScaredBehavior [shared]
class Eagle
  open PathBuilder_air [shared]
  open UncertainBehavior [shared]
class Pigeon
  open PathBuilder_air [shared]
  open ScaredBehavior [shared]
class Wolf
  open AgressiveBehavior [shared]

class NonVirtualClass
  val: OtherClass
  fn SomeFn
    Trace('Hello world')

fn SomeFn [virtual]
  Trace('Hello virtual world')

fne SomeFn
  Trace('Hello overrided world')

class BaseClass
  fn SomeFn [virtual]
    Trace('Hello virtual world')
class NewClass
  base: BaseClass [shared]
  fne SomeFn
    Trace('Hello overrided world')
    nextFn

class BaseClass
{
public:
  virtual void SomeFn()
  {
    Trace('Hello virtual world');
  }
};
class NewClass : public virtual BaseClass
{
  virtual void SomeFn() override
  {
    Trace('Hello overrided world');
    BaseClass::SomeFn();
  }
};

class Base
  val: int
class ClsA
  base: Base [shared]
class ClsB
  base: Base [shared]
class ClsC
  a: ClsA [shared]
  b: ClsB [shared]

class ClsA
  open Base [shared]
  fne Constructor
    val = 10

class Base
  fn SomeVirtFn [virtual]
    Trace('Base')
class ClsA
  open Base [shared]
  fne SomeVirtFn
    Trace('ClsA')
class ClsB
  open Base [shared]
  fne SomeVirtFn
    Trace('ClsB')
class ClsC
  open ClsA [shared]
  open ClsB [shared]
  fne SomeVirtFn
    Trace('ClsC')
....
  fn Main
    c: ClsC
    c.SomeVirtFn

ClsC
  ClsA
  ClsB
  Base