'Copyright © by Piero Tofy 2003
Dim parolachiave As String
Dim ind As Integer
Dim tot As String
Dim tot2 As Integer
Private Sub cmdresa_Click()
frmgameover.Show
End Sub
Private Sub cmdrischia_Click()
frmrischia.Show
End Sub
Private Sub Form_Load()
tot2 = 0
ind = 1
parolachiave = frmimpiccato.txtnome.Text
txtok.Text = parolachiave
lbllunga.Caption = Len(txtok.Text)
Dim p
Dim max
max = 1
For p = 1 To (Len(txtok.Text) - 1)
Load txtpa(max)
txtpa(max).Left = txtpa(max - 1).Left + 480
txtpa(max).Visible = True
txtpa(max).Height = 495
txtpa(max).Width = 420
If txtpa(max).Left > 4440 Then
frmgioco.Width = txtpa(max).Left + 600
End If
max = max + 1
Next p
End Sub
Public Sub find(x)
Dim t
Dim res As Boolean
res = False
For t = 1 To Len(txtok.Text)
If Mid(parolachiave, ind, 1) = x Then
txtpa(ind - 1).Text = x
tot2 = tot2 + 1
res = True
End If
ind = ind + 1
Next t
ind = 1
If res = False Then
Beep
lblrimane.Caption = lblrimane.Caption - 1
End If
End Sub
Private Sub control_Timer()
Dim y As Integer
y = lblrimane.Caption
Select Case y
Case 3
lblrimane.ForeColor = &H80FF&
Case 1
lblrimane.ForeColor = &HFF&
Case 9
lblrimane.ForeColor = &HFF0000
End Select
If lblrimane.Caption = "0" Then
frmgameover.Show
End If
If tot2 = Len(parolachiave) Then
frmwin.Show
End If
End Sub
Private Sub a_Click()
Call find("a")
a.Enabled = False
End Sub
Private Sub b_Click()
Call find("b")
b.Enabled = False
End Sub
Private Sub c_Click()
Call find("c")
c.Enabled = False
End Sub
Private Sub d_Click()
Call find("d")
d.Enabled = False
End Sub
Private Sub e_Click()
Call find("e")
e.Enabled = False
End Sub
Private Sub f_Click()
Call find("f")
f.Enabled = False
End Sub
Private Sub g_Click()
Call find("g")
g.Enabled = False
End Sub
Private Sub h_Click()
Call find("h")
h.Enabled = False
End Sub
Private Sub i_Click()
Call find("i")
i.Enabled = False
End Sub
Private Sub j_Click()
Call find("j")
j.Enabled = False
End Sub
Private Sub k_Click()
Call find("k")
k.Enabled = False
End Sub
Private Sub l_Click()
Call find("l")
l.Enabled = False
End Sub
Private Sub m_Click()
Call find("m")
m.Enabled = False
End Sub
Private Sub n_Click()
Call find("n")
n.Enabled = False
End Sub
Private Sub o_Click()
Call find("o")
o.Enabled = False
End Sub
Private Sub p_Click()
Call find("p")
p.Enabled = False
End Sub
Private Sub q_Click()
Call find("q")
q.Enabled = False
End Sub
Private Sub r_Click()
Call find("r")
r.Enabled = False
End Sub
Private Sub s_Click()
Call find("s")
s.Enabled = False
End Sub
Private Sub t_Click()
Call find("t")
t.Enabled = False
End Sub
Private Sub u_Click()
Call find("u")
u.Enabled = False
End Sub
Private Sub v_Click()
Call find("v")
v.Enabled = False
End Sub
Private Sub w_Click()
Call find("w")
w.Enabled = False
End Sub
Private Sub x_Click()
Call find("x")
x.Enabled = False
End Sub
Private Sub y_Click()
Call find("y")
y.Enabled = False
End Sub
Private Sub z_Click()
Call find("z")
z.Enabled = False
End Sub