//釣り
//自動交換&餌追加
//
//装備ウインドウを右下外枠にぴったりくっつけておく
//1から3ドット程度のズレはOK
//釣りポイント位置にカーソルを置いてマクロ起動


ECOWIN = GETID("eco")
IF ECOWIN = -1 THEN EXITEXIT
MOUSEORG(ECOWIN,1)

STS1X = G_MOUSE_X - STATUS(ECOWIN,ST_CLX)
STS1Y = G_MOUSE_Y - STATUS(ECOWIN,ST_CLY)
永久 = 1
高さ = STATUS(ECOWIN,ST_CLHEIGHT)
幅 = STATUS(ECOWIN,ST_CLWIDTH)
//武器装備欄の位置
SCX = 幅 - 118
SCY = 高さ - 194

while 永久 = 1

武器 = CHKIMG("武器無し.bmp",0,SCX,SCY,SCX+32,SCY+32,0,0)
ifb 武器 = TRUE
SENDSTR(ECOWIN,"/useitem 漆黒の釣竿")
SCKEY(ECOWIN,VK_RETURN)
SLEEP(1)
SENDSTR(ECOWIN,"/useitem シュリンプ")
SCKEY(ECOWIN,VK_RETURN)
SLEEP(1)
SENDSTR(ECOWIN,"/useskill フィッシング")
SCKEY(ECOWIN,VK_RETURN)
BTN(LEFT,DOWN,STS1X,STS1Y,200)
BTN(LEFT,UP,STS1X,STS1Y,50)
endif
SLEEP(1)
wend


EXITEXIT



