HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決 解決 停止 削除要請

2015
0906		Mituking[元mituki]SUPER2000 作ってみました。 osモドキ20解決


Mituking[元mituki]

リンク

2015/9/6(Sun) 15:17:16|NO.71411

長いですが、我慢です・・・


//	まずファイルがあるか確認
	exist "installedpack-1.dat"
	if strsize=-1:goto *bs

//	おなじない
	notesel data

//	ファイルを読み込みます
	noteload "installedpack-1.dat"

//	そのまま表示する
	goto *super20001
*bs
repeat

am++
if am<=50 :title ""
if am=50 :title "BIOS-DOS-COMMAND Ver 5.10.9 BETATEST3 OS INSTALL CHECK" 
if am=100 :am=0
	getkey key,89
	getkey key1,78
	redraw 0
	color 0,0,0:boxf
	color 255,255,255
	pos 0,0
color 255,255,255
mes "install OS : Super2000 ok? n/y"
wait 1
redraw 1

	if key=1{
	color 255,255,255
	mes "y"
	mes "Setup Loading..."
	wait 300
	goto *ins1
	stop
}
	if key1=1{
	color 255,255,255
	mes "n"
	mes "Boot shutdowning..."
	wait 300
	end
	stop
}
loop
stop
*ins1
color 0,0,255:boxf
color 255,255,255
pos 0,0
title "Super2000 *prored* Setupter ・・・By mituki"
mes "===============\nSuper2000 Setup\n==============="

	;	stick命令によるメニュー選択サンプル
	;

	pos 300,180:mes "Copy in install"
	pos 300,200:mes "setup end"
	a=0
	x=280:y=180:sel=0:maxsel=1
*selmain
	color 0,0,255:boxf x,y,x+20,y+20
	y=sel*20+180
	color 255,255,255
	pos x,y:mes "->"
*selloop
	stick a,1
	if a&2 : a=-1:goto *selchg
	if a&8 : a=1:goto *selchg
	if a&$30 : goto *selok
	await 10:goto *selloop
*selchg
	a=a+sel
	if (a<0)or(a>maxsel) : a=sel
	sel=a:goto *selmain
*selok
	if sel=0 : goto *ins2
	if sel=1 : end
	
stop
*ins2
	color 0,0,255:boxf
	color 255,255,255
	ax=10
	
	repeat 100
	nyao++
	title "Super2000 *prored* Setupter ・・・ "+nyao+"%"
pos ax,180

ax+5
mes "[]\n[]"
wait rnd(5)
loop
pos 300,180
color 0,0,255:boxf
color 255,255,255
//	バッファ確保
	sdim data

//	0バイト目に数値データを書き出します
	lpoke data,0,500
//	同じように4バイト目、8バイト目に
	lpoke data,4,100
	lpoke data,8,777

//	ファイルとして出力する
	bsave "installedpack-1.dat",data
mes "Setup OK wait..."
wait 50
goto *ins21
stop
*ins21
	cls 4
wait 10
color 255,255,255
mes "おまちください・・・"
*startup
mes "LOADING..."
wait 100
*super20001
title "super2000 [prored] Ver 1.3 β1"
screen 0,956,750
*super2000
repeat 

stam= strf("%04d/" , gettime(0)) + strf("%02d/" , gettime(1)) + strf("%02d\n   " , gettime(3)) + strf("%02d:" , gettime(4))  + strf("%02d:" , gettime(5)) + strf("%02d" , gettime(6)) 
redraw 0
clrobj
color 255,255,255 :boxf
color 250,51,84
boxf 0,700,2000,800
color 128,128,128
font "",30
pos 700,0
mes "super2000 [prored]"
objsize 140,50
pos 0,700
objmode 2
font "",30
button "MENU",*super2000open

pos 810,700
font "",27
color 0,0,0
mes stam
redraw 1
wait 100
loop
stop
*super2000open
	repeat
stam= strf("%04d/" , gettime(0)) + strf("%02d/" , gettime(1)) + strf("%02d\n   " , gettime(3)) + strf("%02d:" , gettime(4))  + strf("%02d:" , gettime(5)) + strf("%02d" , gettime(6))
	redraw 0
	color 255,255,255:boxf
	color 0,0,0
	color 250,51,84
boxf 0,700,2000,800
	clrobj
