//$01:石化 $02:凍結 $03:ピヨ $04:眠り $06:石化中
for i:=0 to 5 do begin
if Random(100) < tc.SFixPer1[i] then begin
ts.View1 := i+1;
end;
end;
k := 1;
//i: 00:毒 01:呪い 02:沈黙 03:混乱 04:暗闇
//k: $01:毒 $02:呪い $04:沈黙 $08:混乱 $10:暗闇
for i:=0 to 4 do begin
if Random(100) < tc.SFixPer2[i] then begin
ts.View2 := ts.View2 or k;
end;
k := k*2;
end;
外見だけ変えるならこんな感じでいいのかな？
状態１の優先順位ってどうなってんでしょうね。
