Rmakeの全てがわかるWiki

トランプを使います
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("a",createArray()) #札…0～12山札、13～25出札
setVariable("b",createArray()) #残っている手札


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"
 i=0
 while i<getVariable("turn")
   w=w+moji( getVariable("a")[i] )
   if getVariable("a")[i] < getVariable("a")[i+13]
     w=w+" < "+moji( getVariable("a")[i+13] )+"\n"
     setVariable("win",getVariable("win")+1)
   elsif getVariable("a")[i] == getVariable("a")[i+13]
     w=w+" = "+moji( getVariable("a")[i+13] )+"\n"
   else
     w=w+" > "+moji( getVariable("a")[i+13] )+"\n"
     setVariable("loose",getVariable("loose")+1)
   end
 i=i+1
 end

 return w
end #word()終

#chapter1 変数に初期値を入れる処理

setVariable("turn",0) #ターン

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

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

#chapter2

#手札の残り枚数（配列の長さ）を確認して max に入れる
max=getArrayLength( getVariable("s") )

ss=createArray() #選択肢となる配列を用意
i=0 #手札のカード番号配列 s を、文字に変換して ss に入れる
while i<max
  pushArray( ss, moji( getVariable("s")[i] ) )
i=i+1
end

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

#選んだ札の番号を、出札として登録
getVariable("a")[getVariable("turn")+13]=getVariable("s")[k]

#ここから使用した手札を配列 s から抜き取る処理
#選んだものを境にして p=（０～ひとつ前） と q=（ひとつ後～最後） に分ける
#配列には0番目があるのでスライスで切り取る個数に注意
p=sliceArray(getVariable("s"),0,k)
q=sliceArray(getVariable("s"),k+1,max-k+1)

#ここで一度、配列 s を空っぽにするために、再定義（新しい配列で上書きしている）
setVariable("s",createArray())

i=0 #臨時配列 p を配列 s にコピーする
while i<getArrayLength( p )
  getVariable("s")[i]=p[i]
i=i+1
end

i=0 #臨時配列 q を s に追加する
while i<getArrayLength( q )
  pushArray(getVariable("s"), q[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()+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