07/06/13 20:23:27
Procedure neko-koban()
// BET
ifb (PEEKCOLOR(98,515) and $FF) < 100 and (PEEKCOLOR(418,515) and $FF) > 200 then //BET判定
Kbd(VK_3,down,50)
Kbd(VK_3,up,50)
Sleep(0.3)
// レバオン
elseif (PEEKCOLOR(98,515) and $FF) > 200 and (PEEKCOLOR(418,515) and $FF) < 60 then //リール回転判定
Kbd(VK_UP,DOWN,50)
Kbd(VK_UP,UP,50)
Sleep(1.0)
// 招福チャンスですか?
elseif (PEEKCOLOR(93,344) and $FF) > 250 //招福チャンスが点灯しているか
syouhuku_chance()
else
Kbd(VK_Ctrl, DOWN,50) // ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
Kbd(VK_Ctrl , UP,50) // 上を変更時は同様にここも変更
Sleep(0.2)
endif
fend
Procedure syouhuku_chance()