এক্সেলে স্নেক গেম সফটওয়্যার তৈরি করুন

এ.জে.পি উর্মি স্নেক গেম:

এ.জে.পি উর্মি স্নেক গেম ঠিক যেমন নোকিয়ার পুরাতন ফোনে যে স্নেক গেম থাকে সেখানে যেভাবে সাপটি এগিয়ে চলে ঠিক সেই ভাবেই এখানেও সেইম নিয়ম অবলম্বন করেই সাপটি এক জায়গা থেকে অন্য জায়গায় এগিয়ে চলে। 

এই গেমটি পরিচালানা করার নিয়ম: 

Pin it
Email
https://karimexcelvba.com/2022/12/11/%e0%a6%8f%e0%a6%95%e0%a7%8d%e0%a6%b8%e0%a7%87%e0%a6%b2-%e0%a6%a6%e0%a6%bf%e0%a6%af%e0%a6%bc%e0%a7%87-%e0%a6%b8%e0%a7%8d%e0%a6%a8%e0%a7%87%e0%a6%95-%e0%a6%97%e0%a7%87%e0%a6%ae-%e0%a6%b8%e0%a6%ab/#YXNhZ2lvay0xLmp

গেম: তীরচিহ্নগুলি ব্যবহার করে সাপটিকে নির্দেশ করুন এবং যতটা সম্ভব বস্তু (কমলা/নীল রঙে) সংগ্রহ করুন, সর্বদা বাধা (কালো) এবং মানচিত্রের প্রান্তগুলি এড়িয়ে চলুন। একটি নির্দিষ্ট সময়ের পরে কমলা রঙের বস্তুগুলি পুনরায় উপস্থিত হওয়া বন্ধ করবে এবং আপনাকে যা করতে হবে তা হল পরবর্তী স্তরে যাওয়ার জন্য অবশিষ্ট বস্তুগুলি সংগ্রহ করা।

অব্জেক্ট: পুনঃআবির্ভূত হওয়া বন্ধ হওয়ার আগে যতটা সম্ভব অব্জেক্টস সংগ্রহ করুন। কমলা রঙের অব্জেক্টস এর লেভেল মূল্য নম্বরের সাথে 5 পয়েন্ট গুণ হবে (উদাহরণস্বরূপ, লেভেল 1-এ 5 পয়েন্ট, লেভেল 3-এ 15 পয়েন্ট) এবং নীল বস্তু সংগ্রহ করা কঠিন কমলার চেয়ে 5 গুণ বেশি।

চলুন শুরু করা যাক…….

প্রথমে এক্সেলের রিবনে ডেভেলপার ট্যাবে Alt +  F11 প্রেস করে ভিজ্যুয়াল বেসিক উইন্ডো খুলুন  তারপর ইনসার্ট ইউজারফর্ম করে একটি ইউজারফর্ম উইন্ডো খুলুন, নিচের প্রথম ছবটি ডেভেলপার ট্যাবের আনন্দ দ্বিতীয় ছবটি ভিজ্যুয়াল বেসিক উইন্ডোর ।

Pin it
Email
https://karimexcelvba.com/2022/12/11/%e0%a6%8f%e0%a6%95%e0%a7%8d%e0%a6%b8%e0%a7%87%e0%a6%b2-%e0%a6%a6%e0%a6%bf%e0%a6%af%e0%a6%bc%e0%a7%87-%e0%a6%b8%e0%a7%8d%e0%a6%a8%e0%a7%87%e0%a6%95-%e0%a6%97%e0%a7%87%e0%a6%ae-%e0%a6%b8%e0%a6%ab/#RGV2b2xvcGVyLTI

Pin it
Email
https://karimexcelvba.com/2022/12/11/%e0%a6%8f%e0%a6%95%e0%a7%8d%e0%a6%b8%e0%a7%87%e0%a6%b2-%e0%a6%a6%e0%a6%bf%e0%a6%af%e0%a6%bc%e0%a7%87-%e0%a6%b8%e0%a7%8d%e0%a6%a8%e0%a7%87%e0%a6%95-%e0%a6%97%e0%a7%87%e0%a6%ae-%e0%a6%b8%e0%a6%ab/#dmJhLTMwMHgyMTY

এবার একটি ইউজারফর্ম ইনসার্ট করুন 

 

Pin it
Email
https://karimexcelvba.com/2022/12/11/%e0%a6%8f%e0%a6%95%e0%a7%8d%e0%a6%b8%e0%a7%87%e0%a6%b2-%e0%a6%a6%e0%a6%bf%e0%a6%af%e0%a6%bc%e0%a7%87-%e0%a6%b8%e0%a7%8d%e0%a6%a8%e0%a7%87%e0%a6%95-%e0%a6%97%e0%a7%87%e0%a6%ae-%e0%a6%b8%e0%a6%ab/#aW5zZXJ0LTIwdXN

এবার নিচের ছবিটির মত লেভেল, কমান্ড বাটন, ফ্রেম সহ অন্যান্য টোলস অ্যাড করার পর নিচের কোডগুলো যুক্ত করুন। 

 

