中1のころにつくったソフト紹介ソフト。

自由に使ってくださいｗ
2011/10/14 1:26
タグ：
タグはありません
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
    ;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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
このコードをツイートする