Small BASICで簡単ブロック崩しを作ったよ - Firespeed

窓の杜を見てたらSmallBASICって言語が紹介されていた。
ということで、早速ブロック崩しを作ってみたんだけど、
インストールから作成までが一日で出来るほどの簡単ぷりだったので作り方を紹介してみる。

完成図 SmallBASICはさっぱり知らない状態から数時間でブロック崩しが出来ちゃった。



Windows用Basicと言えばVisualBasicを思い出すけれど、実際にブロック崩しを作ってみるとVisualBasicより、もっとシンプルなN88 Basicやファミリーベーシックに近い感じがした。

※N88 Basicはかつてパソコン入門書とかにも載ってた超簡単プログラム言語)
　ファミリーベーシックはファミコンで動くBasic

VisualBasicで初心者が躓きやすい部分が隠されて、かなり取っつき易くなっている。

コンピュータを趣味程度に何か作ってみたいとか
初めてコンピューターゲームを作ってみたいと思う小学生たち、あるいはRPGツクールのような簡易ゲームエディタから次のステップとしても良さそう。

SmallBASICのインストール方法とブロック崩しの作り方

Small BASICの入手方法
Small BASICは無料で公開されている。
http://msdn.microsoft.com/en-us/ff384126.aspxでDownload Small BASICをクリック

ダウンロードしたインストーラを実行する。
Welcome to the Microsoft Small Basic v0.8 Setup Wizardが表示されたら
Nextをクリック

License Agreementが表示され承認するなら
I AgreeにチェックしNextをクリック

Select Installation Folderが表示されたら
インストール先を選択して
全ユーザが使用するならEveryone
インストールしたユーザーのみが使用するならJust meにチェックを入れてNextをクリック
途中でUACの確認画面が出たらOKを選択。
Installation Completeが表示されたらCloseをクリックでインストール完了

プログラムの実行
言語毎にショートカットが作られるので実行時は注意が必要
Small BASICを日本語で起動するにはスタートメニューから
「Small Basic」-「Localized」-「Microsoft Small Basic(Japanese)」を実行する。
（次回からは「Small Basic」-「Microsoft Small Basic」を直接実行してもOK）


動作画面はこんな感じで、VisualBasicと比べると随分とグラフィカルになってる。
特にトグル風に入力候補が表示されるのが目を引いた


ボタンの少なさも特筆的で
ファイルとクリップボードを除くSmall Basic特有のボタンは
インポート、発行、実行、等級をつけるの４つだけ

それぞれ、
インポートはMicrosoft Small Basic Program Listing上にあるプログラムをインポートする。
発行は逆にプログラムをMicrosoft Small Basic Program Listing上にアップロードする。
パフォーマンスは落ちるけれどSilverlightが入っていればブラウザ上で実行できる。
実行はプログラムをローカルで実行する　Webで実行するのと違ってexeで実行されるのでパフォーマンスが良い
等級をつける（誤訳と思われる）はVisualBasicに出力できる

プログラムがWebでも実行できるあたりもScrachっぽい

言語はVisualBasicに近いけれど削られている部分もあって、
関数に引数を持たせられないとか、Functionが定義出来ないとかはビックリした。（方法を見つけられてないだけか？）

文法上の簡素さを保つために、Goto文とかグローバル変数だとか普通の言語だと汚いとされている方法が推奨されている感じがする。

逆に描画したオブジェクトがそのままクラスになって後から変更可能とかは素敵な仕様だと思う。
おかげで今回作ったブロック崩しでも関数すら使っていないのにソースコードが凄く少ないし、自然とオブジェクト指向になってる。

と言うことでブロック崩しのソースコードを解説

もっと簡単なプログラム HelloWorld!についての紹介も書きました。
初めてプログラムを作る人はHelloWorld!から見ることをオススメします。

GraphicsWindow.MouseMove = OnMouseMove
GraphicsWindow.MouseUp = OnMouseUp

width = 640
height = 480
padSize = 120
BOX_WIDTH = 64
BOX_HEIGHT = 24
halfPadSize = padSize/2

start:

GraphicsWindow.Clear()
GraphicsWindow.BrushColor = "White"
GraphicsWindow.DrawText(2,420,"Click to end")
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.BrushColor = "Orange"
GraphicsWindow.PenWidth = 0

