| これが現在制作しているインクルードです。
WTalk: Local 括弧1 括弧2 font 13pt Bold Pゴシック 通常 PaintPicture MessageWindow1.bmp 5 5 PaintPicture Args(1) 15 21 64 64 PaintPicture MessageWindow1.bmp 5 380 PaintPicture Args(5) 15 396 64 64 font RGB(100, 100, 100) PaintString 99 19 LSet(Nickname(Args(1)),60) PaintString 99 394 LSet(Nickname(Args(5)),60) font RGB(255, 255, 255) PaintString 97 17 LSet(Nickname(Args(1)),60) PaintString 97 392 LSet(Nickname(Args(5)),60)
If Left(Args(2),1) = "(" Then font RGB(100, 100, 100) PaintString 106 39 LSet(Args(2),60) font RGB(255, 255, 255) PaintString 104 37 LSet(Args(2),60) 括弧1 = "" ElseIf Left(Args(2),1) = "『" Then font RGB(100, 100, 100) PaintString 106 39 LSet(Args(2),60) font RGB(255, 255, 255) PaintString 104 37 LSet(Args(2),60) 括弧1 = "" Else font RGB(100, 100, 100) PaintString 106 39 "「$(LSet(Args(2),58))" font RGB(255, 255, 255) PaintString 104 37 "「$(LSet(Args(2),58))" 括弧1 = "」" Endif If (Args(3) = "") Or (Args(3) = "-") Then font RGB(100, 100, 100) PaintString (115 + TextWidth(Args(2))) 39 $(括弧1) font RGB(255, 255, 255) PaintString (113 + TextWidth(Args(2))) 37 $(括弧1) Refresh Wait Click Return Else For i = 3 To 4 font 13pt Bold Pゴシック 通常 RGB(100, 100, 100) PaintString 115 (39 + (i - 2) * 17) LSet(Args(i),60) font 13pt Bold Pゴシック 通常 RGB(255, 255, 255) PaintString 113 (37 + (i - 2) * 17) LSet(Args(i),60) If (Args(4) = "") Or (Args(4) = "-") Or (i = 4) Then font RGB(100, 100, 100) PaintString (115 + TextWidth(Args(i))) (39 + (i - 2) * 17) $(括弧1) font RGB(255, 255, 255) PaintString (113 + TextWidth(Args(i))) (37 + (i - 2) * 17) $(括弧1) Break Endif Next Endif
If Left(Args(6),1) = "(" Then font RGB(100, 100, 100) PaintString 106 414 LSet(Args(6),60) font RGB(255, 255, 255) PaintString 104 412 LSet(Args(6),60) 括弧2 = "" ElseIf Left(Args(6),1) = "『" Then font RGB(100, 100, 100) PaintString 106 414 LSet(Args(6),60) font RGB(255, 255, 255) PaintString 104 412 LSet(Args(6),60) 括弧2 = "" Else font RGB(100, 100, 100) PaintString 106 414 "「$(LSet(Args(6),58))" font RGB(255, 255, 255) PaintString 104 412 "「$(LSet(Args(6),58))" 括弧2 = "」" Endif If (Args(7) = "") Or (Args(7) = "-") Then font RGB(100, 100, 100) PaintString (115 + TextWidth(Args(6))) 414 $(括弧2) font RGB(255, 255, 255) PaintString (113 + TextWidth(Args(6))) 412 $(括弧2) Refresh Wait Click Return Else For f = 7 To 8 font 13pt Bold Pゴシック 通常 RGB(100, 100, 100) PaintString 115 (414 + (f - 6) * 17) LSet(Args(f),60) font 13pt Bold Pゴシック 通常 RGB(255, 255, 255) PaintString 113 (412 + (f - 6) * 17) LSet(Args(f),60) If (Args(8) = "") Or (Args(8) = "-") Or (f = 8) Then font RGB(100, 100, 100) PaintString (115 + TextWidth(Args(f))) (414 + (f - 6) * 17) $(括弧2) font RGB(255, 255, 255) PaintString (113 + TextWidth(Args(f))) (412 + (f - 6) * 17) $(括弧2) Break Endif Next Endif
Refresh Wait Click Return
#使用法 # WTalk A 〜 〜 〜 B 〜 〜 〜 # Aには上に表示するキャラ名を、Bには下に表示するキャラ名を入れます。 # ちなみに会話はそれぞれ三行まで表示できるようになっているので、 # AとBの間の会話が三行に満たない場合は「""」あるいは「-」をいれて # Argsを埋める必要があります
上下同時に画面会話を行うものなのですが、 下のキャラの会話が出ません。
|