[Typedef t_spellbook]

On=@Click

LOCAL.SPS 1

	for 1 32

	LOCAL.SYF=<dlocal.sps>

		if (<local.syf>&<more1>)

		LOCAL.SAYFA +=1

		endif

	LOCAL.SPS=<eval <dlocal.sps>*2>

	endfor



LOCAL.SPS 1

	for 33 64

	LOCAL.SYF=<dlocal.sps>

		if (<LOCAL.SYF>&<more2>)

		LOCAL.SAYFA +=1

		endif

	LOCAL.SPS=<eval <dlocal.sps>*2>

	endfor



message [<DLOCAL.SAYFA>]