ずざざんざん♪

//	継承MAN.hsp

/*title this*/_4title=__FILE__:split _4title,".",_4title:title _4title.0

screen 0,800,480

#define obj_x 250

mes "命令/関数の名前"
_4name=""
input _4name,obj_x,20,64
ID4name=stat

mes "命令/関数の接尾辞"
_4suffix=""
input _4suffix,obj_x,20,64
ID4suffix=stat

mes "引数の名前"
_4_p_name=""
input _4_p_name,obj_x,20
ID4_p_name=stat

mes "引数の数"
_4num=0
input _4num,obj_x,20
ID4num=stat

mes "モジュールの名前"
_4_m_name=""
input _4_m_name,obj_x,20,64
ID4_m_name=stat

mes "オブジェクトの名前"
_4_o_name=""
input _4_o_name,obj_x,20,64
ID4_o_name=stat

mes "オブジェクトの接尾辞"
_4_o_suffix=""
input _4_o_suffix,obj_x,20,64
ID4_o_suffix=stat

button "実行",*_DO

pos 250,0
mes "出力"
sdim _4output,32000
font "",18
objmode 2
mesbox _4output,550,480
ID4output=stat
stop
*_DO
	sdim tmp_op,4000
	sdim tmp_p,2000
	if _4num>0{
		tmp_p=" var "+_4_p_name+"_1"
		repeat (_4num-1),2
			tmp_p+=",var "+_4_p_name+"_"+cnt
			loop
	}
	sdim tmp_in_p,2000
	if _4num>0{
		repeat (_4num),1
			tmp_in_p+=", "+_4_p_name+"_"+cnt
			loop
	}
	tmp_op ="#modfunc local "+_4name+""+_4suffix+tmp_p+"\n"
	tmp_op+="\t"+_4name+"@"+_4_m_name+" "+_4_o_name+_4_o_suffix+tmp_in_p+"\n\treturn\n"
	_4output+=tmp_op
	objprm ID4output,_4output
	stop
	
/*
#modfunc local set_value int p
	set_value@VAR_EX_int_super super,p
	return
*/