Microsoft Small Basic

Program Listing: DSX769

List Program

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