pad = Shapes.AddRectangle(padSize, 12)

GraphicsWindow.BrushColor = "Red"
boxCount = 0
For r = 0 to 9
　繰り返す処理
EndFor

    box[r][c] = Shapes.AddRectangle(BOX_WIDTH-2,BOX_HEIGHT-2)

    boxEnable[r][c] = "True"

    Shapes.Move(box[r][c],r*BOX_WIDTH+1,c*BOX_HEIGHT+1)

GraphicsWindow.Width = width
GraphicsWindow.Height = height

runState = "True"
While(runState)
　繰り返す処理
EndWhile

  ySpeed = ySpeed + g
  If ySpeed > maxYSpeed Then
    ySpeed = maxYSpeed    
  EndIf
  If ySpeed < -maxYSpeed Then
    ySpeed = -maxYSpeed
  EndIf
  If xSpeed > maxXSpeed Then
    xSpeed = maxXSpeed
  EndIf
  If xSpeed < -maxXSpeed Then
    xSpeed = -maxXSpeed
  EndIf
  x = x + xSpeed
  y = y + ySpeed

  If (x+SIZE+xSpeed >= width or x <= 0) Then
    Sound.PlayClick()
    xSpeed = -xSpeed
    If x<=0 Then
      x=1
    Else
      x=width-SIZE -1
    EndIf
  EndIf
  If (y <= 0) Then
    Sound.PlayClick()    
    ySpeed = -ySpeed
    y=1
  EndIf

  padY = Shapes.GetTop (pad)
  padX = Shapes.GetLeft(pad)

  If (y+SIZE > padY and x+SIZE >= padX and x <= padX + padSize) Then
    Sound.PlayClick()    
    padPoint = ((x + HALF_SIZE )-(padX+halfPadSize))
    ySpeed = -(ySpeed*0.50 + (halfPadSize+SIZE-Math.Abs(padPoint))/30)
    xSpeed = xSpeed + padPoint/20
    y = padY-SIZE
  EndIf

Shapes.Move(ball, x, y)

  xIndex1 = Math.Floor(x / BOX_WIDTH)
  yIndex1 = Math.Floor(y / BOX_HEIGHT)
  xIndex2 = Math.Floor((x+SIZE) / BOX_WIDTH)
  yIndex2 = Math.Floor((y+SIZE) / BOX_HEIGHT)
  xCrash = 0
  yCrash = 0
  If boxEnable[xIndex1][yIndex1] Then
    xCrash = 1
    yCrash = 1
  EndIf
  If boxEnable[xIndex2][yIndex1] Then
    xCrash = xCrash-1
    yCrash = yCrash+1
  EndIf
  If boxEnable[xIndex1][yIndex2] Then
    xCrash = xCrash+1
    yCrash = yCrash-1
  EndIf
  If boxEnable[xIndex2][yIndex2] Then
    xCrash = xCrash-1
    yCrash = yCrash-1
  EndIf
  If boxEnable[xIndex1][yIndex1] Then
    Sound.PlayClick()
    boxEnable[xIndex1][yIndex1]="False"
    Shapes.Remove(box[xIndex1][yIndex1])
    boxCount = boxCount -1
  EndIf
  If boxEnable[xIndex2][yIndex1] Then
    Sound.PlayClick()
    boxEnable[xIndex2][yIndex1]="False"
    Shapes.Remove(box[xIndex2][yIndex1])
    boxCount = boxCount -1
  EndIf
  If boxEnable[xIndex1][yIndex2] Then
    Sound.PlayClick()
    boxEnable[xIndex1][yIndex2]="False"
    Shapes.Remove(box[xIndex1][yIndex2])
    boxCount = boxCount -1
  EndIf
  If boxEnable[xIndex2][yIndex2] Then
    Sound.PlayClick()
    boxEnable[xIndex2][yIndex2]="False"
    Shapes.Remove(box[xIndex2][yIndex2])
    boxCount = boxCount -1
  EndIf
  If boxCount = 0 Then
    Goto GameClear
  EndIf
  If xCrash <> 0 Then
    xSpeed = -xSpeed * 0.9
  EndIf 
  If yCrash <> 0 Then
    ySpeed = -ySpeed * 0.9
  EndIf 

  If boxCount = 0 Then
    Goto GameClear
  EndIf

  Program.Delay(7)

  If (y > height) Then
   Goto GameOVer
  EndIf

