中1のころにつくったソフト紹介ソフト。 | Codetter（こーどったー）

	;Java
	screen 0,500,400
	color 0,0,0
	boxf
	pos 0,0
	color 255,255,255
	font"",23
	pos 200,170:mes"ソフト紹介"
	wait 100
*main
	x=200
	y=170
	repeat 100
	redraw 0
	;x=x-1
	y=y-1
	color 0,0,0
	boxf
	color 255,255,255
	font"",23
	pos x,y:mes"ソフト紹介"
	redraw 1
	await 1
	loop
	font"",13
	pos 187,100:mes"ジャンルを選んでください"
	y1=500
	y2=530
	y3=560
	repeat
	title""+y1+" "+y2+" "+y3+""
	redraw 0
	color
	boxf 0,120,500,400
	if y1!200:y1=y1-3
	if y2!200:y2=y2-3
	if y3!200:y3=y3-3
	stick key,0
	font"",23,4
	m=0
	if mousex>110:if mousey>200:if mousex<175:if mousey<227:color 255,158,0:pos 110,y1:mes"ゲーム":m=1
	if mousex>210:if mousey>200:if mousex<275:if mousey<227:color 255,158,0:pos 210,y2:mes"ツール":m=2
	if mousex>310:if mousey>200:if mousex<375:if mousey<227:color 255,158,0:pos 310,y3:mes"アホツール":m=3
	font"",23
	color 255,255,255
	pos 110,y1:mes"ゲーム"
	pos 210,y2:mes"ツール"
	pos 310,y3:mes"アホツール"
	if key=256:if m=1:goto*game
	if key=256:if m=2:goto*tool
	redraw 1
	await 1
	loop
	stop
*game
	y1=200
	x1=110
	repeat 60
	redraw 0
	color
	boxf
	x1=x1-1
	y1=y1-3
	color 255,158,0
	font"",23,4
	pos x1,y1:mes"ゲーム"
	font"",23
	color 255,255,255
	pos x1,y1:mes"ゲーム"
	redraw 1
	await 1
	loop
	repeat
	redraw 0
	color 255,255,255
	font"",23
	pos 50,120:mes"数当てゲーム"
	pos 50,220:mes"おみくじ"
	font"",13
	pos 20,370:mes"戻る"
	color 0,158,230
	boxf 270-1,70-1,480+1,380+1
	color 0,0,0
	boxf 270,70,480,380
	font"",13
	color 200,200,200
	pos 280,80:mes"詳細\n\n"+syo+""
	syo="ソフト名にカーソルを合わせると\n詳細が表示されます"
	if mousex>50:if mousey>120:if mousey<150:if mousex<190:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 2.5\n\nダウンロード可\n\n初めて作ったゲームです。\n小さい子にお勧め!!\n単純に数を当てるゲームです。"
	if mousex>50:if mousey>220:if mousey<250:if mousex<150:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 3.0\n\nダウンロード可\n\n神社のおみくじのような感覚です。\n箱を振るかのようにボタンを押す\nとボタンがゆれます\n結果に対しての\nアドバイス機能もついています。"
	stick key,0
	title""+mousex+" "+mousey+""
	if key=256:if mousex>15:if mousey>365:if mousex<45:if mousey<382:goto*main
	redraw 1
	await 1
	loop
*tool
	y2=200
	x2=210
	repeat 60
	redraw 0
	color
	boxf
	x2=x2-3
	y2=y2-3
	color 255,158,0
	font"",23,4
	pos x2,y2:mes"ツール"
	font"",23
	color 255,255,255
	pos x2,y2:mes"ツール"
	redraw 1
	await 1
	loop
	repeat
	redraw 0
	color 255,255,255
	font"",23
	pos 50,120:mes"SoftPack"
	pos 50,160:mes"SimpleMemo"
	pos 50,200:mes"TextMemo"
	font"",13
	pos 20,370:mes"戻る"
	color 0,158,230
	boxf 270-1,70-1,480+1,380+1
	color 0,0,0
	boxf 270,70,480,380
	font"",13
	color 200,200,200
	pos 280,80:mes"詳細\n\n"+syo+""
	syo="ソフト名にカーソルを合わせると\n詳細が表示されます"
	if mousex>50:if mousey>120:if mousey<150:if mousex<140:syo="対応OS\nXP(のみ)\n\nバージョン: 2.0α\n\nダウンロード可\n\nテストバージョン\n\nロック機能を発展させた\nツールです。\nこのソフトはほかにも機能が\n搭載される予定です。\nロック機能はパスワードの安全度、\nクイックロックなど使いやすい\nツールとなっています"
	if mousex>50:if mousey>160:if mousey<190:if mousex<173:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 1.0\n\nダウンロード可\n\n画面の右端に表示され、\nメモしたいときにすぐに\nメモできるツールです。\n小さいウィンドウなので\nデスクトップがごちゃごちゃに\nなりにくいと思います"
	if mousex>50:if mousey>200:if mousey<220:if mousex<173:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 1.0\n\nダウンロード可\n\nテキストの表示にこだわった\nツールです。テキストの色、\n大きさの表示を変更できます。\n保存もTextファイルで\n保存できるので一般の\nメモ帳と同様に使用できます。"
	stick key,0
	title""+mousex+" "+mousey+""
	if key=256:if mousex>15:if mousey>365:if mousex<45:if mousey<382:goto*main
	redraw 1
	await 1
	loop