【バグ?】HSP3.6ではコケるプログラム | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#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="Ａ","２","３","４","５","６","７","８","９","10","Ｊ","Ｑ","Ｋ"
#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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX