modfunc.hsp

sample\module\modfunc.hsp » Plain Format

	;
	;	モジュール変数のテスト(2)
	;
#cmpopt ppout 1


#module ball x,y

#modinit int a
	x=rnd(a):y=rnd(a)
	return
#modterm
	mes "BYEBYE!("+x+","+y+")"
	return

#modfunc putprm
	mes "X="+x+"/Y="+y
	return

#modfunc putprm2
	putprm thismod
	mes "X="+x+"/Y="+y
	return

#modcfunc getprmx
	return x

#modcfunc getprmy
	return y

#global
	mes "INIT"

	repeat 10
	newmod a,ball,10
	loop

	foreach a:mes "#"+cnt
	putprm a.cnt
	loop

	;mes "OK"
	;putprm thismod
	putprm2 a.0

	mes "X="+getprmx(a)
	mes "Y="+getprmy(a)

	delmod a.0

	stop