能力範囲描画:
# 対象パイロットの範囲Ｘマスを塗り潰して描画する
# Call 能力範囲描画 対象パイロット 範囲(半角数字) 色指定 描画オプション(デフォルトは斜線、省略可)

Local i j k
　i = 0
　j = 0
　k = 0
Local EYE_X EYE_Y
　EYE_X = WX(Args(1))
　EYE_Y = WY(Args(1))

If Args(4) = "" Then
　FillStyle 斜線
Else
　FillStyle Args(4)
EndIf

FillColor Args(3)

DrawWidth 1
For i = 1 To Args(2)
　Incr j
# 上
　Line EYE_X EYE_Y (EYE_X + 32) (EYE_Y - 32 * i) Args(3) B
# 下
　Line EYE_X (EYE_Y + 32) (EYE_X + 32) (EYE_Y + 32 * i + 32) Args(3) B
# 左
　Line EYE_X EYE_Y (EYE_X - 32 * i) (EYE_Y + 32) Args(3) B
# 右
　Line (EYE_X + 32) EYE_Y (EYE_X + 32 * i + 32) (EYE_Y + 32) Args(3) B

　For k = 1 To (Args(2) - j)
# 右上
　　Line (EYE_X + 32 * j)  EYE_Y (EYE_X + 32 * j + 32) (EYE_Y - 32 * k) Args(3) B
# 右下
　　Line (EYE_X + 32 * j)  (EYE_Y + 32) (EYE_X + 32 * j + 32) (EYE_Y + 32 * k + 32) Args(3) B
# 左上
　　Line (EYE_X - 32 * j + 32)  EYE_Y (EYE_X - 32 * j) (EYE_Y - 32 * k) Args(3) B
# 左下
　　Line (EYE_X - 32 * j + 32)  (EYE_Y + 32) (EYE_X - 32 * j) (EYE_Y + 32 * k + 32) Args(3) B
　Next
Next
Return