起動画面とかに使ってください sn=ソフト名 です。 中2のときにつくったやつなんでバグとかあるかもしれないですｗｗｗ
起動画面とかに使ってください sn=ソフト名 です。 中2のときにつくったやつなんでバグとかあるかもしれないですｗｗｗ
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