程式碼
Dim t As Integer ’turn
Dim used(8) As Integer
Dim gameover As Boolean
Dim n As Integer
Dim lv As Integer
-------------------------------------------------------
Sub hiplay()
t = -1
If used(4) = 0 Then
well(4).Picture = o.Picture
used(4) = t
t = -t
Else...
