これをできたら作ってくれますか？(こんなんでごめんなさい。)

タイトルどおり。


dialog "注意!これは雰囲気です。"
color 0,0,200:boxf
color 255,255,255
font "",50
pos 150,200
mes "Clear Manager Ver0.15
wait 10
mes "loading..."
wait 100
*Start
cls
sioak+rnd(94568)
pos -180,-680
font "",1000
color 0,0,128
mes "■"
color 255,255,255
pos 0,0
font "",30
mes "CLEAR MANAGER"
color 255,0,0
if ao2<=1 :mes "コンピュータが危険になっているかも！！\n見てみましょう。" :else :mes "安全です。"
pos 30,300
color 255,255,255
objsize 95,75
button goto "スキャン" , *scan
button goto "BOOST(ブースト)" , *boost
repeat
time = strf("%02d:", gettime(4)) + strf("%02d:", gettime(5)) + strf("%02d;", gettime(6)) + strf("%03d.", gettime(7))
title time
wait 0
loop
stop
*scan
	
	cls
	if ao2<=0 :goto *as:else :goto *Start
	stop
*as
x=-565
pers=1
repeat 2000
redraw 0
pos 0,0
color 255,255,255:boxf
color 0,0,0
font "",50
mes "エラーファイル:"+kb+"KB"
mes "総計不要ファイル:"+kb+"KB"
time = strf("%02d:", gettime(4)) + strf("%02d:", gettime(5)) + strf("%02d;", gettime(6)) + strf("%03d.", gettime(7))
title time
mes ""+pers+"%"
kb+1
if mmf>=20 :pers++ :mmf=0
mmf++
wait 0
redraw 1
loop
cls
repeat 604
redraw 0
pos 0,0
color 255,255,255:boxf
color 0,0,0
font "",50
mes "不要キャッシュ:"+kb1+"KB"
mes "総計不要ファイル:"+kb+"KB"
mes ""+per1+"%"
time = strf("%02d:", gettime(4)) + strf("%02d:", gettime(5)) + strf("%02d;", gettime(6)) + strf("%03d.", gettime(7))
title time
if aomw>=6 :per1++ :aomw=0
aomw++
kb++
kb1++
wait 1
redraw 1
loop
cls
*ended
repeat 606
redraw 0
color 255,255,255:boxf
color 0,0,0
font "",35
time = strf("%02d:", gettime(4)) + strf("%02d:", gettime(5)) + strf("%02d;", gettime(6)) + strf("%03d.", gettime(7))
title time
pos x,50
if kb>=50 : mes "不要キャッシュが, "+kb+"KB見つかりました" :mes "最適化をお勧めします" :else :goto *Start
mes "不要キャッシュが, "+kb+"KB見つかりました" :mes "最適化をお勧めします"
x+2
redraw 1
wait 0
loop ;2604KB
font "Consolas",57
pos 200,10
mes ""+kb+"KB"
font "メイリオ",50
button"開放",*kaiho
kb1=kb
stop

*kaiho
	cls
	repeat 202
	redraw 0
	color 255,255,255:boxf
	color 0,0,0
	font "Consolas",57
pos 200,10
mes ""+kb+"KB "
time = strf("%02d:", gettime(4)) + strf("%02d:", gettime(5)) + strf("%02d;", gettime(6)) + strf("%03d.", gettime(7))
title time
kb-13
if kb<=-9 :kb=0
font "",20
if kb<=2000 :mes "不要キャッシュを削除"
if kb<=1500 :mes "軽量化設定"
if kb<=1000 :mes "長時間放置アプリの終了"
if kb<=750  :mes "エラーのあるアプリをよくする"
if kb<=250  :mes "使用していないアクティブなプログラムを一度終了"
redraw 1
wait 1
loop
cls
color 128,128,255:boxf
color 255,255,255
font "Consolas",70
pos 250,40
mes "OK"
mes ""+kb1+"KB"
pos 300,0
font "メイリオ",20
mes "ブーストを使って軽量化しませんか?"　:button"Boost",*boost
ao2++
wait 300
goto *Start
stop
*boost
sioak=9725
tyoi=1
cls
repeat 100
redraw 0
pos 0,0
color 255,255,255:boxf
color 0,0,0
font "",tyoi
mes "FULBOOST"
mes ""+sioak+"MBを軽量化します."
tyoi+2
wait 1
redraw 1
loop
cls
ihd=0
font "",50
repeat 1389 
redraw 0
color 128,128,255:boxf
color 255,255,255
pos 100,100
ihd+7
font "",50
mes "準備中. "+ihd+"MB"

redraw 1
wait 0
loop
ihd+2
こんな投稿作ってごめんなさい。作ってほしいんです。
HSPTV!掲示板