color 0,0,0
boxf 0,800,150,-5
objsize 140,50
pos 0,700
objmode 2
font "",30
button "MENU",*super2000
pos 0,625
	button "カラー", *select
	pos 0,575
	button "notepad",*notpad
	font "",17
	pos 0,525
    button "OS情報と作者コメ",*kom
    pos 810,700
font "",27
mes stam
    wait 100
    redraw 1
    loop
	stop
/*             APP ZONE          */
*select
	dialog , 33 ,"色々の色の背景を出せます。"

	if stat = 0 {
		stop
	}

	color ginfo (16), ginfo (17), ginfo (18) :boxf
	redraw 0
color 128,128,128
font "",30
pos 700,0
mes "super2000 [prored]"
color 0,0,0
boxf 0,800,150,-5
color 235,185,22
boxf 0,700,2000,800
redraw 1
stop
*notpad
	color 0,0,0:boxf
	clrobj
	
	color 255,255,255
	data=81;(文字数)
sdim buf,data
objmode 2

;背景色
	color 0,0,0 : boxf	
;入力ボックス
	font "MS UI Gothic" , 30 , 1

	sdim num(cnt),1
	
	
		pos 20,50
		input num(cnt), 1000,600,1000

;保存ボタン
	objsize 130 , 50, 2 : pos  80,  0 : button "内容保存" , *save1
;開くボタン
	objsize 130 , 50, 2 : pos 210 , 0 : button "内容読込" , *load1
	
	                    : pos 420 , 0 : button "終わる" , *super2000
stop

*save1
	dialog "nmp", 17,"保存する名前を入力して下さい[どこかファイルを作る必要があります。]"
	buf=""
	file=refstr
	if stat{
		
			if num(cnt)="" : num(cnt)="E" //何も入力してないところの対応策
			buf+num(cnt)
		
		bsave file,buf,81
	}
stop

*load1
	dialog "nmp", 16 , "書いてる途中を戻します"
	if stat{
		buf = "" // ゴミが残るのを防ぐ
		bload refstr,buf,81 // 変数に読み込む
		repeat 81
			num(cnt)=strmid(buf,cnt,1)
			if num(cnt)="E" : num(cnt)="" //何も入力してないところの対応策
			objprm cnt,num(cnt)
		loop
	}
stop
*kom
	clrobj
	color 255,255,255:boxf
	buf="===OS情報===\nSuper2000 prored\nBy mituki\nHSP3で作ったOSモドキです。\n自分はOSを作るのが大好きなので、作っています。\n色々中途半端でごめんなさい・・・\nHSP暦が短いですが、今後よろしくお願いします。"
	pos 50,50
	mesbox buf, 300, 100, 0
button "BACK",*super2000



この記事に返信する

mjhd

リンク

2015/9/6(Sun) 15:51:04|NO.71414

インストールデータがあればインストール画面をスキップしてるみたいで、工夫されてるなと思いました。
インストール画面、WindowsXPっぽくて私は好きです。

「notepad」機能、一度保存したデータが正常に読み込めないようです。



？

リンク

2015/9/6(Sun) 16:10:41|NO.71415

>感想
・ウィンドウが無駄にでかくてボタンが押しづらい。
・notepadのテキストボックスが一行しか入力できない。
・ファイルを読み込むとボタンのラベルが変わり、内部エラー(Error 3 line 252)まで発生する。
・カラーから色を選択した後、メニューを閉じると色が戻る。



rikuriku112233

リンク

2015/9/6(Sun) 17:03:49|NO.71417

感想

・普通に使えます（ボタン以外）
・インストール画面がXP風なのが面白い（個人的にはwindows7からの方が好きかな...）
・環境によりますけどwindows8、8.1、10ではタスクバーがでかいのでスタートボタンを
押すのが至難の業ですｗ
　ウィンドウサイズをもっと小さくしたほうがいいと思います



Mituking[元mituki]

リンク

2015/9/7(Mon) 22:01:49|NO.71453

一応小さくしたのですが、はい。
一応できるところまで、よろしいですか？



Mituking[元mituki]

リンク

2015/9/7(Mon) 22:03:04|NO.71454

我慢できるなら

X=650 : Y=500

SCREEN X,Y

ですね。



Mituking[元mituki]

リンク

2015/9/7(Mon) 22:03:31|NO.71455

