Nextrek
Subversion Repository Public Repository

Nextrek

URLs

Copy to Clipboard
Explore
Commits

Diff Revisions 56 vs 59 for /minstrek/GameEditorBKP - Copia/GameEditor/Form1.vb

Diff revisions: vs.
  @@ -1,27 +1,28 @@
1 1 Imports System.IO
2 + Imports GameEditor.Estensioni
2 3
3 4 Public Class GameEditorPanel
4 5
5 - ' Private TopHorizontalBorderWidth As Int16
6 - ' Private TopHorizontalBorderHeight As Int16
7 - ' Private BottomHorizontalBorderWidth As Int16
8 - ' Private BottomHorizontalBorderHeight As Int16
9 - ' Private MidHorizontalBorderWidth As Int16
10 - ' Private MidHorizontalBorderHeight As Int16
11 - ' Private LeftVerticalBorderWidth As Int16
12 - ' Private LeftVerticalBorderHeight As Int16
13 - ' Private RightVerticalBorderWidth As Int16
14 - ' Private RightVerticalBorderHeight As Int16
15 - ' Private InventoryIconWidth As Int16
16 - ' Private InventoryIconHeight As Int16
17 - ' Private QuestIconWidth As Int16
18 - ' Private QuestIconHeight As Int16
19 - ' Private EventsIconWidth As Int16
20 - ' Private EventsIconHeight As Int16
21 - ' Private SplashForegroundWidth As Int16
22 - ' Private SplashForegroundHeight As Int16
23 - ' Private LoadingForegroundWidth As Int16
24 - ' Private LoadingForegroundHeight As Int16
6 + 'Private TopHorizontalBorderWidth As Int16
7 + 'Private TopHorizontalBorderHeight As Int16
8 + 'Private BottomHorizontalBorderWidth As Int16
9 + 'Private BottomHorizontalBorderHeight As Int16
10 + 'Private MidHorizontalBorderWidth As Int16
11 + 'Private MidHorizontalBorderHeight As Int16
12 + 'Private LeftVerticalBorderWidth As Int16
13 + 'Private LeftVerticalBorderHeight As Int16
14 + 'Private RightVerticalBorderWidth As Int16
15 + 'Private RightVerticalBorderHeight As Int16
16 + 'Private InventoryIconWidth As Int16
17 + 'Private InventoryIconHeight As Int16
18 + 'Private QuestIconWidth As Int16
19 + 'Private QuestIconHeight As Int16
20 + 'Private EventsIconWidth As Int16
21 + 'Private EventsIconHeight As Int16
22 + 'Private SplashForegroundWidth As Int16
23 + 'Private SplashForegroundHeight As Int16
24 + 'Private LoadingForegroundWidth As Int16
25 + 'Private LoadingForegroundHeight As Int16
25 26 Private firstTime As Boolean = True
26 27 Private ObjectImageWidth As Int16
27 28 Private ObjectImageHeight As Int16
  @@ -44,33 +45,7 @@
44 45
45 46 End Sub
46 47
47 - '**********************************************UTILITIES***************************************************************************
48 - '*********************************************************************************************************************************
49 -
50 - Private Function convertToHex(ByVal color As System.Drawing.Color)
51 - Dim r As Byte = color.R
52 - Dim g As Byte = color.G
53 - Dim b As Byte = color.B
54 - Dim rs = CStr(Hex(r))
55 - Dim gs = CStr(Hex(g))
56 - Dim bs = CStr(Hex(b))
57 -
58 - If (r < 16) Then
59 - rs = "0" + rs
60 - End If
61 - If (g < 16) Then
62 - gs = "0" + gs
63 - End If
64 - If (b < 16) Then
65 - bs = "0" + bs
66 - End If
67 -
68 -
69 -
70 -
71 - Return "#" + rs + gs + bs
72 -
73 - End Function
48 + #Region "UTILITIES"
74 49
75 50 Private Function getImagesPath() As String
76 51 Return Application.StartupPath + "\images\"
  @@ -126,17 +101,10 @@
126 101 End Function
127 102
128 103 Private Sub setColor(ByVal textBox As TextBox)
129 - Dim dr As DialogResult
130 - Dim color As System.Drawing.Color
131 - Dim hexColor As String
132 -
133 -
134 - dr = ColorDialog1.ShowDialog()
135 -
104 + Dim dr As DialogResult = ColorDialog1.ShowDialog()
136 105 If (dr = DialogResult.OK) Then
137 -
138 - color = ColorDialog1.Color
139 - hexColor = convertToHex(color)
106 + Dim color As System.Drawing.Color = ColorDialog1.Color
107 + Dim hexColor As String = ColorTranslator.ToHtml(color)
140 108 textBox.Text = hexColor
141 109 textBox.BackColor = color
142 110 End If
  @@ -304,8 +272,9 @@
304 272
305 273 End Sub
306 274
307 - '******************************************************************MENU********************************************************************************
308 - '***********************************************************************************************************************************
275 + #End Region
276 +
277 + #Region "MENU"
309 278
310 279 Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
311 280 showSavePopup()
  @@ -472,32 +441,35 @@
