両方を同じ場所に保存して実行してみてください。
空行までが人まとまりとして表示されます。
画面から飛び出たりしますが、それは自分で治してください。
main.hsp
notesel note
noteload "arc.txt";メッセージ取得
nextline = -1
repeat
getkey Lcrick,1
if Lcrick == 1 && b_Lcrick == 0{;もし右クリックしていたら
nextline++
n = 0
repeat
noteget message(cnt),nextline+cnt;ノートから次の行を読み出す。
if message(cnt) == ""{
n = cnt
break
}
loop
nextline += n
}
b_Lcrick = Lcrick
getkey Esc,27;終了
if Esc == 1:noteunsel:end
redraw 0
color 0,0,0;枠描画
boxf 0,350,639,479
color 255,255,255
boxf 1,351,638,478
color 0,0,0;メッセージ描画
repeat n+1
pos 10,360+(17*cnt)
mes ""+message(cnt)
loop
redraw 1
wait 3
loop
noteunsel
arc.txt
中学の時、英語の辞書忘れたから隣の女子のを共同で使わせてもらった。
家も近所だし気さくで話しやすいやつだったもんで、
彼女が見てない隙に、ふざけてその辞書の「v○gina」の項を○で囲んでやった。
…あれから10年以上が経ち、そんな事ずっと忘れてた。
盆休みで実家に帰省して仕事の整理をしてた時の事。
英語の辞書が必要になって、中学時代のを探し出して使った。
そしたら憶えの無い落書きをみつけた。
「p○nis」が○で囲んであって余白に「お返しだバーカ昼休みに図書室で待つ」と書い
てある。それで思い出した。
あの時あたりからだったか、彼女は昼休みになると真っ先に教室から出て行くようにな
った。
俺は「何委員だか知らないけど忙しいんだなぁ」なんて思ってた。
中学最後の昼休みも、彼女は教室にいなかったっけ…。
で、嫁にそれ見せたら顔真っ赤にして「今頃みつけるな！」だって。
END
シュミレーションゲーム等の文章表示に関して