最初に0つけるの忘れました。
時間がないのでおやすみ



Mituking[元mituki]

リンク

2015/9/8(Tue) 17:47:41|NO.71494

本当に申し訳ありません。カラー機能とnotepadのロード+せーぶ　機能を消しました・・・


//	まずファイルがあるか確認
	exist "installedpack-1.dat"
	if strsize=-1:goto *bs

//	おなじない
	notesel data

//	ファイルを読み込みます
	noteload "installedpack-1.dat"

//	そのまま表示する
	goto *super20001
*bs
repeat

am++
if am<=50 :title ""
if am=50 :title "BIOS-DOS-COMMAND Ver 5.10.9 BETATEST3 OS INSTALL CHECK" 
if am=100 :am=0
	getkey key,89
	getkey key1,78
	redraw 0
	color 0,0,0:boxf
	color 255,255,255
	pos 0,0
color 255,255,255
mes "install OS : Super2000 ok? n/y"
wait 1
redraw 1

	if key=1{
	color 255,255,255
	mes "y"
	mes "Setup Loading..."
	wait 300
	goto *ins1
	stop
}
	if key1=1{
	color 255,255,255
	mes "n"
	mes "Boot shutdowning..."
	wait 300
	end
	stop
}
loop
stop
*ins1
color 0,0,255:boxf
color 255,255,255
pos 0,0
title "Super2000 *prored* Setupter ・・・By mituki"
mes "===============\nSuper2000 Setup\n==============="

	;	stick命令によるメニュー選択サンプル
	;

	pos 300,180:mes "Copy in install"
	pos 300,200:mes "setup end"
	a=0
	x=280:y=180:sel=0:maxsel=1
*selmain
	color 0,0,255:boxf x,y,x+20,y+20
	y=sel*20+180
	color 255,255,255
	pos x,y:mes "->"
*selloop
	stick a,1
	if a&2 : a=-1:goto *selchg
	if a&8 : a=1:goto *selchg
	if a&$30 : goto *selok
	await 10:goto *selloop
*selchg
	a=a+sel
	if (a<0)or(a>maxsel) : a=sel
	sel=a:goto *selmain
*selok
	if sel=0 : goto *ins2
	if sel=1 : end
	
stop
*ins2
	color 0,0,255:boxf
	color 255,255,255
	ax=10
	
	repeat 100
	nyao++
	title "Super2000 *prored* Setupter ・・・ "+nyao+"%"
pos ax,180

ax+5
mes "[]\n[]"
wait rnd(5)
loop
pos 300,180
color 0,0,255:boxf
color 255,255,255
//	バッファ確保
	sdim data

//	0バイト目に数値データを書き出します
	lpoke data,0,500
//	同じように4バイト目、8バイト目に
	lpoke data,4,100
	lpoke data,8,777

//	ファイルとして出力する
	bsave "installedpack-1.dat",data
mes "Setup OK wait..."
wait 50
goto *ins21
stop
*ins21
	cls 4
wait 10
color 255,255,255
mes "おまちください・・・"
*startup
mes "LOADING..."
wait 100
*super20001
title "super2000 [prored] Ver 1.3 β2"
screen 0,780,550
*super2000
repeat 

stam= strf("%04d/" , gettime(0)) + strf("%02d/" , gettime(1)) + strf("%02d\n   " , gettime(3)) + strf("%02d:" , gettime(4))  + strf("%02d:" , gettime(5)) + strf("%02d" , gettime(6)) 
redraw 0
clrobj
	color 152,215,185 :boxf 
color 0,0,0
pos 550,150
boxf 0,800,150,-5
	color 250,51,84
boxf 0,500,2000,550
font "",30
pos 300,0
mes "super2000 [prored]"
objsize 140,50
pos 0,500
objmode 2
font "",30
button "MENU",*super2000open


    pos 550,0
    color 0,0,0
font "",27
mes stam
redraw 1
wait 100
loop
stop
*super2000open
	repeat
stam= strf("%04d/" , gettime(0)) + strf("%02d/" , gettime(1)) + strf("%02d\n   " , gettime(3)) + strf("%02d:" , gettime(4))  + strf("%02d:" , gettime(5)) + strf("%02d" , gettime(6))
	redraw 0
	color 152,215,185 :boxf 
	color 0,0,0

	clrobj
