var $pl to $init_obj;

if $limit eq $force then full else fill;

##full:
say 'msg',"[$init_obj]'s energy is full.";

##fill:
var $pl to $init_obj;
var $max to $pl's slot2;
var $en to $pl's slot3;
set $init_obj's slot3 to $max;
say 'msg',"[$init_obj]'s energy is renewed.";
say 'msg',"Current energy: $en";