【バグ?】HSP3.6ではコケるプログラム

#runtime "hsp3cl" #cmpopt varinit 1 #include […]

#runtime "hsp3cl" #cmpopt varinit 1 #include […]

  • タグ:
  • タグはありません
#runtime "hsp3cl"
#cmpopt varinit 1
#include "XorShift.as"
;https://github.com/yosgspec/XorShift128-on-8languages/blob/master/HSP/XorShift.as

new@XorShift xs

suits@Card="△","▼","□","◆"
numbers@Card="A","2","3","4","5","6","7","8","9","10","J","Q","K"
#module Card __suit,__number
	#modinit int _suit,int _number
		__suit=_suit
		__number=_number
	return

	#modcfunc crdName
		return suits(__suit)+numbers(__number)
#global

dimtype cards,5
foreach suits@Card: i=cnt
	foreach numbers@Card
		newmod cards,Card,i,cnt
	loop
loop

foreach cards
	mes crdName(cards.cnt),1
	if (cnt+1)\13=0: mes
	cardIndex.cnt=cnt
loop
mes

xsShuffle xs,cardIndex,mangleIndex

foreach mangleIndex
	mangles(cnt)=cards(mangleIndex(cnt))
loop
mes

foreach mangles
	mes crdName(mangles.cnt),1
	if (cnt+1)\13=0: mes
loop