color 0,0,0
pos 550,150
boxf 0,800,150,-5
	color 250,51,84
boxf 0,500,2000,550
objsize 140,50
pos 0,500
objmode 2

button "MENU",*super2000
pos 0,300
font "",21
	button "終了オプション", *endop
	font "",30
	pos 0,250
	button "notepad",*notpad
	font "",17
	pos 0,200
    button "OS情報と作者コメ",*kom
    pos 500,0
font "",27
   color 0,0,0
mes stam
    wait 100
    redraw 1
    loop
	stop
/*             APP ZONE          */
*notpad ;本当にごめんなさい。セーブ+ロード機能を消しました。
cls 4
	clrobj
	wait 1
	color 255,255,255
	data=81;(文字数)
sdim buf,data
objmode 2

;背景色
cls 4
	
;入力ボックス
	font "MS UI Gothic" , 30 , 1

	sdim num(cnt),1
	
	
		pos 20,50
		input num(cnt), 1000,600,1000
	      objsize 80,50              : pos 420 , 0 : button "終わる" , *super2000

stop
*kom
	cls 4
	clrobj
	wait 10
	buf="===OS情報===\nSuper2000 prored\nBy mituki\nHSP3で作ったOSモドキです。\n自分はOSを作るのが大好きなので、作っています。\n色々中途半端でごめんなさい・・・\nHSP暦が短いですが、今後よろしくお願いします。"
	pos 50,50
	mesbox buf, 500, 100, 0
button "BACK",*super2000
stop
*endop
	cls
	clrobj 0,3
ss=255
repeat 51
color ss,ss,ss :boxf
ss-5
wait 0
loop
color 255,255,255
font "",30,2
mes "Super2000,ENDOPTION."
pos 0,50
objmode 1
objsize 70,30
button"終了",*ends
pos 70,50
button"再起動",*restart
pos 140,50
button"戻る",*super2000
stop
*ends
cls 4
wait 200
nn=3
repeat 4
color 154,205,254:boxf
color 0,0,0
pos 0,0
font "",35
mes "Super2000をシャットダウンしています。\n残り"+nn+"秒で終了します。"
nn-1
wait 100
loop
repeat 10
pos 0,0
color 0:boxf
color 255,255,255
font "",45
mes "_"

wait 10


color 0:boxf
color 255,255,255
mes ""

wait 10
loop
wait 10
end
stop
*restart
cls 4
wait 100
color 154,205,254:boxf
color 0,0,0
mes "変数などの初期化・・・"
wait 100
mes "再起動中"
wait 200
goto *super20001



？

リンク

2015/9/8(Tue) 19:42:39|NO.71496

>感想
・notepadのテキストボックスが一行しか入力できない。
inputでは無くmesboxを使うことで複数行の入力を実現できる。



Mituking[元mituki]

リンク

2015/9/8(Tue) 22:12:37|NO.71507

色々追加しました。



//	まずファイルがあるか確認
	exist "installedpack-1.dat"
	if strsize=-1:goto *bs

//	おなじない
	notesel data

//	ファイルを読み込みます
	noteload "installedpack-1.dat"

//	そのまま表示する
	goto *super20001
*bs
repeat

am++
if am<=50 :title ""
if am=50 :title "BIOS-DOS-COMMAND Ver 5.10.9 BETATEST3 OS INSTALL CHECK" 
if am=100 :am=0
	getkey key,89
	getkey key1,78
	redraw 0
	color 0,0,0:boxf
	color 255,255,255
	pos 0,0
color 255,255,255
mes "install OS : Super2000 ok? n/y"
wait 1
redraw 1

	if key=1{
	color 255,255,255
	mes "y"
	mes "Setup Loading..."
	wait 300
	goto *ins1
	stop
}
	if key1=1{
	color 255,255,255
	mes "n"
	mes "Boot shutdowning..."
	wait 300
	end
	stop
}
loop
stop
*ins1
color 0,0,255:boxf
color 255,255,255
pos 0,0
title "Super2000 *prored* Setupter ・・・By mituki"
mes "===============\nSuper2000 Setup\n==============="

	;	stick命令によるメニュー選択サンプル
	;

	pos 300,180:mes "Copy in install"
	pos 300,200:mes "setup end"
	a=0
	x=280:y=180:sel=0:maxsel=1
