News:

The forum has been updated to SMF (2.1.3)!
Please be patient as we work to polish up the place and update features as we can.

Main Menu

Should we help Joao?

Started by Luna_blade, 26, April, 2014, 03:30:23 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

So, for the people who are in the DC revival project, should we help Joao or continue on our own?

I want to help Joao
1 (33.3%)
I want the project to be made by us
1 (33.3%)
Other (leave post)
1 (33.3%)

Total Members Voted: 3

jjppof

#40
Quote from: Luna_blade on 06, May, 2014, 11:22:26 AM
Quote from: jjppofI already have all items uploaded. I just need sprites without borders.
You meann all the numbers added to the game?

I added everything  :happy:

Quote from: KyleRunner on 06, May, 2014, 12:08:51 PM
Fala aí, João!

I found a "custom resolution" script. It might be useful.

Link: http://www.rpgmakervxace.net/topic/3894-basic-window-resizer/

It works pretty well, by the way (see picture attached).

(Credits ==> V.M of D.T.)

I can't change the resolution of the game, this would unconfigure all the menus.
I didn't make flexible menus.

Luna_blade

#41
So I've made something:
A program (written in VB.NET 2008)  that puts all the enemy stats in a .txt after you fill in all the enemy stats.
I don't know how handy this will be and it is pretty shitty, but I felt like I had to make this.

In the attachment is the setup for it and two files I made with it.

Y'all may report bugs or improvements to me, but I won't promise I can fix or make it.

"Hear the sounds and melodies
Of rilets flowing down
They're the verlasting songs
Whispering all the time
As a warning that behind some rocks
There's a rigid grap even
Oreads fear the tread"

Daddy Poi's Oily Gorillas

#42
@Luna_blade: Not sure if you knew this, but there's a secret way of getting the Ultimate version of Visual Studio 2012... (Pretty much, someone posted their key in a topic I accidentally found that one time. Which means you don't have to risk getting any viruses or malware from keygens.)

@Bugs/improvements: Well, it would help if we had the source...
Golden Sun Docs: Broken Seal - The Lost Age - Dark Dawn | Mario Sports Docs: Mario Golf & Mario Tennis | Misc. Docs
Refer to Yoshi's Lighthouse for any M&L hacking needs...

