MODU ざざん

#module bleach ar_bleach_list
#modinit
	dim ar_bleach_list,260
	repeat 260
		ar_bleach_list.cnt=-1
	loop
	return
#modfunc set_bleach_youso int p
	ar_bleach_list.p=1
	return
#modfunc do_bleach val p_v_s
	repeat 258
	if ar_bleach_list.cnt==-1{
		p_v_s=strtrim(p_v_s,3,cnt)
	}
	loop
	return
#global
	newmod _4bleach,bleach
	s="012345689"
	set_bleach_youso _4bleach,'1'
	set_bleach_youso _4bleach,'2'
	set_bleach_youso _4bleach,'3'
	set_bleach_youso _4bleach,'4'
	do_bleach _4bleach,s
	mes s
	newmod _4bleach_B,bleach
	ss="abcdefghijklmnopqrstuvwxyzABCDE!#$%&()=~|+*_?><"
	set_bleach_youso _4bleach_B,'b'
	set_bleach_youso _4bleach_B,'j'
	set_bleach_youso _4bleach_B,'C'
	set_bleach_youso _4bleach_B,'D'
	set_bleach_youso _4bleach_B,'!'
	set_bleach_youso _4bleach_B,'$'
	do_bleach _4bleach_B,ss
	mes ss