*selmain
	color 0,0,255:boxf x,y,x+20,y+20
	y=sel*20+180
	color 255,255,255
	pos x,y:mes "->"
*selloop
	stick a,1
	if a&2 : a=-1:goto *selchg
	if a&8 : a=1:goto *selchg
	if a&$30 : goto *selok
	await 10:goto *selloop
*selchg
	a=a+sel
	if (a<0)or(a>maxsel) : a=sel
	sel=a:goto *selmain
*selok
	if sel=0 : goto *ins2
	if sel=1 : end
	
stop
*ins2
	color 0,0,255:boxf
	color 255,255,255
	ax=10
	
	repeat 100
	nyao++
	title "Super2000 *prored* Setupter ・・・ "+nyao+"%"
pos ax,180

ax+5
mes "[]\n[]"
wait rnd(5)
loop
pos 300,180
color 0,0,255:boxf
color 255,255,255
//	バッファ確保
	sdim data

//	0バイト目に数値データを書き出します
	lpoke data,0,500
//	同じように4バイト目、8バイト目に
	lpoke data,4,100
	lpoke data,8,777

//	ファイルとして出力する
	bsave "installedpack-1.dat",data
mes "Setup OK wait..."
wait 50
goto *ins21
stop
*ins21
	cls 4
wait 10
color 255,255,255
mes "おまちください・・・"
*startup
mes "LOADING..."
wait 100
*super20001
title "super2000 [prored] Ver 1.3 β2"
screen 0,780,550

*super2000
repeat 

stam= strf("%04d/" , gettime(0)) + strf("%02d/" , gettime(1)) + strf("%02d\n   " , gettime(3)) + strf("%02d:" , gettime(4))  + strf("%02d:" , gettime(5)) + strf("%02d" , gettime(6)) 
redraw 0
clrobj
	color 152,215,185 :boxf 
color 0,0,0
pos 550,150
boxf 0,800,150,-5
	color 250,51,84
boxf 0,500,2000,550
font "",30
pos 300,0
mes "super2000 [prored]"
objsize 140,50
pos 0,500
objmode 2
font "",30
button "MENU",*super2000open


    pos 550,0
    color 0,0,0
font "",27
mes stam
redraw 1
wait 100
loop
stop
*super2000open
	repeat
stam= strf("%04d/" , gettime(0)) + strf("%02d/" , gettime(1)) + strf("%02d\n   " , gettime(3)) + strf("%02d:" , gettime(4))  + strf("%02d:" , gettime(5)) + strf("%02d" , gettime(6))
	redraw 0
	color 152,215,185 :boxf 
	color 0,0,0

	clrobj
color 0,0,0
pos 550,150
boxf 0,800,150,-5
	color 250,51,84
boxf 0,500,2000,550
objsize 140,50
pos 0,500
objmode 2

button "MENU",*super2000
pos 0,309
font "",21
	button "終了オプション", *endop
	font "",30
	pos 0,259
	button "notepad",*notpad
	font "",17
	pos 0,209
    button "OS情報と作者コメ",*kom
    pos 0,159
    button "タイマー",*goting
    pos 0,109
    button "設定",*option
    pos 500,0
font "",27
   color 0,0,0
mes stam
    wait 100
    redraw 1
    loop
	stop
/*             APP ZONE          */
*notpad ;本当にごめんなさい。セーブ+ロード機能を消しました。
cls 4
	clrobj
	wait 1
	color 255,255,255
	data=81;(文字数)
sdim buf,data
objmode 2
;背景色
cls 4
;入力ボックス
	font "MS UI Gothic" , 30 , 1

	sdim buf(cnt),32776 ;32KB分確保
	

	pos 10, 10
	

		pos 20,50
	mesbox buf(cnt), 750, 480
	      objsize 80,50              : pos 420 , 0 : button "終わる" , *super2000 :color 255,255,255:pos 520,50 :mes cnt

stop
*kom
	cls 4
	clrobj
	wait 10
	buf="===OS情報===\nSuper2000 prored\nBy mituki\nHSP3で作ったOSモドキです。\n自分はOSを作るのが大好きなので、作っています。\n色々中途半端でごめんなさい・・・\nHSP暦が短いですが、今後よろしくお願いします。"
	pos 50,50
	mesbox buf, 500, 100, 0
