## 3D迷路 ## MapDate: #迷路データ If Args(3) = 1 Then Array Line "111111111;111111111;110100011;110101011;110101011;110001311;111111111;111111111" ";" ElseIf Args(3) = 2 Then Array Line "111111111;111111111;110001011;111101011;110100011;110001311;111111111;111111111" ";" ElseIf Args(3) = 3 Then Array Line "111111111;111111111;110000011;110111011;110111011;110000311;111111111;111111111" ";" ElseIf Args(3) = 4 Then Array Line "11111111111;11111111111;11010011011;11010100011;11010101011;11000101011;11010001311;11111111111;11111111111" ";" ElseIf Args(3) = 5 Then Array Line "11111111111;11111111111;11000010011;11110000111;11001110011;11011311011;11000000011;11111111111;11111111111" ";" ElseIf Args(3) = 6 Then Array Line "11111111111;11111111111;11000000011;11111111011;11000100011;11010101011;11310000011;11111111111;11111111111" ";" ElseIf Args(3) = 7 Then Array Line "11111111111111;11111111111111;11000010000011;11111010101011;11000000100111;11011010101011;11012010000011;11011110101011;11000100101311;11111111111111;11111111111111" ";" ElseIf Args(3) = 8 Then Array Line "11111111111111;11111111111111;11000000001311;11111111101011;11000000001011;11011111101011;11012000001011;11011111111011;11000000000011;11111111111111;11111111111111" ";" ElseIf Args(3) = 9 Then Array Line "11111111111111;11111111111111;11000100000011;11010001111011;11011111100011;11010031001011;11010111111011;11010000101011;11021010000011;11111111111111;11111111111111" ";" ElseIf Args(3) = 10 Then Array Line "11111111111111;11111111111111;11000100000011;11010100111011;11011110101011;11010000001011;11010111111011;11010000121011;11000010100311;11111111111111;11111111111111" ";" EndIf #Easy # 1 #Line1 111111111 #Line2 110100011 #Line3 110101011 #Line4 110101011 #Line5 110001311 #Line6 111111111 # 2 #Line1 111111111 #Line2 110001011 #Line3 111101011 #Line4 110100011 #Line5 110001311 #Line6 111111111 # 3 #Line1 111111111 #Line2 110000011 #Line3 110111011 #Line4 110111011 #Line5 110000311 #Line6 111111111 #Normal # 4 #Line1 11111111111 #Line2 11010011011 #Line3 11010100011 #Line4 11010101011 #Line5 11000101011 #Line6 11010001311 #Line7 11111111111 # 5 #Line1 11111111111 #Line2 11000010011 #Line3 11110000111 #Line4 11001110011 #Line5 11011311011 #Line6 11000000011 #Line7 11111111111 # 6 #Line1 11111111111 #Line2 11000000011 #Line3 11111111011 #Line4 11000100011 #Line5 11010101011 #Line6 11310000011 #Line7 11111111111 #Hard # 7 #Line1 11111111111111 #Line2 11000010000011 #Line3 11111010101011 #Line4 11000000100111 #Line5 11011010101011 #Line6 11012010000011 #Line7 11011110101011 #Line8 11000100101311 #Line9 11111111111111 # 8 #Line1 11111111111111 #Line2 11000000001311 #Line3 11111111101011 #Line4 11000000001011 #Line5 11011111101011 #Line6 11012000001011 #Line7 11011111111011 #Line8 11000000000011 #Line9 11111111111111 # 9 #Line1 11111111111111 #Line2 11000100000011 #Line3 11010001111011 #Line4 11011111100011 #Line5 11010031001011 #Line6 11010111111011 #Line7 11010000101011 #Line8 11021010000011 #Line9 11111111111111 # 10 #Line1 11111111111111 #Line2 11000100000011 #Line3 11010100111011 #Line4 11011110101011 #Line5 11010000001011 #Line6 11010111111011 #Line7 11010000121011 #Line8 11000010100311 #Line9 11111111111111 Return (Line) プロローグ: Show Call 迷路 Exit 迷路: #難易度 Set DL #自機のX座標 Set PX 3 #自機のY座標 Set PY 3 #自機の立つ床の状態 Set PS 0 #自機の向き Set PW 3 # N1 #W4 E2 # S3 Set Hint 0 Set okeyyy 0 ASK 難易度選択 EASY NORMAL HARD End Switch 選択 Case 1 Switch Random(3) Case 1 DL = 1 Case 2 DL = 2 Case 3 DL = 3 EndSw Case 2 Switch Random(3) Case 1 DL = 4 Case 2 DL = 5 Case 3 DL = 6 EndSw Case 3 Switch Random(4) Case 1 DL = 7 Case 2 DL = 8 Case 3 DL = 9 Case 4 DL = 10 EndSw EndSw Cls Do While 1 Wait Click 戻る: ClearObj ClearPicture Call MapDrawer PW PX PY DL FillStyle 塗りつぶし Color RGB(255, 0, 0) FillColor RGB(255, 180, 0) HotPoint 左 0 0 64 480 "turn left" Polygon 10 240 30 230 30 250 HotPoint 右 416 0 64 480 "turn right" Polygon 470 240 450 230 450 250 Font RGB(55,55,235) 16pt Ｐゴシック Bold 通常 PaintString 10 10 "現在地 = ($(PX - 2),$(PY - 2))" FillStyle 透明 Oval 420 25 40 0.4 RGB( 0, 0, 0) Oval 420 25 39 0.39 RGB(255,255,255) Oval 420 25 38 0.38 RGB(255,255,255) Oval 420 25 37 0.37 RGB( 0, 0, 0) If PW = 1 Then Color RGB(0, 0, 0) FillStyle 塗りつぶし FillColor RGB(255, 0, 0) Polygon 420 4 430 8 410 8 ElseIf PW = 2 Then Color RGB(0, 0, 0) FillStyle 塗りつぶし FillColor RGB(255, 0, 0) Polygon 368 25 378 21 378 29 ElseIf PW = 3 Then Color RGB(0, 0, 0) FillStyle 塗りつぶし FillColor RGB(255, 0, 0) Polygon 420 46 430 42 410 42 ElseIf PW = 4 Then Color RGB(0, 0, 0) FillStyle 塗りつぶし FillColor RGB(255, 0, 0) Polygon 472 25 462 21 462 29 EndIf PlaySound Null.wav For i = 1 To 229 If KeyState(i) Then If i = 1 Then If 選択 = "左" Then If Not PW = 1 Then Incr PW -1 ElseIf PW = 1 Then PW = 4 EndIf ElseIf 選択 = "右" Then If Not PW = 4 Then Incr PW 1 ElseIf PW = 4 Then PW = 1 EndIf EndIf ElseIf i = 2 Then FillStyle 網かけ Line 20 20 460 460 RGB( 55, 55, 55) BF Line 40 40 440 440 RGB(155,155,155) BF Font RGB(255,255,255) 16pt Ｐゴシック Bold 通常 PaintString - 60 "操作方法" PaintString 60 100 "カーソルキー　↑:前進" PaintString 60 120 "カーソルキー　←:左カニ歩き" PaintString 60 140 "カーソルキー　→:右カニ歩き" PaintString 60 160 "カーソルキー　↓:後退" PaintString 60 180 "画面左端クリック:左旋回" PaintString 60 200 "画面右端クリック:右旋回" PaintString - 230 "画面の見方" PaintString 60 270 "画面上、左側の数字は現在地の座標" PaintString 60 290 "画面上、右側の円は方位(赤矢印が北)" Refresh Wait Click Do Ask "最初からやり直しますか？" 連続表示 キャンセル可 最初からやり直す ゲームに戻る End If 選択 = 1 Then Confirm 本当に戻りますがよろしいですか？ EndIf Loop While (選択 = 0) Ask 終了 Switch 選択 Case 1 FadeOut Cls Goto "迷路" Case 2 Goto "戻る" EndSw ElseIf i = 37 Then #← If PW = 1 Then Incr PY -1 ElseIf PW = 2 Then Incr PX -1 ElseIf PW = 3 Then Incr PY 1 ElseIf PW = 4 Then Incr PX 1 EndIf If PY > 0 Then PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PlaySound Footstep.wav ElseIf PS = 1 Then PlaySound Punch.wav If PW = 1 Then Incr PY 1 ElseIf PW = 2 Then Incr PX 1 ElseIf PW = 3 Then Incr PY -1 ElseIF PW = 4 Then Incr PX -1 EndIf ElseIf PS = 2 Then PlaySound Footstep.wav ElseIf PS = 3 Then Goto ゴール EndIf EndIf ElseIf i = 38 Then #↑ If PW = 1 Then Incr PX -1 ElseIf PW = 2 Then Incr PY 1 ElseIf PW = 3 Then Incr PX 1 ElseIf PW = 4 Then Incr PY -1 EndIf If PX > 0 Then PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PlaySound Footstep.wav ElseIf PS = 1 Then PlaySound Punch.wav If PW = 1 Then Incr PX 1 ElseIf PW = 2 Then Incr PY -1 ElseIf PW = 3 Then Incr PX -1 ElseIf PW = 4 Then Incr PY 1 EndIf ElseIf PS = 2 Then PlaySound Footstep.wav ElseIf PS = 3 Then Goto ゴール EndIf EndIf ElseIf i = 39 Then #→ If PW = 1 Then Incr PY 1 ElseIf PW = 2 Then Incr PX 1 ElseIf PW = 3 Then Incr PY -1 ElseIf PW = 4 Then Incr PX -1 EndIf PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PlaySound Footstep.wav ElseIf PS = 1 Then PlaySound Punch.wav If PW = 1 Then Incr PY -1 ElseIf PW = 2 Then Incr PX -1 ElseIf PW = 3 Then Incr PY 1 ElseIf PW = 4 Then Incr PX 1 EndIf ElseIf PS = 2 Then PlaySound Footstep.wav ElseIf PS = 3 Then Goto ゴール EndIf ElseIf i = 40 Then #↓ If PW = 1 Then Incr PX 1 ElseIf PW = 2 Then Incr PY -1 ElseIf PW = 3 Then 　 Incr PX -1 ElseIf PW = 4 Then Incr PY 1 EndIf PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PlaySound Footstep.wav ElseIf PS = 1 Then PlaySound Punch.wav If PW = 1 Then Incr PX -1 ElseIf PW = 2 Then Incr PY 1 ElseIf PW = 3 Then 　 Incr PX 1 ElseIf PW = 4 Then Incr PY -1 EndIf ElseIf PS = 2 Then PlaySound Footstep.wav ElseIf PS = 3 Then Goto ゴール EndIf ElseIf i = 65 Then #A If PW = 1 Then Incr PY -1 ElseIf PW = 2 Then Incr PX -1 ElseIf PW = 3 Then Incr PY 1 ElseIf PW = 4 Then Incr PX 1 EndIf If PY > 0 Then PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PlaySound Footstep.wav ElseIf PS = 1 Then PlaySound Punch.wav If PW = 1 Then Incr PY 1 ElseIf PW = 2 Then Incr PX 1 ElseIf PW = 3 Then Incr PY -1 ElseIF PW = 4 Then Incr PX -1 EndIf ElseIf PS = 2 Then PlaySound Footstep.wav ElseIf PS = 3 Then Goto ゴール EndIf EndIf ElseIf i = 87 Then #W If PW = 1 Then Incr PX -1 ElseIf PW = 2 Then Incr PY 1 ElseIf PW = 3 Then Incr PX 1 ElseIf PW = 4 Then Incr PY -1 EndIf If PX > 0 Then PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PlaySound Footstep.wav ElseIf PS = 1 Then PlaySound Punch.wav If PW = 1 Then Incr PX 1 ElseIf PW = 2 Then Incr PY -1 ElseIf PW = 3 Then Incr PX -1 ElseIf PW = 4 Then Incr PY 1 EndIf ElseIf PS = 2 Then PlaySound Footstep.wav ElseIf PS = 3 Then Goto ゴール EndIf EndIf ElseIf i = 68 Then #D If PW = 1 Then Incr PY 1 ElseIf PW = 2 Then Incr PX 1 ElseIf PW = 3 Then Incr PY -1 ElseIf PW = 4 Then Incr PX -1 EndIf PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PlaySound Footstep.wav ElseIf PS = 1 Then PlaySound Punch.wav If PW = 1 Then Incr PY -1 ElseIf PW = 2 Then Incr PX -1 ElseIf PW = 3 Then Incr PY 1 ElseIf PW = 4 Then Incr PX 1 EndIf ElseIf PS = 2 Then PlaySound Footstep.wav ElseIf PS = 3 Then Goto ゴール EndIf ElseIf i = 83 Then #S If PW = 1 Then Incr PX 1 ElseIf PW = 2 Then Incr PY -1 ElseIf PW = 3 Then 　 Incr PX -1 ElseIf PW = 4 Then Incr PY 1 EndIf PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PlaySound Footstep.wav ElseIf PS = 1 Then PlaySound Punch.wav If PW = 1 Then Incr PX -1 ElseIf PW = 2 Then Incr PY 1 ElseIf PW = 3 Then 　 Incr PX 1 ElseIf PW = 4 Then Incr PY -1 EndIf ElseIf PS = 2 Then PlaySound Footstep.wav ElseIf PS = 3 Then Goto ゴール EndIf #Q ElseIf i = 81 Then If Not PW = 1 Then Incr PW -1 ElseIf PW = 1 Then PW = 4 EndIf #E ElseIf i = 69 Then If Not PW = 4 Then Incr PW 1 ElseIf PW = 4 Then PW = 1 EndIf #H ElseIf i = 72 Then Hint = "$(Call(MapHint,PX,PY,DL))" If Hint > 0 Then FillStyle 網かけ Line 20 360 460 460 RGB( 55, 55, 55) BF Line 40 380 440 440 RGB(155,155,155) BF Font RGB(255,255,255) 16pt Ｐゴシック Bold 通常 If PW = 1 Then PaintString 60 400 "ヒント「横軸方向に目的地あります」" ElseIf PW = 3 Then PaintString 60 400 "ヒント「横軸方向に目的地あります」" Else PaintString 60 400 "ヒント「縦軸方向に目的地あります」" EndIf Refresh Wait Click EndIf 　　　Goto "戻る" ElseIf i = 32 Then FillStyle 網かけ Line 20 360 460 460 RGB( 55, 55, 55) BF Line 40 380 440 440 RGB(155,155,155) BF Font RGB(255,255,255) 16pt Ｐゴシック Bold 通常 If PW = 1 Then Incr PX -1 PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PaintString 60 400 "目の前には何もない" ElseIf PS = 1 Then PaintString 60 400 "目の前には壁がある" ElseIf PS = 3 Then PaintString 60 400 "目の前には目的地がある" EndIf Incr PX 1 ElseIf PW = 2 Then Incr PY 1 PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PaintString 60 400 "目の前には何もない" ElseIf PS = 1 Then PaintString 60 400 "目の前には壁がある" ElseIf PS = 3 Then PaintString 60 400 "目の前には目的地がある" EndIf Incr PY -1 ElseIf PW = 3 Then Incr PX 1 PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PaintString 60 400 "目の前には何もない" ElseIf PS = 1 Then PaintString 60 400 "目の前には壁がある" ElseIf PS = 3 Then PaintString 60 400 "目の前には目的地がある" EndIf Incr PX -1 ElseIf PW = 4 Then Incr PY -1 PS = "$(Call(MapReader,PX,PY,DL))" If PS = 0 Then PaintString 60 400 "目の前には何もない" ElseIf PS = 1 Then PaintString 60 400 "目の前には壁がある" ElseIf PS = 3 Then PaintString 60 400 "目の前には目的地がある" EndIf Incr PY 1 EndIf Refresh Wait Click 　　　Goto "戻る" EndIf Call MapDrawer PW PX PY DL FillStyle 塗りつぶし Color RGB(255, 0, 0) FillColor RGB(255, 180, 0) Polygon 10 240 30 230 30 250 Polygon 470 240 450 230 450 250 Font RGB(55,55,235) 16pt Ｐゴシック Bold 通常 PaintString 10 10 "現在地 = ($(PX - 2),$(PY - 2))" FillStyle 透明 Oval 420 25 40 0.4 RGB( 0, 0, 0) Oval 420 25 39 0.39 RGB(255,255,255) Oval 420 25 38 0.38 RGB(255,255,255) Oval 420 25 37 0.37 RGB( 0, 0, 0) If PW = 1 Then Color RGB(0, 0, 0) FillStyle 塗りつぶし FillColor RGB(255, 0, 0) Polygon 420 4 430 8 410 8 ElseIf PW = 2 Then Color RGB(0, 0, 0) FillStyle 塗りつぶし FillColor RGB(255, 0, 0) Polygon 368 25 378 21 378 29 ElseIf PW = 3 Then Color RGB(0, 0, 0) FillStyle 塗りつぶし FillColor RGB(255, 0, 0) Polygon 420 46 430 42 410 42 ElseIf PW = 4 Then Color RGB(0, 0, 0) FillStyle 塗りつぶし FillColor RGB(255, 0, 0) Polygon 472 25 462 21 462 29 EndIf EndIf Next Refresh Loop ゴール: FadeOut Cls Font RGB(255,255,255) 48pt Ｐゴシック Bold 通常 PaintString - - "Goal!" Refresh Wait Click GameClear Return MapReader: #迷路読み込み Array Line "$(Call(MapDate,Args(1),Args(2),Args(3)))" ";" Return Mid(Line[Args(1)],Args(2),1) MapHint: #ヒント Array Line "$(Call(MapDate,Args(1),Args(2),Args(3)))" ";" Return InStr(Line[Args(1)],3) MapDrawer: #PX =Args2 PY = Args3 Local FS 0 Local FFS 0 Local LS 0 Local RS 0 Local FLS 0 Local FRS 0 Local FFLS 0 Local FFRS 0 If Args(1) = 1 Then FFS = Call(MapReader,(Args(2) - 2),(Args(3)),Args(4)) FS = Call(MapReader,(Args(2) - 1),(Args(3)),Args(4)) LS = Call(MapReader,(Args(2)),(Args(3) - 1),Args(4)) RS = Call(MapReader,(Args(2)),(Args(3) + 1),Args(4)) FLS = Call(MapReader,(Args(2) - 1),(Args(3) - 1),Args(4)) FRS = Call(MapReader,(Args(2) - 1),(Args(3) + 1),Args(4)) FFLS = Call(MapReader,(Args(2) - 2),(Args(3) - 1),Args(4)) FFRS = Call(MapReader,(Args(2) - 2),(Args(3) + 1),Args(4)) ElseIf Args(1) = 2 Then FFS = Call(MapReader,(Args(2)),(Args(3) + 2),Args(4)) FS = Call(MapReader,(Args(2)),(Args(3) + 1),Args(4)) LS = Call(MapReader,(Args(2) - 1),(Args(3)),Args(4)) RS = Call(MapReader,(Args(2) + 1),(Args(3)),Args(4)) FLS = Call(MapReader,(Args(2) - 1),(Args(3) + 1),Args(4)) FRS = Call(MapReader,(Args(2) + 1),(Args(3) + 1),Args(4)) FFLS = Call(MapReader,(Args(2) - 1),(Args(3) + 2),Args(4)) FFRS = Call(MapReader,(Args(2) + 1),(Args(3) + 2),Args(4)) ElseIf Args(1) = 3 Then FFS = Call(MapReader,(Args(2) + 2),(Args(3)),Args(4)) FS = Call(MapReader,(Args(2) + 1),(Args(3)),Args(4)) LS = Call(MapReader,(Args(2)),(Args(3) + 1),Args(4)) RS = Call(MapReader,(Args(2)),(Args(3) - 1),Args(4)) FLS = Call(MapReader,(Args(2) + 1),(Args(3) + 1),Args(4)) FRS = Call(MapReader,(Args(2) + 1),(Args(3) - 1),Args(4)) FFLS = Call(MapReader,(Args(2) + 2),(Args(3) + 1),Args(4)) FFRS = Call(MapReader,(Args(2) + 2),(Args(3) - 1),Args(4)) ElseIf Args(1) = 4 Then FFS = Call(MapReader,(Args(2)),(Args(3) - 2),Args(4)) FS = Call(MapReader,(Args(2)),(Args(3) - 1),Args(4)) LS = Call(MapReader,(Args(2) + 1),(Args(3)),Args(4)) RS = Call(MapReader,(Args(2) - 1),(Args(3)),Args(4)) FLS = Call(MapReader,(Args(2) + 1),(Args(3) - 1),Args(4)) FRS = Call(MapReader,(Args(2) - 1),(Args(3) - 1),Args(4)) FFLS = Call(MapReader,(Args(2) + 1),(Args(3) - 2),Args(4)) FFRS = Call(MapReader,(Args(2) - 1),(Args(3) - 2),Args(4)) EndIf If FS = 1 Then If LS = 1 Then If RS = 1 Then #袋小路 For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For j = 0 To 28 Line 80 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 400 80 400 400 RGB(5,5,5) Line 80 80 400 80 RGB(5,5,5) Line 80 400 400 400 RGB(5,5,5) ElseIf FRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) For i = 0 To 100 Line 240 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 28 Line 80 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 80 80 480 80 RGB(5,5,5) Line 80 400 480 400 RGB(5,5,5) ElseIf FFRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) For i = 0 To 100 Line 240 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 400 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next For j = 0 To 28 Line 80 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 400 80 400 400 RGB(5,5,5) Line 80 80 400 80 RGB(5,5,5) Line 80 400 400 400 RGB(5,5,5) Line 400 160 480 160 RGB(5,5,5) Line 400 320 480 320 RGB(5,5,5) Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) For i = 0 To 100 Line 240 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 28 Line 80 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 400 80 400 400 RGB(5,5,5) Line 80 80 400 80 RGB(5,5,5) Line 80 400 400 400 RGB(5,5,5) EndIf ElseIf RS = 1 Then If FLS = 1 then For i = 0 To 100 Line 240 (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 28 Line 0 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 400 80 400 400 RGB(5,5,5) Line 0 80 400 80 RGB(5,5,5) Line 0 400 400 400 RGB(5,5,5) ElseIf FFLS = 1 Then For i = 0 To 100 Line 240 (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (160 + j * 3) 80 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next For j = 0 To 28 Line 80 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 400 80 400 400 RGB(5,5,5) Line 80 80 400 80 RGB(5,5,5) Line 80 400 400 400 RGB(5,5,5) Line 0 160 80 160 RGB(5,5,5) Line 0 320 80 320 RGB(5,5,5) Else For i = 0 To 100 Line 240 (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 28 Line 80 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 400 80 400 400 RGB(5,5,5) Line 80 80 400 80 RGB(5,5,5) Line 80 400 400 400 RGB(5,5,5) EndIf ElseIf FLS = 1 Then If FRS = 1 Then For i = 0 To 100 Line 0 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 28 Line 0 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 0 80 480 80 RGB(5,5,5) Line 0 400 480 400 RGB(5,5,5) Else For i = 0 To 100 Line 0 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 28 Line 0 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 400 80 400 400 RGB(5,5,5) Line 0 80 400 80 RGB(5,5,5) Line 0 400 400 400 RGB(5,5,5) EndIf ElseIf FRS = 1 Then For i = 0 To 100 Line 0 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 28 Line 80 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 80 80 480 80 RGB(5,5,5) Line 80 400 480 400 RGB(5,5,5) Else If FFLS = 1 Then If FFRS = 1 Then For i = 0 To 100 Line 0 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next For j = 0 To 14 Line 400 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next For j = 0 To 28 Line 80 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 400 80 400 400 RGB(5,5,5) Line 80 80 400 80 RGB(5,5,5) Line 80 400 400 400 RGB(5,5,5) Line 0 160 80 160 RGB(5,5,5) Line 0 320 80 320 RGB(5,5,5) Line 400 160 480 160 RGB(5,5,5) Line 400 320 480 320 RGB(5,5,5) Else For i = 0 To 100 Line 0 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (160 + j * 3) 80 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next For j = 0 To 28 Line 80 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 400 80 400 400 RGB(5,5,5) Line 80 80 400 80 RGB(5,5,5) Line 80 400 400 400 RGB(5,5,5) Line 0 160 80 160 RGB(5,5,5) Line 0 320 80 320 RGB(5,5,5) EndIf ElseIf FFRS = 1 Then For i = 0 To 100 Line 0 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 400 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next For j = 0 To 28 Line 80 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 400 80 400 400 RGB(5,5,5) Line 80 80 400 80 RGB(5,5,5) Line 80 400 400 400 RGB(5,5,5) Line 400 160 480 160 RGB(5,5,5) Line 400 320 480 320 RGB(5,5,5) Else For i = 0 To 100 Line 0 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 28 Line 80 (80 + j * 3) 400 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next Line 80 80 80 400 RGB(5,5,5) Line 400 80 400 400 RGB(5,5,5) Line 80 80 400 80 RGB(5,5,5) Line 80 400 400 400 RGB(5,5,5) EndIf EndIf ElseIf FFS = 1 Then If LS = 1 Then If RS = 1 then If FLS = 1 Then If FRS = 1 Then #この先行き止まり For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) Else If FFRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 60 Line 320 (80 + i * 2) 400 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next For j = 0 To 14 Line 160 (160 + j * 3) 400 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) Line 320 160 400 160 RGB(5,5,5) Line 320 320 400 320 RGB(5,5,5) Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 60 Line 320 (80 + i * 2) 400 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 320 160 320 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) EndIf EndIf ElseIf FRS = 1 Then If FFLS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 60 Line 80 (80 + i * 2) 160 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next For j = 0 To 14 Line 80 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) Line 80 160 160 160 RGB(5,5,5) Line 80 320 160 320 RGB(5,5,5) Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 60 Line 80 (80 + i * 2) 160 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) EndIf Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 60 Line 320 (80 + i * 2) 400 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next For i = 0 To 60 Line 80 (80 + i * 2) 160 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next #左 Line 80 80 80 400 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) If FFLS = 1 Then If FFRS = 1 Then For j = 0 To 14 Line 80 (160 + j * 3) 400 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) Line 80 160 160 160 RGB(5,5,5) Line 80 320 160 320 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) Line 320 160 400 160 RGB(5,5,5) Line 320 320 400 320 RGB(5,5,5) Else For j = 0 To 14 Line 80 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) Line 80 160 160 160 RGB(5,5,5) Line 80 320 160 320 RGB(5,5,5) EndIf ElseIf FFRS = 1 Then For j = 0 To 14 Line 160 (160 + j * 3) 400 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) Line 320 160 400 160 RGB(5,5,5) Line 320 320 400 320 RGB(5,5,5) Else For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) EndIf EndIf ElseIf FLS = 1 Then If FRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 400 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 400 80 240 240 RGB(5,5,5) Line 400 400 240 240 RGB(5,5,5) For j = 0 To 14 Line 400 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) Line 400 80 480 80 RGB(5,5,5) Line 400 400 480 400 RGB(5,5,5) Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 240 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) If FFRS = 1 Then For j = 0 To 14 Line 160 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 160 160 480 160 RGB(5,5,5) Line 160 320 480 320 RGB(5,5,5) Else For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) EndIf EndIf ElseIf FRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 80 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 400 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 80 80 RGB(5,5,5) Line 0 480 80 400 RGB(5,5,5) Line 400 80 240 240 RGB(5,5,5) Line 400 400 240 240 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) For j = 0 To 14 Line 400 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #右 Line 400 80 400 400 RGB(5,5,5) Line 400 80 480 80 RGB(5,5,5) Line 400 400 480 400 RGB(5,5,5) If FFLS = 1 Then For j = 0 To 14 Line 81 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 81 160 320 160 RGB(5,5,5) Line 81 320 320 320 RGB(5,5,5) Else For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) EndIf Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 80 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 80 80 RGB(5,5,5) Line 0 480 80 400 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) If FFLS = 1 Then If FFRS = 1 Then For j = 0 To 14 Line 81 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 81 160 480 160 RGB(5,5,5) Line 81 320 480 320 RGB(5,5,5) Else For j = 0 To 14 Line 81 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 81 160 320 160 RGB(5,5,5) Line 81 320 320 320 RGB(5,5,5) EndIf ElseIf FFRS = 1 Then For j = 0 To 14 Line 160 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 160 160 480 160 RGB(5,5,5) Line 160 320 480 320 RGB(5,5,5) Else For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) EndIf EndIf ElseIf RS = 1 Then If FLS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) If FRS = 1 Then Line 80 80 240 240 RGB(5,5,5) Line 80 400 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 80 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (80 + j * 3) 80 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #左 Line 80 80 80 400 RGB(5,5,5) Line 0 80 80 80 RGB(5,5,5) Line 0 400 80 400 RGB(5,5,5) For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) Else For i = 0 To 100 Line 240 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 400 400 480 480 RGB(5,5,5) Line 400 80 480 0 RGB(5,5,5) Line 80 80 240 240 RGB(5,5,5) Line 80 400 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 80 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (80 + j * 3) 80 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #左 Line 80 80 80 400 RGB(5,5,5) Line 0 80 80 80 RGB(5,5,5) Line 0 400 80 400 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) EndIf ElseIf FRS = 1 Then If FFLS = 1 Then For i = 0 To 100 Line 240 (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For j = 0 To 14 Line 0 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 0 160 320 160 RGB(5,5,5) Line 0 320 320 320 RGB(5,5,5) Else For i = 0 To 100 Line 240 (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 320 160 320 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) EndIf Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 0 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 400 400 480 480 RGB(5,5,5) Line 400 80 480 0 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) If FFLS = 1 Then If FFRS = 1 Then For j = 0 To 14 Line 0 (160 + j * 3) 399 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 0 160 399 160 RGB(5,5,5) Line 0 320 399 320 RGB(5,5,5) Else For j = 0 To 14 Line 0 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 0 160 320 160 RGB(5,5,5) Line 0 320 320 320 RGB(5,5,5) EndIf ElseIf FFRS = 1 Then For j = 0 To 14 Line 160 (160 + j * 3) 399 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 160 160 399 160 RGB(5,5,5) Line 160 320 399 320 RGB(5,5,5) Else For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 320 160 320 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) EndIf EndIf ElseIf FLS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) If FRS = 1 Then Line 80 80 240 240 RGB(5,5,5) Line 80 400 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 80 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 400 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (80 + j * 3) 80 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #左 Line 80 80 80 400 RGB(5,5,5) Line 0 80 80 80 RGB(5,5,5) Line 0 400 80 400 RGB(5,5,5) For j = 0 To 14 Line 400 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #右 Line 400 80 400 400 RGB(5,5,5) Line 400 80 480 80 RGB(5,5,5) Line 400 400 480 400 RGB(5,5,5) For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) Else If FFRS = 1 Then For i = 0 To 100 Line 240 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 80 80 240 240 RGB(5,5,5) Line 80 400 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 80 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 240 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (80 + j * 3) 80 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #左 Line 80 80 80 400 RGB(5,5,5) Line 0 80 80 80 RGB(5,5,5) Line 0 400 80 400 RGB(5,5,5) For j = 0 To 14 Line 160 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 160 160 480 160 RGB(5,5,5) Line 160 320 480 320 RGB(5,5,5) Else For i = 0 To 100 Line 240 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 80 80 240 240 RGB(5,5,5) Line 80 400 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 80 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 240 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (80 + j * 3) 80 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #左 Line 80 80 80 400 RGB(5,5,5) Line 0 80 80 80 RGB(5,5,5) Line 0 400 80 400 RGB(5,5,5) For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) EndIf EndIf ElseIf FRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) If FFLS = 1 Then For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 400 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 400 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #右 Line 400 80 400 400 RGB(5,5,5) Line 400 80 480 80 RGB(5,5,5) Line 400 400 480 400 RGB(5,5,5) For j = 0 To 14 Line 0 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 0 160 320 160 RGB(5,5,5) Line 0 320 320 320 RGB(5,5,5) Else For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 400 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 400 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #右 Line 400 80 400 400 RGB(5,5,5) Line 400 80 480 80 RGB(5,5,5) Line 400 400 480 400 RGB(5,5,5) For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 160 160 160 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) EndIf Else For i = 0 To 100 Line 0 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next If FFLS = 1 Then If FFRS = 1 Then For j = 0 To 14 Line 0 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 0 160 480 160 RGB(5,5,5) Line 0 320 480 320 RGB(5,5,5) Else For j = 0 To 14 Line 0 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 0 160 320 160 RGB(5,5,5) Line 0 320 320 320 RGB(5,5,5) EndIf ElseIf FFRS = 1 Then For j = 0 To 14 Line 160 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 160 160 480 160 RGB(5,5,5) Line 160 320 480 320 RGB(5,5,5) Else For j = 0 To 14 Line 160 (160 + j * 3) 320 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 320 160 320 320 RGB(5,5,5) Line 160 160 320 160 RGB(5,5,5) Line 160 320 320 320 RGB(5,5,5) EndIf EndIf ElseIf LS = 1 Then If RS = 1 Then If FLS = 1 Then If FRS = 1 Then #どこまでも通路 For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) If Not FFLS = 1 Then For i = 0 To 60 Line 160 (80 + i * 2) 240 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next Line 160 160 160 320 RGB(5,5,5) EndIf If Not FFRS = 1 Then For i = 0 To 60 Line 240 (80 + i * 2) 320 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next Line 320 160 320 320 RGB(5,5,5) EndIf Else If FFRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 60 Line 320 (80 + i * 2) 400 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next For j = 0 To 14 Line 320 (160 + j * 3) 400 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) Line 320 160 400 160 RGB(5,5,5) Line 320 320 400 320 RGB(5,5,5) Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 60 Line 240 (80 + i * 2) 400 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next #右 Line 400 80 400 400 RGB(5,5,5) EndIf EndIf ElseIf FRS = 1 Then If FFLS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 60 Line 80 (80 + i * 2) 160 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next For j = 0 To 14 Line 80 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) Line 80 160 160 160 RGB(5,5,5) Line 80 320 160 320 RGB(5,5,5) Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 60 Line 80 (80 + i * 2) 240 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next #左 Line 80 80 80 400 RGB(5,5,5) EndIf Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) For i = 0 To 60 Line 320 (80 + i * 2) 400 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next For i = 0 To 60 Line 80 (80 + i * 2) 160 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next #左 Line 80 80 80 400 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) If FFLS = 1 Then If FFRS = 1 Then For j = 0 To 14 Line 80 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next For j = 0 To 14 Line 320 (160 + j * 3) 400 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 320 160 320 320 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) Line 80 160 160 160 RGB(5,5,5) Line 80 320 160 320 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) Line 320 160 400 160 RGB(5,5,5) Line 320 320 400 320 RGB(5,5,5) Else For i = 0 To 60 Line 240 (80 + i * 2) 320 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next For j = 0 To 14 Line 80 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) Line 80 160 160 160 RGB(5,5,5) Line 80 320 160 320 RGB(5,5,5) EndIf ElseIf FFRS = 1 Then For i = 0 To 60 Line 160 (80 + i * 2) 240 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next For j = 0 To 14 Line 320 (160 + j * 3) 400 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) Line 320 160 400 160 RGB(5,5,5) Line 320 320 400 320 RGB(5,5,5) Else For i = 0 To 60 Line 160 (80 + i * 2) 320 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next EndIf EndIf ElseIf FLS = 1 Then If FRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 400 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 400 80 240 240 RGB(5,5,5) Line 400 400 240 240 RGB(5,5,5) For j = 0 To 14 Line 400 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #右 Line 400 80 400 400 RGB(5,5,5) Line 400 80 480 80 RGB(5,5,5) Line 400 400 480 400 RGB(5,5,5) If Not FFLS = 1 Then For i = 0 To 60 Line 160 (80 + i * 2) 240 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next Line 160 160 160 320 RGB(5,5,5) EndIf If Not FFRS = 1 Then For i = 0 To 60 Line 240 (80 + i * 2) 320 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next Line 320 160 320 320 RGB(5,5,5) EndIf Else If FFRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 320 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) Line 320 160 240 240 RGB(5,5,5) Line 320 320 240 240 RGB(5,5,5) For j = 0 To 14 Line 320 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 320 160 480 160 RGB(5,5,5) Line 320 320 480 320 RGB(5,5,5) Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 240 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 240 240 RGB(5,5,5) Line 0 480 240 240 RGB(5,5,5) EndIf EndIf ElseIf FRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 80 (0 + i * 2) 160 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 400 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 80 80 RGB(5,5,5) Line 0 480 80 400 RGB(5,5,5) Line 400 80 240 240 RGB(5,5,5) Line 400 400 240 240 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) For j = 0 To 14 Line 400 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #右 Line 400 80 400 400 RGB(5,5,5) Line 400 80 480 80 RGB(5,5,5) Line 400 400 480 400 RGB(5,5,5) If FFLS = 1 Then Line 160 320 240 240 RGB(5,5,5) Line 160 160 240 240 RGB(5,5,5) For j = 0 To 14 Line 81 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 81 160 160 160 RGB(5,5,5) Line 81 320 160 320 RGB(5,5,5) Else For i = 0 To 100 Line 160 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next EndIf Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 80 (0 + i * 2) 160 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 320 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 0 0 80 80 RGB(5,5,5) Line 0 480 80 400 RGB(5,5,5) #左 Line 80 80 80 400 RGB(5,5,5) If FFLS = 1 Then If FFRS = 1 Then Line 160 320 240 240 RGB(5,5,5) Line 160 160 240 240 RGB(5,5,5) Line 320 160 240 240 RGB(5,5,5) Line 320 320 240 240 RGB(5,5,5) For j = 0 To 14 Line 320 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 320 160 480 160 RGB(5,5,5) Line 320 320 480 320 RGB(5,5,5) For j = 0 To 14 Line 81 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 81 160 160 160 RGB(5,5,5) Line 81 320 160 320 RGB(5,5,5) Else Line 160 320 240 240 RGB(5,5,5) Line 160 160 240 240 RGB(5,5,5) For i = 0 To 100 Line 240 (0 + i * 2) 320 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 81 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 81 160 160 160 RGB(5,5,5) Line 81 320 160 320 RGB(5,5,5) EndIf ElseIf FFRS = 1 Then For i = 0 To 100 Line 160 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 320 160 240 240 RGB(5,5,5) Line 320 320 240 240 RGB(5,5,5) For j = 0 To 14 Line 320 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 320 160 480 160 RGB(5,5,5) Line 320 320 480 320 RGB(5,5,5) Else For i = 0 To 100 Line 160 (0 + i * 2) 320 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next EndIf EndIf ElseIf RS = 1 Then If FLS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 0 (0 + i * 2) 80 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 80 80 240 240 RGB(5,5,5) Line 80 400 240 240 RGB(5,5,5) For j = 0 To 14 Line 0 (80 + j * 3) 80 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #左 Line 80 80 80 400 RGB(5,5,5) Line 0 80 80 80 RGB(5,5,5) Line 0 400 80 400 RGB(5,5,5) If FRS = 1 Then Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) If Not FFLS = 1 Then For i = 0 To 60 Line 160 (80 + i * 2) 240 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next Line 160 160 160 320 RGB(5,5,5) EndIf If Not FFRS = 1 Then For i = 0 To 60 Line 240 (80 + i * 2) 320 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next Line 320 160 320 320 RGB(5,5,5) EndIf Else If FFRS = 1 Then For i = 0 To 100 Line 320 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 320 (160 + j * 3) 400 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 320 160 240 240 RGB(5,5,5) Line 320 320 240 240 RGB(5,5,5) Line 320 160 400 160 RGB(5,5,5) Line 320 320 400 320 RGB(5,5,5) Else For i = 0 To 100 Line 240 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next EndIf Line 400 400 480 480 RGB(5,5,5) Line 400 80 480 0 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) EndIf ElseIf FRS = 1 Then For i = 0 To 100 Line 240 (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) If FFLS = 1 Then For j = 0 To 14 Line 0 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 0 160 160 160 RGB(5,5,5) Line 0 320 160 320 RGB(5,5,5) EndIf Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next If FFLS = 1 Then For i = 0 To 100 Line 0 (0 + i * 2) 160 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 160 160 240 240 RGB(5,5,5) Line 160 320 240 240 RGB(5,5,5) If FFRS = 1 Then For i = 0 To 100 Line 320 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 320 160 240 240 RGB(5,5,5) Line 320 320 240 240 RGB(5,5,5) For j = 0 To 14 Line 0 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 0 160 160 160 RGB(5,5,5) Line 0 320 160 320 RGB(5,5,5) For j = 0 To 14 Line 320 (160 + j * 3) 400 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 320 160 400 160 RGB(5,5,5) Line 320 320 400 320 RGB(5,5,5) Else For i = 0 To 100 Line 0 (0 + i * 2) 160 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 160 160 240 240 RGB(5,5,5) Line 160 320 240 240 RGB(5,5,5) For i = 0 To 100 Line 240 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 0 160 160 160 RGB(5,5,5) Line 0 320 160 320 RGB(5,5,5) EndIf Line 400 400 480 480 RGB(5,5,5) Line 400 80 480 0 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) ElseIf FFRS = Then For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 320 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 320 160 240 240 RGB(5,5,5) Line 320 320 240 240 RGB(5,5,5) For j = 0 To 14 Line 320 (160 + j * 3) 400 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 320 160 400 160 RGB(5,5,5) Line 320 320 400 320 RGB(5,5,5) Line 400 400 480 480 RGB(5,5,5) Line 400 80 480 0 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 0 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 400 400 480 480 RGB(5,5,5) Line 400 80 480 0 RGB(5,5,5) #右 Line 400 80 400 400 RGB(5,5,5) EndIf EndIf ElseIf FLS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) If FRS = 1 Then Line 80 80 240 240 RGB(5,5,5) Line 80 400 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 80 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 400 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (80 + j * 3) 80 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #左 Line 80 80 80 400 RGB(5,5,5) Line 0 80 80 80 RGB(5,5,5) Line 0 400 80 400 RGB(5,5,5) For j = 0 To 14 Line 400 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #右 Line 400 80 400 400 RGB(5,5,5) Line 400 80 480 80 RGB(5,5,5) Line 400 400 480 400 RGB(5,5,5) If Not FFLS = 1 Then For i = 0 To 60 Line 160 (80 + i * 2) 240 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next Line 160 160 160 320 RGB(5,5,5) EndIf If Not FFRS = 1 Then For i = 0 To 60 Line 240 (80 + i * 2) 320 (400 - i * 2) RGB(155 - i * 2.5,155 - i * 2.5,155 - i * 2.5) BF Next Line 320 160 320 320 RGB(5,5,5) EndIf Else If FFRS = 1 Then Line 320 320 240 240 RGB(5,5,5) Line 320 160 240 240 RGB(5,5,5) Line 80 80 240 240 RGB(5,5,5) Line 80 400 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 80 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 320 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (80 + j * 3) 80 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #左 Line 80 80 80 400 RGB(5,5,5) Line 0 80 80 80 RGB(5,5,5) Line 0 400 80 400 RGB(5,5,5) For j = 0 To 14 Line 320 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 320 160 480 160 RGB(5,5,5) Line 320 320 480 320 RGB(5,5,5) Else For i = 0 To 100 Line 240 (0 + i * 2) 400 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 80 80 240 240 RGB(5,5,5) Line 80 400 240 240 RGB(5,5,5) For i = 0 To 100 Line 0 (0 + i * 2) 80 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 240 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (80 + j * 3) 80 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #左 Line 80 80 80 400 RGB(5,5,5) Line 0 80 80 80 RGB(5,5,5) Line 0 400 80 400 RGB(5,5,5) EndIf EndIf ElseIf FRS = 1 Then For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 480 0 240 240 RGB(5,5,5) Line 480 480 240 240 RGB(5,5,5) If FFLS = 1 Then For i = 0 To 100 Line 0 (0 + i * 2) 160 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 160 160 240 240 RGB(5,5,5) Line 160 320 240 240 RGB(5,5,5) For i = 0 To 100 Line 400 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 400 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #右 Line 400 80 400 400 RGB(5,5,5) Line 400 80 480 80 RGB(5,5,5) Line 400 400 480 400 RGB(5,5,5) For j = 0 To 14 Line 0 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 0 160 160 160 RGB(5,5,5) Line 0 320 160 320 RGB(5,5,5) Else For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 400 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 400 (80 + j * 3) 480 (400 - j * 5) RGB(155 + j * 2, 155 + j * 2, 155 + j * 2) BF Next #右 Line 400 80 400 400 RGB(5,5,5) Line 400 80 480 80 RGB(5,5,5) Line 400 400 480 400 RGB(5,5,5) EndIf Else For i = 0 To 100 Line (0 + i * 2) (0 + i * 2) (480 - i * 2) (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next If FFLS = 1 Then If FFRS = 1 Then For i = 0 To 100 Line 0 (0 + i * 2) 160 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 160 160 240 240 RGB(5,5,5) Line 160 320 240 240 RGB(5,5,5) For i = 0 To 100 Line 320 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 320 160 240 240 RGB(5,5,5) Line 320 320 240 240 RGB(5,5,5) For j = 0 To 14 Line 0 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 0 160 160 160 RGB(5,5,5) Line 0 320 160 320 RGB(5,5,5) For j = 0 To 14 Line 320 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 320 160 480 160 RGB(5,5,5) Line 320 320 480 320 RGB(5,5,5) Else For i = 0 To 100 Line 0 (0 + i * 2) 160 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 160 160 240 240 RGB(5,5,5) Line 160 320 240 240 RGB(5,5,5) For i = 0 To 100 Line 240 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For j = 0 To 14 Line 0 (160 + j * 3) 160 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 160 160 160 320 RGB(5,5,5) Line 0 160 160 160 RGB(5,5,5) Line 0 320 160 320 RGB(5,5,5) EndIf ElseIf FFRS = 1 Then For i = 0 To 100 Line 0 (0 + i * 2) 240 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next For i = 0 To 100 Line 320 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next Line 320 160 240 240 RGB(5,5,5) Line 320 320 240 240 RGB(5,5,5) For j = 0 To 14 Line 320 (160 + j * 3) 480 (320 - j * 5) RGB(55 + j * 2, 55 + j * 2, 55 + j * 2) BF Next Line 320 160 320 320 RGB(5,5,5) Line 320 160 480 160 RGB(5,5,5) Line 320 320 480 320 RGB(5,5,5) Else For i = 0 To 100 Line 0 (0 + i * 2) 480 (480 - i * 2) RGB(255 - i * 2.5,255 - i * 2.5,255 - i * 2.5) BF Next EndIf EndIf If FS = 3 Then For i = 0 To 80 Line (80 + i) (400 - i) (400 - i) (400 - i) RGB(55 - i * 0.5,255 - i * 0.5,55 - i * 0.5) BF Next EndIf Return