472 441 End Sub
473 442
474 443 Private Sub ObjectsfromTxtToJson(ByVal storyName As String)
475 - Dim map As String()
476 - Dim fr = New StreamReader(getSavedPath() + storyName + "\" + "saveObjectsGrid.txt")
477 - Dim fw = New StreamWriter(getJsonPath() + storyName + "\" + "objects.js")
478 -
479 - Dim line As String
480 - fw.WriteLine("var advObjects = {")
481 -
482 -
483 - While (Not fr.EndOfStream)
484 - line = fr.ReadLine
485 -
486 - map = line.Split("[")
487 -
488 - fw.WriteLine(vbTab + """" + map(0) + """ : {")
489 - fw.WriteLine(vbTab + vbTab + " ""name"" :" + " """ + escape(map(1)) + """ ,")
490 - fw.WriteLine(vbTab + vbTab + " ""description"" :" + " """ + escape(map(2)) + """ ,")
491 - fw.WriteLine(vbTab + vbTab + " ""img"" :" + " """ + map(3) + """ ,")
492 - fw.WriteLine(vbTab + vbTab + " ""had"" :" + " " + map(4) + " ")
493 - fw.WriteLine(vbTab + "},")
444 + Dim advObjectCol As My.Types.advObjectCollection = New My.Types.advObjectCollection
494 445
446 + Using fr = New StreamReader(getSavedPath() + storyName + "\" + "saveObjectsGrid.txt")
447 + Using fw = New StreamWriter(getJsonPath() + storyName + "\" + "objects.js")
448 + fw.WriteLine("var advObjects = {")
449 + While (Not fr.EndOfStream)
450 + Dim line As String = fr.ReadLine
451 + Dim map As String() = line.Split("[")
452 + fw.WriteLine(vbTab + """" + map(0) + """ : {")
453 + fw.WriteLine(vbTab + vbTab + " ""name"" :" + " """ + escape(map(1)) + """ ,")
454 + fw.WriteLine(vbTab + vbTab + " ""description"" :" + " """ + escape(map(2)) + """ ,")
455 + fw.WriteLine(vbTab + vbTab + " ""img"" :" + " """ + map(3) + """ ,")
456 + fw.WriteLine(vbTab + vbTab + " ""had"" :" + " " + map(4) + " ")
457 + fw.WriteLine(vbTab + "},")
458 + Dim advObj As New My.Types.advObject
459 + advObj.name = map(1)
460 + advObj.description = map(2)
461 + advObj.img = map(3)
462 + advObj.had = Convert.ToBoolean(map(4))
463 + advObjectCol.results.Add(advObj)
464 + End While
465 + fw.WriteLine("};")
466 + fw.Close()
467 + End Using
468 + fr.Close()
469 + End Using
495 470
496 - End While
497 - fw.WriteLine("};")
498 -
499 - fr.Close()
500 - fw.Close()
471 + Dim jsonStr As String = advObjectCol.ToJSON()
472 + System.IO.File.WriteAllText(getJsonPath() + storyName + "\" + "advObjects.js", jsonStr)
501 473 End Sub
502 474
503 475 Private Sub EventsfromTxtToJson(ByVal storyName As String)
  @@ -533,37 +505,40 @@
533 505 fr.Close()
534 506 End Using
535 507
536 - Dim jsonStr As String = Estensioni.ToJSON(advEventCol)
508 + Dim jsonStr As String = advEventCol.ToJSON()
537 509 System.IO.File.WriteAllText(getJsonPath() + storyName + "\" + "advEvents.js", jsonStr)
538 510 End Sub
539 511
540 512 Private Sub QuestsfromTxtToJson(ByVal storyName As String)
541 - Dim map As String()
542 - Dim fr = New StreamReader(getSavedPath() + storyName + "\" + "saveQuestsGrid.txt")
543 - Dim fw = New StreamWriter(getJsonPath() + storyName + "\" + "quests.js")
544 -
545 - Dim line As String
546 - fw.WriteLine("var advQuests = {")
513 + Dim advQuestCol As New My.Types.advQuestCollection
547 514
515 + Using fr = New StreamReader(getSavedPath() + storyName + "\" + "saveQuestsGrid.txt")
516 + Using fw = New StreamWriter(getJsonPath() + storyName + "\" + "quests.js")
517 + fw.WriteLine("var advQuests = {")
518 + While (Not fr.EndOfStream)
519 + Dim line As String = fr.ReadLine
520 + Dim map As String() = line.Split("[")
521 + fw.WriteLine(vbTab + """" + map(0) + """ : {")
522 + fw.WriteLine(vbTab + vbTab + " ""name"" :" + " """ + escape(map(1)) + """ ,")
523 + fw.WriteLine(vbTab + vbTab + " ""description"" :" + " """ + escape(map(2)) + """ ,")
524 + fw.WriteLine(vbTab + vbTab + " ""img"" :" + " """ + map(3) + """ ,")
525 + fw.WriteLine(vbTab + vbTab + " ""status"" :" + " '" + map(4) + "' ")
526 + fw.WriteLine(vbTab + "},")
527 + Dim advQuest As New My.Types.advQuest
528 + advQuest.name = map(1)
529 + advQuest.description = map(2)
530 + advQuest.img = map(3)
531 + advQuest.status = map(4)
532 + advQuestCol.results.Add(advQuest)
533 + End While
534 + fw.WriteLine("};")
535 + fw.Close()
536 + End Using
537 + fr.Close()
538 + End Using
548 539
549 - While (Not fr.EndOfStream)
550 - line = fr.ReadLine
551 -
552 - map = line.Split("[")
553 -
554 - fw.WriteLine(vbTab + """" + map(0) + """ : {")
555 - fw.WriteLine(vbTab + vbTab + " ""name"" :" + " """ + escape(map(1)) + """ ,")
556 - fw.WriteLine(vbTab + vbTab + " ""description"" :" + " """ + escape(map(2)) + """ ,")
557 - fw.WriteLine(vbTab + vbTab + " ""img"" :" + " """ + map(3) + """ ,")
558 - fw.WriteLine(vbTab + vbTab + " ""status"" :" + " '" + map(4) + "' ")
559 - fw.WriteLine(vbTab + "},")
560 -
561 -
562 - End While
563 - fw.WriteLine("};")
564 -
565 - fr.Close()
566 - fw.Close()
540 + Dim jsonStr As String = advQuestCol.ToJSON()
541 + System.IO.File.WriteAllText(getJsonPath() + storyName + "\" + "advQuests.js", jsonStr)
567 542 End Sub
568 543
569 544 Private Sub PagesfromTxtToJson(ByVal storyName As String)
  @@ -611,7 +586,7 @@
611 586 .bottomBgColor = map(11)
612 587 .hBorderBottomImg = map(12)
613 588 .wBorderLeftImg = map(13)
614 - .wBorderRightimg = map(14)
589 + .wBorderRightImg = map(14)
615 590 .topImage = map(15)
616 591 .bottomImage = map(16)
617 592 End With
  @@ -659,12 +634,12 @@
659 634 End If
660 635
661 636 Try
662 - Dim advButton As New My.Types.advSceneButton
663 637 buttonArrayList = buttonMap.Item(map(0))
664 638 Dim counter As Int16 = 0
665 639 While counter <= (buttonArrayList.Count - 1)
666 640 Dim map2 As String() = buttonArrayList.Item(counter)
667 641 fw.WriteLine(vbTab + vbTab + " ""button" + CStr(counter) + """ : {")
642 + Dim advButton As New My.Types.advSceneButton
668 643 advButton.button = counter.ToString
669 644
670 645 If ((map2(17).Equals("undefined") Or map2(17).Equals(""))) Then
  @@ -817,160 +792,242 @@
817 792 fw.Close()
818 793 End Using
819 794
820 - Dim jsonStr As String = Estensioni.ToJSON(advPageCol)
795 + Dim jsonStr As String = advPageCol.ToJSON()
821 796 System.IO.File.WriteAllText(getJsonPath() + storyName + "\" + "advPages.js", jsonStr)
822 797 End Sub
823 798
824 799 Private Sub MainDatafromTxtToJson(ByVal storyName As String)
825 - Dim img As Bitmap
826 -
827 - Dim fw = New StreamWriter(getJsonPath() + storyName + "\" + "mainData.js")
828 - fw.WriteLine("var mainData = {")
829 - fw.WriteLine(vbTab + """title"" : """ + escape(GameTitleText.Text) + """ ,")
830 - fw.WriteLine(vbTab + """title-color"" : """ + TitleColorText.Text + """ ,")
831 - fw.WriteLine(vbTab + " ""events"" : advEvents ,")
832 - fw.WriteLine(vbTab + " ""objects"" : advObjects ,")
833 - fw.WriteLine(vbTab + " ""quests"" : advQuests ,")
834 - fw.WriteLine(vbTab + " ""pages"" : advPages ,")
835 - fw.WriteLine(vbTab + " ""splash"" : {")
836 - fw.WriteLine(vbTab + vbTab + " ""splash-time"" : " + SplashTimeText.Text + " ,")
837 - fw.WriteLine(vbTab + vbTab + " ""splash-background-color"" : """ + SplashBGText.Text + """ ,")
838 - fw.WriteLine(vbTab + vbTab + " ""splash-foreground"" : """ + SplashForegroundIMGText.Text + """ ,")
839 - Try
840 - img = New Bitmap(getImagesPath() + SplashForegroundIMGText.Text)
841 - fw.WriteLine(vbTab + vbTab + " ""splash-foreground-width"" : " + CStr(img.Width) + " ,")
842 - fw.WriteLine(vbTab + vbTab + " ""splash-foreground-height"" : " + CStr(img.Height) + " ,")
843 - Catch
844 - fw.WriteLine(vbTab + vbTab + " ""splash-foreground-width"" : 0 ,")
845 - fw.WriteLine(vbTab + vbTab + " ""splash-foreground-height"" : 0 ,")
846 - End Try
847 - fw.WriteLine(vbTab + vbTab + " ""splash-text"" : """ + escape(SplashTextText.Text) + """ ,")
848 - fw.WriteLine(vbTab + vbTab + " ""splash-text-color"" : """ + SplashTextColorText.Text + """ ")
849 - fw.WriteLine(vbTab + "},")
850 - fw.WriteLine(vbTab + " ""loading"" : {")
851 - fw.WriteLine(vbTab + vbTab + " ""load-time"" : " + LoadingTimeText.Text + " ,")
852 - fw.WriteLine(vbTab + vbTab + " ""load-delay"" : " + LoadingDelayText.Text + " ,")
853 - fw.WriteLine(vbTab + vbTab + " ""load-background-color"" : """ + LoadingBGText.Text + """ ,")
854 - fw.WriteLine(vbTab + vbTab + " ""load-foreground"" : """ + LoadingForegroundIMGText.Text + """ ,")
855 - Try
856 - img = New Bitmap(getImagesPath() + LoadingForegroundIMGText.Text)
857 - fw.WriteLine(vbTab + vbTab + " ""load-foreground-width"" : " + CStr(img.Width) + " ,")
858 - fw.WriteLine(vbTab + vbTab + " ""load-foreground-height"" : " + CStr(img.Height) + " ,")
859 - Catch
860 - fw.WriteLine(vbTab + vbTab + " ""load-foreground-width"" : 0 ,")
861 - fw.WriteLine(vbTab + vbTab + " ""load-foreground-height"" : 0 ,")
862 - End Try
863 - fw.WriteLine(vbTab + vbTab + " ""load-text"" : """ + escape(LoadingTextText.Text) + """ ,")
864 - fw.WriteLine(vbTab + vbTab + " ""load-text-color"" : """ + LoadingTextColorText.Text + """ ")
865 - fw.WriteLine(vbTab + "},")
866 -
867 - fw.WriteLine(vbTab + """alert"" :{")
868 - fw.WriteLine(vbTab + vbTab + " ""widthPerc"" : " + AlertWidthText.Text + " ,")
869 - fw.WriteLine(vbTab + vbTab + " ""heightPerc"" : " + AlertHeightText.Text + " ,")
870 - fw.WriteLine(vbTab + vbTab + " ""alert-background-color"" : """ + AlertBGColorText.Text + """ ,")
871 - fw.WriteLine(vbTab + vbTab + " ""alert-background-img"" : """ + AlertBGIMGText.Text + """ ,")
872 - fw.WriteLine(vbTab + vbTab + " ""hBorderTop-img"" : """ + AlertTopBGIMGText.Text + """ ,")
873 - fw.WriteLine(vbTab + vbTab + " ""hBorderBottom-img"" : """ + AlertBottomBGIMGText.Text + """ ,")
874 - fw.WriteLine(vbTab + vbTab + " ""wBorderLeft-img"" : """ + AlertLeftBGIMGText.Text + """ ,")
875 - fw.WriteLine(vbTab + vbTab + " ""wBorderRight-img"" : """ + AlertRightBGIMGText.Text + """ ,")
876 800
801 + Dim advMainDataCol As New My.Types.advMainDataCollection
802 + Dim advMainData As New My.Types.advMainData
803 + Dim img As Bitmap
804 + Using fw = New StreamWriter(getJsonPath() + storyName + "\" + "mainData.js")
805 + advMainData.title = GameTitleText.Text
806 + advMainData.titleColor = TitleColorText.Text
807 + 'advMainData.events = New My.Types.advEventCollection
808 + 'advMainData.objects = New My.Types.advObjectCollection
809 + 'advMainData.quests = New My.Types.advQuestCollection
810 + 'advMainData.pages = New My.Types.advPageCollection
811 +
812 + fw.WriteLine("var mainData = {")
813 + fw.WriteLine(vbTab + """title"" : """ + escape(GameTitleText.Text) + """ ,")
814 + fw.WriteLine(vbTab + """title-color"" : """ + TitleColorText.Text + """ ,")
815 + fw.WriteLine(vbTab + " ""events"" : advEvents ,")
816 + fw.WriteLine(vbTab + " ""objects"" : advObjects ,")
817 + fw.WriteLine(vbTab + " ""quests"" : advQuests ,")
818 + fw.WriteLine(vbTab + " ""pages"" : advPages ,")
819 +
820 + Dim advSplash As New My.Types.advSplash
821 + advSplash.splashTime = SplashTimeText.Text
822 + advSplash.splashBgColor = SplashBGText.Text
823 + advSplash.splashForeground = SplashForegroundIMGText.Text
824 +
825 + fw.WriteLine(vbTab + " ""splash"" : {")
826 + fw.WriteLine(vbTab + vbTab + " ""splash-time"" : " + SplashTimeText.Text + " ,")
827 + fw.WriteLine(vbTab + vbTab + " ""splash-background-color"" : """ + SplashBGText.Text + """ ,")
828 + fw.WriteLine(vbTab + vbTab + " ""splash-foreground"" : """ + SplashForegroundIMGText.Text + """ ,")
829 + Try
830 + img = New Bitmap(getImagesPath() + SplashForegroundIMGText.Text)
831 + fw.WriteLine(vbTab + vbTab + " ""splash-foreground-width"" : " + CStr(img.Width) + " ,")
832 + fw.WriteLine(vbTab + vbTab + " ""splash-foreground-height"" : " + CStr(img.Height) + " ,")
833 + advSplash.splashForegroundWidth = img.Width
834 + advSplash.splashForegroundHeight = img.Height
835 + Catch
836 + fw.WriteLine(vbTab + vbTab + " ""splash-foreground-width"" : 0 ,")
837 + fw.WriteLine(vbTab + vbTab + " ""splash-foreground-height"" : 0 ,")
838 + advSplash.splashForegroundWidth = 0
839 + advSplash.splashForegroundHeight = 0
840 + End Try
841 + fw.WriteLine(vbTab + vbTab + " ""splash-text"" : """ + escape(SplashTextText.Text) + """ ,")
842 + fw.WriteLine(vbTab + vbTab + " ""splash-text-color"" : """ + SplashTextColorText.Text + """ ")
843 + fw.WriteLine(vbTab + "},")
877 844
878 - Try
879 - img = New Bitmap(getImagesPath() + AlertTopBGIMGText.Text)
880 - fw.WriteLine(vbTab + vbTab + " ""hBorder-height"" : " + CStr(img.Height) + " ,")
881 - img = New Bitmap(getImagesPath() + AlertLeftBGIMGText.Text)
882 - fw.WriteLine(vbTab + vbTab + " ""wBorder-width"" : " + CStr(img.Width) + " ,")
883 - Catch ex As Exception
884 - fw.WriteLine(vbTab + vbTab + " ""hBorder-height"" : 10 ,")
885 - fw.WriteLine(vbTab + vbTab + " ""wBorder-width"" : 10 ,")
886 - End Try
887 - fw.WriteLine(vbTab + vbTab + " ""alert-OKButton-img"" : """ + AlertOKButtonText.Text + """ ,")
888 - Try
889 - img = New Bitmap(getImagesPath() + AlertOKButtonText.Text)
890 - fw.WriteLine(vbTab + vbTab + " ""alert-OKButton-width"" : " + CStr(img.Width) + " ,")
891 - fw.WriteLine(vbTab + vbTab + " ""alert-OKButton-height"" : " + CStr(img.Height) + " ,")
892 - Catch ex As Exception
893 - fw.WriteLine(vbTab + vbTab + " ""alert-OKButton-width"" : 30 ,")
894 - fw.WriteLine(vbTab + vbTab + " ""alert-OKButton-height"" : 30 ")
895 - End Try
845 + advSplash.splashText = SplashTextText.Text
846 + advSplash.splashTextColor = SplashTextColorText.Text
847 + advMainData.splash = advSplash
848 +
849 +
850 + Dim advLoading As New My.Types.advLoading
851 + advLoading.loadTime = LoadingTimeText.Text
852 + advLoading.loadDelay = LoadingDelayText.Text
853 + advLoading.loadBgColor = LoadingBGText.Text
854 + advLoading.loadForeground = LoadingForegroundIMGText.Text
855 +
856 + fw.WriteLine(vbTab + " ""loading"" : {")
857 + fw.WriteLine(vbTab + vbTab + " ""load-time"" : " + LoadingTimeText.Text + " ,")
858 + fw.WriteLine(vbTab + vbTab + " ""load-delay"" : " + LoadingDelayText.Text + " ,")
859 + fw.WriteLine(vbTab + vbTab + " ""load-background-color"" : """ + LoadingBGText.Text + """ ,")
860 + fw.WriteLine(vbTab + vbTab + " ""load-foreground"" : """ + LoadingForegroundIMGText.Text + """ ,")
861 + Try
862 + img = New Bitmap(getImagesPath() + LoadingForegroundIMGText.Text)
863 + fw.WriteLine(vbTab + vbTab + " ""load-foreground-width"" : " + CStr(img.Width) + " ,")
864 + fw.WriteLine(vbTab + vbTab + " ""load-foreground-height"" : " + CStr(img.Height) + " ,")
865 + advLoading.loadForegroundWidth = img.Width
866 + advLoading.loadForegroundHeight = img.Height
867 + Catch
868 + fw.WriteLine(vbTab + vbTab + " ""load-foreground-width"" : 0 ,")
869 + fw.WriteLine(vbTab + vbTab + " ""load-foreground-height"" : 0 ,")
870 + advLoading.loadForegroundWidth = 0
871 + advLoading.loadForegroundHeight = 0
872 + End Try
873 + fw.WriteLine(vbTab + vbTab + " ""load-text"" : """ + escape(LoadingTextText.Text) + """ ,")
874 + fw.WriteLine(vbTab + vbTab + " ""load-text-color"" : """ + LoadingTextColorText.Text + """ ")
875 + fw.WriteLine(vbTab + "},")
896 876
897 - fw.WriteLine(vbTab + "},")
877 + advLoading.loadText = LoadingTextText.Text
878 + advLoading.loadTextColor = LoadingTextColorText.Text
879 + advMainData.loading = advLoading
880 +
881 +
882 + Dim advAlert As New My.Types.advAlert
883 + advAlert.widthPerc = AlertWidthText.Text
884 + advAlert.heightPerc = AlertHeightText.Text
885 + advAlert.alertBgColor = AlertBGColorText.Text
886 + advAlert.alertBackgroundImg = AlertBGIMGText.Text
887 + advAlert.hBorderTopImg = AlertTopBGIMGText.Text
888 + advAlert.hBorderBottomImg = AlertBottomBGIMGText.Text
889 + advAlert.wBorderLeftImg = AlertLeftBGIMGText.Text
890 + advAlert.wBorderRightImg = AlertRightBGIMGText.Text
891 + advAlert.alertOKButtonImg = AlertOKButtonText.Text
892 +
893 + fw.WriteLine(vbTab + """alert"" :{")
894 + fw.WriteLine(vbTab + vbTab + " ""widthPerc"" : " + AlertWidthText.Text + " ,")
895 + fw.WriteLine(vbTab + vbTab + " ""heightPerc"" : " + AlertHeightText.Text + " ,")
896 + fw.WriteLine(vbTab + vbTab + " ""alert-background-color"" : """ + AlertBGColorText.Text + """ ,")
897 + fw.WriteLine(vbTab + vbTab + " ""alert-background-img"" : """ + AlertBGIMGText.Text + """ ,")
898 + fw.WriteLine(vbTab + vbTab + " ""hBorderTop-img"" : """ + AlertTopBGIMGText.Text + """ ,")
899 + fw.WriteLine(vbTab + vbTab + " ""hBorderBottom-img"" : """ + AlertBottomBGIMGText.Text + """ ,")
900 + fw.WriteLine(vbTab + vbTab + " ""wBorderLeft-img"" : """ + AlertLeftBGIMGText.Text + """ ,")
901 + fw.WriteLine(vbTab + vbTab + " ""wBorderRight-img"" : """ + AlertRightBGIMGText.Text + """ ,")
898 902
903 + Try
904 + img = New Bitmap(getImagesPath() + AlertTopBGIMGText.Text)
905 + fw.WriteLine(vbTab + vbTab + " ""hBorder-height"" : " + CStr(img.Height) + " ,")
906 + advAlert.hBorderHeight = img.Height
907 + img = New Bitmap(getImagesPath() + AlertLeftBGIMGText.Text)
908 + fw.WriteLine(vbTab + vbTab + " ""wBorder-width"" : " + CStr(img.Width) + " ,")
909 + advAlert.wBorderWidth = img.Width
910 + Catch ex As Exception
911 + fw.WriteLine(vbTab + vbTab + " ""hBorder-height"" : 10 ,")
912 + fw.WriteLine(vbTab + vbTab + " ""wBorder-width"" : 10 ,")
913 + advAlert.hBorderHeight = 10
914 + advAlert.wBorderWidth = 10
915 + End Try
916 + fw.WriteLine(vbTab + vbTab + " ""alert-OKButton-img"" : """ + AlertOKButtonText.Text + """ ,")
917 + Try
918 + img = New Bitmap(getImagesPath() + AlertOKButtonText.Text)
919 + fw.WriteLine(vbTab + vbTab + " ""alert-OKButton-width"" : " + CStr(img.Width) + " ,")
920 + fw.WriteLine(vbTab + vbTab + " ""alert-OKButton-height"" : " + CStr(img.Height) + " ,")
921 + advAlert.alertOKButtonWidth = img.Width
922 + advAlert.alertOKButtonHeight = img.Height
923 + Catch ex As Exception
924 + fw.WriteLine(vbTab + vbTab + " ""alert-OKButton-width"" : 30 ,")
925 + fw.WriteLine(vbTab + vbTab + " ""alert-OKButton-height"" : 30 ")
926 + advAlert.alertOKButtonWidth = 30
927 + advAlert.alertOKButtonHeight = 30
928 + End Try
929 + fw.WriteLine(vbTab + "},")
899 930
900 - fw.WriteLine(vbTab + " ""defaults"" : {")
931 + advMainData.alert = advAlert
901 932
902 - fw.WriteLine(vbTab + vbTab + " ""background-color"" : """ + BGText.Text + """ ,")
903 - fw.WriteLine(vbTab + vbTab + " ""top-background-color"" : """ + TopAreaBGText.Text + """ ,")
904 - fw.WriteLine(vbTab + vbTab + " ""bottom-background-color"" : """ + BottomAreaBGText.Text + """ ,")
905 - fw.WriteLine(vbTab + vbTab + " ""topContainer-height"" : " + TopAreaHeightText.Text + " ,")
906 - fw.WriteLine(vbTab + vbTab + " ""hBorderTop-img"" : """ + TopHorizontalBorderIMGText.Text + """ ,")
907 - Try
908 - img = New Bitmap(getImagesPath() + TopHorizontalBorderIMGText.Text)
909 - fw.WriteLine(vbTab + vbTab + " ""hBorder-height"" : " + CStr(img.Height) + " ,")
910 - Catch
911 - fw.WriteLine(vbTab + vbTab + " ""hBorder-height"" : 0 ,")
912 - End Try
913 - fw.WriteLine(vbTab + vbTab + " ""hBorderMid-img"" : """ + MidHorizontalBorderIMGText.Text + """ ,")
914 - fw.WriteLine(vbTab + vbTab + " ""hBorderBottom-img"" : """ + BottomHorizontalBorderIMGText.Text + """ ,")
915 - fw.WriteLine(vbTab + vbTab + " ""wBorderLeft-img"" : """ + LeftVerticalBorderIMGText.Text + """ ,")
933 + Dim advDefaults As New My.Types.advDefaults
934 + advDefaults.bgColor = BGText.Text
935 + advDefaults.topBgColor = TopAreaBGText.Text
936 + advDefaults.bottomBgColor = BottomAreaBGText.Text
937 + advDefaults.topContainerHeight = TopAreaHeightText.Text
938 + advDefaults.hBorderTopImg = TopHorizontalBorderIMGText.Text
939 +
940 + fw.WriteLine(vbTab + " ""defaults"" : {")
941 +
942 + fw.WriteLine(vbTab + vbTab + " ""background-color"" : """ + BGText.Text + """ ,")
943 + fw.WriteLine(vbTab + vbTab + " ""top-background-color"" : """ + TopAreaBGText.Text + """ ,")
944 + fw.WriteLine(vbTab + vbTab + " ""bottom-background-color"" : """ + BottomAreaBGText.Text + """ ,")
945 + fw.WriteLine(vbTab + vbTab + " ""topContainer-height"" : " + TopAreaHeightText.Text + " ,")
946 + fw.WriteLine(vbTab + vbTab + " ""hBorderTop-img"" : """ + TopHorizontalBorderIMGText.Text + """ ,")
947 + Try
948 + img = New Bitmap(getImagesPath() + TopHorizontalBorderIMGText.Text)
949 + fw.WriteLine(vbTab + vbTab + " ""hBorder-height"" : " + CStr(img.Height) + " ,")
950 + advDefaults.hBorderHeight = img.Height
951 + Catch
952 + fw.WriteLine(vbTab + vbTab + " ""hBorder-height"" : 0 ,")
953 + advDefaults.hBorderHeight = 0
954 + End Try
955 + fw.WriteLine(vbTab + vbTab + " ""hBorderMid-img"" : """ + MidHorizontalBorderIMGText.Text + """ ,")
956 + fw.WriteLine(vbTab + vbTab + " ""hBorderBottom-img"" : """ + BottomHorizontalBorderIMGText.Text + """ ,")
957 + fw.WriteLine(vbTab + vbTab + " ""wBorderLeft-img"" : """ + LeftVerticalBorderIMGText.Text + """ ,")
958 +
959 + advDefaults.hBorderMidImg = MidHorizontalBorderIMGText.Text
960 + advDefaults.hBorderBottomImg = BottomHorizontalBorderIMGText.Text
961 + advDefaults.wBorderLeftImg = LeftVerticalBorderIMGText.Text
916 962
917 - Try
918 - img = New Bitmap(getImagesPath() + LeftVerticalBorderIMGText.Text)
919 - fw.WriteLine(vbTab + vbTab + " ""wBorder-width"" : " + CStr(img.Width) + " ,")
920 - Catch ex As Exception
921 - fw.WriteLine(vbTab + vbTab + " ""wBorder-width"" : 0 ,")
922 - End Try
963 + Try
964 + img = New Bitmap(getImagesPath() + LeftVerticalBorderIMGText.Text)
965 + fw.WriteLine(vbTab + vbTab + " ""wBorder-width"" : " + CStr(img.Width) + " ,")
966 + advDefaults.wBorderWidth = img.Width
967 + Catch ex As Exception
968 + fw.WriteLine(vbTab + vbTab + " ""wBorder-width"" : 0 ,")
969 + advDefaults.wBorderWidth = 0
970 + End Try
923 971
972 + fw.WriteLine(vbTab + vbTab + " ""wBorderRight-img"" : """ + RightVerticalBorderText.Text + """ ,")
973 + fw.WriteLine(vbTab + vbTab + " ""inventory-img"" : """ + InventoryIconText.Text + """ ,")
924 974
925 - fw.WriteLine(vbTab + vbTab + " ""wBorderRight-img"" : """ + RightVerticalBorderText.Text + """ ,")
975 + advDefaults.wBorderRightImg = RightVerticalBorderText.Text
976 + advDefaults.inventoryImg = InventoryIconText.Text
926 977
927 - fw.WriteLine(vbTab + vbTab + " ""inventory-img"" : """ + InventoryIconText.Text + """ ,")
928 - Try
929 - img = New Bitmap(getImagesPath() + InventoryIconText.Text)
930 - fw.WriteLine(vbTab + vbTab + " ""inventory-img-width"" : " + CStr(img.Width) + " ,")
931 - fw.WriteLine(vbTab + vbTab + " ""inventory-img-height"" : " + CStr(img.Height) + " ,")
932 - Catch ex As Exception
933 - fw.WriteLine(vbTab + vbTab + " ""inventory-img-width"" : 0 ,")
934 - fw.WriteLine(vbTab + vbTab + " ""inventory-img-height"" : 0 ,")
935 - End Try
936 - fw.WriteLine(vbTab + vbTab + " ""object-width"" : " + ObjectImagesWidthText.Text + " ,")
937 - fw.WriteLine(vbTab + vbTab + " ""object-height"" : " + ObjectImagesHeightText.Text + " ,")
938 -
939 - fw.WriteLine(vbTab + vbTab + " ""quests-img"" : """ + QuestIconIMGText.Text + """ ,")
940 - Try
941 - img = New Bitmap(getImagesPath() + QuestIconIMGText.Text)
942 - fw.WriteLine(vbTab + vbTab + " ""quests-img-width"" : " + CStr(img.Width) + " ,")
943 - fw.WriteLine(vbTab + vbTab + " ""quests-img-height"" : " + CStr(img.Height) + " ,")
944 - Catch ex As Exception
945 - fw.WriteLine(vbTab + vbTab + " ""quests-img-width"" : 0 ,")
946 - fw.WriteLine(vbTab + vbTab + " ""quests-img-height"" : 0 ,")
947 - End Try
948 -
949 - fw.WriteLine(vbTab + vbTab + " ""quests-width"" : " + QuestImagesWidthText.Text + " ,")
950 - fw.WriteLine(vbTab + vbTab + " ""quests-height"" : " + QuestImagesHeightText.Text + " ,")
978 + Try
979 + img = New Bitmap(getImagesPath() + InventoryIconText.Text)
980 + fw.WriteLine(vbTab + vbTab + " ""inventory-img-width"" : " + CStr(img.Width) + " ,")
981 + fw.WriteLine(vbTab + vbTab + " ""inventory-img-height"" : " + CStr(img.Height) + " ,")
982 + advDefaults.inventoryImgWidth = img.Width
983 + advDefaults.inventoryImgHeight = img.Height
984 + Catch ex As Exception
985 + fw.WriteLine(vbTab + vbTab + " ""inventory-img-width"" : 0 ,")
986 + fw.WriteLine(vbTab + vbTab + " ""inventory-img-height"" : 0 ,")
987 + advDefaults.inventoryImgWidth = 0
988 + advDefaults.inventoryImgHeight = 0
989 + End Try
990 + fw.WriteLine(vbTab + vbTab + " ""object-width"" : " + ObjectImagesWidthText.Text + " ,")
991 + fw.WriteLine(vbTab + vbTab + " ""object-height"" : " + ObjectImagesHeightText.Text + " ,")
951 992
952 - fw.WriteLine(vbTab + vbTab + " ""events-img"" : """ + EventsIconIMGText.Text + """ ,")
953 - Try
954 - img = New Bitmap(getImagesPath() + EventsIconIMGText.Text)
955 - fw.WriteLine(vbTab + vbTab + " ""events-img-width"" : " + CStr(img.Width) + " ,")
956 - fw.WriteLine(vbTab + vbTab + " ""events-img-height"" : " + CStr(img.Height) + " ,")
957 - Catch ex As Exception
958 - fw.WriteLine(vbTab + vbTab + " ""events-img-width"" : 0 ,")
959 - fw.WriteLine(vbTab + vbTab + " ""events-img-height"" : 0 ,")
960 - End Try
993 + fw.WriteLine(vbTab + vbTab + " ""quests-img"" : """ + QuestIconIMGText.Text + """ ,")
994 + Try
995 + img = New Bitmap(getImagesPath() + QuestIconIMGText.Text)
996 + fw.WriteLine(vbTab + vbTab + " ""quests-img-width"" : " + CStr(img.Width) + " ,")
997 + fw.WriteLine(vbTab + vbTab + " ""quests-img-height"" : " + CStr(img.Height) + " ,")
998 + Catch ex As Exception
999 + fw.WriteLine(vbTab + vbTab + " ""quests-img-width"" : 0 ,")
1000 + fw.WriteLine(vbTab + vbTab + " ""quests-img-height"" : 0 ,")
1001 + End Try
961 1002
962 - fw.WriteLine(vbTab + vbTab + " ""events-width"" : " + EventsImagesWidthText.Text + " ,")
963 - fw.WriteLine(vbTab + vbTab + " ""events-height"" : " + EventsImagesHeightText.Text + " ")
1003 + fw.WriteLine(vbTab + vbTab + " ""quests-width"" : " + QuestImagesWidthText.Text + " ,")
1004 + fw.WriteLine(vbTab + vbTab + " ""quests-height"" : " + QuestImagesHeightText.Text + " ,")
964 1005
965 - fw.WriteLine(vbTab + "}")
966 - fw.WriteLine("};")
1006 + fw.WriteLine(vbTab + vbTab + " ""events-img"" : """ + EventsIconIMGText.Text + """ ,")
1007 + Try
1008 + img = New Bitmap(getImagesPath() + EventsIconIMGText.Text)
1009 + fw.WriteLine(vbTab + vbTab + " ""events-img-width"" : " + CStr(img.Width) + " ,")
1010 + fw.WriteLine(vbTab + vbTab + " ""events-img-height"" : " + CStr(img.Height) + " ,")
1011 + Catch ex As Exception
1012 + fw.WriteLine(vbTab + vbTab + " ""events-img-width"" : 0 ,")
1013 + fw.WriteLine(vbTab + vbTab + " ""events-img-height"" : 0 ,")
1014 + End Try
967 1015
968 - fw.Close()
1016 + fw.WriteLine(vbTab + vbTab + " ""events-width"" : " + EventsImagesWidthText.Text + " ,")
1017 + fw.WriteLine(vbTab + vbTab + " ""events-height"" : " + EventsImagesHeightText.Text + " ")
969 1018
1019 + fw.WriteLine(vbTab + "}")
970 1020
1021 + advMainData.defaults = advDefaults
971 1022
1023 + fw.WriteLine("};")
972 1024
1025 + fw.Close()
1026 + End Using
1027 + advMainDataCol.results.Add(advMainData)
973 1028
1029 + Dim jsonStr As String = advMainDataCol.ToJSON()
1030 + System.IO.File.WriteAllText(getJsonPath() + storyName + "\" + "advMainData.js", jsonStr)
974 1031 End Sub
975 1032
976 1033 Private Sub FinishEditingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FinishEditingToolStripMenuItem.Click
  @@ -1040,8 +1097,9 @@
1040 1097 End If
1041 1098 End Sub
1042 1099
1043 - '****************************************************************GENERAL SETTINGS****************************************************************************
1044 - '****************************************************************************************************************************************
1100 + #End Region
1101 +
1102 + #Region "GENERAL SETTINGS"
1045 1103
1046 1104 Private Sub GameTitleText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GameTitleText.Leave
1047 1105 GameTitleText.ForeColor = Color.Black
  @@ -1179,8 +1237,9 @@
1179 1237 Me.checkIfInt16(EventsImagesHeightText)
1180 1238 End Sub
1181 1239
1182 - '****************************************************SPLASH*********************************************************************
1183 - '****************************************************************************************************************************************
1240 + #End Region
1241 +
1242 + #Region "SPLASH"
1184 1243
1185 1244 Private Sub SplashTimeText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SplashTimeText.Leave
1186 1245 SplashTimeText.ForeColor = Color.Black
  @@ -1210,8 +1269,9 @@
1210 1269 Me.setColor(SplashTextColorText)
1211 1270 End Sub
1212 1271
1213 - '************************************************************LOADING*********************************************************************
1214 - '****************************************************************************************************************************************
1272 + #End Region
1273 +
1274 + #Region "LOADING"
1215 1275
1216 1276 Private Sub LoadingTimeText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadingTimeText.Leave
1217 1277 LoadingTimeText.ForeColor = Color.Black
  @@ -1256,8 +1316,9 @@
1256 1316 Me.setColor(LoadingTextColorText)
1257 1317 End Sub
1258 1318
1259 - '***************************************************OBJECTS*****************************************************************************
1260 - '****************************************************************************************************************************************
1319 + #End Region
1320 +
1321 + #Region "OBJECTS"
1261 1322
1262 1323 Private Sub ObjectImageText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ObjectIMGText.Click
1263 1324
  @@ -1381,8 +1442,9 @@
1381 1442 End If
1382 1443 End Sub
1383 1444
1384 - '****************************************************EVENTS************************************************************************************************
1385 - '**********************************************************************************************************************************************************
1445 + #End Region
1446 +
1447 + #Region "EVENTS"
1386 1448
1387 1449 Private Sub EventImageText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EventIMGText.Click
1388 1450 Dim dr As DialogResult
  @@ -1503,8 +1565,9 @@
1503 1565 End If
1504 1566 End Sub
1505 1567
1506 - '**********************************************************QUESTS*****************************************************************************************
1507 - '*********************************************************************************************************************************************************
1568 + #End Region
1569 +
1570 + #Region "QUESTS"
1508 1571
1509 1572 Private Sub QuestImageText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuestIMGText.Click
1510 1573 Dim dr As DialogResult
  @@ -1633,8 +1696,9 @@
1633 1696 End If
1634 1697 End Sub
1635 1698
1636 - '*******************************************************PAGES**********************************************************************************
1637 - '**********************************************************************************************************************************************
1699 + #End Region
1700 +
1701 + #Region "PAGES"
1638 1702
1639 1703 Private Sub PageBGText_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PageBGText.Click
1640 1704 Me.setColor(PageBGText)
  @@ -1755,8 +1819,9 @@
1755 1819 End If
1756 1820 End Sub
1757 1821
1758 - '**********************************************************BUTTONS**************************************************************************************
1759 - '***************************************************************************************************************************************************************
1822 + #End Region
1823 +
1824 + #Region "BUTTONS"
1760 1825
1761 1826 Private Sub PreconditionObjectsOText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreconditionObjectsOText.MouseDown
1762 1827 If (Me.firstTime) Then
  @@ -1871,15 +1936,16 @@
1871 1936
1872 1937 End Sub
1873 1938
1874 - ' Private Sub PageButtonTextText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
1939 + #End Region
1940 +
1941 + 'Private Sub PageButtonTextText_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
1875 1942 'Dim text As String = PageButtonTextText.Text
1876 - ' PageButtonTextText.ForeColor = Color.Black
1877 - ' If (text = "") Then
1878 - ' PageButtonTextText.ForeColor = Color.Red
1879 - ' PageButtonTextText.Text = "not valid"
1880 - '
1881 - ' End If
1882 - ' End Sub
1943 + 'PageButtonTextText.ForeColor = Color.Black
1944 + 'If (text = "") Then
1945 + 'PageButtonTextText.ForeColor = Color.Red
1946 + 'PageButtonTextText.Text = "not valid"
1947 + 'End If
1948 + 'End Sub
1883 1949
1884 1950 Private Sub PageButtonIMGText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageButtonIMGText.Click
1885 1951 Me.setImage(PageButtonIMGText, PageButtonIMGPic, "")
  @@ -1917,8 +1983,7 @@
1917 1983
1918 1984 End Sub
1919 1985
1920 - '***********************************************************************ALERT***************************************************************************
1921 - '*********************************************************************************************************************************************************
1986 + #Region "ALERT"
1922 1987
1923 1988 Private Sub AlertBGColorText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlertBGColorText.Click
1924 1989 Me.setColor(AlertBGColorText)
  @@ -1944,8 +2009,11 @@
1944 2009 Me.setImage(AlertBottomBGIMGText, AlertBottomBGIMGPic, "")
1945 2010 End Sub
1946 2011
1947 - '*************************************************************PAGE & BUTTON**************************************************************************'
1948 - '*****************************************************************************************************************************************************
2012 + #End Region
2013 +
2014 + #Region "PAGE & BUTTON"
2015 +
2016 + #Region "BUTTON(1)"
1949 2017
1950 2018 Private Sub B1PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1PreconditionObjectsOText.MouseEnter
1951 2019 B1PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
  @@ -2082,7 +2150,9 @@
2082 2150 B1PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
2083 2151 End Sub
2084 2152
2085 - '***********************************************************************END BUTTON1***************************************************
2153 + #End Region
2154 +
2155 + #Region "BUTTON(2)"
2086 2156
2087 2157 Private Sub B2PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2PreconditionObjectsOText.MouseEnter
2088 2158 B2PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
  @@ -2219,7 +2289,9 @@
2219 2289 B2PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
2220 2290 End Sub
2221 2291
2222 - '*************************************************************************END BUTTON2*************************************************
2292 + #End Region
2293 +
2294 + #Region "BUTTON(3)"
2223 2295
2224 2296 Private Sub B3PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3PreconditionObjectsOText.MouseEnter
2225 2297 B3PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
  @@ -2356,7 +2428,9 @@
2356 2428 B3PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
2357 2429 End Sub
2358 2430
2359 - '**************************************************END BUTTON3************************************************************************+
2431 + #End Region
2432 +
2433 + #Region "BUTTONS(4)"
2360 2434
2361 2435 Private Sub B4PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4PreconditionObjectsOText.MouseEnter
2362 2436 B4PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
  @@ -2493,7 +2567,9 @@
2493 2567 B4PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
2494 2568 End Sub
2495 2569
2496 - '****************************************************************END BUTTON 4***************************************************************
2570 + #End Region
2571 +
2572 + #Region "BUTTONS(5)"
2497 2573
2498 2574 Private Sub B5PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5PreconditionObjectsOText.MouseEnter
2499 2575 B5PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
  @@ -2630,7 +2706,9 @@
2630 2706 B5PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
2631 2707 End Sub
2632 2708
2633 - '*******************************************************************END BUTTON5*****************************************************************************
2709 + #End Region
2710 +
2711 + #Region "BUTTONS(6)"
2634 2712
2635 2713 Private Sub B6PreconditionObjectsOText_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6PreconditionObjectsOText.MouseEnter
2636 2714 B6PreconditionObjectsOText.Size = New System.Drawing.Size(150, 38)
  @@ -2767,7 +2845,7 @@
2767 2845 B6PostconditionQuestsDText.Size = New System.Drawing.Size(72, 21)
2768 2846 End Sub
2769 2847
2770 - '**********************************************************************END BUTTON6*****************************************************************
2848 + #End Region
2771 2849
2772 2850 Private Sub PageTopAreaImg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageTopAreaImg.Click
2773 2851 setImage(PageTopAreaImgText, PageTopAreaImg, "")
  @@ -3235,7 +3313,9 @@
3235 3313 fillButtons(pageId)
3236 3314 End Sub
3237 3315
3238 - '**************************************************************************MORE OPTIONS PANEL*****************************************************************
3316 + #End Region
3317 +
3318 + #Region "MORE OPTIONS PANEL"
3239 3319
3240 3320 Private Sub PageMoreOptionCloseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageMoreOptionCloseButton.Click
3241 3321 PageMoreOptionPanel.Hide()
  @@ -3249,6 +3329,8 @@
3249 3329 PageMoreOptionPanel.Show()
3250 3330 End Sub
3251 3331
3332 + #End Region
3333 +
3252 3334 End Class
3253 3335
3254 3336

View View this file contents

History View the full history

Feeds

Commits for /minstrek/GameEditorBKP - Copia/GameEditor/Form1.vb

Need assistance?   Get in touch, or head to our documentation site.