- 456 名前：名無しさん＠お腹いっぱい。 mailto:sage [2018/10/15(月) 02:39:30.50 ID:xoZP11HR0.net]
- FUNCTION MOVE_BALOON(x, y, direction)
RESULT=FALSE
DIM idBaloon = GETID(GET_BALLOON_WIN)
IFB -1 < idBaloon THEN
DIM xBaloon = STATUS( idBaloon, ST_CLX ); DIM yBaloon = STATUS( idBaloon, ST_CLY )
DIM wBaloon = STATUS( idBaloon, ST_CLWIDTH );DIM hBaloon = STATUS( idBaloon, ST_CLHEIGHT )
DIM widthTrim = -1
IFB 1=direction THEN
SAVEIMG("", idBaloon, 0, 1, wBaloon, 1, TRUE )
ELSEIF 2=direction THEN
SAVEIMG("", idBaloon, 0, hBaloon-1, wBaloon, 1, TRUE )
ENDIF
IFB 1=direction OR 2=direction THEN
DIM xSearch = 0
WHILE (xSearch<wBaloon)
IFB 0 = PEEKCOLOR( xSearch, 0, 0, TRUE) THEN
widthTrim = xSearch; BREAK
ENDIF
xSearch = xSearch + 1
WEND
ENDIF
IFB 1=direction THEN
RESULT=TRUE; ACW( idBaloon, x-(widthTrim), y)
ELSEIF 2=direction THEN
RESULT=TRUE; ACW( idBaloon, x-(widthTrim), y-hBaloon)
ELSEIF 3=direction THEN
RESULT=TRUE; ACW( idBaloon, x, y-(hBaloon/3))
ELSEIF 4=direction THEN
RESULT=TRUE; ACW( idBaloon, x-wBaloon, y-(hBaloon/3))
ENDIF
ENDIF
FEND
|
 |