GameOver:
Sound.PlayBellRing()
GraphicsWindow.ShowMessage("You Lose", "GAME OVER")
Goto start

GameClear:
Sound.PlayChime()
GraphicsWindow.ShowMessage("You Win", "CLEAR")
Goto start

Sub OnMouseMove
  paddleX = Mouse.MouseX
  Shapes.Move(pad, paddleX - padsize/2, GraphicsWindow.Height - 12)
EndSub

Sub OnMouseUp
  Program.End()
EndSub

GraphicsWindow.MouseMove = OnMouseMove
GraphicsWindow.MouseUp = OnMouseUp
width = 640
height = 480
padSize = 120
BOX_WIDTH = 64
BOX_HEIGHT = 24
halfPadSize = padSize/2
start:
GraphicsWindow.Clear()
GraphicsWindow.BrushColor = "White"
GraphicsWindow.DrawText(2,420,"Click to end")
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.BrushColor = "Orange"
GraphicsWindow.PenWidth = 0
pad = Shapes.AddRectangle(padSize, 12)

GraphicsWindow.BrushColor = "Red"
boxCount = 0
For r = 0 to 9
  For c = 0 To 8
    box[r][c] = Shapes.AddRectangle(BOX_WIDTH-2,BOX_HEIGHT-2)
    boxEnable[r][c] = "True"
    Shapes.Move(box[r][c],r*BOX_WIDTH+1,c*BOX_HEIGHT+1)
    boxCount = boxCount + 1
  EndFor 
Endfor

GraphicsWindow.Width = width
GraphicsWindow.Height = height
x = width /2
y = height /2
xSpeed = 0
ySpeed = 0

SIZE = 16
HALF_SIZE = SIZE / 2
maxYSpeed = 6
maxXSpeed = 2
x = width/2
y = width/2
g = 0.015
GraphicsWindow.BrushColor = "White"
GraphicsWindow.PenColor="White"
ball = Shapes.AddEllipse(SIZE, SIZE)

runState = "True"
while(runState)
  ySpeed = ySpeed + g
  If ySpeed > maxYSpeed Then
    ySpeed = maxYSpeed    
  EndIf
  If ySpeed < -maxYSpeed Then
    ySpeed = -maxYSpeed
  EndIf
  If xSpeed > maxXSpeed Then
    xSpeed = maxXSpeed
  EndIf
  If xSpeed < -maxXSpeed Then
    xSpeed = -maxXSpeed
  EndIf
  x = x + xSpeed
  y = y + ySpeed
  If (x+SIZE+xSpeed >= width or x <= 0) Then
    Sound.PlayClick()
    xSpeed = -xSpeed
    If x<=0 Then
      x=1
    Else
      x=width-SIZE -1
    EndIf
  EndIf
  If (y <= 0) Then
    Sound.PlayClick()    
    ySpeed = -ySpeed
    y=1
  EndIf
  padY = Shapes.GetTop (pad)
  padX = Shapes.GetLeft(pad)
  
  If (y+SIZE > padY and x+SIZE >= padX and x <= padX + padSize) Then
    Sound.PlayClick()    
    padPoint = ((x + HALF_SIZE )-(padX+halfPadSize))
    ySpeed = -(ySpeed*0.50 + (halfPadSize+SIZE-Math.Abs(padPoint))/30)
    xSpeed = xSpeed + padPoint/20
    y = padY-SIZE
  EndIf
  Shapes.Move(ball, x, y)
  xIndex1 = Math.Floor(x / BOX_WIDTH)
  yIndex1 = Math.Floor(y / BOX_HEIGHT)
  xIndex2 = Math.Floor((x+SIZE) / BOX_WIDTH)
  yIndex2 = Math.Floor((y+SIZE) / BOX_HEIGHT)
  xCrash = 0
  yCrash = 0
  If boxEnable[xIndex1][yIndex1] Then
    xCrash = 1
    yCrash = 1
  EndIf
  If boxEnable[xIndex2][yIndex1] Then
    xCrash = xCrash-1
    yCrash = yCrash+1
  EndIf
  If boxEnable[xIndex1][yIndex2] Then
    xCrash = xCrash+1
    yCrash = yCrash-1
  EndIf
  If boxEnable[xIndex2][yIndex2] Then
    xCrash = xCrash-1
    yCrash = yCrash-1
  EndIf
  If boxEnable[xIndex1][yIndex1] Then
    Sound.PlayClick()
    boxEnable[xIndex1][yIndex1]="False"
    Shapes.Remove(box[xIndex1][yIndex1])
    boxCount = boxCount -1
  EndIf
  If boxEnable[xIndex2][yIndex1] Then
    Sound.PlayClick()
    boxEnable[xIndex2][yIndex1]="False"
    Shapes.Remove(box[xIndex2][yIndex1])
    boxCount = boxCount -1
  EndIf
  If boxEnable[xIndex1][yIndex2] Then
    Sound.PlayClick()
    boxEnable[xIndex1][yIndex2]="False"
    Shapes.Remove(box[xIndex1][yIndex2])
    boxCount = boxCount -1
  EndIf
  If boxEnable[xIndex2][yIndex2] Then
    Sound.PlayClick()
    boxEnable[xIndex2][yIndex2]="False"
    Shapes.Remove(box[xIndex2][yIndex2])
    boxCount = boxCount -1
  EndIf
  If boxCount = 0 Then
    Goto GameClear
  EndIf
  If xCrash <> 0 Then
    xSpeed = -xSpeed * 0.9
  EndIf 
  If yCrash <> 0 Then
    ySpeed = -ySpeed * 0.9
  EndIf 
  Program.Delay(7)
  If (y > height) Then
   Goto GameOVer
  EndIf
