起動画面のタグがつけられたコード一覧

HSP 2010年4月につくられたコード。

	bgscr 0,500,300,,(ginfo_dispx-500)/2,(ginfo_dispy-300)/2
	#include"hsp3util.as"
	onclick gosub *move
	c1=255
	c2=c1
	c3=230
	x=200
	sn="Software"
	repeat
	redraw 0
	x=x-1
	if c1!0:c1=c1-5
	if c2!0:c2=c2-5
	if c3!0:c3=c3-5
	if c1=0:if c3=0:break
	color 255,255,230
	boxf
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	color
	font"tahoma",45
	pos 70,70:mes sn
	font"tahoma",15
	color c1,c2,c3
	pos 250,x:mes"Now Loading..."
	redraw 1
	await 01
	loop
	repeat 100
	redraw 0
	l=l+1
	color 255,255,230
	boxf
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	font"tahoma",15
	color c1,c2,c3
	pos 250,x:mes"Now Loading...  "+L+" %"
	color
	font"tahoma",45
	pos 70,70:mes sn
	redraw 1
	await 1
	loop
	repeat
	redraw 0
	x=x-1
	if c1!255:c1=c1+5
	if c2!255:c2=c2+5
	if c3!255:c3=c3+5
	if c12!255:c12=c12-5
	if c22!255:c22=c22-5
	if c32!255:c32=c32-5
	if c1=255:if c3=255:break
	color 255,255,230
	boxf
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	font"tahoma",15
	color c1,c2,c3
	pos 250,x:mes"Now Loading...  "+L+" %"
	color c12,c22,c32
	font"",15
	pos 250,x+45:mes"処理中"
	color
	font"tahoma",45
	pos 70,70:mes sn
	redraw 1
	await 1
	loop
	redraw 0
	redraw 1
	repeat 1
	text 500
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
;	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	color
	font"MS UI gothic",15
	pos 295,x+48:emes"..."
;
	color 255,255,255
	font"MS UI gothic",15
	pos 295,x+48:mes"..."
	await 500
	loop
	c1=0
	c2=0
	c3=0
	repeat 100
	if c1!255:c1=c1+5
	if c2!255:c2=c2+5
	if c3!255:c3=c3+5
	redraw 0
	x=x-1
	color 255,255,230
	boxf
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	font"",15
	color c1,c2,c3
	pos 250,x+48:mes"処理中"
	color
	font"tahoma",45
	pos 70,70:mes sn
	redraw 1
	await 1
	loop
	c1=255
	c2=255
	c3=255
	xx=200
	repeat 0
	if c1!0:c1=c1-5
	if c2!0:c2=c2-5
	if c3!0:c3=c3-5
	redraw 0
	xx=xx+1
	color 255,255,230
	boxf
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	font"",30
	color c1,c2,c3
	pos xx,90:mes"へようこそ"
	color
	font"tahoma",45
	pos 70,70:mes sn
	redraw 1
	await 1
	loop
	wait 100
	repeat
	y=y+5
	redraw 0
	color 255,255,230
	boxf
	gradf 0,233-y,650,200,1,$009ee6,$FFFFFF
	redraw 1
	if 230-y<-200:break
	await 1
	loop
	y=-100
	repeat 100
	redraw 0
	y=y+1
	gradf 0,233-y,650,200,1,$009ee6,$FFFFFF
	redraw 1
	await 1
	loop
	c1=0
	c2=0
	c3=0
	repeat
	redraw 0
	color 255,255,230
	boxf
	if c1!0:c1=c1-5
	if c2!0:c2=c2-5
	if c3!0:c3=c3-5
	font"tahoma",60
	color c1,c2,c3
	pos 100,50:mes sn
	font"",13
	color
	;pos 100,120:mes"実行する動作を選択してください"

	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	redraw 1
	await 1
	loop
	stop
*move
	if wparam=1 : sendmsg hwnd,$00A1,2,0
	return

よく投稿されているコード

タグ

最近投稿されたコード