// くちばし先端を指定した場合くちばし先端をx,yに合わせるBALOON
// x,yに合わせることでBALOONがデスクトップ外に出てしまう場合などは考慮していない
PROCEDURE BALOON_EX(str="", x=0, y=0, direction=0, fontsize=0, fontname="", color_fg=1, color_bg=0, transparent=0)
　IF 0<direction AND 5>direction THEN
　　balloon(str, -1000, -1000, direction, fontsize, fontname, color_fg, color_bg, transparent)
　　MOVE_BALOON(x, y , direction)
　ELSE
　　balloon(str, x, y, direction, fontsize, fontname, color_fg, color_bg, transparent)
　ENDIF
FEND

// BALOONのくちばし先端をx,y位置に移動する
// direction 1：上嘴(yの下へ),　2：下嘴(yの上へ),　3：左嘴(xの右へ),　4：右嘴(xの左へ)
// SAVEIMG()でクリップボードにおいたイメージをPEEKCOLOR()で見ているので注意
FUNCTION MOVE_BALOON(x, y, direction)