library CodeLib
 globals
  boolexpr  array CodeArray         
  force     CodeForce  = CreateForce()  
  key       CodeHandle
  boolean   CodeBool   = false         
  integer   CodeCount  = 0 
  //CustomAttribute 
  unit      CodeUnitSource   
  unit      CodeUnitTarget  
 endglobals

 define CodeFunc (c)     = ForceEnumPlayers(CodeForce, c)
 define LoadCode (h,s)   = LoadInteger(h,CodeHandle ,StringHash(s))
 define RunCode  (h,s)   = {CodeBool = true; CodeFunc (CodeArray[LoadCode (h,s)]) }
 define SaveCode (h,s,c) = {
  CodeCount ++
  SaveInteger (h,CodeHandle ,StringHash(s), CodeCount )
  CodeArray[CodeCount] = Condition(c)
 } 
 //CustomAttributeSet
 define CodeSendUnitAttr (s,t)   = {CodeUnitSource = s; CodeUnitTarget = t }

 endlibrary