Sometimes I like to compare apples to oranges. (Figuratively) ... They are both fruits, but which one would you eat more? (If taken literally, I'd probably choose apples.)
Maybe it is over-analyzing, but it doesn't mean the information is useless.


The only GS Discord servers with significance are:
Golden Sun Hacking Community
GS Speedrunning
/r/Golden Sun
GS United Nations
Temple of Kraden

Can you believe how small the Golden Sun Community is?

2+2=5 Don't believe me? Those are rounded decimal numbers. Take that, flat earth theorists! :)

Luna_blade

#43
Quote from: Teawater on 07, May, 2014, 04:48:42 PM
@Luna_blade: Not sure if you knew this, but there's a secret way of getting the Ultimate version of Visual Studio 2012... (Pretty much, someone posted their key in a topic I accidentally found that one time.)
Really? That's nice. Unfortunatly 2012 doesn't work on  my computer (still XP), well the expres version at least didn't.

Updated code:
[spoiler]Public Class Form1
    Public Shared EnemName As String
    Public Shared EnemLevel As Integer
    Public Shared Turns As Integer
    Public Shared NormalStrStats(7) As String
    Public Shared EnemElementStrStats(11) As String
    Public Shared TheStrings(22) As String

    ''Public Sub Form_load() Handles Me.Load
    ''    GetStats()
    ''End Sub

    Public Sub GetStats()
        Dim ValidLevel As Boolean
        Dim EnemLevelStr As String
        Dim ValidTurns As Boolean
        Dim Tempturns As String
        Dim ValidStat As Boolean
        Dim ShowStat As String
        Dim ValidElementStat As Boolean
        Dim RegulatorNS As Integer
        Dim RegulatorES As Integer
        Dim RegulatorLB As Integer
        Dim TempString As String

        EnemName = InputBox("Enter Enemy name.", "Enemy name")

        While ValidLevel = False
            EnemLevelStr = InputBox("Enter Enemy level.", "Enemy level")
            If IsNumeric(EnemLevel) Then
                If EnemLevelStr IsNot String.Empty Or EnemLevelStr IsNot Nothing Or EnemLevelStr IsNot "" Then
                    ValidLevel = True
                End If
            Else
                ValidLevel = False
            End If
        End While
        EnemLevel = CInt(EnemLevelStr)

        While ValidTurns = False
            Tempturns = InputBox("Enter the amount of turns the Enemy has (must be smaller than six)", "Enemy Turns")
            If IsNumeric(Tempturns) Then
                If Tempturns IsNot String.Empty Or Tempturns IsNot Nothing Or Tempturns IsNot "" Then
                    If CInt(Tempturns) < 6 Then
                        ValidTurns = True
                    End If
                End If
            Else
                ValidTurns = False
            End If
        End While
        Turns = CInt(Tempturns)

        If CheckBox1.Checked = False Then
            For Each Stat In NormalStrStats
                Select Case RegulatorNS
                    Case 0
                        ShowStat = "HP"
                    Case 1
                        ShowStat = "PP"
                    Case 2
                        ShowStat = "Attack"
                    Case 3
                        ShowStat = "Defense"
                    Case 4
                        ShowStat = "Agility"
                    Case 5
                        ShowStat = "Luck"
                    Case 6
                        ShowStat = "Experience"
                    Case 7
                        ShowStat = "Gold"
                    Case Else
                        ShowStat = "???"
                End Select
                While ValidStat = False
                    Stat = InputBox("Enter Enemy " & ShowStat & ".", "Enemy " & ShowStat)
                    If IsNumeric(Stat) Then
                        If Stat IsNot String.Empty Or Stat IsNot Nothing Or Stat IsNot "" Then
                            ValidStat = True
                        End If
                    Else
                        ValidStat = False
                    End If
                End While
                NormalStrStats(RegulatorNS) = Stat
                RegulatorNS = RegulatorNS + 1
                ValidStat = False
            Next
        End If

        For Each Stat In EnemElementStrStats
            Select Case RegulatorES
                Case 0
                    ShowStat = "VenusLevel"
                Case 1
                    ShowStat = "VenusPower"
                Case 2
                    ShowStat = "VenusResistance"
                Case 3
                    ShowStat = "MercuryLevel"
                Case 4
                    ShowStat = "MercuryPower"
                Case 5
                    ShowStat = "MercuryResistance"
                Case 6
                    ShowStat = "MarsLevel"
                Case 7
                    ShowStat = "MarsPower"
                Case 8
                    ShowStat = "MarsResistance"
                Case 9
                    ShowStat = "JupiterLevel"
                Case 10
                    ShowStat = "JupiterPower"
                Case 11
                    ShowStat = "JupiterResistance"
                Case Else
                    ShowStat = "???"
            End Select
            While ValidElementStat = False
                Stat = InputBox("Enter Enemy's " & ShowStat & ".", "Enemy " & ShowStat)
                If IsNumeric(Stat) Then
                    If Stat IsNot String.Empty Or Stat IsNot Nothing Or Stat IsNot "" Then
                        ValidElementStat = True
                    End If
                Else
                    ValidElementStat = False
                End If
            End While
            EnemElementStrStats(RegulatorES) = Stat
            RegulatorES = RegulatorES + 1
            ValidElementStat = False
        Next

        TheStrings(0) = EnemName
        TheStrings(1) = EnemLevel
        TheStrings(2) = "<turns: " & Turns.ToString & ">"
        For n = 0 To 7
            TheStrings(n + 3) = NormalStrStats(n)
        Next
        TheStrings(11) = "<power 4: " & EnemElementStrStats(0) & ">"
        TheStrings(12) = "<resist 4: " & EnemElementStrStats(1) & ">"
        TheStrings(13) = "<e-level 4: " & EnemElementStrStats(2) & ">"
        TheStrings(14) = "<power 3: " & EnemElementStrStats(3) & ">"
        TheStrings(15) = "<resist 3: " & EnemElementStrStats(4) & ">"
        TheStrings(16) = "<e-level 3: " & EnemElementStrStats(5) & ">"
        TheStrings(17) = "<power 6: " & EnemElementStrStats(6) & ">"
        TheStrings(18) = "<resist 6: " & EnemElementStrStats(7) & ">"
        TheStrings(19) = "<e-level 6: " & EnemElementStrStats(8) & ">"
        TheStrings(20) = "<power 5: " & EnemElementStrStats(9) & ">"
        TheStrings(21) = "<resist 5: " & EnemElementStrStats(10) & ">"
        TheStrings(22) = "<e-level 5: " & EnemElementStrStats(11) & ">"

        For Each LItem In TheStrings
            Dim Modifier As String
            Select Case RegulatorLB
                Case 0
                    TempString = "Name"
                Case 1
                    TempString = "Level"
                Case 2
                    TempString = "Turns"
                Case 3
                    TempString = "HP"
                Case 4
                    TempString = "PP"
                Case 5
                    TempString = "Att"
                Case 6
                    TempString = "Def"
                Case 7
                    TempString = "Agi"
                Case 8
                    TempString = "Luck"
                Case 9
                    TempString = "Exp"
                Case 10
                    TempString = "Gold"
                Case 11
                    TempString = "VL"
                Case 12
                    TempString = "VP"
                Case 13
                    TempString = "VR"
                Case 14
                    TempString = "MeL"
                Case 15
                    TempString = "MeP"
                Case 16
                    TempString = "MeR"
                Case 17
                    TempString = "MaL"
                Case 18
                    TempString = "MaP"
                Case 19
                    TempString = "MaR"
                Case 20
                    TempString = "JL"
                Case 21
                    TempString = "JP"
                Case 22
                    TempString = "JR"
                Case Else
                    TempString = "??"
            End Select

            If TempString.Length < 10 Then
                Modifier = 10 - TempString.Length
                For n As Integer = 0 To Modifier
                    TempString = TempString & " "
                Next
            End If
            TempString = TempString & TheStrings(RegulatorLB)
            ListBox1.Items.Add(TempString)
            TempString = Nothing
            RegulatorLB = RegulatorLB + 1
        Next
        RegulatorLB = 0
    End Sub

    Private Sub Button1_Write(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim StringToWrite As String = String.Empty
        Dim filepath As String = "C:\GSEnemyStats" & " " & EnemName & ".txt"
        Dim AddEnemy = File.CreateText(filepath)

        If Not System.IO.File.Exists(filepath) Then
            System.IO.File.Create(filepath).Dispose()
        End If

        Using AddEnemy
            For Each strinn In TheStrings
                If strinn IsNot String.Empty Or Nothing Then
                    AddEnemy.WriteLine(strinn)
                End If
            Next
        End Using

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.SelectedItem = InputBox("Change value")
        TheStrings(ListBox1.SelectedIndex) = ListBox1.SelectedItem.ToString
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        GetStats()
    End Sub
End Class
   'So I'm not totally happy about the program not checking if a file of the same name already exists and renaming it. But I sorta  worked aruound that by putting the enemy name in the title.

End Class[/spoiler]
"Hear the sounds and melodies
Of rilets flowing down
They're the verlasting songs
Whispering all the time
As a warning that behind some rocks
There's a rigid grap even
Oreads fear the tread"

jjppof

I couldn't run the setup. It's telling thats missing some files.

Luna_blade

Quote from: jjppof on 07, May, 2014, 05:03:26 PM
I couldn't run the setup. It's telling thats missing some files.
I'm sorry to hear that.
Are the missing files by any chance .dll?
"Hear the sounds and melodies
Of rilets flowing down
They're the verlasting songs
Whispering all the time
As a warning that behind some rocks
There's a rigid grap even
Oreads fear the tread"

Daddy Poi's Oily Gorillas

@VS2012 Ultimate: Yeah, but you need Windows 8, I think. Sorry about that.

Quote
       For n As Integer = 0 To 22 Step 1
           Select Case n
               Case 0
                   TheStrings(n) = EnemName
               Case 1
                   TheStrings(n) = EnemLevel
               Case 2
                   TheStrings(n) = "<turns: " & Turns.ToString & ">"
               Case 3
                   TheStrings(n) = NormalStrStats(n - 3)
               Case 4
                   TheStrings(n) = NormalStrStats(n - 3)
               Case 5
                   TheStrings(n) = NormalStrStats(n - 3)
               Case 6
                   TheStrings(n) = NormalStrStats(n - 3)
               Case 7
                   TheStrings(n) = NormalStrStats(n - 3)
               Case 8
                   TheStrings(n) = NormalStrStats(n - 3)
               Case 9
                   TheStrings(n) = NormalStrStats(n - 3)
               Case 10
                   TheStrings(n) = NormalStrStats(n - 3)
               Case 11
                   TheStrings(n) = "<power 4: " & EnemElementStrStats(0) & ">"
               Case 12
                   TheStrings(n) = "<resist 4: " & EnemElementStrStats(1) & ">"
               Case 13
                   TheStrings(n) = "<e-level 4: " & EnemElementStrStats(2) & ">"
               Case 14
                   TheStrings(n) = "<power 3: " & EnemElementStrStats(3) & ">"
               Case 15
                   TheStrings(n) = "<resist 3: " & EnemElementStrStats(4) & ">"
               Case 16
                   TheStrings(n) = "<e-level 3: " & EnemElementStrStats(5) & ">"
               Case 17
                   TheStrings(n) = "<power 6: " & EnemElementStrStats(6) & ">"
               Case 18
                   TheStrings(n) = "<resist 6: " & EnemElementStrStats(7) & ">"
               Case 19
                   TheStrings(n) = "<e-level 6: " & EnemElementStrStats(8) & ">"
               Case 20
                   TheStrings(n) = "<power 5: " & EnemElementStrStats(9) & ">"
               Case 21
                   TheStrings(n) = "<resist 5: " & EnemElementStrStats(10) & ">"
               Case 22
                   TheStrings(n) = "<e-level 5: " & EnemElementStrStats(11) & ">"
               Case Else
                   TheStrings(n) = "??"
           End Select

       Next
-Do we need this in a For block?
-Do we need this in a Select Case block?

I mean, how are the blocks necessary?

PS: I haven't run the setup yet.
Golden Sun Docs: Broken Seal - The Lost Age - Dark Dawn | Mario Sports Docs: Mario Golf & Mario Tennis | Misc. Docs
Refer to Yoshi's Lighthouse for any M&L hacking needs...

Sometimes I like to compare apples to oranges. (Figuratively) ... They are both fruits, but which one would you eat more? (If taken literally, I'd probably choose apples.)
Maybe it is over-analyzing, but it doesn't mean the information is useless.


The only GS Discord servers with significance are:
Golden Sun Hacking Community
GS Speedrunning
/r/Golden Sun
GS United Nations
Temple of Kraden

Can you believe how small the Golden Sun Community is?

2+2=5 Don't believe me? Those are rounded decimal numbers. Take that, flat earth theorists! :)

Luna_blade

#47
Well I guess it makes it easier for the file writing code.
That way you don't have to loop through the countless variables. Oh wait. I could probably all assign this from the beginning you mean?

Hmmm, I am starting to see what you are saying... You propose something like this:
TheStrings(0)= EnemName
TheStrings(1)= Enemlevel
etc.
Wow. That is probably a better solution.

Just try to run the application  in the attachment.
If it doesn't work; I really got to change some export settings.
"Hear the sounds and melodies
Of rilets flowing down
They're the verlasting songs
Whispering all the time
As a warning that behind some rocks
There's a rigid grap even
Oreads fear the tread"

jjppof

Below is a summary of the errors, details of these errors are listed later in the log.
   * Activation of C:\Users\nerison\Desktop\stats\GoldenSun Enemy stats.application resulted in exception. Following failure messages were detected:
      + Downloading file:///C:/Users/nerison/Desktop/stats/GoldenSun Enemy stats.application did not succeed.
      + Could not find file 'C:\Users\nerison\Desktop\stats\GoldenSun Enemy stats.application'.
      + Could not find file 'C:\Users\nerison\Desktop\stats\GoldenSun Enemy stats.application'.
      + Could not find file 'C:\Users\nerison\Desktop\stats\GoldenSun Enemy stats.application'.

That's the error.
I don't have older .NET frameworkers (I have 4.0 4.5) and I've already heard that new ones don't replace the old ones. Perhaps is it.

Daddy Poi's Oily Gorillas

Quote from: Luna_blade on 07, May, 2014, 05:22:31 PM
Well I guess it makes it easier for the file writing code.
That way you don't have to loop through the countless variables. Oh wait. I could probably all assign this from the beginning you mean?

Hmmm, I am starting to see what you are saying... You propose something like this:
TheStrings(0)= EnemName
TheStrings(1)= Enemlevel
etc.
Wow. That is probably a better solution.

By the way, if that setup stays acting weird I guess I'll just share the .exe file.
Yes, that's what I meant. TheStrings(0)... etc.

You could still use one For block to do this, though:

For n = 0 to 7
   TheStrings(n+3) = NormalStrStats(n)
Next
Golden Sun Docs: Broken Seal - The Lost Age - Dark Dawn | Mario Sports Docs: Mario Golf & Mario Tennis | Misc. Docs
Refer to Yoshi's Lighthouse for any M&L hacking needs...

Sometimes I like to compare apples to oranges. (Figuratively) ... They are both fruits, but which one would you eat more? (If taken literally, I'd probably choose apples.)
Maybe it is over-analyzing, but it doesn't mean the information is useless.


The only GS Discord servers with significance are:
Golden Sun Hacking Community
GS Speedrunning
/r/Golden Sun
GS United Nations
Temple of Kraden

Can you believe how small the Golden Sun Community is?

2+2=5 Don't believe me? Those are rounded decimal numbers. Take that, flat earth theorists! :)

Luna_blade

"Hear the sounds and melodies
Of rilets flowing down
They're the verlasting songs
Whispering all the time
As a warning that behind some rocks
There's a rigid grap even
Oreads fear the tread"

Daddy Poi's Oily Gorillas

You are welcome.

You could also consider switching from Select Case blocks to arrays if you wanted to save a few more lines. ...from what it looks like. (The Select Case blocks that are only used for setting the string.)
Golden Sun Docs: Broken Seal - The Lost Age - Dark Dawn | Mario Sports Docs: Mario Golf & Mario Tennis | Misc. Docs
Refer to Yoshi's Lighthouse for any M&L hacking needs...

Sometimes I like to compare apples to oranges. (Figuratively) ... They are both fruits, but which one would you eat more? (If taken literally, I'd probably choose apples.)
Maybe it is over-analyzing, but it doesn't mean the information is useless.


The only GS Discord servers with significance are:
Golden Sun Hacking Community
GS Speedrunning
/r/Golden Sun
GS United Nations
Temple of Kraden

Can you believe how small the Golden Sun Community is?

2+2=5 Don't believe me? Those are rounded decimal numbers. Take that, flat earth theorists! :)

Luna_blade

So I updated the code and added a better Setup.
I hope it works! :happy:
(download still in the other post)
http://forum.goldensunhacking.net/index.php?topic=2395.msg41367#msg41367

For Joao: I got another enemy. I hope to send you a lot of these things some time later.
Also what would be better? Giving you all the stats or only the ones that go between <>?
"Hear the sounds and melodies
Of rilets flowing down
They're the verlasting songs
Whispering all the time
As a warning that behind some rocks
There's a rigid grap even
Oreads fear the tread"

jjppof

Quote from: Luna_blade on 11, May, 2014, 03:14:56 AM
So I updated the code and added a better Setup.
I hope it works! :happy:
(download still in the other post)
http://forum.goldensunhacking.net/index.php?topic=2395.msg41367#msg41367

For Joao: I got another enemy. I hope to send you a lot of these things some time later.
Also what would be better? Giving you all the stats or only the ones that go between <>?

The app is working now, thank you. However, I'm working just in mechanincs, not database. But later I'll use it.
It was for me to have posted a new video 4 days ago about psynergy and summon's resist and power buff, but my adobe premiere crashed and I'm lazy about fixing it.

jjppof

I fixed my Premiere (reinstalled hahahaha) and made the video. Here It is:

https://www.youtube.com/watch?v=7opoALi4kEg

Lord Wolfram

When I will return I will wish to see tools completed.
Right now it is farewell.

Luna_blade

So I tried implementing a bit myself:

It went pretty good. At first I thought that you couldn't copy all the <> stats in one time, but after testing I found out this is not the case.
(Thanks jjppof for introducing postimg to me  :happy:)

@jjppof: This raises another queston for me. Why do you put the <> stats in the notes? Do you have some code which defines these elemental stats? Or do they refer to Elements already in RPG maker?
Maybe the most important question: does RPG maker do anything with the stats in note at all?


I also got you a bunch of stats (in attachments). It costs about one minute to make a single file.

"Hear the sounds and melodies
Of rilets flowing down
They're the verlasting songs
Whispering all the time
As a warning that behind some rocks
There's a rigid grap even
Oreads fear the tread"

jjppof

Quote from: Luna_blade on 18, May, 2014, 02:55:30 AM
So I tried implementing a bit myself:

It went pretty good. At first I thought that you couldn't copy all the <> stats in one time, but after testing I found out this is not the case.
(Thanks jjppof for introducing postimg to me  :happy:)

@jjppof: This raises another queston for me. Why do you put the <> stats in the notes? Do you have some code which defines these elemental stats? Or do they refer to Elements already in RPG maker?
Maybe the most important question: does RPG maker do anything with the stats in note at all?


I also got you a bunch of stats (in attachments). It costs about one minute to make a single file.



Yes, I have some codes that deal with the <> things in the note that RPG Maker can't deal. The tags help me at the regex identify. RPG Maker, by it self, sees this only like a simple note.

Luna_blade

Quote from: jjppof on 18, May, 2014, 09:54:55 AM
Yes, I have some codes that deal with the <> things in the note that RPG Maker can't deal. The tags help me at the regex identify. RPG Maker, by it self, sees this only like a simple note.
Okay. That clears things up for me.
"Hear the sounds and melodies
Of rilets flowing down
They're the verlasting songs
Whispering all the time
As a warning that behind some rocks
There's a rigid grap even
Oreads fear the tread"

jjppof

And Just to clarify, now I'm working at the magnitude and focus of the skills.