Break On

;
; JUST A SAMPLE SCRIPT - DOESN'T ACTUALLY PLAY (YET)
;

$Form = CreateObject("Kixtart.Form")

$Form.Caption = "KiXWeeper v1.0"
$Form.Width = 325
$Form.Height = 400
$Form.BackColor = 230,230,230

$Score = $Form.Label
$Score.Size = 75,30
$Score.Center
$Score.Top = 10
$Score.Value = 0
$Score.Alignment = 1
$Score.BorderStyle = 4
$Score.Fontname = "Courier New"
$Score.Fontsize = 14
$Score.Fontbold = 1
$Score.BackColor = 0
$Score.ForeColor = 255,255,0

Global $Button[143]
$b=0 
For $Top = 50 To 325 Step 25
 For $Left = 10 To 300 Step 25
  $Button[$b] = $Form.CommandButton(" ",$left,$top,25,25)
  $Button[$b].FontBold = 1
  $Button[$b].OnClick = "Button_Click($b)"
;  $Form.Rectangle($Left-1,$Top-1,26,26)
  $Form.Rectangle($Left,$Top,26,26)
  $b=$b+1
 Next
Next

;$Form.Rectangle(10,50,315,380)

$Form.ForeColor = 0,0,255
$Form.FontName = "Courier New"
$Form.FontBold = 1
$Form.FontSize = 10

$Form.Center
$Form.Show

While $Form.Visible
 $=Execute($Form.DoEvents)
Loop

Exit 1

Function Button_Click($b)
 $Score.Caption = Val($Score.Caption)+1
 $Form.PrintXY($Button[$b].Left + 9,$Button[$b].Top + 5,"1")
 $Button[$b] = 0
EndFunction