--- orig/rpggame/rpgobjset.h
+++ mod/rpggame/rpgobjset.h
@@ -54,6 +54,8 @@
         CCOMMAND(r_del_friend,  "ii",  (rpgobjset *self, unsigned int *owngroup, unsigned int *friendgroup), { self->delfriend(*owngroup, *friendgroup); });
         CCOMMAND(r_check_enemy, "ii",  (rpgobjset *self, unsigned int *owngroup, unsigned int *enemygroup),  { intret(self->checkenemy(*owngroup, *enemygroup)?1:0); });
         CCOMMAND(r_check_friend,"ii",  (rpgobjset *self, unsigned int *owngroup, unsigned int *friendgroup), { intret(self->checkfriend(*owngroup, *friendgroup)?1:0); });
+        CCOMMAND(r_state,       "i",   (rpgobjset *self, int *d), { if (self->stack[0]->ent) self->stack[0]->ent->state = *d; });
+        CCOMMAND(r_get_state,   "",    (rpgobjset *self), { if (self->stack[0]->ent) intret(self->stack[0]->ent->state); });
         clearworld();
     }