Loading Up..

[Tony]

Problem: Doesn't load up (or save) individually as a different number

Code:

DefaultMove(1 To 3) As Byte
    
    LearnMove(1 To 10) As Byte
    LearnLevel(1 To 10) As Byte

Code:

For i = 1 To 3
        Pokemon(n).DefaultMove(i) = Val(Parse(9))
    Next i
    
    For i = 1 To 10
        Pokemon(n).LearnMove(i) = Val(Parse(10))
        Pokemon(n).LearnLevel(i) = Val(Parse(11))
    Next i

[William]

Where did you put:

Code:

DefaultMove(1 To 3) As Byte
  
    LearnMove(1 To 10) As Byte
    LearnLevel(1 To 10) As Byte

[Tony]

in my PokémonRec

Is it because I can't send my packets this way?

With Pokemon(PokemonNum)
For I = 1 To 3
For n = 1 To 10
Packet = "SAVEPOKEMON" & SEP_CHAR & PokemonNum & SEP_CHAR & Trim(.Name) & SEP_CHAR & .Sprite & SEP_CHAR & .spritesheet & SEP_CHAR & .Type1 & SEP_CHAR & .Type2 & SEP_CHAR & .Evolve & SEP_CHAR & .EvolveLevel & SEP_CHAR & .DefaultMove(I) & SEP_CHAR & .LearnMove(n) & SEP_CHAR & .LearnLevel(n) & SEP_CHAR & END_CHAR
Next n
Next I
End With

[Mattyw]

in my PokémonRec

Is it because I can't send my packets this way?

With Pokemon(PokemonNum)
For I = 1 To 3
For n = 1 To 10
Packet = "SAVEPOKEMON" & SEP_CHAR & PokemonNum & SEP_CHAR & Trim(.Name) & SEP_CHAR & .Sprite & SEP_CHAR & .spritesheet & SEP_CHAR & .Type1 & SEP_CHAR & .Type2 & SEP_CHAR & .Evolve & SEP_CHAR & .EvolveLevel & SEP_CHAR & .DefaultMove(I) & SEP_CHAR & .LearnMove(n) & SEP_CHAR & .LearnLevel(n) & SEP_CHAR & END_CHAR
Next n
Next I
End With

Code:

& SEP_CHAR & END_CHAR

What?

[Tony]

What about it?..

[Coke]

What the hell are you doing to that poor packet?!

[Tony]

What the hell are you doing to that poor packet?!

Waah1?!!? So so so I would have to type it out 1 to 10?

[Coke]

I can see what you are doing,

If you MUST do it that way at least put the loop outside of the packet event procedure, have the loop where the packet event proc~ is called and just feed the variable into it.

[Kraft]

Code:

Dim i As Long
Dim n As Long

   Packet = "SAVEPOKEMON" & SEP_CHAR & PokemonNum & SEP_CHAR & Trim(Pokemon(PokemonNum).Name) & SEP_CHAR & Pokemon(PokemonNum).Sprite & SEP_CHAR & Pokemon(PokemonNum).spritesheet & SEP_CHAR & Pokemon(PokemonNum).Type1 & SEP_CHAR & Pokemon(PokemonNum).Type2 & SEP_CHAR & Pokemon(PokemonNum).Evolve & SEP_CHAR & Pokemon(PokemonNum).EvolveLevel & SEP_CHAR

    For I = 1 To 3
       Packet = Packet & Pokemon(PokemonNum).DefaultMove(I) & SEP_CHAR
    Next I
    For n = 1 To 10
       Packet = Packet & Pokemon(PokemonNum).LearnMove(n) & SEP_CHAR & Pokemon(PokemonNum).LearnLevel(n)
    Next n

    Packet = Packet & END_CHAR
    SendData(Packet)

Fixed... I guess.

[William]

Just put a "sendata packet" below this:

Code:

Packet = "SAVEPOKEMON" & SEP_CHAR & PokemonNum & SEP_CHAR & Trim(.Name) & SEP_CHAR & .Sprite & SEP_CHAR & .spritesheet & SEP_CHAR & .Type1 & SEP_CHAR & .Type2 & SEP_CHAR & .Evolve & SEP_CHAR & .EvolveLevel & SEP_CHAR & .DefaultMove(I) & SEP_CHAR & .LearnMove(n) & SEP_CHAR & .LearnLevel(n) & SEP_CHAR & END_CHAR

[Kraft]

Just put a "sendata packet" below this

Guess this is not what he needs. He wants to save an edited Pokémon.
Lots of DefaultMove(), LearnMove() and LearnLevel() in only ONE Pokémon (and packet).
The code I posted does it.

Sorry for bad English.

[GIAKEN]

What the hell are you doing to that poor packet?!

Haha I lol'd.

[Matt]

Kraft hit it on the head.

[Kraft]

Kraft hit it on the head.

Sorry, but what does it means?

[Tony]

I can see what you are doing,

If you MUST do it that way at least put the loop outside of the packet event procedure, have the loop where the packet event proc~ is called and just feed the variable into it.

But wouldn't that be sending amounts of packets?

[Coke]

Looked like that was what you were doing until Kraft cleaned it up.

[Tony]

Looked like that was what you were doing until Kraft cleaned it up.

Didn't understand The "For" command as much as I do right now ">.>

Is this the proper way to receive it

For i = 1 To 3
Pokemon(n).DefaultMove(i) = Val(Parse(i + 8))
Next i

For i = 1 To 10
Pokemon(n).LearnMove(i) = Val(Parse(i + 9))
Pokemon(n).LearnLevel(i) = Val(Parse(i + 10))
Next i

edit;

Code:

For i = 1 To 3
        Pokemon(n).DefaultMove(i) = Val(Parse(i + 8))
    Next i
    
    For i = 1 To 10
        Pokemon(n).LearnMove(i) = Val(Parse((i * 2) + 11))
        Pokemon(n).LearnLevel(i) = Val(Parse((i * 2) + 11))
    Next i

[Matt]

Kraft hit it on the head.

Sorry, but what does it means?

Means you hit the nail on the head perfectly. You showed him exactly what was wrong with his code.

[Kraft]

Sorry, but what does it means?

Means you hit the nail on the head perfectly. You showed him exactly what was wrong with his code.

Oh, I see!
Glad it's good stuff. Thank you!

[Tony]

Me too