-
Notifications
You must be signed in to change notification settings - Fork 0
/
EditProfile.vb
2261 lines (2175 loc) · 91.6 KB
/
EditProfile.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
Imports System
Imports System.IO
Imports System.Threading.Tasks
Imports System.Net.Http
Public Class EditProfile
Public titleList As New List(Of String)
Public unrankedWins As Integer
Public rankedWins As Integer
Public allWins As Integer
Public achievements As String
Dim achievementcount As Integer = 0
Public Award1 As String
Public auw As Integer
Public buw As Integer
Public cuw As Integer
Dim newTitle As String
Dim borderList As New List(Of String)
Public imageLink As String = ""
Public RankedSeasons As List(Of RankedSeason) = New List(Of RankedSeason)
Public Class RankedSeason
Public season As Integer
Public singleRating As Integer
Public singleWin As Integer
Public singleDraw As Integer
Public singleLose As Integer
Public matchRating As Integer
Public matchWin As Integer
Public matchDraw As Integer
Public matchLose As Integer
Public tagRating As Integer
Public tagWin As Integer
Public tagDraw As Integer
Public tagLose As Integer
Public Sub New(newSeason As Integer, sRating As Integer, sWin As Integer, sDraw As Integer, sLose As Integer, mRating As Integer, mWin As Integer, mDraw As Integer, mLose As Integer, tRating As Integer, tWin As Integer, tDraw As Integer, tLose As Integer)
season = newSeason
singleRating = sRating
singleWin = sWin
singleDraw = sDraw
singleLose = sLose
matchRating = mRating
matchWin = mWin
matchDraw = mDraw
matchLose = mLose
tagRating = tRating
tagWin = tWin
tagDraw = tDraw
tagLose = tLose
End Sub
End Class
Public Sub AddRankedSeason(newSeason As Integer, sRating As Integer, sWin As Integer, sDraw As Integer, sLose As Integer, tRating As Integer, tWin As Integer, tDraw As Integer, tLose As Integer, mRating As Integer, mWin As Integer, mDraw As Integer, mLose As Integer)
Dim newRankedSeason As New RankedSeason(newSeason, sRating, sWin, sDraw, sLose, mRating, mWin, mDraw, mLose, tRating, tWin, tDraw, tLose)
RankedSeasons.Add(newRankedSeason)
selectSeasonComboBox.Text = "Season " & newSeason
selectSeasonComboBox.Items.Add("Season " & newSeason)
End Sub
Public Sub setImageFunction(ByVal link As String)
imageLink = link
Dim setImageThread As New Threading.Thread(AddressOf setImage)
setImageThread.Start()
End Sub
Private Delegate Sub setImageDelegate()
Private Sub setImage()
Try
Dim downloadedImage As Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(imageLink)))
If ProfilePicture.InvokeRequired Then
ProfilePicture.Invoke(New setImageDelegate(AddressOf setImage))
Else
ProfilePicture.Image = downloadedImage
End If
Catch
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
UpdateProfile(True)
End Sub
Private Sub Label16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Shell("cmd /c start http://ygopro.org/howtouploadvideo.htm")
End Sub
Public Sub LoadTitles()
unrankedWins = auw + buw + cuw
rankedWins = 0
For Each season As RankedSeason In RankedSeasons
rankedWins += season.singleWin
rankedWins += season.matchWin
rankedWins += season.tagWin
Next
allWins = unrankedWins + rankedWins
If Level.Text >= 10 Then
AddTitle("Rival")
End If
If Level.Text >= 20 Then
AddTitle("Gladiator")
End If
If Level.Text >= 30 Then
AddTitle("Conqueror")
End If
If Level.Text >= 40 Then
AddTitle("Vanquisher")
End If
If Level.Text >= 50 Then
AddTitle("TITAN")
End If
If unrankedWins >= 100 Then
AddTitle("Duelist")
End If
If unrankedWins >= 500 Then
AddTitle("Expert Duelist")
End If
If unrankedWins >= 750 Then
AddTitle("Senior Duelist")
End If
If unrankedWins >= 1500 Then
AddTitle("Professional Duelist")
End If
If unrankedWins >= 2000 Then
AddTitle("Master Duelist")
End If
If allWins >= 7500 Then
AddTitle("The Immortal")
End If
If allWins >= 10000 Then
AddTitle("Legendary Duelist")
End If
If Launcher.MyQualification = 2 Then
AddTitle("Supreme")
End If
If Launcher.HeartOfFire = 1 Then
AddTitle("Firelord")
End If
If Launcher.LunarLantern = 1 Then
AddTitle("Starcaller")
End If
If Launcher.Stormborn = 1 Then
AddTitle("Stormborn")
End If
If Launcher.Rexterra = 1 Then
AddTitle("Rexterra")
End If
If Launcher.Tidemaster = 1 Then
AddTitle("Tidemaster")
End If
If Launcher.HeartOfFire = 1 And Launcher.Stormborn = 1 And Launcher.Rexterra = 1 And Launcher.Tidemaster = 1 Then
AddTitle("Master of Elements")
End If
If Launcher.Nightshade = 1 Then
AddTitle("Nightshade")
End If
If Launcher.LordOfLight = 1 Then
AddTitle("Lord of Light")
End If
End Sub
Public Sub AddTitles(titles)
Dim sParts() As String = Split(titles, ",")
For Each title As Integer In sParts
If title = 0 Then
AddTitle("King of Games")
End If
If title = 1 Then
AddTitle("Queen of Games")
End If
If title = 2 Then
AddTitle("Battle City Challenger")
End If
If title = 3 Then
AddTitle("High Warlord")
End If
If title = 4 Then
AddTitle("Warlord")
End If
If title = 5 Then
AddTitle("Kaiser")
End If
If title = 6 Then
AddTitle("Champion")
End If
If title = 7 Then
AddTitle("Master")
End If
If title = 8 Then
AddTitle("Grand Master")
End If
If title = 9 Then
AddTitle("Judge")
End If
If title = 10 Then
AddTitle("The Light of Dawn")
End If
If title = 11 Then
AddTitle("Head Moderator")
End If
If title = 12 Then
AddTitle("Head Global Moderator")
End If
If title = 13 Then
AddTitle("Head FBI")
End If
If title = 14 Then
AddTitle("Event Manager")
End If
If title = 15 Then
AddTitle("CEO")
End If
If title = 16 Then
AddTitle("Gen King")
End If
If title = 17 Then
AddTitle("TDOANE Challenger")
End If
If title = 18 Then
AddTitle("TDOANE Champion")
End If
If title = 19 Then
AddTitle("Moon Ruler")
End If
Next
End Sub
Public Sub LoadAchievements(type)
unrankedWins = auw + buw + cuw
rankedWins = 0
For Each season As RankedSeason In RankedSeasons
rankedWins += season.singleWin
rankedWins += season.matchWin
rankedWins += season.tagWin
Next
allWins = unrankedWins + rankedWins
Dim sParts() As String = Split(achievements, ",")
ListBox3.Items.Clear()
If type = "General" Then
If sParts.Contains(0) Then
ListBox3.Items.Add("Unique Duelist (Completed)")
Else
ListBox3.Items.Add("Unique Duelist")
End If
If sParts.Contains(1) Then
ListBox3.Items.Add("Together with a group (Completed)")
Else
ListBox3.Items.Add("Together with a group")
End If
If sParts.Contains(2) Then
ListBox3.Items.Add("Save and watch later! (Completed)")
Else
ListBox3.Items.Add("Save and watch later!")
End If
If sParts.Contains(3) Then
ListBox3.Items.Add("Yu-Gi-Oh! - Now With Puzzles (Completed)")
Else
ListBox3.Items.Add("Yu-Gi-Oh! - Now With Puzzles")
End If
If sParts.Contains(4) Then
ListBox3.Items.Add("Don't want to make a deck, Download One! (Completed)")
Else
ListBox3.Items.Add("Don't want to make a deck, Download One!")
End If
If sParts.Contains(5) Then
ListBox3.Items.Add("News - From Kaiba Corporation (Completed)")
Else
ListBox3.Items.Add("News - From Kaiba Corporation")
End If
If Launcher.MyQualification >= 1 Then
ListBox3.Items.Add("Qualified (Completed)")
Else
ListBox3.Items.Add("Qualified")
End If
If Launcher.MyQualification >= 2 Then
ListBox3.Items.Add("Supreme Qualified (Completed)")
Else
ListBox3.Items.Add("Supreme Qualified")
End If
If Level.Text >= 5 Then
ListBox3.Items.Add("Level Five (Completed)")
Else
ListBox3.Items.Add("Level Five")
End If
If Level.Text >= 10 Then
ListBox3.Items.Add("Rival (Completed)")
Else
ListBox3.Items.Add("Rival")
End If
If Level.Text >= 15 Then
ListBox3.Items.Add("Level Fifteen (Completed)")
Else
ListBox3.Items.Add("Level Fifteen")
End If
If Level.Text >= 20 Then
ListBox3.Items.Add("Gladiator (Completed)")
Else
ListBox3.Items.Add("Gladiator")
End If
If Level.Text >= 25 Then
ListBox3.Items.Add("Level Twenty-Five (Completed)")
Else
ListBox3.Items.Add("Level Twenty-Five")
End If
If Level.Text >= 30 Then
ListBox3.Items.Add("Conqueror (Completed)")
Else
ListBox3.Items.Add("Conqueror")
End If
If Level.Text >= 35 Then
ListBox3.Items.Add("Level Thirty-Five (Completed)")
Else
ListBox3.Items.Add("Level Thirty-Five")
End If
If Level.Text >= 40 Then
ListBox3.Items.Add("Vanquisher (Completed)")
Else
ListBox3.Items.Add("Vanquisher")
End If
If Level.Text >= 45 Then
ListBox3.Items.Add("Level Fourty-Five (Completed)")
Else
ListBox3.Items.Add("Level Fourty-Five")
End If
If Level.Text >= 50 Then
ListBox3.Items.Add("Titan (Completed)")
Else
ListBox3.Items.Add("Titan")
End If
ElseIf type = "Dueling" Then
If sParts.Contains(6) Then
ListBox3.Items.Add("Duel J.A.R.V.I.S. (Completed)")
Else
ListBox3.Items.Add("Duel J.A.R.V.I.S.")
End If
If unrankedWins > 1 Then
ListBox3.Items.Add("Just Starting (Completed)")
Else
ListBox3.Items.Add("Just Starting")
End If
If unrankedWins > 10 Then
ListBox3.Items.Add("Long way to go (Completed)")
Else
ListBox3.Items.Add("Long way to go")
End If
If unrankedWins > 50 Then
ListBox3.Items.Add("Becoming a duelist! (Completed)")
Else
ListBox3.Items.Add("Becoming a duelist!")
End If
If unrankedWins > 100 Then
ListBox3.Items.Add("A Real Duelist (Completed)")
Else
ListBox3.Items.Add("A Real Duelist")
End If
If unrankedWins > 250 Then
ListBox3.Items.Add("A Better Duelist (Completed)")
Else
ListBox3.Items.Add("A Better Duelist")
End If
If unrankedWins > 500 Then
ListBox3.Items.Add("Expert Duelist (Completed)")
Else
ListBox3.Items.Add("Expert Duelist")
End If
If unrankedWins > 750 Then
ListBox3.Items.Add("Senior Duelist (Completed)")
Else
ListBox3.Items.Add("Senior Duelist")
End If
If unrankedWins > 1000 Then
ListBox3.Items.Add("Time to join the elite (Completed)")
Else
ListBox3.Items.Add("Time to join the elite")
End If
If unrankedWins > 1500 Then
ListBox3.Items.Add("Professional Duelist (Completed)")
Else
ListBox3.Items.Add("Professional Duelist")
End If
If unrankedWins > 2000 Then
ListBox3.Items.Add("Master Duelist (Completed)")
Else
ListBox3.Items.Add("Master Duelist")
End If
If unrankedWins > 3000 Then
ListBox3.Items.Add("Best of the masters (Completed)")
Else
ListBox3.Items.Add("Best of the masters")
End If
If unrankedWins > 5000 Then
ListBox3.Items.Add("They will remember me.. (Completed)")
Else
ListBox3.Items.Add("They will remember me..")
End If
If unrankedWins > 7500 Then
ListBox3.Items.Add("The Immortal (Completed)")
Else
ListBox3.Items.Add("The Immortal")
End If
If unrankedWins > 9000 Then
ListBox3.Items.Add("Its OVER 9000!! (Completed)")
Else
ListBox3.Items.Add("Its OVER 9000!!")
End If
If unrankedWins > 10000 Then
ListBox3.Items.Add("Legendary Duelist (Completed)")
Else
ListBox3.Items.Add("Legendary Duelist")
End If
If auw > 1000 Then
ListBox3.Items.Add("Why don't they play matches Anime? (Completed)")
Else
ListBox3.Items.Add("Why don't they play matches Anime?")
End If
If buw > 1000 Then
ListBox3.Items.Add("Best out of 3! (Completed)")
Else
ListBox3.Items.Add("Best out of 3!")
End If
If cuw > 1000 Then
ListBox3.Items.Add("More players should tag! (Completed)")
Else
ListBox3.Items.Add("More players should tag!")
End If
ElseIf type = "Elite" Then
If rankedWins > 1 Then
ListBox3.Items.Add("Joining the Elite (Completed)")
Else
ListBox3.Items.Add("Joining the Elite")
End If
If rankedWins > 10 Then
ListBox3.Items.Add("To reach the Master League..: (Completed)")
Else
ListBox3.Items.Add("To reach the Master League..:")
End If
If rankedWins > 50 Then
ListBox3.Items.Add("This is harder then it looks! (Completed)")
Else
ListBox3.Items.Add("This is harder then it looks!")
End If
If rankedWins > 100 Then
ListBox3.Items.Add("If only J.A.R.V.I.S. played ranked (Completed)")
Else
ListBox3.Items.Add("If only J.A.R.V.I.S. played ranked")
End If
If rankedWins > 250 Then
ListBox3.Items.Add("Now I am the elite (Completed)")
Else
ListBox3.Items.Add("Now I am the elite")
End If
If rankedWins > 500 Then
ListBox3.Items.Add("I need more gold now (Completed)")
Else
ListBox3.Items.Add("I need more gold now")
End If
If rankedWins > 750 Then
ListBox3.Items.Add("There is none who can defeat me. (Completed)")
Else
ListBox3.Items.Add("There is none who can defeat me.")
End If
If rankedWins > 1000 Then
ListBox3.Items.Add("The Warlord is born (Completed)")
Else
ListBox3.Items.Add("The Warlord is born")
End If
If rankedWins > 1500 Then
ListBox3.Items.Add("Life as a Warlord is.... Good (Completed)")
Else
ListBox3.Items.Add("Life as a Warlord is.... Good")
End If
If rankedWins > 2000 Then
ListBox3.Items.Add("Warlord vs High Warlord (Completed)")
Else
ListBox3.Items.Add("Warlord vs Hig h Warlord")
End If
If rankedWins > 3000 Then
ListBox3.Items.Add("I will be a High Warlord.... mark my words. (Completed)")
Else
ListBox3.Items.Add("I will be a High Warlord.... mark my words.")
End If
ElseIf type = "Items" Then
If Launcher.MyA1 = "1" Then
ListBox3.Items.Add("The Locator Card (Completed)")
Else
ListBox3.Items.Add("The Locator Card")
End If
If Launcher.JD1 = "1" Then
ListBox3.Items.Add("J.A.R.V.I.S. Decks (Completed)")
Else
ListBox3.Items.Add("J.A.R.V.I.S. Decks")
End If
If Launcher.ForumBooster = "1" Then
ListBox3.Items.Add("Forum Booster (Completed)")
Else
ListBox3.Items.Add("Forum Booster")
End If
If Launcher.MeItem = "1" Then
ListBox3.Items.Add("Me Command (Completed)")
Else
ListBox3.Items.Add("Me Command")
End If
If Launcher.ForumTurboCharger = "1" Then
ListBox3.Items.Add("Forum TurboCharger (Completed)")
Else
ListBox3.Items.Add("Forum TurboCharger")
End If
If Launcher.HeartOfFire = "1" Then
ListBox3.Items.Add("Firelord (Completed)")
Else
ListBox3.Items.Add("Firelord")
End If
If Launcher.LunarLantern = "1" Then
ListBox3.Items.Add("Starcaller (Completed)")
Else
ListBox3.Items.Add("Starcaller")
End If
ElseIf type = "Events" Then
If sParts.Contains(7) Then
ListBox3.Items.Add("Duelist of Light (Completed)")
Else
ListBox3.Items.Add("Duelist of Light")
End If
If sParts.Contains(8) Then
ListBox3.Items.Add("The Lightbringer (Completed)")
Else
ListBox3.Items.Add("The Lightbringer")
End If
If sParts.Contains(9) Then
ListBox3.Items.Add("The Light of Dawn (Completed)")
Else
ListBox3.Items.Add("The Light of Dawn")
End If
ElseIf type = "Tournaments" Then
If sParts.Contains(10) Then
ListBox3.Items.Add("Challenge (Completed)")
Else
ListBox3.Items.Add("Challenge")
End If
If Award1 = 1 Then
ListBox3.Items.Add("Tournament Champion (Completed)")
Else
ListBox3.Items.Add("Tournament Champion")
End If
If sParts.Contains(11) Then
ListBox3.Items.Add("Tournament Master (Completed)")
Else
ListBox3.Items.Add("Tournament Master")
End If
If sParts.Contains(12) Then
ListBox3.Items.Add("Tournament Grand Master (Completed)")
Else
ListBox3.Items.Add("Tournament Grand Master")
End If
If sParts.Contains(13) Then
ListBox3.Items.Add("Bane of the fallen King (Completed)")
Else
ListBox3.Items.Add("Bane of the fallen King")
End If
ElseIf type = "Feats of Strength" Then
If sParts.Contains(14) Then
ListBox3.Items.Add("Battle City Judge (Completed)")
Else
ListBox3.Items.Add("Battle City Judge")
End If
If sParts.Contains(15) Then
ListBox3.Items.Add("Battle City Participant (Completed)")
Else
ListBox3.Items.Add("Battle City Participant")
End If
If sParts.Contains(16) Then
ListBox3.Items.Add("Battle City Challenger (Completed)")
Else
ListBox3.Items.Add("Battle City Challenger")
End If
If sParts.Contains(17) Then
ListBox3.Items.Add("King of Games (Completed)")
ElseIf sParts.Contains(18) Then
ListBox3.Items.Add("Queen of Games (Completed)")
Else
ListBox3.Items.Add("King/Queen of Games")
End If
If sParts.Contains(19) Then
ListBox3.Items.Add("Duel Seto Kaiba (Completed)")
Else
ListBox3.Items.Add("Duel Seto Kaiba")
End If
If sParts.Contains(20) Then
ListBox3.Items.Add("TDOANE 2 Year Anniversary (Completed)")
Else
ListBox3.Items.Add("TDOANE 2 Year Anniversary")
End If
End If
achievementcount = 0
If sParts.Contains(0) Then
achievementcount += 1
End If
If sParts.Contains(1) Then
achievementcount += 1
End If
If sParts.Contains(2) Then
achievementcount += 1
End If
If sParts.Contains(3) Then
achievementcount += 1
End If
If sParts.Contains(4) Then
achievementcount += 1
End If
If sParts.Contains(5) Then
achievementcount += 1
End If
If Launcher.MyQualification >= 1 Then
achievementcount += 1
End If
If Launcher.MyQualification >= 2 Then
achievementcount += 1
End If
If Level.Text >= 5 Then
achievementcount += 1
End If
If Level.Text >= 10 Then
achievementcount += 1
End If
If Level.Text >= 15 Then
achievementcount += 1
End If
If Level.Text >= 20 Then
achievementcount += 1
End If
If Level.Text >= 25 Then
achievementcount += 1
End If
If Level.Text >= 30 Then
achievementcount += 1
End If
If Level.Text >= 35 Then
achievementcount += 1
End If
If Level.Text >= 40 Then
achievementcount += 1
End If
If Level.Text >= 45 Then
achievementcount += 1
End If
If Level.Text >= 50 Then
achievementcount += 1
End If
If sParts.Contains(6) Then
achievementcount += 1
End If
If unrankedWins > 1 Then
achievementcount += 1
End If
If unrankedWins > 10 Then
achievementcount += 1
End If
If unrankedWins > 50 Then
achievementcount += 1
End If
If unrankedWins > 100 Then
achievementcount += 1
End If
If unrankedWins > 250 Then
achievementcount += 1
End If
If unrankedWins > 500 Then
achievementcount += 1
End If
If unrankedWins > 750 Then
achievementcount += 1
End If
If unrankedWins > 1000 Then
achievementcount += 1
End If
If unrankedWins > 1500 Then
achievementcount += 1
End If
If unrankedWins > 2000 Then
achievementcount += 1
End If
If unrankedWins > 3000 Then
achievementcount += 1
End If
If unrankedWins > 5000 Then
achievementcount += 1
End If
If unrankedWins > 7500 Then
achievementcount += 1
End If
If unrankedWins > 9000 Then
achievementcount += 1
End If
If unrankedWins > 10000 Then
achievementcount += 1
End If
If auw > 1000 Then
achievementcount += 1
End If
If buw > 1000 Then
achievementcount += 1
End If
If cuw > 1000 Then
achievementcount += 1
End If
If rankedWins > 1 Then
achievementcount += 1
End If
If rankedWins > 10 Then
achievementcount += 1
End If
If rankedWins > 50 Then
achievementcount += 1
End If
If rankedWins > 100 Then
achievementcount += 1
End If
If rankedWins > 250 Then
achievementcount += 1
End If
If rankedWins > 500 Then
achievementcount += 1
End If
If rankedWins > 750 Then
achievementcount += 1
End If
If rankedWins > 1000 Then
achievementcount += 1
End If
If rankedWins > 1500 Then
achievementcount += 1
End If
If rankedWins > 2000 Then
achievementcount += 1
End If
If rankedWins > 3000 Then
achievementcount += 1
End If
If Launcher.MyA1 = "1" Then
achievementcount += 1
End If
If Launcher.JD1 = "1" Then
achievementcount += 1
End If
If Launcher.ForumBooster = "1" Then
achievementcount += 1
End If
If Launcher.MeItem = "1" Then
achievementcount += 1
End If
If Launcher.ForumTurboCharger = "1" Then
achievementcount += 1
End If
If Launcher.HeartOfFire = "1" Then
achievementcount += 1
End If
If Launcher.LunarLantern = "1" Then
achievementcount += 1
End If
If sParts.Contains(7) Then
achievementcount += 1
End If
If sParts.Contains(8) Then
achievementcount += 1
End If
If sParts.Contains(9) Then
achievementcount += 1
End If
If sParts.Contains(10) Then
achievementcount += 1
End If
If Award1 = 1 Then
achievementcount += 1
End If
If sParts.Contains(11) Then
achievementcount += 1
End If
If sParts.Contains(12) Then
achievementcount += 1
End If
If sParts.Contains(13) Then
achievementcount += 1
End If
If sParts.Contains(14) Then
achievementcount += 1
End If
If sParts.Contains(15) Then
achievementcount += 1
End If
If sParts.Contains(16) Then
achievementcount += 1
End If
If sParts.Contains(17) Then
achievementcount += 1
ElseIf sParts.Contains(18) Then
achievementcount += 1
End If
If sParts.Contains(19) Then
achievementcount += 1
End If
If sParts.Contains(20) Then
achievementcount += 1
End If
Label56.Text = "Achievements: " & achievementcount & "/70"
End Sub
Sub AddTitle(title)
If titleList.Contains(title) = False Then
titleList.Add(title)
End If
End Sub
Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
Try
LoadAchievements(ListBox2.SelectedItem)
Catch
LoadAchievements("General")
End Try
End Sub
Private Sub ListBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedIndexChanged
If ListBox3.SelectedItem.Contains("Level Five") Then
RichTextBox2.Text = "Reach level 5!"
ElseIf ListBox3.SelectedItem.Contains("Rival") Then
RichTextBox2.Text = "Reach level 10!"
ElseIf ListBox3.SelectedItem.Contains("Level Fifteen") Then
RichTextBox2.Text = "Reach level 15!"
ElseIf ListBox3.SelectedItem.Contains("Gladiator") Then
RichTextBox2.Text = "Reach level 20!"
ElseIf ListBox3.SelectedItem.Contains("Level Twenty-Five") Then
RichTextBox2.Text = "Reach level 25!"
ElseIf ListBox3.SelectedItem.Contains("Conqueror") Then
RichTextBox2.Text = "Reach level 30"
ElseIf ListBox3.SelectedItem.Contains("Level Thirty-Five") Then
RichTextBox2.Text = "Reach level 35"
ElseIf ListBox3.SelectedItem.Contains("Vanquisher") Then
RichTextBox2.Text = "Reach level 40"
ElseIf ListBox3.SelectedItem.Contains("Level Fourty-Five") Then
RichTextBox2.Text = "Reach level 45"
ElseIf ListBox3.SelectedItem.Contains("Titan") Then
RichTextBox2.Text = "Reach level 50"
ElseIf ListBox3.SelectedItem.Contains("Unique Duelist") Then
RichTextBox2.Text = "Upload an avatar picture."
ElseIf ListBox3.SelectedItem.Contains("Qualified") Then
RichTextBox2.Text = "Complete the qualification challenge."
ElseIf ListBox3.SelectedItem.Contains("Supreme Qualified") Then
RichTextBox2.Text = "Complete the supreme qualification challenge."
ElseIf ListBox3.SelectedItem.Contains("Together with a group") Then
RichTextBox2.Text = "Join or create a team."
ElseIf ListBox3.SelectedItem.Contains("Save and watch later!") Then
RichTextBox2.Text = "Watch a replay."
ElseIf ListBox3.SelectedItem.Contains("Yu-Gi-Oh! - Now With Puzzles") Then
RichTextBox2.Text = "Play a dueling puzzle."
ElseIf ListBox3.SelectedItem.Contains("Don't want to make a deck, Download One!") Then
RichTextBox2.Text = "Check out our list of downloadable decks."
ElseIf ListBox3.SelectedItem.Contains("News - From Kaiba Corporation") Then
RichTextBox2.Text = "Check out our News section, where you can find the latest updates and upcoming events."
ElseIf ListBox3.SelectedItem.Contains("Duel J.A.R.V.I.S.") Then
RichTextBox2.Text = "Play a duel against J.A.R.V.I.S. - The automatic dueling robot."
ElseIf ListBox3.SelectedItem.Contains("Random Duel") Then
RichTextBox2.Text = "Join a random duel."
ElseIf ListBox3.SelectedItem.Contains("Just Starting") Then
RichTextBox2.Text = "Win an unranked duel."
ElseIf ListBox3.SelectedItem.Contains("Long way to go") Then
RichTextBox2.Text = "Win 10 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("Becoming a duelist!") Then
RichTextBox2.Text = "Win 50 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("A Real Duelist") Then
RichTextBox2.Text = "Win 100 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("A Better Duelist") Then
RichTextBox2.Text = "Win 250 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("Expert Duelist") Then
RichTextBox2.Text = "Win 500 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("Senior Duelist") Then
RichTextBox2.Text = "Win 750 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("Time to join the elite") Then
RichTextBox2.Text = "Win 1000 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("Professional Duelist") Then
RichTextBox2.Text = "Win 1500 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("Master Duelist") Then
RichTextBox2.Text = "Win 2000 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("Best of the masters") Then
RichTextBox2.Text = "Win 3000 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("They will remember me..") Then
RichTextBox2.Text = "Win 5000 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("The Immortal") Then
RichTextBox2.Text = "Win 7500 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("Its OVER 9000!!") Then
RichTextBox2.Text = "Win 9000 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("Legendary Duelist") Then
RichTextBox2.Text = "Win 10000 unranked duels."
ElseIf ListBox3.SelectedItem.Contains("Why don't they play matches Anime?") Then
RichTextBox2.Text = "Win 1000 unranked single duels."
ElseIf ListBox3.SelectedItem.Contains("Best out of 3!") Then
RichTextBox2.Text = "Win 1000 unranked match duels."
ElseIf ListBox3.SelectedItem.Contains("More players should tag!") Then
RichTextBox2.Text = "Win 1000 unranked tag duels."
ElseIf ListBox3.SelectedItem.Contains("Joining the Elite") Then
RichTextBox2.Text = "Win a ranked duel."
ElseIf ListBox3.SelectedItem.Contains("To reach the Master League..") Then
RichTextBox2.Text = "Win 10 ranked duels."
ElseIf ListBox3.SelectedItem.Contains("This is harder then it looks!") Then
RichTextBox2.Text = "Win 50 ranked duels."
ElseIf ListBox3.SelectedItem.Contains("If only J.A.R.V.I.S. played ranked") Then
RichTextBox2.Text = "Win 100 ranked duels."
ElseIf ListBox3.SelectedItem.Contains("Now I am the elite") Then
RichTextBox2.Text = "Win 250 ranked duels."
ElseIf ListBox3.SelectedItem.Contains("I need more gold now") Then
RichTextBox2.Text = "Win 500 ranked duels."
ElseIf ListBox3.SelectedItem.Contains("There is none who can defeat me.") Then
RichTextBox2.Text = "Win 750 ranked duels."
ElseIf ListBox3.SelectedItem.Contains("The Warlord is born") Then
RichTextBox2.Text = "Win 1000 ranked duels."
ElseIf ListBox3.SelectedItem.Contains("Life as a Warlord is.... Good") Then
RichTextBox2.Text = "Win 1500 ranked duels."
ElseIf ListBox3.SelectedItem.Contains("Warlord vs High Warlord") Then
RichTextBox2.Text = "Win 2000 ranked duels."
ElseIf ListBox3.SelectedItem.Contains("I will be a High Warlord.... mark my words.") Then
RichTextBox2.Text = "Win 3000 ranked duels."
ElseIf ListBox3.SelectedItem.Contains("The Locator Card") Then
RichTextBox2.Text = "Buy the Locator card from the store."
ElseIf ListBox3.SelectedItem.Contains("J.A.R.V.I.S. Decks") Then
RichTextBox2.Text = "Unlock extra J.A.R.V.I.S. decks."
ElseIf ListBox3.SelectedItem.Contains("Forum Booster") Then
RichTextBox2.Text = "Buy the Forum Booster item."
ElseIf ListBox3.SelectedItem.Contains("Me Command") Then
RichTextBox2.Text = "Buy the Me Command."
ElseIf ListBox3.SelectedItem.Contains("Forum TurboCharger") Then
RichTextBox2.Text = "Buy the Forum TurboCharger item."
ElseIf ListBox3.SelectedItem.Contains("Firelord") Then
RichTextBox2.Text = "Buy the 'Heart of Fire'"
ElseIf ListBox3.SelectedItem.Contains("Starcaller") Then
RichTextBox2.Text = "Buy the Lunar Lantern item."
ElseIf ListBox3.SelectedItem.Contains("Duelist of Light") Then
RichTextBox2.Text = "Defeat a shadow duelist."
ElseIf ListBox3.SelectedItem.Contains("The Lightbringer") Then
RichTextBox2.Text = "Defeat 10 shadow duelists."
ElseIf ListBox3.SelectedItem.Contains("The Light of Dawn") Then
RichTextBox2.Text = "Defeat a hard shadow duelist."
ElseIf ListBox3.SelectedItem.Contains("Challenge") Then
RichTextBox2.Text = "Send a tournament challenge."
ElseIf ListBox3.SelectedItem.Contains("Tournament Champion") Then
RichTextBox2.Text = "Win a tournament hosted by Kaiba Corporation."
ElseIf ListBox3.SelectedItem.Contains("Tournament Master") Then
RichTextBox2.Text = "Win 5 tournaments hosted by Kaiba Corporation."
ElseIf ListBox3.SelectedItem.Contains("Tournament Grand Master") Then
RichTextBox2.Text = "Win 10 tournaments hosted by Kaiba Corporation."
ElseIf ListBox3.SelectedItem.Contains("Bane of the fallen King") Then
RichTextBox2.Text = "Defeat the King of Games in the Rebellion event."
ElseIf ListBox3.SelectedItem.Contains("Battle City Judge") Then
RichTextBox2.Text = "Was an official judge for the Battle City tournament."
ElseIf ListBox3.SelectedItem.Contains("Battle City Participant") Then
RichTextBox2.Text = "Participated in the Battle City tournament."
ElseIf ListBox3.SelectedItem.Contains("Battle City Challenger") Then
RichTextBox2.Text = "Reached top 16 in the Battle City tournament."
ElseIf ListBox3.SelectedItem.Contains(" of Games") Then
RichTextBox2.Text = "Won the Battle City Tournament."
ElseIf ListBox3.SelectedItem.Contains("Duel Seto Kaiba") Then
RichTextBox2.Text = "Purchased the 'Duel Seto Kaiba' item from the store and complete a duel against Seto Kaiba."
ElseIf ListBox3.SelectedItem.Contains("TDOANE 2 Year Anniversary") Then
RichTextBox2.Text = "Logged in during the second TDOANE Anniversary week (April 7th 2014 - April 14th 2014) "
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim border As Integer
If ListBox1.SelectedItem = "Player" Then
border = 0
ElseIf ListBox1.SelectedItem = "Gold Member" Then
border = 1
ElseIf ListBox1.SelectedItem = "Platinum Member" Then
border = 2
ElseIf ListBox1.SelectedItem = "Diamond Member" Then
border = 3
ElseIf ListBox1.SelectedItem = "Blue Border" Then
border = 4
ElseIf ListBox1.SelectedItem = "Green Border" Then
border = 5
ElseIf ListBox1.SelectedItem = "Red Border" Then
border = 6
ElseIf ListBox1.SelectedItem = "Cyan Border" Then
border = 7
ElseIf ListBox1.SelectedItem = "Starcaller" Then
border = 8
ElseIf ListBox1.SelectedItem = "Firelord" Then
border = 9