#指定した色の長方形を描画する
#red,green,blue,alphaはそれぞれ0~15 (透明度は15で不透明)
#(左端,上端,幅,高さ,Zオーダー,赤,緑,青,透明度)
def colorRect(x,y,w,h,z,red,green,blue,alpha)
i=createSprite(303266)
setSpriteRect(i,15-red+blue*16,15-green+alpha*16,1,1,0,0,w,h)
setSpritePosition(i,x,y)
setSpriteZOrder(i,z)
drawCanvas()
return i
end
#指定した色の長方形をつくったやつの色を変える
#ドットペイントのスクリプトをカンニングしました
def setColor(i,x,y,w,h,z,red,green,blue,alpha)
setSpriteRect(i,15-red+blue*16,15-green+alpha*16,1,1,0,0,w,h)
drawCanvas()
end

#下の関数の引数iはスプライトのIDで、上の関数を使って作ったスプライトの名前をいれます
#たとえば、setVariable("bg",colorRect(x,y,w,h,z,red,green,blue,alpha)) と作ったスプライトの色を変えたい場合
#下の関数はsetColor(getVariable("bg"),x,y,w,h,z,red,green,blue,alpha)と書きます

#RPGエディタで使う時にはこの関数を呼ぶ前にキャンパスをビジブルにしておくこと

#線を引く関数応用ここから

def line(b,x1,y1,x2,y2,x3,y3,draw_line) 
#(x3,y3)から(x1,y1)に直線が引かれている
#これから(x1,y1)から(x2,y2)に直線を引く

  if !getVariable("line") #実際に描く前の計算
    setVariable("line", createArray())
  end
  ax = (x2 - x1) #新しく線を引く分の計算
  ay = (y2 - y1)
  n = floor(sqrt((ax*ax)+(ay*ay))) #新しく引く線分の長さを求めている
  k = atan2(ay, ax)

  cx = (x3 - x1) #ひとつ前に引いた線の計算
  cy = (y3 - y1)
  m = floor(sqrt((cx*cx)+(cy*cy))) #ひとつ前の線分の長さを求めている

  dot = ax*cx+ay*cy #内積

  cos_sita = dot / (n*m) #内積とベクトル長さを使ってcosθを求める

  sita = acos( cos_sita ) #cosθからθを求める

  sita = sita*180.0/pi() #ラジアンでなく0～180の角度でほしいため角度に変換

#二つの線分のなす角で場合分けしてポイントと線分の色分けを行う
   if sita > 150 
    point = 0
    red = 15; green = 15; blue = 15; alpha = 15
   elsif sita > 120
    point = 1
    red = 15; green = 12; blue = 12; alpha = 15
   elsif sita > 90
    point = 5
    red = 15; green = 9; blue = 9; alpha = 15
   elsif sita > 60
    point = 10
    red = 15; green = 6; blue = 6; alpha = 15
   elsif sita >= 0
    point = 20
    red = 15; green = 3; blue = 3; alpha = 15
   else
    point = 0
    red = 15; green = 15; blue = 15; alpha = 15
   end

case draw_line #線描設定がONになっていたら上で指定された色、なっていなかったら透明の線を引く
#このゲーム以外で実際に使う場合はON/OFFでなくブーリアンや0,1の方を使うと思う
when "ON"
when "OFF"
    red = 0; green = 0; blue = 0; alpha = 0
else
end #caseのend

  if !getVariable("line")[b] #実際に線を描く処理
    getVariable("line")[b] = createSprite(303266) #cfm_さんのフルカラー画像のID
  end
  se = getVariable("line")[b]
  setSpriteRotation(se, k)
  setSpriteRect(se,15-red+blue*16,15-green+alpha*16,1,1,0,0,n/2,5)
  setSpriteZOrder(se, 11)
  setSpritePosition(se, x1, y1)
  #ループ内で使うためdrawCanvas()を削除した

#戻り値の準備 #追加した部分
line_data = createArray()
line_data[0] = point #線分のなす角度に応じたポイント
line_data[1] = n #新しい線分の長さ #走行距離の計算に使おうとして作った
  return line_data

end #defのend
#線を引く関数応用ここまで

#線を消す関数ここから
def deleteline(b)
  if getVariable("line")[b]
    deleteSprite(getVariable("line")[b])
    getVariable("line")[b] = false #これを追加した
  end
  #ループ内で使うためdrawCanvas()を削除した
end
#線を消す関数ここまで