Nextrek
Subversion Repository Public Repository

Nextrek

URLs

Copy to Clipboard
Explore
Commits

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

Diff revisions: vs.
  @@ -379,7 +379,9 @@
379 379 line = ""
380 380 cells = rw.Cells
381 381 For Each cell As DataGridViewCell In cells
382 - If (cell.Value.ToString.Equals("")) Then
382 + If cell.Value Is Nothing Then
383 + line += "undefined["
384 + ElseIf (cell.Value.ToString.Equals("")) Then
383 385 line += "undefined["
384 386 Else
385 387 line += cell.Value.ToString.Replace("" + vbNewLine, "<br/>") + "["
  @@ -499,32 +501,40 @@
499 501 End Sub
500 502
501 503 Private Sub EventsfromTxtToJson(ByVal storyName As String)
502 - Dim map As String()
503 - Dim fr = New StreamReader(getSavedPath() + storyName + "\" + "saveEventsGrid.txt")
504 - Dim fw = New StreamWriter(getJsonPath() + storyName + "\" + "events.js")
505 -
506 - Dim line As String
507 - fw.WriteLine("var advEvents = {")
508 -
509 -
510 - While (Not fr.EndOfStream)
511 - line = fr.ReadLine
512 -
513 - map = line.Split("[")
514 -
515 - fw.WriteLine(vbTab + """" + map(0) + """ : {")
516 - fw.WriteLine(vbTab + vbTab + " ""name"" :" + " """ + escape(map(1)) + """ ,")
517 - fw.WriteLine(vbTab + vbTab + " ""description"" :" + " """ + escape(map(2)) + """ ,")
518 - fw.WriteLine(vbTab + vbTab + " ""img"" :" + " """ + map(3) + """ ,")
519 - fw.WriteLine(vbTab + vbTab + " ""happened"" :" + " " + map(4) + " ")
520 - fw.WriteLine(vbTab + "},")
521 -
504 + Dim advEventCol As My.Types.advEventCollection = New My.Types.advEventCollection
522 505
523 - End While
524 - fw.WriteLine("};")
506 + Using fr = New StreamReader(getSavedPath() + storyName + "\" + "saveEventsGrid.txt")
507 + Using fw = New StreamWriter(getJsonPath() + storyName + "\" + "events.js")
508 + fw.WriteLine("var advEvents = {")
509 +
510 + While (Not fr.EndOfStream)
511 + Dim line As String = fr.ReadLine
512 + Dim map As String() = line.Split("[")
513 +
514 + Dim advEvent As My.Types.advEvent = New My.Types.advEvent
515 + With advEvent
516 + .name = map(1)
517 + .description = map(2)
518 + .img = map(3)
519 + .happened = Convert.ToBoolean(map(4))
520 + End With
521 + advEventCol.results.Add(advEvent)
522 +
523 + fw.WriteLine(vbTab + """" + map(0) + """ : {")
524 + fw.WriteLine(vbTab + vbTab + " ""name"" :" + " """ + escape(map(1)) + """ ,")
525 + fw.WriteLine(vbTab + vbTab + " ""description"" :" + " """ + escape(map(2)) + """ ,")
526 + fw.WriteLine(vbTab + vbTab + " ""img"" :" + " """ + map(3) + """ ,")
527 + fw.WriteLine(vbTab + vbTab + " ""happened"" :" + " " + map(4) + " ")
528 + fw.WriteLine(vbTab + "},")
529 + End While
530 + fw.WriteLine("};")
531 + fw.Close()
532 + End Using
533 + fr.Close()
534 + End Using
525 535
526 - fr.Close()
527 - fw.Close()
536 + Dim jsonStr As String = Estensioni.ToJSON(advEventCol)
537 + System.IO.File.WriteAllText(getJsonPath() + storyName + "\" + "advEvents.js", jsonStr)
528 538 End Sub
529 539
530 540 Private Sub QuestsfromTxtToJson(ByVal storyName As String)
  @@ -557,229 +567,258 @@
557 567 End Sub
558 568
559 569 Private Sub PagesfromTxtToJson(ByVal storyName As String)
560 - Dim map, map2, map3 As String()
561 570
571 + Dim advPageCol As My.Types.advPageCollection = New My.Types.advPageCollection
562 572 Dim buttonArrayList As ArrayList
563 573 Dim buttonMap As Dictionary(Of String, ArrayList) = New Dictionary(Of String, ArrayList)
564 - Dim buttonFr = New StreamReader(getSavedPath() + storyName + "\" + "savePageButtonGrid.txt")
565 - Dim pageFr = New StreamReader(getSavedPath() + storyName + "\" + "savePagesGrid.txt")
566 - Dim fw = New StreamWriter(getJsonPath() + storyName + "\" + "pages.js")
567 - Dim line As String
568 - Dim prePostLine As String
569 - Dim temp As String
570 - Dim buttonNum As Byte
571 - Dim counter As Int16 = 0
572 -
573 -
574 -
575 -
576 - While (Not buttonFr.EndOfStream)
577 - line = buttonFr.ReadLine
578 - map = line.Split("[")
579 - Try
580 - buttonMap.Item(map(0)).Add(map)
581 - Catch ex As Exception
582 - buttonMap.Add(map(0), New ArrayList())
583 - buttonMap.Item(map(0)).Add(map)
584 - End Try
585 -
586 -
587 - End While
588 -
589 -
590 574
591 - fw.WriteLine("var advPages = {")
575 + Using fw = New StreamWriter(getJsonPath() + storyName + "\" + "pages.js")
592 576
577 + Using buttonFr = New StreamReader(getSavedPath() + storyName + "\" + "savePageButtonGrid.txt")
578 + While (Not buttonFr.EndOfStream)
579 + Dim line As String = buttonFr.ReadLine
580 + Dim map As String() = line.Split("[")
581 + Try
582 + buttonMap.Item(map(0)).Add(map)
583 + Catch ex As Exception
584 + buttonMap.Add(map(0), New ArrayList())
585 + buttonMap.Item(map(0)).Add(map)
586 + End Try
587 + End While
588 + buttonFr.Close()
589 + End Using
593 590
594 - While (Not pageFr.EndOfStream)
595 - line = pageFr.ReadLine
596 - map = line.Split("[")
597 - fw.WriteLine(vbTab + " """ + map(0) + """ : {")
598 - fw.WriteLine(vbTab + vbTab + " ""text"" : """ + escape(map(3)) + """ ,")
599 - fw.WriteLine(vbTab + vbTab + " ""background-color"" : """ + map(2) + """ ,")
600 - fw.WriteLine(vbTab + vbTab + " ""inventory-img"" : """ + map(4) + """ ,")
601 - fw.WriteLine(vbTab + vbTab + " ""events-img"" : """ + map(5) + """ ,")
602 - fw.WriteLine(vbTab + vbTab + " ""quests-img"" : """ + map(6) + """ ,")
603 - fw.WriteLine(vbTab + vbTab + " ""title-color"" : """ + map(7) + """ ,")
604 - fw.WriteLine(vbTab + vbTab + " ""top-background-color"" : """ + map(8) + """ ,")
605 - fw.WriteLine(vbTab + vbTab + " ""hBorderTop-img"" : """ + map(9) + """ ,")
606 - fw.WriteLine(vbTab + vbTab + " ""hBorderMid-img"" : """ + map(10) + """ ,")
607 - fw.WriteLine(vbTab + vbTab + " ""bottom-background-color"" : """ + map(11) + """ ,")
608 - fw.WriteLine(vbTab + vbTab + " ""hBorderBottom-img"" : """ + map(12) + """ ,")
609 - fw.WriteLine(vbTab + vbTab + " ""wBorderLeft-img"" : """ + map(13) + """ ,")
610 - fw.WriteLine(vbTab + vbTab + " ""wBorderRight-img"" : """ + map(14) + """ ,")
611 - fw.WriteLine(vbTab + vbTab + " ""topImage"" : """ + map(15) + """ ,")
612 - fw.WriteLine(vbTab + vbTab + " ""bottomImage"" : """ + map(16) + """ ,")
613 - Try
614 - buttonNum = buttonMap.Item(map(0)).Count
615 - Catch e As KeyNotFoundException
616 - buttonNum = 0
617 - End Try
618 - fw.WriteLine(vbTab + vbTab + " ""buttons"" : " + CStr(buttonNum) + " ,")
619 -
620 - If (map(17).Equals("undefined") Or map(17).Equals("")) Then
621 - fw.WriteLine(vbTab + vbTab + " ""buttonsWidth"" : " + Me.DefaultButtonWidthText.Text + " ,")
622 - Else
623 - fw.WriteLine(vbTab + vbTab + " ""buttonsWidth"" : " + map(17) + " ,")
624 - End If
625 -
626 -
627 - If (map(18).Equals("undefined") Or map(18).Equals("")) Then
628 - fw.WriteLine(vbTab + vbTab + " ""buttonsHeight"" : " + Me.DefaultButtonHeightText.Text + " ,")
629 - Else
630 - fw.WriteLine(vbTab + vbTab + " ""buttonsHeight"" : " + map(18) + " ,")
631 - End If
632 -
633 -
634 -
635 - Try
636 - buttonArrayList = buttonMap.Item(map(0))
637 - counter = 0
638 - While counter <= (buttonArrayList.Count - 1)
639 -
640 - map2 = buttonArrayList.Item(counter)
641 - fw.WriteLine(vbTab + vbTab + " ""button" + CStr(counter) + """ : {")
591 + fw.WriteLine("var advPages = {")
642 592
643 - If ((map2(17).Equals("undefined") Or map2(17).Equals(""))) Then
644 - fw.WriteLine(vbTab + vbTab + vbTab + " ""buttonImage"" : """ + Me.DefaultButtonImageText.Text + """ ,")
593 + Using pageFr = New StreamReader(getSavedPath() + storyName + "\" + "savePagesGrid.txt")
594 + Dim pageCount As Integer = 0
595 + While (Not pageFr.EndOfStream)
596 + Dim line As String = pageFr.ReadLine
597 + Dim map As String() = line.Split("[")
598 +
599 + Dim advPage As New My.Types.advPage
600 + With advPage
601 + ._id = pageCount.ToString
602 + .text = map(3)
603 + .bgColor = map(2)
604 + .inventoryImg = map(4)
605 + .eventsImg = map(5)
606 + .questsImg = map(6)
607 + .titleColor = map(7)
608 + .topBgColor = map(8)
609 + .hBorderTopImg = map(9)
610 + .hBorderMidImg = map(10)
611 + .bottomBgColor = map(11)
612 + .hBorderBottomImg = map(12)
613 + .wBorderLeftImg = map(13)
614 + .wBorderRightimg = map(14)
615 + .topImage = map(15)
616 + .bottomImage = map(16)
617 + End With
618 +
619 + fw.WriteLine(vbTab + " """ + map(0) + """ : {")
620 + fw.WriteLine(vbTab + vbTab + " ""text"" : """ + escape(map(3)) + """ ,")
621 + fw.WriteLine(vbTab + vbTab + " ""background-color"" : """ + map(2) + """ ,")
622 + fw.WriteLine(vbTab + vbTab + " ""inventory-img"" : """ + map(4) + """ ,")
623 + fw.WriteLine(vbTab + vbTab + " ""events-img"" : """ + map(5) + """ ,")
624 + fw.WriteLine(vbTab + vbTab + " ""quests-img"" : """ + map(6) + """ ,")
625 + fw.WriteLine(vbTab + vbTab + " ""title-color"" : """ + map(7) + """ ,")
626 + fw.WriteLine(vbTab + vbTab + " ""top-background-color"" : """ + map(8) + """ ,")
627 + fw.WriteLine(vbTab + vbTab + " ""hBorderTop-img"" : """ + map(9) + """ ,")
628 + fw.WriteLine(vbTab + vbTab + " ""hBorderMid-img"" : """ + map(10) + """ ,")
629 + fw.WriteLine(vbTab + vbTab + " ""bottom-background-color"" : """ + map(11) + """ ,")
630 + fw.WriteLine(vbTab + vbTab + " ""hBorderBottom-img"" : """ + map(12) + """ ,")
631 + fw.WriteLine(vbTab + vbTab + " ""wBorderLeft-img"" : """ + map(13) + """ ,")
632 + fw.WriteLine(vbTab + vbTab + " ""wBorderRight-img"" : """ + map(14) + """ ,")
633 + fw.WriteLine(vbTab + vbTab + " ""topImage"" : """ + map(15) + """ ,")
634 + fw.WriteLine(vbTab + vbTab + " ""bottomImage"" : """ + map(16) + """ ,")
635 + Dim buttonNum As Byte
636 + Try
637 + buttonNum = buttonMap.Item(map(0)).Count
638 + Catch e As KeyNotFoundException
639 + buttonNum = 0
640 + End Try
641 +
642 + fw.WriteLine(vbTab + vbTab + " ""buttons"" : " + CStr(buttonNum) + " ,")
643 + advPage.buttons = buttonNum
644 +
645 + If (map(17).Equals("undefined") Or map(17).Equals("")) Then
646 + fw.WriteLine(vbTab + vbTab + " ""buttonsWidth"" : " + Me.DefaultButtonWidthText.Text + " ,")
647 + advPage.buttonsWidth = Me.DefaultButtonWidthText.Text
645 648 Else
646 - fw.WriteLine(vbTab + vbTab + vbTab + " ""buttonImage"" : """ + map2(17) + """ ,")
649 + fw.WriteLine(vbTab + vbTab + " ""buttonsWidth"" : " + map(17) + " ,")
650 + advPage.buttonsWidth = map(17)
647 651 End If
648 652
649 -
650 - fw.WriteLine(vbTab + vbTab + vbTab + " ""targetId"" : """ + map2(1) + """ ,")
651 - fw.WriteLine(vbTab + vbTab + vbTab + " ""buttonText"" : """ + escape(map2(2)) + """ ,")
652 - fw.Write(vbTab + vbTab + vbTab + " ""buttonPreCond"" : """)
653 - temp = ""
654 - 'pre object owned
655 - prePostLine = map2(3)
656 - If prePostLine.Equals("undefined") Then
657 - map3 = {}
658 - Else : map3 = prePostLine.Split(",")
659 - End If
660 - For Each item As String In map3
661 - temp += "oggetto(" + item.Trim() + ",true)&"
662 - Next
663 - 'pre object not owned
664 - prePostLine = map2(4)
665 - If prePostLine.Equals("undefined") Then
666 - map3 = {}
653 + If (map(18).Equals("undefined") Or map(18).Equals("")) Then
654 + fw.WriteLine(vbTab + vbTab + " ""buttonsHeight"" : " + Me.DefaultButtonHeightText.Text + " ,")
655 + advPage.buttonsHeight = Me.DefaultButtonHeightText.Text
667 656 Else
668 - map3 = prePostLine.Split(",")
657 + fw.WriteLine(vbTab + vbTab + " ""buttonsHeight"" : " + map(18) + " ,")
658 + advPage.buttonsHeight = map(18)
669 659 End If
670 - For Each item As String In map3
671 - temp += "oggetto(" + item.Trim() + ",false)&"
672 - Next
673 - 'pre event occured
674 - prePostLine = map2(5)
675 - If prePostLine.Equals("undefined") Then
676 - map3 = {}
677 - Else
678 - map3 = prePostLine.Split(",")
679 - End If
680 - For Each item As String In map3
681 - temp += "evento(" + item.Trim() + ",true)&"
682 - Next
683 - 'pre event not occured
684 - prePostLine = map2(6)
685 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
686 - For Each item As String In map3
687 - temp += "evento(" + item.Trim() + ",false)&"
688 - Next
689 - 'pre quest none
690 - prePostLine = map2(7)
691 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
692 - For Each item As String In map3
693 - temp += "quest(" + item.Trim() + ",'none')&"
694 - Next
695 - 'pre quest had
696 - prePostLine = map2(8)
697 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
698 - For Each item As String In map3
699 - temp += "quest(" + item.Trim() + ",'had')&"
700 - Next
701 - 'pre quest done
702 - prePostLine = map2(9)
703 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
704 - For Each item As String In map3
705 - temp += "quest(" + item.Trim() + ",'done')&"
706 - Next
707 - If (temp.Length > 0) Then
708 - temp = temp.Substring(0, temp.Length - 1)
709 - End If
710 - fw.WriteLine(temp + """,")
711 660
661 + Try
662 + Dim advButton As New My.Types.advSceneButton
663 + buttonArrayList = buttonMap.Item(map(0))
664 + Dim counter As Int16 = 0
665 + While counter <= (buttonArrayList.Count - 1)
666 + Dim map2 As String() = buttonArrayList.Item(counter)
667 + fw.WriteLine(vbTab + vbTab + " ""button" + CStr(counter) + """ : {")
668 + advButton.button = counter.ToString
669 +
670 + If ((map2(17).Equals("undefined") Or map2(17).Equals(""))) Then
671 + fw.WriteLine(vbTab + vbTab + vbTab + " ""buttonImage"" : """ + Me.DefaultButtonImageText.Text + """ ,")
672 + advButton.buttonImage = Me.DefaultButtonImageText.Text
673 + Else
674 + fw.WriteLine(vbTab + vbTab + vbTab + " ""buttonImage"" : """ + map2(17) + """ ,")
675 + advButton.buttonImage = map2(17)
676 + End If
712 677
713 - fw.Write(vbTab + vbTab + vbTab + " ""buttonPostCond"" : """)
714 - temp = ""
715 - 'post object owned
716 - prePostLine = map2(10)
717 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
718 - For Each item As String In map3
719 - temp += "oggetto(" + item.Trim() + ",true)&"
720 - Next
721 - 'post object not owned
722 - prePostLine = map2(11)
723 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
724 - For Each item As String In map3
725 - temp += "oggetto(" + item.Trim() + ",false)&"
726 - Next
727 - 'post event occured
728 - prePostLine = map2(12)
729 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
730 - For Each item As String In map3
731 - temp += "evento(" + item.Trim() + ",true)&"
732 - Next
733 - 'post event not occured
734 - prePostLine = map2(13)
735 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
736 - For Each item As String In map3
737 - temp += "evento(" + item.Trim() + ",false)&"
738 - Next
739 - 'post quest none
740 - prePostLine = map2(14)
741 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
742 - For Each item As String In map3
743 - temp += "quest(" + item.Trim() + ",'none')&"
744 - Next
745 - 'post quest had
746 - prePostLine = map2(15)
747 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
748 - For Each item As String In map3
678 + fw.WriteLine(vbTab + vbTab + vbTab + " ""targetId"" : """ + map2(1) + """ ,")
679 + fw.WriteLine(vbTab + vbTab + vbTab + " ""buttonText"" : """ + escape(map2(2)) + """ ,")
680 + fw.Write(vbTab + vbTab + vbTab + " ""buttonPreCond"" : """)
681 +
682 + advButton.targetId = map2(1)
683 + advButton.buttonText = map2(2)
684 + advButton.buttonPreCond = ""
685 +
686 + Dim temp As String = ""
687 + 'pre object owned
688 + Dim prePostLine As String = map2(3)
689 + Dim map3 As String()
690 + If prePostLine.Equals("undefined") Then
691 + map3 = {}
692 + Else : map3 = prePostLine.Split(",")
693 + End If
694 + For Each item As String In map3
695 + temp += "oggetto(" + item.Trim() + ",true)&"
696 + Next
697 + 'pre object not owned
698 + prePostLine = map2(4)
699 + If prePostLine.Equals("undefined") Then
700 + map3 = {}
701 + Else
702 + map3 = prePostLine.Split(",")
703 + End If
704 + For Each item As String In map3
705 + temp += "oggetto(" + item.Trim() + ",false)&"
706 + Next
707 + 'pre event occured
708 + prePostLine = map2(5)
709 + If prePostLine.Equals("undefined") Then
710 + map3 = {}
711 + Else
712 + map3 = prePostLine.Split(",")
713 + End If
714 + For Each item As String In map3
715 + temp += "evento(" + item.Trim() + ",true)&"
716 + Next
717 + 'pre event not occured
718 + prePostLine = map2(6)
719 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
720 + For Each item As String In map3
721 + temp += "evento(" + item.Trim() + ",false)&"
722 + Next
723 + 'pre quest none
724 + prePostLine = map2(7)
725 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
726 + For Each item As String In map3
727 + temp += "quest(" + item.Trim() + ",'none')&"
728 + Next
729 + 'pre quest had
730 + prePostLine = map2(8)
731 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
732 + For Each item As String In map3
733 + temp += "quest(" + item.Trim() + ",'had')&"
734 + Next
735 + 'pre quest done
736 + prePostLine = map2(9)
737 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
738 + For Each item As String In map3
739 + temp += "quest(" + item.Trim() + ",'done')&"
740 + Next
741 + If (temp.Length > 0) Then
742 + temp = temp.Substring(0, temp.Length - 1)
743 + End If
744 + fw.WriteLine(temp + """,")
749 745
750 - temp += "quest(" + item.Trim() + ",'had')&"
751 - Next
752 - 'post quest done
753 - prePostLine = map2(16)
754 - If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
755 - For Each item As String In map3
756 746
757 - temp += "quest(" + item.Trim() + ",'done')&"
758 - Next
747 + fw.Write(vbTab + vbTab + vbTab + " ""buttonPostCond"" : """)
748 + advButton.buttonPostCond = ""
759 749
760 - If (temp.Length > 0) Then
761 - temp = temp.Substring(0, temp.Length - 1)
762 - End If
763 - fw.WriteLine(temp + """")
764 - fw.WriteLine(vbTab + vbTab + "},")
750 + temp = ""
751 + 'post object owned
752 + prePostLine = map2(10)
753 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
754 + For Each item As String In map3
755 + temp += "oggetto(" + item.Trim() + ",true)&"
756 + Next
757 + 'post object not owned
758 + prePostLine = map2(11)
759 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
760 + For Each item As String In map3
761 + temp += "oggetto(" + item.Trim() + ",false)&"
762 + Next
763 + 'post event occured
764 + prePostLine = map2(12)
765 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
766 + For Each item As String In map3
767 + temp += "evento(" + item.Trim() + ",true)&"
768 + Next
769 + 'post event not occured
770 + prePostLine = map2(13)
771 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
772 + For Each item As String In map3
773 + temp += "evento(" + item.Trim() + ",false)&"
774 + Next
775 + 'post quest none
776 + prePostLine = map2(14)
777 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
778 + For Each item As String In map3
779 + temp += "quest(" + item.Trim() + ",'none')&"
780 + Next
781 + 'post quest had
782 + prePostLine = map2(15)
783 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
784 + For Each item As String In map3
765 785
786 + temp += "quest(" + item.Trim() + ",'had')&"
787 + Next
788 + 'post quest done
789 + prePostLine = map2(16)
790 + If prePostLine.Equals("undefined") Then map3 = {} Else map3 = prePostLine.Split(",")
791 + For Each item As String In map3
766 792
767 - counter += 1
768 - End While
769 - Catch e As KeyNotFoundException
770 - End Try
771 - fw.WriteLine(vbTab + "},")
793 + temp += "quest(" + item.Trim() + ",'done')&"
794 + Next
772 795
773 - End While
796 + If (temp.Length > 0) Then
797 + temp = temp.Substring(0, temp.Length - 1)
798 + End If
799 + fw.WriteLine(temp + """")
800 + fw.WriteLine(vbTab + vbTab + "},")
774 801
802 + advPage.scenebuttons.Add(advButton)
803 + counter += 1
804 + End While
805 + Catch e As KeyNotFoundException
806 + End Try
807 + fw.WriteLine(vbTab + "},")
775 808
776 - fw.WriteLine("};")
809 + advPageCol.results.Add(advPage)
810 + pageCount += 1
811 + End While
777 812
778 - buttonFr.Close()
779 - pageFr.Close()
780 - fw.Close()
813 + pageFr.Close()
814 + End Using
781 815
816 + fw.WriteLine("};")
817 + fw.Close()
818 + End Using
782 819
820 + Dim jsonStr As String = Estensioni.ToJSON(advPageCol)
821 + System.IO.File.WriteAllText(getJsonPath() + storyName + "\" + "advPages.js", jsonStr)
783 822 End Sub
784 823
785 824 Private Sub MainDatafromTxtToJson(ByVal storyName As String)

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.