あみだくじの解説

前回、あみだくじの動画とダウンロードを紹介しました。

前回のブログはコチラ→あみだくじ

前回まとめきれなかった解説をしていこうと思います。

まず４本のウチから一本選びます。（灰色の部分をクリック）

クリックしたら道と当たりが自動で作られてそれに沿って亀が動き出します。

たまたま当たりました。

ブログ用に当たりに行くようには、してないです。

プログラムも解説していきます。

GraphicsWindow.Show() GraphicsWindow.DrawText(230,15,"4本の内どれか選んで下さい。") GraphicsWindow.DrawLine(40,70,40,360) GraphicsWindow.DrawLine(215,70,215,360) GraphicsWindow.DrawLine(390,70,390,360) GraphicsWindow.DrawLine(565,70,565,360) GraphicsWindow.BrushColor="gray" GraphicsWindow.FillRectangle(30,50,20,20) GraphicsWindow.FillRectangle(205,50,20,20) GraphicsWindow.FillRectangle(380,50,20,20) GraphicsWindow.FillRectangle(555,50,20,20)

ここまでのプログラムで１枚目の画像ができます。

１行目がグラフィックウィンドウの表示

２行目が文章の記入

３から６行目でラインを引いてます。

７行目で□の色を指定してます。

８から１１行目で□を書いてます。

GraphicsWindow.MouseDown = OnMouseDown

roop: A=0

Sub OnMouseDown x = GraphicsWindow.MouseX y = GraphicsWindow.MouseY EndSub

If y>50 And y<70 then Goto bunki EndIf Goto roop

bunki:

Turtle.Speed=6

If x>30 And x<50 then A=1 Turtle.Show() Turtle.X=40 Turtle.Y=60 Turtle.Angle=180 EndIf

If x>205 and x<225 Then A=2 Turtle.Show() Turtle.X=215 Turtle.Y=60 Turtle.Angle=180 EndIf

If x>380 and x<400 Then A=3 Turtle.Show() Turtle.X=390 Turtle.Y=60 Turtle.Angle=180 EndIf

If x>555 and x<575 Then A=4 Turtle.Show() Turtle.X=565 Turtle.Y=60 Turtle.Angle=180 EndIf

If A=0 Then Goto roop EndIf

ここまでが４つの□からマウスでクリックして亀を出現させるプログラムです。

b=40 c=Math.GetRandomNumber(3) c=c-1 c=c*175 b=b+c GraphicsWindow.DrawLine(b,120,b+175,120)

If b=40 Then one[1]=1 two[1]=2 EndIf

If b=215 Then two[1]=1 three[1]=2 EndIf

If b=390 Then three[1]=1 four[1]=2 EndIf

b=40 c=Math.GetRandomNumber(3) c=c-1 c=c*175 b=b+c GraphicsWindow.DrawLine(b,180,b+175,180)

If b=40 Then one[2]=1 two[2]=2 EndIf

If b=215 Then two[2]=1 three[2]=2 EndIf

If b=390 Then three[2]=1 four[2]=2 EndIf

b=40 c=Math.GetRandomNumber(3) c=c-1 c=c*175 b=b+c GraphicsWindow.DrawLine(b,240,b+175,240)

If b=40 Then one[3]=1 two[3]=2 EndIf

If b=215 Then two[3]=1 three[3]=2 EndIf

If b=390 Then three[3]=1 four[3]=2 EndIf

b=40 c=Math.GetRandomNumber(3) c=c-1 c=c*175 b=b+c GraphicsWindow.DrawLine(b,300,b+175,300)

If b=40 Then one[4]=1 two[4]=2 EndIf

If b=215 Then two[4]=1 three[4]=2 EndIf

If b=390 Then three[4]=1 four[4]=2 EndIf

GraphicsWindow.BrushColor="red" ran=Math.GetRandomNumber(4) ran=ran-1 ran=ran*175 GraphicsWindow.DrawText(25+ran,390,"当たり")

ここまでのプログラムで分岐の横ラインを書いたり、ゴールの当たりの文字を書いたりしてます。

分岐の横ラインとゴールはランダムで変わる様にプログラミングしてます。

分岐時に亀が横ラインの方向に動く様にあらかじめ判定の数字を割り振ってます。（青色で書いてる所です。）

Turtle.Move(60)

AA=0

If A=1 And one[1]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 AA=2 EndIf

If A=2 And two[1]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 AA=3 EndIf

If A=2 And two[1]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 AA=1 EndIf

If A=3 And three[1]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 AA=4 EndIf

If A=3 And three[1]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 AA=2 EndIf

If A=4 And four[1]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 AA=3 EndIf

If AA=0 Then AA=A EndIf Turtle.Move(60) AAA=0

If　AA=1 And one[2]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 AAA=2 EndIf

If AA=2 And two[2]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 AAA=3 EndIf

If AA=2 And two[2]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 AAA=1 EndIf

If AA=3 And three[2]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 AAA=4 EndIf

If AA=3 And three[2]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 AAA=2 EndIf

If AA=4 And four[2]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 AAA=3 EndIf If AAA=0 Then AAA=AA EndIf

Turtle.Move(60)

AAAA=0

If AAA=1 And one[3]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 AAAA=2 EndIf

If AAA=2 And two[3]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 AAAA=3 EndIf

If AAA=2 And two[3]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 AAAA=1 EndIf

If AAA=3 And three[3]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 AAAA=4 EndIf

If AAA=3 And three[3]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 AAAA=2 EndIf

If AAA=4 And four[3]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 AAAA=3 EndIf

If AAAA=0 Then AAAA=AAA EndIf

Turtle.Move(60)

If AAAA=1 And one[4]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 EndIf

If AAAA=2 And two[4]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 EndIf

If AAAA=2 And two[4]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 EndIf

If AAAA=3 And three[4]=1 Then Turtle.Angle=90 Turtle.Move(175) Turtle.Angle=180 EndIf

If AAAA=3 And three[4]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 EndIf

If AAAA=4 And four[4]=2 Then Turtle.Angle=270 Turtle.Move(175) Turtle.Angle=180 EndIf

Turtle.Move(60)

亀がラインに沿って動くプログラムです。

青字のTurtle.Move(60)～Turtle.Move(60)の間が各分岐のプログラムです。

全部で四ヶ所の分岐する道があります。

以上でプログラムの全文です。

一個ずつ説明していくとだいぶ長くなりそうなのでこの辺でやめておきます。

書いてて解説になってない気がするのですが、

分かりにくくてすみませんm(_ _)m

もっと色々改善点がありそうなのでちょっとずつ編集して良さそうなのが出来たら又ブログに掲載します。