申し訳ありません。
私の日本語の力では伝えられそうにありませんので、
長いですがソースを出しました。
宜しくお願いします
#include "hsp3util.as"
randomize
screen 0,720,540
miss=0
nannido=70
mbox_id=7
mbox2_id=2
mbox22_id=3
kyoushitsu_id=4
opening2_id=5
opening3_id=6
sky_id=8
roka_id=9
celload "mbox.png",mbox_id
celload "mbox2.gif",mbox2_id
celload "mbox22.gif",mbox22_id
celload "kyoushitsu.jpg",kyoushitsu_id
celload "opening2.jpg",opening2_id
celload "opening3.jpg",opening3_id
celload "sky439.jpg",sky_id
celload "roka.jpg",roka_id
kyoushitsu_x=0
kyoushitsu_y=0
mboxpos_x=40
mboxpos_y=380
mbox2pos_x=640
mbox2pos_y=500
mespos_x=60
mespos_y=400
text_wait=40
*top_menu
cls
picload "truetitle.png"
pos 275,400
objsize 120,40
objmode 2
font "HGS創英角ﾎﾟｯﾌﾟ体",25,0
button "スタート",*namaenyuuryoku
stop
*start
cls
buffer 1,720,540
celput opening2_id,0
gsel 0
repeat 257
redraw 0
color:boxf
gmode 3,,,cnt
pos 0,0
gcopy 1,0,0,720,540
wait 1
redraw 1
loop
text 40
color 0,0,0
font "HG丸ｺﾞｼｯｸM-PRO",20,1
sdim opening
opening(0)="文章１"
opening(1)="文章２"
opening(2)="文章３"
opening(3)="文章４"
a=0
y=140
while (a<4)
pos ginfo_winx/2-(strlen(opening(a))*(20/2))/2,y+20*a
emes opening(a)
pos 100
a=a+1
wend
wait 30
repeat
pos 440,380
font "HG丸ｺﾞｼｯｸM-PRO",12,0
color 0,0,0
mes "画面をクリック！"
onclick *jump
wait 100
pos 389,354
celput opening3_id,0
wait 100
loop
stop
*jump
click=0
if click<1{
if wparam&1{
click++
goto *main
}
}
stop
*fade1
buffer 1,720,540
pos 0,0
gcopy 0,0,0,720,540
gsel 0
repeat 257
redraw 0
color:boxf
pos 0,0
gmode 3,,,256-cnt
gcopy 1,0,0,720,540
wait 1
redraw 1
loop
buffer 1,720,540
pos kyoushitsu_x,kyoushitsu_y
celput kyoushitsu_id,0
pos mboxpos_x,mboxpos_y
celput mbox_id,0
gsel 0
repeat 257
redraw 0
color:boxf
gmode 3,,,cnt
pos 0,0
gcopy 1,0,0,720,540
wait 1
redraw 1
loop
return
*fade2
buffer 1,720,540
pos 0,0
gcopy 0,0,0,720,540
gsel 0
repeat 257
redraw 0
color:boxf
pos 0,0
gmode 3,,,256-cnt
gcopy 1,0,0,720,540
wait 1
redraw 1
loop
cls 4
buffer 1,720,540
pos kyoushitsu_x,kyoushitsu_y
celput roka_id,0
pos mboxpos_x,mboxpos_y
celput mbox_id,0
gsel 0
repeat 257
redraw 0
color:boxf
gmode 3,,,cnt
pos 0,0
gcopy 1,0,0,720,540
wait 1
redraw 1
loop
return
*main
gosub *fade1
font "HG丸ｺﾞｼｯｸM-PRO",25,1
ytxt(0)={"
文章
"}
ytxt(1)={"
文章
"}
mtxt(0)={"
文章
"}
mtxt(1)={"
文章
"}
mtxt(2)={"
文章
"}
atxt(0)={"
文章
"}
rtxt(0)={"
文章
"}
rtxt(1)={"
文章
"}
・
・
・
rtxt(13)={"
文章
"}
y=0
m=0
a=0
r=0
onclick goto *y1
*y1
pos kyoushitsu_x,kyoushitsu_y
celput kyoushitsu_id,0
pos mboxpos_x,mboxpos_y
celput mbox_id,0
wait 10
pos mespos_x,mespos_y
text text_wait
if y<3{
y+
split ytxt(y-1),"\n",sentence
linemax=stat
}
if y=3{
y+
goto *m1
}
if y>3{
goto *m1
}
wait 40
b=0
while (b<linemax)
emes sentence(b)
wait 40
b=b+1
wend
repeat
pos mbox2pos_x,mbox2pos_y
celput mbox2_id,0
wait 80
pos mbox2pos_x,mbox2pos_y
celput mbox22_id,0
wait 80
loop
stop
*m1
pos kyoushitsu_x,kyoushitsu_y
celput kyoushitsu_id,0
pos mboxpos_x,mboxpos_y
celput mbox_id,0
wait 10
pos mespos_x,mespos_y
text text_wait
if m<4{
m+
split mtxt(m-1),"\n",sentence
linemax=stat
}
if m=4{
m+
goto *a1
}
if m>4{
goto *a1
}
wait 40
b=0
while (b<linemax)
emes sentence(b)
wait 40
b=b+1
wend
repeat
pos mbox2pos_x,mbox2pos_y
celput mbox2_id,0
wait 80
pos mbox2pos_x,mbox2pos_y
celput mbox22_id,0
wait 80
loop
stop
*a1
pos kyoushitsu_x,kyoushitsu_y
celput kyoushitsu_id,0
pos mboxpos_x,mboxpos_y
celput mbox_id,0
wait 10
pos mespos_x,mespos_y
text text_wait
if a<2{
a+
split atxt(a-1),"\n",sentence
linemax=stat
}
if a=2{
a+
gosub *fade2
ma+
goto *r1
}
if a>2{
goto *r1
}
wait 40
b=0
while (b<linemax)
emes sentence(b)
wait 40
b=b+1
wend
repeat
pos mbox2pos_x,mbox2pos_y
celput mbox2_id,0
wait 80
pos mbox2pos_x,mbox2pos_y
celput mbox22_id,0
wait 80
loop
stop
*r1
cls 4
pos kyoushitsu_x,kyoushitsu_y
celput roka_id,0
pos mboxpos_x,mboxpos_y
celput mbox_id,0
wait 10
pos mespos_x,mespos_y
text text_wait
if r<15{
r+
split rtxt(r-1),"\n",sentence
linemax=stat
}
if r=15{
r+
goto *f1
}
if r>15{
goto *f1
}
wait 40
b=0
while (b<linemax)
emes sentence(b)
wait 40
b=b+1
wend
repeat
pos mbox2pos_x,mbox2pos_y
celput mbox2_id,0
wait 80
pos mbox2pos_x,mbox2pos_y
celput mbox22_id,0
wait 80
loop
stop
*f1
プログラムを実行して、進めていくと、
場面A→場面Bとなり、
場面Bで背景がroka.jpgになります。
しかし、場面Bでくりっくすると
場面Aの背景であるkyoushitsu.jpgが一瞬表示されます…
クリック時の背景
