ろっぱ 15分クッキング
招悠 http://www2.to/yoibom
えー、この文章をお読みの皆様、こんにちは。私は68でゲームを作っています。
だらだらと文章読んでても飽きると思うので、本日はまったくの素人が15分で作れるゲームを用意しました。
完成予想図
ゲームと言ってもマウスで逃げ回る絵を押しまくるだけのゲームですが。筆者の周りにはこれで燃えたばか・・・もとい、熱中者がいましたので、紹介します。
なおあまりにVBの基本かつ間違った用法がある可能性が多いので中級者以上は読み飛ばすことをお勧めします。
必要なもの
・ WINDOWS95以降の動くPC
・ Microsoft VisualBASIC(4.0以降・以下VB)
・ VBのエディタの基本的な使い方を知ってること
一つ目はなきゃできません。二つ目はWindows上のソフトを作るソフト（要は開発ソフト）実はアカデミックでも数千円する代物であり、ほんとはフリーで出回っているDelphi（これも開発ソフト）の方が学生にとってよかったりしますが、私が知らないのでVBを使います。できればVBも6か5がいいです。
VBをインストールし起動しましたら、「標準EXE」で「新規作成」します。「新規作成」しましたら、すでに出ているフォームに「ラベル」コントロール、「タイマー」コントロールと「ボタン」コントロール、「イメージ」コントロールを配置してください。「イメージ」コントロールのかわりに「ピクチャー」コントロールでもかまいません。場所は適当で結構です。
配置しましたら、「プロパティ」ウィンドウでいろいろ設定します。各部品を選択するとそのプロパティが表示されます。そこで、「イメージ」（もしくはピクチャー）のpictureプロパティをクリックして、さらにそこに出る「…」ボタンを押してください。そうすると絵を読み込むことができますので何でもいいので３２＊３２以上のサイズの絵を選択してOKをおしてください。
そうしましたら、今度はコードエディタを開きます。フォームをダブルクリックすると、コードエディタが開きます。開きましたら、次の斜体文字のコードを入力してください。
Dim score, time
Private Sub Command1_Click()
Command1.Visible = False
Image1.Visible = True
Timer1.Interval = 1000
Randomize
Image1.Width = 500
Image1.Height = 500
score = 0
Label1 = 0
time = 10
End Sub
Private Sub Form_Load()
Image1.Visible = False
End Sub
Private Sub Image1_Click()
score = score + 10
Label1 = score
End Sub
Private Sub Timer1_Timer()
time = time - 1
If (time <= 0) Then
Timer1.Interval = 0
Image1.Visible = False
Command1.Visible = True
End If
Image1.Left = Rnd() * (Form1.Width - Image1.Left)
Image1.Top = Rnd() * (Form1.Height - Image1.Height)
End Sub
入力しましたら、VBのツールバーにある「開始」を押してください。
そうすると画面にはボタンが表示され、そのボタンを押すと今度は絵がランダムに動きます。あなたはその絵を10秒間にクリックするのです。
どういう原理なのか、解説します。
これは、「タイマー」をつかって1秒ごとに絵の位置をランダムに変更しているのです。
製作途中図
なんともくそゲーでしたが、これを読んだゲーム作成初心者の方がゲーム作りの楽しさを知ってくれれば幸いです。（ちなみに本格的に作るのであれば名前のImage1とかそのまま使ったりはしませんよ。）
ちなみに、以下のサイトにこのソース（要は出来上がり予想図）を置いておきます。よろしかったら見てください。
http://www2.to/yoibom/x68sam.lzh
なおLZHで圧縮してますのでご自身で解凍してください。
おまけ
Image1.LeftとImage1.TopをForm1.LeftとForm1.Topに変えるとフォームがランダムに移動するよ！！