Pin it
Email
https://karimexcelvba.com/2022/12/11/%e0%a6%8f%e0%a6%95%e0%a7%8d%e0%a6%b8%e0%a7%87%e0%a6%b2-%e0%a6%a6%e0%a6%bf%e0%a6%af%e0%a6%bc%e0%a7%87-%e0%a6%b8%e0%a7%8d%e0%a6%a8%e0%a7%87%e0%a6%95-%e0%a6%97%e0%a7%87%e0%a6%ae-%e0%a6%b8%e0%a6%ab/#QUpQLTIwU25ha2U

 

 

'For more : https://karimexcelvba.blogspot.com/

'The VBA code is not "readable" and indented in the paid version that authorizes access to the VBA code.
Private Sub Label_fermer_Click()
Unload Me
End Sub
Private Sub Label_fermer2_Click()
Unload Me
End Sub

Private Sub Image2_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Unload Me
ThisWorkbook.Close SaveChanges:=False
End Sub

Private Sub Label_copy_Click()
Unload Me
UserForm1.show
End Sub

Private Sub Label_lien_Click()
On Error Resume Next
ActiveWorkbook.FollowHyperlink ("https://www.excel-pratique.com/en")
End Sub
Private Sub Label_new_Click()
Label_score.Caption = 0
t144e5480e1368d4dd5f094495380b8b5 = 0
bb4c4bbd1595728894daf430f035c8a39 = 1
Label_niveau.Caption = bb4c4bbd1595728894daf430f035c8a39 & "/5"
na852d724a8f7f8a6f1b961fbbb9bdd05
End Sub
Private Sub Label_new2_Click()
Label_new_Click
End Sub
Private Sub na852d724a8f7f8a6f1b961fbbb9bdd05()
For z57fbbe9a55b7e76e8772bb12c27d0537 = 2 To 305
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = False
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 1000
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 1000
If z57fbbe9a55b7e76e8772bb12c27d0537 <= 129 Then Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).BackColor = &HC000&
Next
Label_bleu.Left = 1000
Label_bleu.Top = 1000
Label1.BackColor = &HA000&
Label1.Left = 7.5
Label1.Top = 7.5
UserForm_Initialize
End Sub
Private Sub Label_pause_Click()
b792c61a9fdda73a32e613dc32ddcd2f3 = 1
End Sub
Private Sub Label_pause2_Click()
Label_pause_Click
End Sub
Private Sub Label_pause3_Click()
Label_pause_Click
End Sub

Private Sub Label311_Click()
Unload Me
ThisWorkbook.Close SaveChanges:=False
End Sub

