画像ボタンについて

cls 2

if iparam=89:else:

	boxf
	
	
	x=0
	y=0
	
	repeat -1
	color 255,255,255
	y=y+1
	x=x+6
	boxf 40,420,x,440
	if x=600:break
	color 0,0,0
	boxf 600,420,640,440
	color 255,255,255
	pos 605,421:mes ""+y+"%"
	wait 10
	loop
	wait 100
	mmplay 27
	wait 100
	mmplay 25
	wait 100
	mmplay 13
	color 0,0,0
	boxf 0,420,600,440
	boxf 600,420,640,440
	color 255,255,255
	pos 605,421:mes "0%"
	wait 100

picload "a.bmp"
wait 100
	color 255,255,255
	wait 10
	mes "Tindows is starting up..."
	wait 10
	wait 10
	mmplay 24

	onkey 0
	if k=1:goto
	wait 200
	color 255,255,255
	mes "loading bootable disk..."
	await 10
	mmplay 6
	
	pos 200,380
	color 255,255,0
	mes "Tindows is loading files..."
	
	x=40
	repeat -1
	x=x+2
	await 30
	boxf 40,420,x,440
	if x=600:break
	loop
repeat 5
cls 2
objsize 200,100
font msmincho,40,1
mes "Tindows 2013へようこそ!"
mes "しばらくお待ちください。"
objsize 200,100
pos 200,200
await 600
mes "準備中"
pos 200,200
await 600
mes "準備中・"
await 600
objsize 200,100
pos 200,200
mes "準備中・・"
await 600
pos 200,200
mes "準備中・・・"
await 1000
loop

*sa
wait 200
cls 2
color 255,255,0
font msmincho,20,2
mes "Tindows 2013へようこそ！"
wait 300
cls 1

#define SIZE 40
buffer 1, SIZE * 3, SIZE
color 0,0,0
boxf 1, 8, SIZE - 5, SIZE - 5
boxf 2, 3, 16, 8
color 250, 240, 120
boxf 2, 9, SIZE - 6, SIZE - 6
boxf 3, 4, 15, 8
color 100, 50
boxf SIZE * 2 + 1, 8, SIZE * 3 - 5, SIZE - 5
boxf SIZE * 2 + 2, 3, SIZE * 2 + 16, 8
color 250, 240, 120
boxf SIZE * 2 + 2, 9, SIZE * 3 - 6, SIZE - 6
boxf SIZE * 2 + 3, 4, SIZE * 2 + 15, 8
color 100, 50
boxf SIZE * 1 + 1, 10, SIZE * 2 - 5, SIZE - 5
px = SIZE * 2 + 6, SIZE * 3 - 0, SIZE * 3 - 3, SIZE * 2 + 3
py = 11, 11, SIZE - 4, SIZE - 4
cx = SIZE * 1 + 1, SIZE * 2 - 3, SIZE * 2 - 3, SIZE * 1 + 3
cy = 10, 10, SIZE - 5, SIZE - 5
gsquare 1, px, py, cx, cy
color 250, 240, 120
boxf SIZE * 1 + 1, 10, SIZE * 2 - 5, SIZE - 5
px = SIZE * 2 + 7, SIZE * 3 - 1, SIZE * 3 - 4, SIZE * 2 + 4
py = 12, 12, SIZE - 6, SIZE - 6
cx = SIZE * 1 + 1, SIZE * 2 - 3, SIZE * 2 - 3, SIZE * 1 + 3
cy = 10, 10, SIZE - 5, SIZE - 5
gsquare 1, px, py, cx, cy
color 50, 40, 0
boxf SIZE * 1 + 1, 8, SIZE * 2 - 5, SIZE - 5
boxf SIZE * 1 + 2, 3, SIZE * 1 + 16, 8
gsel 0
objsize SIZE, SIZE
objimage 1, , , SIZE, , SIZE * 2
repeat 1
pos 10, cnt * SIZE + 20
button gosub "メモ帳", *push
loop
stop

*push
onclick 0
	x=0
	y=40
	g=6

	mmplay 16
	color 0,0,0
	boxf 0,460,200,480
	color 0,255,0:pos 1,461:mes "しばらくお待ちください。"
	wait 200
	cls 3
	color 255,255,255:boxf 0,20,640,35:boxf 20,60,620,440
	pos 0,0:mes "メモ(無題) - NOTEPAD"
	color 0,0,0:boxf 0,460,640,480
	pos 10,20:mes "ファイル|編集|書式|表示|ヘルプ|　"
	objsize 64,20
	pos 575,0
	picload ""
	button "　×　",*sa

	onkey gosub *type


	stop


*type
	mmplay 13
	x=x+20
	
	if x=620 : x=20
	if x=20 : y=y+20
	pos x,y
	
	g=g+1
	if g=7 : g=1
	if g=1 : mes "a"
	if g=2 : mes "a"
	if g=3 : mes "a"
	if g=4 : mes "a"
	if g=5 : mes "a"
	if g=6 : mes "a"
	if y=440 : goto *sa
return
stop
ボタンの画像をpicloadで指定できますか？また、パスワードを入力して、
あっていた場合にだけクーポンコードを表示できるということはできますか？
HSPTV!掲示板
