Nextrek
Diff Revisions
59
vs
60
for /minstrek/GameEditorBKP - Copia/GameEditor/Form1.vb
|
@@ -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 |