[FUNCTION f_onchar_delete]
IF (<SRC.ACCOUNT.CHARS> > 1)
	IF (<SRC.FINDLAYER.layer_bankbox.UID>)
      		FOR <SRC.ACCOUNT.CHARS>
              		IF !(<SRC.ACCOUNT.CHAR.<EVAL (<LOCAL._FOR>-1)>.UID>==<SRC.UID>)
                      	 	 LOCAL.UID1=<SRC.FINDLAYER.layer_bankbox.UID>
			 	 IF !(<SRC.ACCOUNT.CHAR.<EVAL (<LOCAL._FOR>-1)>.FINDLAYER.layer_bankbox.UID>)
			  		 SERV.NEWITEM i_bankbox
					 TRY UID.<SRC.ACCOUNT.CHAR.<EVAL (<LOCAL._FOR>-1)>.UID>.EQUIP <NEW.UID>
				 ENDIF
                     		 LOCAL.UID2=<SRC.ACCOUNT.CHAR.<EVAL (<LOCAL._FOR>-1)>.FINDLAYER.layer_bankbox.UID>
                       		 FORCONT <LOCAL.UID1> 0
                               		 LOCAL.CONTP=<CONTP>
                               		 CONT=<LOCAL.UID2>
                               		 CONTP=<LOCAL.CONTP>
                      		  ENDFOR
               		 ENDIF
       		 ENDFOR
	ENDIF
ENDIF
RETURN 0