07/06/10 23:53:57
//超獣王
PROCEDURE cho()
DD=peekcolor(555,250)
ef=peekcolor(655,602)
revb=peekcolor(555,598)
ifb (wL and $FF00) / $100 < 150 and_
(fM and $FF) > 100 and_
(Df and $FF00) / $100 > 50 then
Kbd(VK_DOeWN, DOWN,50)
Kbd(VK_DOWN, UP,50)
Sleep(0.5)
elseif (Dv and $FF00) / $100 > 150 and_
(sM and $FF) < 100 then
Kbd(VK_DOWN, DOWN,50)
Kbd(VK_DOWN, UP,50)
Sleep(0.5)
elseif (DLc and $FF00) / $100 < 150 and_
(Dwe and $FF) < 100 and_
(DCc and $FF00) / $100 < 50 then
Kbd(VK_DOWN, DOWN,50)
Kbd(VK_DOWN, UP,50)
Sleep(0.5)
endif