package Ġorg . k lips . dsl Ċ Ċ import Ġorg . junit . Test Ċ import Ġorg . k lips . engine .* Ċ import Ġorg . k lips . engine . util . Log ĊĊ Ċ class ĠO OM Test Ġ{ ĊĊĠĠĠ Ġclass ĠTest Rules Ġ: ĠRule Set ( Log ( working Memory Ġ= Ġtrue , Ġag enda Ġ= Ġtrue )) Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġcid Ġ= Ġref < CellId >(" cid ") ĊĠĠĠĠĠĠĠ Ġval Ġcid 1 Ġ= Ġref < CellId >(" cid 1 ") ĊĠĠĠĠĠĠĠ Ġval Ġcid 2 Ġ= Ġref < CellId >(" cid 2 ") ĊĠĠĠĠĠĠĠ Ġval Ġaid Ġ= Ġref < Actor Id >(" aid ") ĊĠĠĠĠĠĠĠ Ġval Ġaid 1 Ġ= Ġref < Actor Id >(" aid 1 ") ĊĠĠĠĠĠĠĠ Ġval Ġkind Ġ= Ġref < Actor Kind >(" kind ") ĊĠĠĠĠĠĠĠ Ġval Ġkind 1 Ġ= Ġref < Actor Kind >(" land 1 ") ĊĠĠĠĠĠĠĠ Ġval Ġpid Ġ= Ġref < Player Id >(" pid ") ĊĠĠĠĠĠĠĠ Ġval Ġpid 1 Ġ= Ġref < Player Id >(" pid 1 ") ĊĠĠĠĠĠĠĠ Ġval Ġn rg y Ġ= Ġref < Level >(" n rg y ") ĊĠĠĠĠĠĠĠ Ġval Ġn rg y 1 Ġ= Ġref < Level >(" n rg y 1 ") ĊĠĠĠĠĠĠĠ Ġval Ġhl th Ġ= Ġref < Level >(" hl th ") ĊĠĠĠĠĠĠĠ Ġval Ġhl th 1 Ġ= Ġref < Level >(" hl th 1 ") ĊĠĠĠĠĠĠĠ Ġval Ġstate Ġ= Ġref < State >(" state ") ĊĠĠĠĠĠĠĠ Ġval Ġstate 1 Ġ= Ġref < State >(" state 1 ") ĊĠĠĠĠĠĠĠ Ġinit Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġrule ( name Ġ= Ġ" R 1 ") Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ- At ( aid , Ġcid ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ+ Actor ( aid , pid , kind , n rg y , hl th , state ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ+ Actor ( aid 1 , pid , kind 1 , n rg y 1 , hl th 1 , state 1 ) ĊĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġeffect Ġ{ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġbasic Test () Ġ{ ĊĠĠĠĠĠĠĠ ĠTest Rules (). input . flush Ġ(" R 1 ") Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ+ At ( 1 0 0 , Ġ 1 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ+ Actor ( 1 0 0 , Ġ 1 0 0 0 , ĠActor Kind . A im , Ġ 1 0 0 f , Ġ 1 0 0 f , ĠState . On March ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ Ċ }