07/11/06 13:41:57
Procedure Gamera()
In = (PeekColor(423,516) and $FF) > 220
St = (PeekColor(87,518) and $FF) > 250
Seg1 = (PeekColor(285,518) and $FF00)/$100 > 240
Seg2 = (PeekColor(290,516) and $FF00)/$100
sleep(0.01)
ifb St then
Kbd_hit(VK_NUMPAD4)
S_Stop(2)
ifb Seg1 or Seg2 > 240 then
//print "Bonus"
ifb Seg1 and Seg2 < 240 then
//print "Reg"
for i = 0 to 2
S_Stop(i)
kbd_hit(KEY[i])
next
else