Subversion Repository Public Repository

Nextrek

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

Diff revisions: vs.
  @@ -576,19 +576,19 @@
576 576 ._id = pageCount.ToString
577 577 .text = map(3)
578 578 .bgColor = map(2)
579 - .inventoryImg = map(4)
580 - .eventsImg = map(5)
581 - .questsImg = map(6)
579 + .inventoryImg = map(4).ToLower
580 + .eventsImg = map(5).ToLower
581 + .questsImg = map(6).ToLower
582 582 .titleColor = map(7)
583 583 .topBgColor = map(8)
584 - .hBorderTopImg = map(9)
585 - .hBorderMidImg = map(10)
584 + .hBorderTopImg = map(9).ToLower
585 + .hBorderMidImg = map(10).ToLower
586 586 .bottomBgColor = map(11)
587 - .hBorderBottomImg = map(12)
588 - .wBorderLeftImg = map(13)
589 - .wBorderRightImg = map(14)
590 - .topImage = map(15)
591 - .bottomImage = map(16)
587 + .hBorderBottomImg = map(12).ToLower
588 + .wBorderLeftImg = map(13).ToLower
589 + .wBorderRightImg = map(14).ToLower
590 + .topImage = map(15).ToLower
591 + .bottomImage = map(16).ToLower
592 592 End With
593 593
594 594 fw.WriteLine(vbTab + " """ + map(0) + """ : {")
  @@ -644,20 +644,16 @@
644 644
645 645 If ((map2(17).Equals("undefined") Or map2(17).Equals(""))) Then
646 646 fw.WriteLine(vbTab + vbTab + vbTab + " ""buttonImage"" : """ + Me.DefaultButtonImageText.Text + """ ,")
647 - advButton.buttonImage = Me.DefaultButtonImageText.Text
647 + advButton.buttonImage = Me.DefaultButtonImageText.Text.ToLower
648 648 Else
649 649 fw.WriteLine(vbTab + vbTab + vbTab + " ""buttonImage"" : """ + map2(17) + """ ,")
650 - advButton.buttonImage = map2(17)
650 + advButton.buttonImage = map2(17).ToLower
651 651 End If
652 652
653 653 fw.WriteLine(vbTab + vbTab + vbTab + " ""targetId"" : """ + map2(1) + """ ,")
654 654 fw.WriteLine(vbTab + vbTab + vbTab + " ""buttonText"" : """ + escape(map2(2)) + """ ,")
655 655 fw.Write(vbTab + vbTab + vbTab + " ""buttonPreCond"" : """)
656 656
657 - advButton.targetId = map2(1)
658 - advButton.buttonText = map2(2)
659 - advButton.buttonPreCond = ""
660 -
661 657 Dim temp As String = ""
662 658 'pre object owned
663 659 Dim prePostLine As String = map2(3)
  @@ -718,9 +714,11 @@
718 714 End If
719 715 fw.WriteLine(temp + """,")
720 716
717 + advButton.targetId = map2(1)
718 + advButton.buttonText = map2(2)
719 + advButton.buttonPreCond = temp
721 720
722 721 fw.Write(vbTab + vbTab + vbTab + " ""buttonPostCond"" : """)
723 - advButton.buttonPostCond = ""
724 722
725 723 temp = ""
726 724 'post object owned
  @@ -774,6 +772,8 @@
774 772 fw.WriteLine(temp + """")
775 773 fw.WriteLine(vbTab + vbTab + "},")
776 774
775 + advButton.buttonPostCond = temp
776 +
777 777 advPage.scenebuttons.Add(advButton)
778 778 counter += 1
779 779 End While