Microsoft Small Basic

Program Listing:
Embed this in your website
level = 1
click = "false"

buttonArr[1]["speed"] = 1
buttonArr[1]["opacity"] = 100
buttonArr[1]["h"] = 100
buttonArr[1]["w"] = 100
buttonArr[1]["text"] = "it's was easy"

buttonArr[2]["speed"] = 25
buttonArr[2]["opacity"] = 90
buttonArr[2]["h"] = 50
buttonArr[2]["w"] = 100
buttonArr[2]["text"] = "oh no... You don't win! hah!"

buttonArr[3]["speed"] = 50
buttonArr[3]["opacity"] = 75
buttonArr[3]["h"] = 75
buttonArr[3]["w"] = 40
buttonArr[3]["text"] = "Don't click this button"

buttonArr[4]["speed"] = 100
buttonArr[4]["opacity"] = 75
buttonArr[4]["h"] = 75
buttonArr[4]["w"] = 40
buttonArr[4]["text"] = "You mustn't click THIS BUTTON!!!"

buttonArr[5]["speed"] = 50
buttonArr[5]["opacity"] = 80
buttonArr[5]["h"] = 10
buttonArr[5]["w"] = 15
buttonArr[5]["text"] = "Oh are you stupid?"

buttonArr[6]["speed"] = 115
buttonArr[6]["opacity"] = 70
buttonArr[6]["h"] = 25
buttonArr[6]["w"] = 25
buttonArr[6]["text"] = "Misha was walking and suddenly the poop"

buttonArr[7]["speed"] = 175
buttonArr[7]["opacity"] = 65
buttonArr[7]["h"] = 50
buttonArr[7]["w"] = 50
buttonArr[7]["text"] = "42"

buttonArr[8]["speed"] = 180
buttonArr[8]["opacity"] = 50
buttonArr[8]["h"] = 75
buttonArr[8]["w"] = 30
buttonArr[8]["text"] = "3301"

buttonArr[9]["speed"] = 250
buttonArr[9]["opacity"] = 45
buttonArr[9]["h"] = 30
buttonArr[9]["w"]  = 75
buttonArr[9]["text"] = "You don't know?"

buttonArr[10]["speed"] = 400
buttonArr[10]["opacity"] = 25
buttonArr[10]["h"] = 66
buttonArr[10]["w"] = 66
buttonArr[10]["text"] = "Read more books"

GraphicsWindow.Height = 500
GraphicsWindow.Width = 500

Controls.ButtonClicked = buttonclicked

While "true"
  GraphicsWindow.BrushColor = "gray"
  GraphicsWindow.FontSize = 10

  button = Controls.AddButton("Click me!!!", Math.GetRandomNumber(500), Math.GetRandomNumber(500))
  Controls.SetSize(button, buttonArr[level]["h"], buttonArr[level]["w"])
  Shapes.SetOpacity(button, buttonArr[1]["opacity"])
  While click <> "true"
    Shapes.Animate(button, Math.GetRandomNumber(500), Math.GetRandomNumber(500), 1000 - buttonArr[level]["speed"])
    Program.Delay(1000 - buttonArr[level]["speed"])
  endWhile

  GraphicsWindow.BrushColor = "red"
  GraphicsWindow.FontSize = 25

  Shapes.Remove(button)
  GraphicsWindow.DrawBoundText(100, 100, 400, buttonArr[level]["text"])

  Program.Delay(1000)

  GraphicsWindow.Clear()

  click = "false"
  level = level + 1
EndWhile

Sub buttonclicked
  click = "true"
endSub
Copyright (c) Microsoft Corporation. All rights reserved.