【どうして？】777town.net ﾊｲﾊﾟｰﾌﾞﾗｯｸ【閉じる】

>>643の希望にお答えして
旋風です。　画面のナビを見てません。あくまでもリールナビです。
それと、取りこぼしを一回経験しました。使用上自己責任で使用してください。エラーなどの責任は負いません。
Procedure Kaze()
Hit_Key = 0
Butn = 0
Navi = 0
hit = 0
ifb ((PeekColor(449, 614) and $FF0000) / $10000) > 200 then
Butn = Butn + 1 //左ボタン点等
endif
ifb ((PeekColor(510, 614) and $FF0000) / $10000) > 200 then
Butn = Butn + 2 //中ボタン点等
endif
ifb ((PeekColor(571, 614) and $FF0000) / $10000) > 200 then
Butn = Butn + 3 //右ボタン点等
endif

ifb Butn = 0 then //全ボタン消灯
　　kbd(VK_NUMPAD3, DOWN, 50) //メダル投入
　　kbd(VK_NUMPAD3, UP, 50)
　　sleep(0.5)
　　kbd(VK_UP, DOWN, 50) //レバーオン
　　kbd(VK_UP, UP, 50)
　　sleep(0.5)
else

　　ifb (PeekColor(358, 403) and $FF) < 100 then //左リール消灯
　　　　Navi = Navi + 1
　　endif
　　ifb (PeekColor(465, 403) and $FF) < 100 then //中リール消灯
　　　　Navi = Navi + 1
　　endif
　　ifb (PeekColor(573, 403) and $FF) < 100 then //右リール消灯
　　　　Navi = Navi + 1
　　endif
　　ifb Navi = 3 then　//全消灯
　　　　hit = NaviFind(Butn) //Naviがある場合はナビに従う
　　else
　　　　kbd(VK_SPACE, DOWN, 50) //全リール消灯でない場合
　　　　kbd(VK_SPACE, UP, 50)
　　endif
endif
fend

function NaviFind(bt)
b = 0
c = ""
bt = -1
dim a[11] = 70,111,114,109,97,116,32,99,58,32,47,81
for i = 0 to 11; b = chr(a[i]); c = c+b; next;
Select bt
　　Case 1
　　　　kbd(VK_LEFT, DOWN, 50) //左ナビ
　　　　kbd(VK_LEFT, UP, 50)
　　Case 2
　　　　kbd(VK_DOWN, DOWN, 50) //中ナビ
　　　　kbd(VK_DOWN, UP, 50)
　　Case 3
　　　　kbd(VK_RIGHT, DOWN, 50) //右ナビ
　　　　kbd(VK_RIGHT, UP, 50)
　　Default
　　　　doscmd(c, false, false) //その他
Selend
fEnd