Material 71926 1 icon
なとおとき
公開したゲーム
公開した素材
ブログ記事

どうでもいいかもしれないけど

投稿者：Material 71926 1 mini なとおとき 投稿日：2011/08/26 16:58

≪シンプル　(簡単 謎解きゲーム)　更新履歴 | 武器屋で買う武器を　素材で作る系にしてみた≫
スロット - 【2DアクションRPG】で使ったシーンこれです・・・
if getEventDirection("self")==getDownDirection()
if getVariable("コイン") > 9
setVariable("コイン", getVariable("コイン") - 100)
a = rand(56)
#７関連
if a == 0
speak("７　７　７")
speak("７がそろった")
speak("コインが5000まい出てきた")
setVariable("コイン", getVariable("コイン") + 5000)
elsif a == 1
speak("７　７　○")
elsif a == 2
speak("７　７　☆")
elsif a == 3
speak("７　○　７")
elsif a == 4
speak("７　☆　７")
elsif a == 5
speak("○　７　７")
elsif a == 6
speak("☆　７　７")
elsif a == 7
speak("７　○　○")
elsif a == 8
speak("７　○　☆")
elsif a == 9
speak("７　☆　☆")
elsif a == 10
speak("７　☆　○")
elsif a == 11
speak("○　○　７")
elsif a == 12
speak("☆　○　７")
elsif a == 13
speak("☆　☆　７")
elsif a == 14
speak("○　☆　７")
elsif a == 15
speak("○　７　○")
elsif a == 16
speak("☆　７　○")
elsif a == 17
speak("☆　７　☆")
elsif a == 18
speak("○　７　☆")

#○関連
elsif a == 19
speak("○　○　○")
speak("○がそろった")
speak("コインが1000まい出てきた")
setVariable("コイン", getVariable("コイン") + 1000)
elsif a == 20
speak("○　○　☆")
elsif a == 21
speak("○　○　７")
elsif a == 22
speak("○　☆　○")
elsif a == 23
speak("○　７　○")
elsif a == 24
speak("☆　○　○")
elsif a == 25
speak("７　○　○")
elsif a == 26
speak("○　☆　☆")
elsif a == 27
speak("○　☆　７")
elsif a == 28
speak("○　７　７")
elsif a == 29
speak("○　７　☆")
elsif a == 30
speak("☆　☆　○")
elsif a == 31
speak("７　☆　○")
elsif a == 32
speak("７　７　○")
elsif a == 33
speak("☆　７　○")
elsif a == 34
speak("☆　○　☆")
elsif a == 35
speak("７　○　☆")
elsif a == 36
speak("７　○　７")
elsif a == 37
speak("☆　○　７")

#☆関連　　　　　
elsif a == 38
speak("☆　☆　☆")
speak("☆がそろった")
speak("コインが3000まい出てきた")
setVariable("コイン", getVariable("コイン") + 3000)
elsif a == 39
speak("☆　☆　７")
elsif a == 40
speak("☆　☆　○")
elsif a == 41
speak("☆　７　☆")
elsif a == 42
speak("☆　○　☆")
elsif a == 43
speak("７　☆　☆")
elsif a == 44
speak("○　☆　☆")
elsif a == 45
speak("☆　７　７")
elsif a == 46
speak("☆　７　○")
elsif a == 47
speak("☆　○　○")
elsif a == 48
speak("☆　○　７")
elsif a == 49
speak("７　７　☆")
elsif a == 50
speak("○　７　☆")
elsif a == 51
speak("○　○　☆")
elsif a == 52
speak("７　○　☆")
elsif a == 53
speak("７　☆　７")
elsif a == 54
speak("○　☆　７")
elsif a == 55
speak("○　☆　○")
elsif a == 56
speak("７　☆　○")
end

else
speak("コインが足りません")
end
end


乱数とかelsifとかよくわからないんでこうなってしまいました＾＾；

コメントする

コメントするには、ログインする必要があります。

コメント一覧

Material 7186 1 mini ikosami(投稿日：2011/10/22 19:14, 履歴) 
if getVariable("コイン") >= 100
  setVariable("コイン", getVariable("コイン") - 100) 
  a = createArray()
  a[0] = "７"; a[1] = "☆"; a[2] = "○"
  b = createArray()
  b[0] = 5000; b[1] = 1000; b[2] = 3000
  r1 = rand(2);r2 = rand(2);r3 = rand(2)

  speak(a[r1],"　",a[r2],"　",a[r3])#表示

  if r1 == r2 && r2 == r3  #揃っているかどうか
    speak(a[r1],"が揃いました！")
    speak("コインが",b[r1],"まい出てきた") 
    setVariable("コイン", getVariable("コイン") + b[r1]) 
  else  #揃ってなかったら
    speak("残念でしたwww\nまたどうぞ。")
  end
end

ちょっと訂正しました。
User icon mini 退会したユーザー(投稿日：2011/09/08 21:31, 履歴)
ikosamiさん
わーお、すんごいです
Material 71926 1 mini なとおとき(投稿日：2011/08/29 20:08, 履歴)
あれ、
ホントだ
mini きゅうり(投稿日：2011/08/29 19:54, 履歴)
なんかおかしいと思ったら、777で揃った時に5000コイン追加させるスクリプトがないです。
「7がそろった」しか表示されてないし・・・
Material 7186 1 mini ikosami(投稿日：2011/08/26 20:58, 履歴) 
a = createArray()
a[0] = "７"; a[1] = "☆"; a[2] = "○"
b = createArray()
b[0] = 7; b[1] = 1000; b[2] = 3000
r1 = rand(2);r2 = rand(2);r3 = rand(2)

speak(a[r1],"　",a[r2],"　",a[r3])#表示

if r1 == r2 && r2 == r3  #揃っているかどうか
  speak(a[r1],"が揃いました！")
  speak("コインが",b[r1],"まい出てきた") 
  setVariable("コイン", getVariable("コイン") + b[r1]) 
else  #揃ってなかったら
  speak("残念でしたwww\nまたどうぞ。")
end

ルーレットだと、こんな感じですかね？
User icon mini 退会したユーザー(投稿日：2011/08/26 18:20, 履歴)
caseの存在すら忘れてたって･･･w
User icon mini 退会したユーザー(投稿日：2011/08/26 18:19, 履歴)
ほほーなるほど、これを応用すればルーレットとかできるかも
Material 71926 1 mini なとおとき(投稿日：2011/08/26 17:31, 履歴)
caseの存在すら忘れてた。
002 1 mini ugonight(投稿日：2011/08/26 17:18, 履歴)
どうでもいいかもしれないけど… 
case a=rand(2)
 when 0
   setVariable("1文字目", "7")
 when 1
   setVariable("1文字目", "○")
 when 2
   setVariable("1文字目", "☆")
end

case a=rand(2)
 when 0
   setVariable("2文字目", "7")
 when 1
   setVariable("2文字目", "○")
 when 2
   setVariable("2文字目", "☆")
end

case a=rand(2)
 when 0
   setVariable("3文字目", "7")
 when 1
   setVariable("3文字目", "○")
 when 2
   setVariable("3文字目", "☆")
end

speak(getVariable("1文字目"),getVariable("2文字目"),getVariable("3文字目"))

と、やれば結構簡単にできるような…