トランプを使います
1～13をランダムで並べかえて伏せておく…山
手札にも1～13を一枚ずつ持っている
手札から一枚を選んで出し、山からも一枚めくってきて、二つを比べる
数の大きい方に +1 点
13枚終了時の点数を表示

#chapter0
#◆◆◆ゲームの色々な設定やユーザー定義関数を作っておくチャプター◆◆◆

setHelpVisible(false) #メニュー項目の非表示
setMenuItemVisible(getMenuHideWindow(), false)
setMenuItemVisible(getMenuSave(), false)
setMenuItemVisible(getMenuLoad(), false)

setSpeakWindowRect(50,50,700,500) #メッセージウインドウの位置＆大きさ
setSelectWindowRect(600,80,100,420) #選択肢ウインドウの位置＆大きさ

setTextViewMode(false) #文字列が一瞬で全部表示される

setVariable("山札", createArray() ) #山札0～12
setVariable("手札", createArray() ) #手札13枚から毎ターン減っていく


def moji(n) #数字から文字に変換する処理
 case n
 when 0 return "Ａ"
 when 1 return "２"
 when 2 return "３"
 when 3 return "４"
 when 4 return "５"
 when 5 return "６"
 when 6 return "７"
 when 7 return "８"
 when 8 return "９"
 when 9 return "10"
 when 10 return "Ｊ"
 when 11 return "Ｑ"
 when 12 return "Ｋ"
 end
end #moji()終


def word() #表示する文章をつくる処理
 setVariable("win", 0); setVariable("loose", 0) #点
 w="COMvsPLAYER\n\n"
 i=0
 while i<getVariable("turn")
   w=w+moji( getVariable("山札")[i] )
   if getVariable("山札")[i] < getVariable("出札")[i]
     w=w+" < "+moji( getVariable("出札")[i] )+"　○\n"
     setVariable("win",getVariable("win")+1)
   elsif getVariable("山札")[i] == getVariable("出札")[i]
     w=w+" = "+moji( getVariable("出札")[i] )+"\n"
   else
     w=w+" > "+moji( getVariable("出札")[i] )+"　☓\n"
     setVariable("loose",getVariable("loose")+1)
   end
 i=i+1
 end

 return w
end #word()終

#chapter1
#◆◆◆変数に初期値を入れるチャプター◆◆◆

setVariable("turn", 0) #ターン
setVariable("出札", createArray() ) #出札を初期化しておく（中身が入ってない状態になる）

i=0 #まずは数を0から順に並べる
while i<13
  getVariable("山札")[i]=i
  getVariable("手札")[i]=i
i=i+1
end

i=0 #13枚をシャッフルする
while i<13
  r=rand(13) #山札の i 番目とランダム r 番目を入れ替える
  x=getVariable("山札")[i]
  getVariable("山札")[i]=getVariable("山札")[r]
  getVariable("山札")[r]=x
i=i+1
end

#chapter2
#◆◆◆ゲームのメイン部分となるチャプター◆◆◆

#手札の枚数分だけ処理をする為に、数をmaxに入れておく
max=getArrayLength( getVariable("手札") )

i=0 #手札を moji() で文字に変換した 配列s を選択肢配列とする
s=createArray()
while i<max
  pushArray( s, moji( getVariable("手札")[i] ) )
i=i+1
end

#画面に前回までの結果と、選択肢を表示。何番目を選んだのかを k に入れる
k=speakWithSelectArray( s, word() )

#選んだ札の番号 k を、出札に加える
pushArray( getVariable("出札"), getVariable("手札")[k] )


#ここから使用した 手札[k] を抜き取る処理
ss=createArray() #臨時配列を用意
i=0
while i<max
  if i!=k #今回選んだ k 番目以外を 臨時配列ss に加えていく
    pushArray( ss, getVariable("手札")[i] )
  end
i=i+1
end

#臨時配列ss を手札に写す
setVariable("手札", createArray() ) #とりあえず初期化
i=0
while i<max-1 #一枚抜いたから1だけ少ない
  pushArray( getVariable("手札"), ss[i] )
i=i+1
end

#以上で選択肢配列 s から、使用したものが抜き取られたのでターン終了。次へ
setVariable("turn", getVariable("turn")+1 )


if 12<getVariable("turn") #もし13枚の手札を全て使ったら勝敗判定へ
  changeChapter("chapter3")
else #まだ手札が残っているなら、繰り返す
  changeChapter("chapter2")
end

#chapter3
#◆◆◆勝敗を数えて結果を表示するチャプター◆◆◆

w=word()+"\n"+getVariable("loose")+" vs "+getVariable("win")

#同点以上ならクリアできるようにしています
if getVariable("loose") <= getVariable("win")
  case speakWithSelect(2,"Again","Clear", w+" Win" )
  when 0 changeChapter("chapter1")
  when 1 goEnding()
  end
else
  case speakWithSelect(2,"Again","End", w+" Loose" )
  when 0 changeChapter("chapter1")
  when 1 goBadEnding()
  end
end