try this..
change
monster .Map$,0,0,"Red Poring",1002,.@RPoring,"Poporing::OnRed";
monster .Map$,0,0,"Green Poring",1031,.@GPoring,"Poporing::OnGreen";
monster .Map$,0,0,"Blue Poring",1857,.@BPoring,"Poporing::OnBlue";
into this
monster .Map$,0,0,"Red Poring",1002,.@RPoring,strnpcinfo(0)+"::OnRed";
monster .Map$,0,0,"Green Poring",1031,.@GPoring,strnpcinfo(0)+"::OnGreen";
monster .Map$,0,0,"Blue Poring",1857,.@BPoring,strnpcinfo(0)+"::OnBlue";
and learn to use Codebox for long content ^^