X0 = 10
Y0 = 10
ENDF = 0
COUNT_kitayo = 0
COUNT_kiteta = 0
For m = 0 to 100
X1 = X0
Y1 = Y0
RET = 0
For n = 0 to 5
//初期座標を入れる
//前回の家の画像の座標
//家画像を探す
Ifb CHKIMG("house.bmp",0, 0,Y1,2000,1000)
X1 = G_IMG_X+3
Y1 = G_IMG_Y+3
BTN(LEFT, CLICK, X1, Y1)
RET = 1
SLEEP(1)
Endif
Ifb CHKIMG("tojiru.bmp")
BTN(LEFT, CLICK, G_IMG_X+3, G_IMG_Y+3)
SLEEP(1)
Endif
//きてた画像を探す
Ifb CHKIMG("kiteta.bmp")
COUNT_kiteta = COUNT_kiteta + 1
PRINT COUNT_kitayo + "-" + COUNT_kiteta
SLEEP(1)
Else
SLEEP(2)
Ifb CHKIMG("kitayo2.bmp")
COUNT_kitayo = COUNT_kitayo + 1
PRINT COUNT_kitayo + "-" + COUNT_kiteta
SLEEP(1)
BTN(LEFT, CLICK, G_IMG_X+3, G_IMG_Y+3)
SLEEP(3)
Endif
Endif
Next
//家が押せなかった状態。最後のスクロールかどうかチェック
//Ifb ( RET < 1 )
Ifb CHKIMG("scrl_last.bmp")
//終了
EXIT
Endif
Ifb CHKIMG("arrow.bmp")
SLEEP(1)
BTN(LEFT, CLICK, G_IMG_X+3, G_IMG_Y+3)
SLEEP(3)
X1 = X0
Y1 = Y0
Endif
//Endif
NEXT