get $target in $loc;

if $target > 0 then rideit else fail;

##rideit:
rem update $init_obj ="host=$target, hosthow='on', pose='riding'";
set $init_obj's host = $target;
set $init_obj's hosthow = 'on';
set $init_obj's pose = 'riding';

relook $loc;
print "[$init_obj] starts to ride [$target]";