Private Sub Userform_Activate()
Call SystemButtonSettings(Me, False)
End Sub
Private Sub UserForm_Initialize()
Randomize
we708ea59b6ff8e323036756790c559a9
bdbd112d27bbaf684e96b466ca36fef72 = False
w0183bf55e9e57c274370959c58d739f4 = Empty
b565c4d123ba28b906704da75ec64468c = Empty
badb47ea65f8abfc321ab32ab4a3ec09d = Empty
b792c61a9fdda73a32e613dc32ddcd2f3 = Empty
b1a4582fe76904bb2d7dab0fc42230855 = 0
If bb4c4bbd1595728894daf430f035c8a39 = Empty Then bb4c4bbd1595728894daf430f035c8a39 = 1
If t144e5480e1368d4dd5f094495380b8b5 = Empty Then t144e5480e1368d4dd5f094495380b8b5 = 0
If e764f2f642c3ff6f2e961e1fa6410e4d9 = Empty Then e764f2f642c3ff6f2e961e1fa6410e4d9 = ""
If bb4c4bbd1595728894daf430f035c8a39 = 1 Then
nd1c3e12d1f6cbbc52e7194ce4b8257e2 = 0.5
nebd3062bfd2aa024b669b3f7cdb5edd9 = 3
t80c6518f5a408d6d62e3467d1152d204 = 10
ElseIf bb4c4bbd1595728894daf430f035c8a39 = 2 Then
nd1c3e12d1f6cbbc52e7194ce4b8257e2 = 0.45
nebd3062bfd2aa024b669b3f7cdb5edd9 = 5
t80c6518f5a408d6d62e3467d1152d204 = 8
ElseIf bb4c4bbd1595728894daf430f035c8a39 = 3 Then
nd1c3e12d1f6cbbc52e7194ce4b8257e2 = 0.4
nebd3062bfd2aa024b669b3f7cdb5edd9 = 7
t80c6518f5a408d6d62e3467d1152d204 = 6
ElseIf bb4c4bbd1595728894daf430f035c8a39 = 4 Then
nd1c3e12d1f6cbbc52e7194ce4b8257e2 = 0.35
nebd3062bfd2aa024b669b3f7cdb5edd9 = 9
t80c6518f5a408d6d62e3467d1152d204 = 5
Else
nd1c3e12d1f6cbbc52e7194ce4b8257e2 = 0.3
nebd3062bfd2aa024b669b3f7cdb5edd9 = 11
t80c6518f5a408d6d62e3467d1152d204 = 4
End If
b91bc34aea790f022728af1515ea4cfba = nd1c3e12d1f6cbbc52e7194ce4b8257e2
For z57fbbe9a55b7e76e8772bb12c27d0537 = 2 To nebd3062bfd2aa024b669b3f7cdb5edd9
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
Next
For z57fbbe9a55b7e76e8772bb12c27d0537 = 1 To 129
b81f88dadcdcb6df445d03899ff6fb316(z57fbbe9a55b7e76e8772bb12c27d0537) = Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left
bd7a17ece7c4b444df611c8a80d1c757a(z57fbbe9a55b7e76e8772bb12c27d0537) = Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top
Next
For z57fbbe9a55b7e76e8772bb12c27d0537 = 130 To 289
If bb4c4bbd1595728894daf430f035c8a39 = 1 Then
If z57fbbe9a55b7e76e8772bb12c27d0537 <= 156 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 142 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 143 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 144 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 16 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 130) * 9 + 3 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 156 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 171 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 7 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 157) * 9 + 9 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 171 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 186 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 25 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 172) * 9 + 9 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
ElseIf bb4c4bbd1595728894daf430f035c8a39 = 2 Then
If z57fbbe9a55b7e76e8772bb12c27d0537 <= 139 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 5 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 130) * 9 + 5 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 139 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 148 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 140) * 9 + 6 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 14 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 148 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 158 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 27 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 149) * 9 + 18 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 158 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 167 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 159) * 9 + 18 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 18 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
For bb7a1e2a3fdf57e659da8c898e3737416 = 0 To 3
If z57fbbe9a55b7e76e8772bb12c27d0537 > 167 + bb7a1e2a3fdf57e659da8c898e3737416 * 4 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 171 + bb7a1e2a3fdf57e659da8c898e3737416 * 4 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (3 + bb7a1e2a3fdf57e659da8c898e3737416) * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 168 - bb7a1e2a3fdf57e659da8c898e3737416 * 4) * 9 + 22 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
Next
For bb7a1e2a3fdf57e659da8c898e3737416 = 0 To 3
If z57fbbe9a55b7e76e8772bb12c27d0537 > 183 + bb7a1e2a3fdf57e659da8c898e3737416 * 4 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 187 + bb7a1e2a3fdf57e659da8c898e3737416 * 4 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (15 + bb7a1e2a3fdf57e659da8c898e3737416) * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 184 - bb7a1e2a3fdf57e659da8c898e3737416 * 4) * 9 + 27 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
Next
For bb7a1e2a3fdf57e659da8c898e3737416 = 0 To 3
If z57fbbe9a55b7e76e8772bb12c27d0537 > 199 + bb7a1e2a3fdf57e659da8c898e3737416 * 4 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 203 + bb7a1e2a3fdf57e659da8c898e3737416 * 4 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (26 + bb7a1e2a3fdf57e659da8c898e3737416) * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 200 - bb7a1e2a3fdf57e659da8c898e3737416 * 4) * 9 + 7 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
Next
For bb7a1e2a3fdf57e659da8c898e3737416 = 0 To 3
If z57fbbe9a55b7e76e8772bb12c27d0537 > 215 + bb7a1e2a3fdf57e659da8c898e3737416 * 4 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 219 + bb7a1e2a3fdf57e659da8c898e3737416 * 4 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (14 + bb7a1e2a3fdf57e659da8c898e3737416) * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 216 - bb7a1e2a3fdf57e659da8c898e3737416 * 4) * 9 + 2 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
Next
ElseIf bb4c4bbd1595728894daf430f035c8a39 = 3 Then
If z57fbbe9a55b7e76e8772bb12c27d0537 <= 148 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 16 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 130) * 9 + 7 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 150 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 177 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 164 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 151) * 9 + 3 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 4 * 9 + 7.5
If z57fbbe9a55b7e76e8772bb12c27d0537 = 163 Or z57fbbe9a55b7e76e8772bb12c27d0537 = 165 Then Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 7 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 177 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 204 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 191 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 178) * 9 + 3 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 28 * 9 + 7.5
If z57fbbe9a55b7e76e8772bb12c27d0537 = 190 Or z57fbbe9a55b7e76e8772bb12c27d0537 = 192 Then Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 25 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 204 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 237 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 217 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 218 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 219 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 220 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 221 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 222 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 223 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 224 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 225 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 205) * 9 + 0 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 16 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
Controls("Label238").Left = 11 * 9 + 7.5
Controls("Label238").Top = 15 * 9 + 7.5
Controls("Label238").Visible = True
Controls("Label239").Left = 11 * 9 + 7.5
Controls("Label239").Top = 17 * 9 + 7.5
Controls("Label239").Visible = True
Controls("Label240").Left = 21 * 9 + 7.5
Controls("Label240").Top = 15 * 9 + 7.5
Controls("Label240").Visible = True
Controls("Label241").Left = 21 * 9 + 7.5
Controls("Label241").Top = 17 * 9 + 7.5
Controls("Label241").Visible = True
ElseIf bb4c4bbd1595728894daf430f035c8a39 = 4 Then
If z57fbbe9a55b7e76e8772bb12c27d0537 <= 148 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 11 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 130) * 9 + 0 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 148 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 161 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 155 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 149) * 9 + 5 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 11 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 161 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 180 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 21 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 162) * 9 + 14 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 180 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 193 And z57fbbe9a55b7e76e8772bb12c27d0537 <> 168 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 181) * 9 + 15 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 21 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 193 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 203 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 27 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 194) * 9 + 5 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 203 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 212 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 204) * 9 + 18 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 5 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 212 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 222 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 5 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 213) * 9 + 19 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 222 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 231 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 223) * 9 + 6 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 28 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
Else
If z57fbbe9a55b7e76e8772bb12c27d0537 <= 156 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 3 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 130) * 9 + 3 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 156 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 183 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 29 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 157) * 9 + 3 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 183 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 208 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 184) * 9 + 4 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 3 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 208 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 233 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 209) * 9 + 4 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 29 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 233 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 252 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 7 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 234) * 9 + 7 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 252 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 271 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = 25 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = (z57fbbe9a55b7e76e8772bb12c27d0537 - 253) * 9 + 7 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
If z57fbbe9a55b7e76e8772bb12c27d0537 > 271 And z57fbbe9a55b7e76e8772bb12c27d0537 <= 289 Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = (z57fbbe9a55b7e76e8772bb12c27d0537 - 272) * 9 + 8 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = 7 * 9 + 7.5
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True
End If
Controls("Label195").Left = 8 * 9 + 7.5
Controls("Label195").Top = 25 * 9 + 7.5
Controls("Label196").Left = 9 * 9 + 7.5
Controls("Label196").Top = 25 * 9 + 7.5
Controls("Label197").Left = 10 * 9 + 7.5
Controls("Label197").Top = 25 * 9 + 7.5
Controls("Label204").Left = 14 * 9 + 7.5
Controls("Label204").Top = 25 * 9 + 7.5
Controls("Label205").Left = 15 * 9 + 7.5
Controls("Label205").Top = 25 * 9 + 7.5
Controls("Label187").Left = 16 * 9 + 7.5
Controls("Label187").Top = 25 * 9 + 7.5
Controls("Label188").Left = 17 * 9 + 7.5
Controls("Label188").Top = 25 * 9 + 7.5
Controls("Label220").Left = 18 * 9 + 7.5
Controls("Label220").Top = 25 * 9 + 7.5
Controls("Label221").Left = 22 * 9 + 7.5
Controls("Label221").Top = 25 * 9 + 7.5
Controls("Label222").Left = 23 * 9 + 7.5
Controls("Label222").Top = 25 * 9 + 7.5
Controls("Label229").Left = 24 * 9 + 7.5
Controls("Label229").Top = 25 * 9 + 7.5
Controls("Label230").Left = 16 * 9 + 7.5
Controls("Label230").Top = 11 * 9 + 7.5
Controls("Label212").Left = 16 * 9 + 7.5
Controls("Label212").Top = 12 * 9 + 7.5
Controls("Label213").Left = 16 * 9 + 7.5
Controls("Label213").Top = 13 * 9 + 7.5
Controls("Label142").Left = 16 * 9 + 7.5
Controls("Label142").Top = 14 * 9 + 7.5
Controls("Label143").Left = 16 * 9 + 7.5
Controls("Label143").Top = 18 * 9 + 7.5
Controls("Label144").Left = 16 * 9 + 7.5
Controls("Label144").Top = 19 * 9 + 7.5
Controls("Label151").Left = 16 * 9 + 7.5
Controls("Label151").Top = 20 * 9 + 7.5
Controls("Label152").Left = 16 * 9 + 7.5
Controls("Label152").Top = 21 * 9 + 7.5
Controls("Label134").Left = 11 * 9 + 7.5
Controls("Label134").Top = 16 * 9 + 7.5
Controls("Label135").Left = 12 * 9 + 7.5
Controls("Label135").Top = 16 * 9 + 7.5
Controls("Label169").Left = 13 * 9 + 7.5
Controls("Label169").Top = 16 * 9 + 7.5
Controls("Label170").Left = 14 * 9 + 7.5
Controls("Label170").Top = 16 * 9 + 7.5
Controls("Label171").Left = 18 * 9 + 7.5
Controls("Label171").Top = 16 * 9 + 7.5
Controls("Label178").Left = 19 * 9 + 7.5
Controls("Label178").Top = 16 * 9 + 7.5
Controls("Label179").Left = 20 * 9 + 7.5
Controls("Label179").Top = 16 * 9 + 7.5
Controls("Label161").Left = 21 * 9 + 7.5
Controls("Label161").Top = 16 * 9 + 7.5
Controls("Label162").Left = 99 * 9 + 7.5
Controls("Label162").Top = 99 * 9 + 7.5
Controls("Label275").Left = 99 * 9 + 7.5
Controls("Label275").Top = 99 * 9 + 7.5
Controls("Label276").Left = 99 * 9 + 7.5
Controls("Label276").Top = 99 * 9 + 7.5
Controls("Label277").Left = 99 * 9 + 7.5
Controls("Label277").Top = 99 * 9 + 7.5
Controls("Label283").Left = 99 * 9 + 7.5
Controls("Label283").Top = 99 * 9 + 7.5
Controls("Label284").Left = 99 * 9 + 7.5
Controls("Label284").Top = 99 * 9 + 7.5
Controls("Label285").Left = 99 * 9 + 7.5
Controls("Label285").Top = 99 * 9 + 7.5
Controls("Label238").Left = 99 * 9 + 7.5
Controls("Label238").Top = 99 * 9 + 7.5
Controls("Label239").Left = 99 * 9 + 7.5
Controls("Label239").Top = 99 * 9 + 7.5
Controls("Label240").Left = 99 * 9 + 7.5
Controls("Label240").Top = 99 * 9 + 7.5
Controls("Label246").Left = 99 * 9 + 7.5
Controls("Label246").Top = 99 * 9 + 7.5
Controls("Label247").Left = 99 * 9 + 7.5
Controls("Label247").Top = 99 * 9 + 7.5
Controls("Label248").Left = 99 * 9 + 7.5
Controls("Label248").Top = 99 * 9 + 7.5
Controls("Label257").Left = 99 * 9 + 7.5
Controls("Label257").Top = 99 * 9 + 7.5
Controls("Label258").Left = 99 * 9 + 7.5
Controls("Label258").Top = 99 * 9 + 7.5
Controls("Label259").Left = 99 * 9 + 7.5
Controls("Label259").Top = 99 * 9 + 7.5
Controls("Label265").Left = 99 * 9 + 7.5
Controls("Label265").Top = 99 * 9 + 7.5
Controls("Label266").Left = 99 * 9 + 7.5
Controls("Label266").Top = 99 * 9 + 7.5
Controls("Label267").Left = 99 * 9 + 7.5
Controls("Label267").Top = 99 * 9 + 7.5
End If
Next
For z9be08692cd1740fcb4be4fa5379978e8 = 1 To t80c6518f5a408d6d62e3467d1152d204
bace0dacb25b4e342f633915aa25e064d = False
b1e78fbce9ad7f8b03c4d49f33bcfc071 = Int(33 * Rnd) * 9 + 7.5
w5a9453549b3f6944b4376cd2c8f0b532 = Int(33 * Rnd) * 9 + 7.5
For z57fbbe9a55b7e76e8772bb12c27d0537 = 1 To 289 + z9be08692cd1740fcb4be4fa5379978e8 - 1
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True Then
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = b1e78fbce9ad7f8b03c4d49f33bcfc071 And Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = w5a9453549b3f6944b4376cd2c8f0b532 Then
bace0dacb25b4e342f633915aa25e064d = True
End If
End If
Next
If bace0dacb25b4e342f633915aa25e064d Then
z9be08692cd1740fcb4be4fa5379978e8 = z9be08692cd1740fcb4be4fa5379978e8 - 1
Else
Controls("Label" & z9be08692cd1740fcb4be4fa5379978e8 + 289).Left = b1e78fbce9ad7f8b03c4d49f33bcfc071
Controls("Label" & z9be08692cd1740fcb4be4fa5379978e8 + 289).Top = w5a9453549b3f6944b4376cd2c8f0b532
Controls("Label" & z9be08692cd1740fcb4be4fa5379978e8 + 289).Visible = True
End If
Next
End Sub
Private Sub t2440be8cf4512722a6514268ff865060(ByVal qfbac6942d33622b0d8770ce60d3c82aa As Integer)
For z9be08692cd1740fcb4be4fa5379978e8 = qfbac6942d33622b0d8770ce60d3c82aa To qfbac6942d33622b0d8770ce60d3c82aa
bace0dacb25b4e342f633915aa25e064d = False
b1e78fbce9ad7f8b03c4d49f33bcfc071 = Int(33 * Rnd) * 9 + 7.5
w5a9453549b3f6944b4376cd2c8f0b532 = Int(33 * Rnd) * 9 + 7.5
For z57fbbe9a55b7e76e8772bb12c27d0537 = 1 To 305
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True Then
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = b1e78fbce9ad7f8b03c4d49f33bcfc071 And Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = w5a9453549b3f6944b4376cd2c8f0b532 Then
bace0dacb25b4e342f633915aa25e064d = True
End If
End If
Next
If bace0dacb25b4e342f633915aa25e064d Then
z9be08692cd1740fcb4be4fa5379978e8 = z9be08692cd1740fcb4be4fa5379978e8 - 1
Else
Controls("Label" & z9be08692cd1740fcb4be4fa5379978e8 + 289).Left = b1e78fbce9ad7f8b03c4d49f33bcfc071
Controls("Label" & z9be08692cd1740fcb4be4fa5379978e8 + 289).Top = w5a9453549b3f6944b4376cd2c8f0b532
Controls("Label" & z9be08692cd1740fcb4be4fa5379978e8 + 289).Visible = True
End If
Next
End Sub
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 37 Or KeyCode = 38 Or KeyCode = 39 Or KeyCode = 40 Then
b40e2bcf4a3dce238a6f88d202f47887e = False
If Not w0183bf55e9e57c274370959c58d739f4 = Empty Then
If (w0183bf55e9e57c274370959c58d739f4 = 37 And KeyCode = 39) Or (w0183bf55e9e57c274370959c58d739f4 = 38 And KeyCode = 40) Or (w0183bf55e9e57c274370959c58d739f4 = 39 And KeyCode = 37) Or (w0183bf55e9e57c274370959c58d739f4 = 40 And KeyCode = 38) Then
b40e2bcf4a3dce238a6f88d202f47887e = True
End If
Else
If KeyCode = 37 Or KeyCode = 38 Then
b40e2bcf4a3dce238a6f88d202f47887e = True
End If
End If
If b40e2bcf4a3dce238a6f88d202f47887e = False Then
w0183bf55e9e57c274370959c58d739f4 = KeyCode
b001ff9cc92416b0b0e49764ff2cd735f = Timer
End If
If Not b792c61a9fdda73a32e613dc32ddcd2f3 = Empty Then
If badb47ea65f8abfc321ab32ab4a3ec09d <> Day(Date) Then
b792c61a9fdda73a32e613dc32ddcd2f3 = b792c61a9fdda73a32e613dc32ddcd2f3 - 86400
End If
b565c4d123ba28b906704da75ec64468c = b565c4d123ba28b906704da75ec64468c + (Timer - b792c61a9fdda73a32e613dc32ddcd2f3)
b792c61a9fdda73a32e613dc32ddcd2f3 = Empty
bb15d56a3a1a93d9b0455ff1ec2f8f986
End If
If b565c4d123ba28b906704da75ec64468c = Empty Then
b565c4d123ba28b906704da75ec64468c = Timer
badb47ea65f8abfc321ab32ab4a3ec09d = Day(Date)
rb7cedb71fce1c87a57dcc668c76324e7 = Timer + b91bc34aea790f022728af1515ea4cfba
bb15d56a3a1a93d9b0455ff1ec2f8f986
End If
End If
If KeyCode = 32 Then Label_pause_Click
End Sub
Private Sub b34f14fa1ab48964b41d0be13d8bec446()
If badb47ea65f8abfc321ab32ab4a3ec09d <> Day(Date) Then
b565c4d123ba28b906704da75ec64468c = b565c4d123ba28b906704da75ec64468c - 86400
If Not rb7cedb71fce1c87a57dcc668c76324e7 = Empty Then rb7cedb71fce1c87a57dcc668c76324e7 = rb7cedb71fce1c87a57dcc668c76324e7 - 86400
badb47ea65f8abfc321ab32ab4a3ec09d = Day(Date)
End If
End Sub
Sub bb15d56a3a1a93d9b0455ff1ec2f8f986()
Do While bdbd112d27bbaf684e96b466ca36fef72 = False
b34f14fa1ab48964b41d0be13d8bec446
ef220866a25c06c6ba4858ec7496b693a = False
If rb7cedb71fce1c87a57dcc668c76324e7 <= Timer Then
rb7cedb71fce1c87a57dcc668c76324e7 = Timer + b91bc34aea790f022728af1515ea4cfba
ef220866a25c06c6ba4858ec7496b693a = True
End If
If b001ff9cc92416b0b0e49764ff2cd735f <= Timer Then
b001ff9cc92416b0b0e49764ff2cd735f = 999999
ef220866a25c06c6ba4858ec7496b693a = True
rb7cedb71fce1c87a57dcc668c76324e7 = Timer + b91bc34aea790f022728af1515ea4cfba
End If
If b792c61a9fdda73a32e613dc32ddcd2f3 <= 1 And b792c61a9fdda73a32e613dc32ddcd2f3 <> 0 And t144e5480e1368d4dd5f094495380b8b5 < 10 Then
t144e5480e1368d4dd5f094495380b8b5 = t144e5480e1368d4dd5f094495380b8b5 + 1
b792c61a9fdda73a32e613dc32ddcd2f3 = Timer
If t144e5480e1368d4dd5f094495380b8b5 = 10 Then MsgBox "This is your 10th pause and the last one you are allowed for this game ;-)", 64, "Pause"
Exit Do
End If
If ef220866a25c06c6ba4858ec7496b693a Then
On Error Resume Next
b91bc34aea790f022728af1515ea4cfba = nd1c3e12d1f6cbbc52e7194ce4b8257e2 - Round(Sqr(Timer - b565c4d123ba28b906704da75ec64468c) * (nd1c3e12d1f6cbbc52e7194ce4b8257e2 * 8), 0) / 100
If b91bc34aea790f022728af1515ea4cfba < 0.05 Then b91bc34aea790f022728af1515ea4cfba = 0.05
decalage = 9
bac20e2b605fe640bdd0f708137c9379a = False
If w0183bf55e9e57c274370959c58d739f4 = 37 Then
If Label1.Left > 7.5 Then
Label1.Left = Label1.Left - decalage
bac20e2b605fe640bdd0f708137c9379a = True
Else
bdbd112d27bbaf684e96b466ca36fef72 = True
End If
ElseIf w0183bf55e9e57c274370959c58d739f4 = 38 Then
If Label1.Top > 7.5 Then
Label1.Top = Label1.Top - decalage
bac20e2b605fe640bdd0f708137c9379a = True
Else
bdbd112d27bbaf684e96b466ca36fef72 = True
End If
ElseIf w0183bf55e9e57c274370959c58d739f4 = 39 Then
If Label1.Left < 292.5 Then
Label1.Left = Label1.Left + decalage
bac20e2b605fe640bdd0f708137c9379a = True
Else
bdbd112d27bbaf684e96b466ca36fef72 = True
End If
ElseIf w0183bf55e9e57c274370959c58d739f4 = 40 Then
If Label1.Top < 292.5 Then
Label1.Top = Label1.Top + decalage
bac20e2b605fe640bdd0f708137c9379a = True
Else
bdbd112d27bbaf684e96b466ca36fef72 = True
End If
End If
If bac20e2b605fe640bdd0f708137c9379a Then
For z57fbbe9a55b7e76e8772bb12c27d0537 = 130 To 289
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True Then
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = Label1.Left And Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = Label1.Top Then
bdbd112d27bbaf684e96b466ca36fef72 = True
Label1.Left = b81f88dadcdcb6df445d03899ff6fb316(1)
Label1.Top = bd7a17ece7c4b444df611c8a80d1c757a(1)
Label1.BackColor = &HDD&
End If
End If
Next
For z57fbbe9a55b7e76e8772bb12c27d0537 = 2 To 129
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = b81f88dadcdcb6df445d03899ff6fb316(z57fbbe9a55b7e76e8772bb12c27d0537 - 1)
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = bd7a17ece7c4b444df611c8a80d1c757a(z57fbbe9a55b7e76e8772bb12c27d0537 - 1)
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True Then
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = Label1.Left And Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = Label1.Top Then
bdbd112d27bbaf684e96b466ca36fef72 = True
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).BackColor = &HDD&
End If
End If
Next
For z57fbbe9a55b7e76e8772bb12c27d0537 = 1 To 129
b81f88dadcdcb6df445d03899ff6fb316(z57fbbe9a55b7e76e8772bb12c27d0537) = Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left
bd7a17ece7c4b444df611c8a80d1c757a(z57fbbe9a55b7e76e8772bb12c27d0537) = Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top
Next
rc0ceda7677fb79638122a6760e247bca = False
For z57fbbe9a55b7e76e8772bb12c27d0537 = 290 To 305
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True Then
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = Label1.Left And Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = Label1.Top Then
Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = False
If b91bc34aea790f022728af1515ea4cfba > nd1c3e12d1f6cbbc52e7194ce4b8257e2 * 0.4 Or bb4c4bbd1595728894daf430f035c8a39 = 5 Then t2440be8cf4512722a6514268ff865060 z57fbbe9a55b7e76e8772bb12c27d0537 - 289
Label_score.Caption = Val(Label_score.Caption) + bb4c4bbd1595728894daf430f035c8a39 * 5
b1a4582fe76904bb2d7dab0fc42230855 = b1a4582fe76904bb2d7dab0fc42230855 + 1.5
For ii = 2 To Round(b1a4582fe76904bb2d7dab0fc42230855, 0) + nebd3062bfd2aa024b669b3f7cdb5edd9
Controls("Label" & ii).Visible = True
Next
rc0ceda7677fb79638122a6760e247bca = True
End If
End If
Next
If Label_bleu.Visible = True Then
If Label_bleu.Left = Label1.Left And Label_bleu.Top = Label1.Top Then
Label_bleu.Left = 1000
Label_bleu.Top = 1000
Label_score.Caption = Val(Label_score.Caption) + bb4c4bbd1595728894daf430f035c8a39 * 25
b1a4582fe76904bb2d7dab0fc42230855 = b1a4582fe76904bb2d7dab0fc42230855 + 1.5
For ii = 2 To Round(b1a4582fe76904bb2d7dab0fc42230855, 0) + nebd3062bfd2aa024b669b3f7cdb5edd9
Controls("Label" & ii).Visible = True
Next
End If
End If
b57f9f7d88cc8e5e15f4ba0e2435b3fb3 = Timer - b565c4d123ba28b906704da75ec64468c
If b91bc34aea790f022728af1515ea4cfba > nd1c3e12d1f6cbbc52e7194ce4b8257e2 * 0.4 Or bb4c4bbd1595728894daf430f035c8a39 = 5 Then
If b57f9f7d88cc8e5e15f4ba0e2435b3fb3 Mod 10 >= 5 Then
If Label_bleu.Top < 1000 And Label_bleu.Visible = False Then
For z9be08692cd1740fcb4be4fa5379978e8 = 1 To 1
bace0dacb25b4e342f633915aa25e064d = False
b1e78fbce9ad7f8b03c4d49f33bcfc071 = Int(33 * Rnd) * 9 + 7.5
w5a9453549b3f6944b4376cd2c8f0b532 = Int(33 * Rnd) * 9 + 7.5
For z57fbbe9a55b7e76e8772bb12c27d0537 = 1 To 305
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True Then
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Left = b1e78fbce9ad7f8b03c4d49f33bcfc071 And Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Top = w5a9453549b3f6944b4376cd2c8f0b532 Then
bace0dacb25b4e342f633915aa25e064d = True
End If
End If
Next
If bace0dacb25b4e342f633915aa25e064d Then
z9be08692cd1740fcb4be4fa5379978e8 = z9be08692cd1740fcb4be4fa5379978e8 - 1
Else
Label_bleu.Left = b1e78fbce9ad7f8b03c4d49f33bcfc071
Label_bleu.Top = w5a9453549b3f6944b4376cd2c8f0b532
Label_bleu.Visible = True
End If
Next
End If
Else
Label_bleu.Visible = False
Label_bleu.Left = 900
Label_bleu.Top = 900
End If
End If
zdd26789362039c5354b2fd917ad50eb2 = 0
If rc0ceda7677fb79638122a6760e247bca Then
For z57fbbe9a55b7e76e8772bb12c27d0537 = 290 To 305
If Controls("Label" & z57fbbe9a55b7e76e8772bb12c27d0537).Visible = True Then
zdd26789362039c5354b2fd917ad50eb2 = zdd26789362039c5354b2fd917ad50eb2 + 1
End If
Next
If zdd26789362039c5354b2fd917ad50eb2 = 0 Then
bb4c4bbd1595728894daf430f035c8a39 = bb4c4bbd1595728894daf430f035c8a39 + 1
Label_niveau.Caption = bb4c4bbd1595728894daf430f035c8a39 & "/5"
na852d724a8f7f8a6f1b961fbbb9bdd05
Exit Do
End If
End If
End If
If bdbd112d27bbaf684e96b466ca36fef72 Then
b8389e5e1c58728ade81a1a42398c37f5 = Timer - b565c4d123ba28b906704da75ec64468c
Label1.BackColor = &HDD&
Application.Wait Now + TimeValue("0:00:01")
b039133fb83c8839cb0fb81259fa0579b = Val(Label_score.Caption)
r9b79c87e9d00bb482849a7f37eefea27 = IIf(BD_SCORES.[A11] = "", 0, BD_SCORES.[A11])
If b039133fb83c8839cb0fb81259fa0579b > r9b79c87e9d00bb482849a7f37eefea27 And b039133fb83c8839cb0fb81259fa0579b > 0 Then
e764f2f642c3ff6f2e961e1fa6410e4d9 = InputBox("Congratulations, you have achieved a score of " & Label_score.Caption & "! " & Chr(10) & Chr(10) & "Enter your first name or nickname to save your score (maximum 15 characters):", "Score", e764f2f642c3ff6f2e961e1fa6410e4d9)
If e764f2f642c3ff6f2e961e1fa6410e4d9 <> "" Then
BD_SCORES.[A11] = b039133fb83c8839cb0fb81259fa0579b
BD_SCORES.[B11] = e764f2f642c3ff6f2e961e1fa6410e4d9
BD_SCORES.[A2:B11].Sort Key1:=BD_SCORES.[A2], Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
we708ea59b6ff8e323036756790c559a9
End If
Else
If MsgBox("You have achieved a score of " & Label_score.Caption & " ! " & Chr(10) & Chr(10) & "Would you like to play again?", 36, "Game Over") = vbYes Then
Label_new_Click
End If
End If
bb4c4bbd1595728894daf430f035c8a39 = 1
Exit Do
End If
End If
DoEvents
Loop
End Sub
Sub we708ea59b6ff8e323036756790c559a9()
bae57fbd3e97eee8584d9138bf77a9a90 = BD_SCORES.[A2]
For w3b22435361702e06b5cf4e99397e71c1 = 1 To 10
t03f6578e679190b64e2268bd5e5d62e3 = BD_SCORES.Cells(w3b22435361702e06b5cf4e99397e71c1 + 1, 1)
If t03f6578e679190b64e2268bd5e5d62e3 = "" Then
Controls("Label_score_" & w3b22435361702e06b5cf4e99397e71c1).Caption = ""
Controls("Label_barre_" & w3b22435361702e06b5cf4e99397e71c1).Width = 0
Else
Controls("Label_score_" & w3b22435361702e06b5cf4e99397e71c1).Caption = " " & w3b22435361702e06b5cf4e99397e71c1 & ". " & t03f6578e679190b64e2268bd5e5d62e3 & " - " & BD_SCORES.Cells(w3b22435361702e06b5cf4e99397e71c1 + 1, 2)
Controls("Label_barre_" & w3b22435361702e06b5cf4e99397e71c1).Width = Round(t03f6578e679190b64e2268bd5e5d62e3 * 136 / bae57fbd3e97eee8584d9138bf77a9a90, 0)
End If
Next
End Sub

আমাদের সম্পর্কে জানতে এবং বিভিন্ন টিউটোরিয়াল পেতে লাইক ও সাবস্ক্রাইব করে সাথেই থাকুন