button "BACK",*super2000
stop
*endop
	cls
	clrobj 0,3
ss=255
repeat 51
color ss,ss,ss :boxf
ss-5
wait 0
loop
color 255,255,255
font "",30,2
mes "Super2000,ENDOPTION."
pos 0,50
objmode 1
objsize 70,30
button"終了",*ends
pos 70,50
button"再起動",*restart
pos 140,50
button"戻る",*super2000
stop
*ends
cls 4
wait 200
nn=3
repeat 4
color 154,205,254:boxf
color 0,0,0
pos 0,0
font "",35
mes "Super2000をシャットダウンしています。\n残り"+nn+"秒で終了します。"
nn-1
wait 100
loop
repeat 10
pos 0,0
color 0:boxf
color 255,255,255
font "",45
mes "_"

wait 10


color 0:boxf
color 255,255,255
mes ""

wait 10
loop
wait 10
end
stop
*restart
cls 4
wait 100
color 154,205,254:boxf
color 0,0,0
mes "変数などの初期化・・・"
wait 100
mes "再起動中"
wait 200
goto *super20001
stop
	
dim a :dim b :dim ca
dim aaa : dim num 
*goting


	cls
	objmode 1
   
	aas=200
	num=70

	pos 0,0
	button "時間設定",*set
	button "スタート",*start
    button "も ど る",*super2000
	font "",70,2
	pos 200,200
	mes strf("%03d:", a) +  strf("%02d:", b) + strf("%02d", ca)
	stop


*set

	cls

	color 150,150,150
	font "",70,2
	pos 200,200
	mes strf("%03d:", a) +  strf("%02d:", b) + strf("%02d", ca)

	color 0,0,0
	font "",30
	pos 0,0
	mes "必要な時間を設定してください。"

	pos 0,100
	objmode 2
	input a,,40,3

	pos 70,100
	mes ":"

	pos 80,100
	input b,,40,2

	pos 150,100
	mes ":"

	pos 160,100
	input ca,,40,2

	objmode 1
	button"完了",*che_k

	stop


*start

	clrobj

	//だんだん大きくする
	repeat 30
		redraw 0
		color 255,255,255:boxf
		color 0,0,0
		num++
		font "",num,2
		pos aas,aas
		aas-=3

		mes strf("%03d:", a) +  strf("%02d:", b) + strf("%02d", ca)
		wait 5
		redraw 1
	loop

	//カウント部
	button "中止",*goting
	repeat
	d=0
		redraw 0
		color 255,255,255:boxf
		color 0,0,0
		font "",num,2
		pos aas,aas
		if ca<0 : ca=59 : b--
		if b<0  : b=59  : a--
		if a<0{
			dialog "おしまい"
			a=0 : b=0 : ca=0 :d=0
			break
		}
		//aa = 
		mes strf("%03d:", a) +  strf("%02d:", b) + strf("%02d", ca)
		ca--
		await 1000
		redraw 1
	loop
	
	goto *dd

*che_k
	
if b>=60  | b<0  : b=59
if ca>=60 | ca<0 : ca=59

goto *goting
stop
*dd
	repeat 30
		redraw 0
		color 255,255,255:boxf
		color 0,0,0
		num--
		font "",num,2
		pos aas,aas
		aas+=3

		mes strf("%03d:", a) +  strf("%02d:", b) + strf("%02d", ca)
		wait 5
		redraw 1
	loop
	goto *goting
	stop
*option
cls
color 245,245,245:boxf
pos 8,8
color 128,128,128

font "",30
mes "設定"
pos 6,6
color 0,0,0
font "",30
mes "設定"
pos 6,37
color 128,128,128

font "",30
mes "設定では、初期化や、色々なことをいじれます。(?)"
pos 7,35
color 0,0,0
font "",30
mes "設定では、初期化や、色々なことをいじれます。(?)"
objmode 2
font "",30
objsize 100,40
button "初期化",*shokika
stop
*shokika
dialog "注意!これを実行すると初期化されます。本当にいいですか？" , 3 , "delete.exeの準備完了"
if stat=6 {
dialog "本当に今までのデータが消去されます。よろしいですか？" , 3 , "deleteoption.exeの準備完了"
}
if stat=7 {
dialog "初期化を中止します。" , 0 , "中止"
}

