Puzzle Game - Skill1.vb

Puzzle Game / Skill1.vb

Puzzle Game - Skill1.vb

Skill1.vb

1. Public Class Skill1
2.     Dim MoveState As Integer = 0
3.     Dim MoveObject As Object
4.     Dim SkillPics As Integer = 0
5.     Dim CountIMG As Integer = 0
6.     Public Sub SetubCursor(ByVal MyImage As Bitmap)
7.         On Error Resume Next
8.         Dim bmCur As New Bitmap(MyImage)
9.         Dim ptrCur As IntPtr = bmCur.GetHicon
10.         Dim cur As Cursor
11.         cur = New Cursor(ptrCur)
12.         Me.Cursor = cur
13.     End Sub
14.     Private Sub Game_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
15.         SetubCursor(My.Resources.cursor_copy)
16.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
17.         Me.WindowState = FormWindowState.Maximized
18.         SkillPics = 9
19.     End Sub
20.     Private Sub MPic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic1.Click
21.         If MoveState = 0 Then
22.             MoveState = 1
23.             SetubCursor(MPic1.Image)
24.             MoveObject = MPic1
25.             MoveObject.visible = False
26.         Else
27.             MoveState = 0
28.             SetubCursor(My.Resources.cursor_copy)
29.         End If
30.     End Sub
31.     Private Sub MPic2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic2.Click
32.         If MoveState = 0 Then
33.             MoveState = 1
34.             SetubCursor(MPic2.Image)
35.             MoveObject = MPic2
36.             MoveObject.visible = False
37.         Else
38.             MoveState = 0
39.             SetubCursor(My.Resources.cursor_copy)
40.         End If
41.     End Sub
42.     Private Sub MPic3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic3.Click
43.         If MoveState = 0 Then
44.             MoveState = 1
45.             SetubCursor(MPic3.Image)
46.             MoveObject = MPic3
47.             MoveObject.visible = False
48.         Else
49.             MoveState = 0
50.             SetubCursor(My.Resources.cursor_copy)
51.         End If
52.     End Sub
53.     Private Sub MPic4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic4.Click
54.         If MoveState = 0 Then
55.             MoveState = 1
56.             SetubCursor(MPic4.Image)
57.             MoveObject = MPic4
58.             MoveObject.visible = False
59.         Else
60.             MoveState = 0
61.             SetubCursor(My.Resources.cursor_copy)
62.         End If
63.     End Sub
64.     Private Sub MPic5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic5.Click
65.         If MoveState = 0 Then
66.             MoveState = 1
67.             SetubCursor(MPic5.Image)
68.             MoveObject = MPic5
69.             MoveObject.visible = False
70.         Else
71.             MoveState = 0
72.             SetubCursor(My.Resources.cursor_copy)
73.         End If
74.     End Sub
75.     Private Sub MPic9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic9.Click
76.         If MoveState = 0 Then
77.             MoveState = 1
78.             SetubCursor(MPic9.Image)
79.             MoveObject = MPic9
80.             MoveObject.visible = False
81.         Else
82.             MoveState = 0
83.             SetubCursor(My.Resources.cursor_copy)
84.         End If
85.     End Sub
86.     Private Sub MPic6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic6.Click
87.         If MoveState = 0 Then
88.             MoveState = 1
89.             SetubCursor(MPic6.Image)
90.             MoveObject = MPic6
91.             MoveObject.visible = False
92.         Else
93.             MoveState = 0
94.             SetubCursor(My.Resources.cursor_copy)
95.         End If
96.     End Sub
97.     Private Sub MPic7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic7.Click
98.         If MoveState = 0 Then
99.             MoveState = 1
100.             SetubCursor(MPic7.Image)
101.             MoveObject = MPic7
102.             MoveObject.visible = False
103.         Else
104.             MoveState = 0
105.             SetubCursor(My.Resources.cursor_copy)
106.         End If
107.     End Sub
108.     Private Sub MPic8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic8.Click
109.         If MoveState = 0 Then
110.             MoveState = 1
111.             SetubCursor(MPic8.Image)
112.             MoveObject = MPic8
113.             MoveObject.visible = False
114.         Else
115.             MoveState = 0
116.             SetubCursor(My.Resources.cursor_copy)
117.         End If
118.     End Sub
119.     Private Sub Skill1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
120.         'On Error Resume Next
121.         If MoveObject IsNot Nothing Then
122.             MoveObject.visible = True
123.             MoveObject.left = e.Location.X - MoveObject.width / 2
124.             MoveObject.top = e.Location.Y - MoveObject.height / 2
125.             Dim TargetPic As Object = Nothing
126.             If MoveObject.name = MPic2.Name Then
127.                 TargetPic = Pic1
128.             ElseIf MoveObject.name = MPic1.Name Then
129.                 TargetPic = Pic6
130.             ElseIf MoveObject.name = MPic3.Name Then
131.                 TargetPic = Pic4
132.             ElseIf MoveObject.name = MPic4.Name Then
133.                 TargetPic = Pic8
134.             ElseIf MoveObject.name = MPic5.Name Then
135.                 TargetPic = Pic7
136.             ElseIf MoveObject.name = MPic9.Name Then
137.                 TargetPic = Pic2
138.             ElseIf MoveObject.name = MPic6.Name Then
139.                 TargetPic = Pic9
140.             ElseIf MoveObject.name = MPic7.Name Then
141.                 TargetPic = Pic5
142.             ElseIf MoveObject.name = MPic8.Name Then
143.                 TargetPic = Pic3
144.             Else
145.                 TargetPic = Nothing
146.             End If
147.             If TargetPic IsNot Nothing And MoveObject.left > TargetPic.Left - 50 And MoveObject.top > TargetPic.Top - 50 And MoveObject.left < TargetPic.Left + TargetPic.Width And MoveObject.top < TargetPic.Top + TargetPic.Height Then
148.                 MoveObject.location = TargetPic.Location
149.                 Beep()
150.                 Me.Text = "رائع ...  في المكان الصحيح"
151.                 SetubCursor(My.Resources.cursor_copy)
152.                 CountIMG += 1
153.                 If CountIMG >= SkillPics Then MsgBox("لقد ربحت") : Skill2.Show() : Me.Close()
154.             Else
155.                 Me.Text = "لم تتطابق"
156.                 SetubCursor(My.Resources.cursor1_copy)
157.             End If
158.             MoveObject = Nothing
159.             MoveState = 0
160.         End If
161.     End Sub
162. End Class