EndWhile

GameOver:
Sound.PlayBellRing()
GraphicsWindow.ShowMessage("You Lose", "GAME OVER")
Goto start

GameClear:
Sound.PlayChime()
GraphicsWindow.ShowMessage("You Win", "CLEAR")
Goto start

Sub OnMouseMove
  paddleX = Mouse.MouseX
  Shapes.Move(pad, paddleX - padsize/2, GraphicsWindow.Height - 12)
EndSub
Sub OnMouseUp
  Program.End()
EndSub

ドロヘドロ以外で久しぶりに漫画を買ったよ
しかもかなり変なギャグマンガ

テルマエ・ロマエっていうタイトルなんだけれど
ローマ時代の浴場技師ルシウスが、
ある日突然日本の銭湯にタイムスリップしてしまう。

日本の風呂文化に驚愕したルシウスは、見よう見まねで風呂技術をローマに伝えていく

過去の人が現在にタイムスリップして驚き戸惑うっていう流れは使い古された感じがあるけれど、ありがちな現在技術すげーで終わらずに、ローマと日本における風呂文化の対比がうまく描かれていて、読んでいる方が逆にローマ時代にタイムスリップしたみたいな気持ちになれる。

ローマ時代の風呂も凄かったんだね、　一度入ってみたいし
金属の垢擦りとか試してみたい

フルーツ牛乳のおいしさに感動するけれど、牛乳瓶がうまく作れないとか、蓋を空けようとして瓶に指をつっこんでしまうとか
「王様はロバ」的な緩いギャグマンガタッチなほのぼの調もツボ
展開もだらだらと引き延ばさずに数ページで元のローマ時代に戻ってしまうスピーディーさでサクサク読める

1巻しか出てないけれど、かなり濃いよ
続編を作っているみたいだけどこんなに濃くてネタ切れにならないのか心配

LenovoからThinkPadX201シリーズが発売された
Core i化でスペックが強化されてます。

X20xシリーズはモバイルPCでは珍しく通常電圧版のCPUを搭載して
国産超軽量モバイルより重めの重量だけど、
メインPCとして使えるくらいパワフルな処理能力を持ってるのが特徴
今回新たに出たX201は
CPUの強化を始めとしたX200シリーズを順当に進化させた物になってる。

全モデルCore i化とそれに伴うメモリーDDR3化、最大8GBに倍増（自力での増設が必要）

加えて、タッチパッドが搭載可能になった。
あとは内蔵カメラが高画素化してたり
キーボードがT410シリーズの様なキーボード間のスペースが詰まったものに変更されている。
T410の変則キーはなくなって従来通りThinkPad7列配列