if stat=6 {
	dialog "それでは開始します・・・"
}
clrobj
rekab1=245
repeat 246
color rekab1,rekab1,rekab1:boxf
rekab1-=1
wait 1
loop
title "BIOS-DOS-COMMAND Ver 5.10.9 BETATEST3 ALL DELETE MODE"
color 0,0,0:boxf
color 255,255,255
font "",15
pos 0,0
mes " All delete start..."
wait 100
mes "Deleteed file...=system,load.png="
mes "Deleteed file...=system,load.gif="
mes "Deleteed file...=system,load.bmp="
wait 10
mes "Deleteed file...=loadmodeh-1="
wait 10
mes "Deleteed file...=loadmodeh-2="
wait 10
mes "Deleteed file...=usermenu="
wait 10
mes "Deleteed file...=objfile-button="
wait 10
mes "Deleteed file...=objfile-mesbox="
wait 10
mes "Deleteed file...=objfile="
wait 10
mes "Deleteed file...=beep="
wait 10
mes "Deleteed file...=system32="
wait 50
mes "Deleteed file...=super2000osfont="
wait 80
mes "Deleteed file...=OS="
wait 20
mes "All deleteed? check..."
wait 100
mes "need file...=system,load.png="
mes "need file...=system,load.gif="
mes "need file...=system,load.bmp="
wait 10
mes "need file...=loadmodeh-1="
wait 10
mes "need file...=loadmodeh-2="
wait 10
mes "need file...=usermenu="
wait 10
mes "need file...=objfile-button="
wait 10
mes "need file...=objfile-mesbox="
wait 10
mes "need file...=objfile="
wait 10
mes "need file...=beep="
wait 10
mes "need file...=system32="
wait 50
mes "need file...=super2000osfont="
wait 80
mes "need file...=OS="
delete "installedpack-1.dat"
goto *bs



？

リンク

2015/9/8(Tue) 23:45:32|NO.71509

>感想
初期化を取り消しても初期化が始まる。



葡萄色

リンク

2015/9/9(Wed) 11:15:21|NO.71520

直接ソースコードを貼らずに実行ファイル、もしくはソースファイルにまとめて配布した方が良いですよ。



Mituking[元mituki]

リンク

2015/9/9(Wed) 18:12:03|NO.71534

URLは、


http://fast-uploader.com/file/6997345286680/
PASSWORDは、


Aomd35Cnxmo29a
で公開



Mituking[元mituki]

リンク

2015/9/9(Wed) 18:13:23|NO.71535

img fileは消してください。消すのを忘れてしまいました・・・ノ(-_-)I_



Mituking[元mituki]

リンク

2015/9/12(Sat) 13:14:21|NO.71614

あんま来ない・・・



？

リンク

2015/9/12(Sat) 16:24:28|NO.71618

>感想
タイマー作動中に一時止めると2秒縮まる。
メニューの項目から時折2回クリックしないと反応しない場合がある。



mituki_sumaho

リンク

2015/9/12(Sat) 19:41:22|NO.71619

どうすればいいです?



Mituking[元mituki]

リンク

2015/9/17(Thu) 19:26:28|NO.71768

インストール用パスワード hs2 hsp super 2000
https://kie.nu/2Jj2
こちらからインストールをよろしくお願いします。



Mituking[元mituki]

リンク

2015/9/17(Thu) 19:29:50|NO.71769

[SUPER2000]
[大型アップデート]
__ ______ _____ _____
| | | | | | |
| | | | | | |
| | | | | | |
-- | | | | | |
| | | | | | |
| | | | | | |
-- ---- ---- ----



Mituking[元mituki]

リンク

2015/9/17(Thu) 19:30:52|NO.71770

うわあ2000ってかいたはずの--!


__ ______ _____ _____
 | | | | | | |
 | | | | | | |
 | | | | | | |
-- | | | | | |
 | | | | | | |
 | | | | | | |
-- ---- ---- ----



こうなるわけないと思うのに！



Mituking[元mituki]

リンク

2015/9/19(Sat) 00:21:11|NO.71784

Death,どうですか、

トップ | HSP3ダウンロード | HSPTVで遊ぶ | HSPで作る | サイト情報 | プライバシーポリシー | お問合せ

ONION software Copyright 1997-2023(c) All rights reserved.