Type TScriptedEntity Extends TEntity
   Field ScriptEnv:TLuaScriptEngine = New TLuaScriptEngine
   Field Scripts:TMap = New TMap
   Field Sprite:TImage
   Field Frame:Int
   
   Method New()
      ScriptEnv.Reset()
      ScriptEnv.AddFunction(LuaSetPosition, "SetPosition")
   End Method
   
   Method AddScript(name:String, text:String)
      Scripts.Insert(name, TScript.Create(text))
   End Method
   
   Method AddConditionForScript(script:String, condition:String, initstate:Byte)
      TScript(Scripts.ValueForKey(script)).AddCondition(condition, initstate)
   End Method
   
   Method Update()
      Local script:TScript
      
      For script = EachIn Scripts.Values()
         script.Run(ScriptEnv)
      Next
   End Method
   
   Method Render(scrollx:Float, scrolly:Float)
      'If Sprite = Null Then Return
      
      'DrawImage Sprite, Pos.X - scrollx, Pos.Y - scrolly, Frame
      
      SetColor 200, 80, 60
      DrawRect Pos.X - scrollx, Pos.Y - scrolly, 32, 32
      SetColor 255, 255, 255
   End Method
   
   Method LuaSetPosition(luastate:Byte Ptr)
      Pos = TPoint.Create(ScriptEnv.CheckNumber(-2), ScriptEnv.CheckNumber(-1))
   End Method
End Type