Here we go again… -.- (Solved)

[damian666]

OK, back with another puzzling script O.o

```
Sub Set_Stats(Index, Inifile)
'Set variables
Pokemon = GetVar(Inifile & "", "Data", "Name")

'Calculate HP
IV = GetVar(Inifile & "", "IV", "HpIv")
EV = GetVar(Inifile & "", "EV", "HpEv")
Level = GetVar(Inifile & "", "Data", "Level")
Base = GetVar("PokeSystem\Pokemon\" & Pokemon & ".ini", "Base", "HP")
    HP = int((2 * Base + IV + EV) * Level / 100 + Level + 10)
    Call PutVar(Inifile & "", "Stats", "HP", HP)
    Call PlayerMsg(Index, Pokemon & " has " & HP & " in HP stats.", YELLOW)
    Call PlayerMsg(Index, "Values " & IV & " " & EV & " " & Base & " " & Level & ".", YELLOW)
End Sub

```
whenever i execute this sub, it runs until the putvar, after that… nothing XD
when i comment it out, all works.

also please note, the variable Inifile is a path to a inifile, like c:\test.ini
so, anybody has any ideas?

thanks in advance guys.

Damian666

[cheatking]

You have an un needed ) in your putvar.
Call PutVar(Inifile & ""), "Stats", "HP", HP)
Call PutVar(Inifile & "", "Stats", "HP", HP)

[damian666]

O.o… damn it

thats what ya get for looking at scripts for 5 hours ^^
ill try and report back

Damian666

damn, no man, although it was a mistake, it still doesnt work, it should display the last messages, as debug sort of speak, but nothing :/

any other ideas?

Damian666

[Bobosk]

you're not diming your variables

[damian666]

aaah, that could be it ^^

ill try, thanx guys, ill be back if it doesnt work XD

Damian666

[damian666]

```
'Stat Calculations
Sub Set_Stats(Index, Inifile)
'Declare variables
Dim Pokemon
Dim IV
Dim EV
Dim Level
Dim Base
Dim HP

'Set Variables
Pokemon = GetVar(Inifile & "", "Data", "Name")
IV = GetVar(Inifile & "", "IV", "HpIv")
EV = GetVar(Inifile & "", "EV", "HpEv")
Level = GetVar(Inifile & "", "Data", "Level")
Base = GetVar("PokeSystem\Pokemon\" & Pokemon & ".ini", "Base", "HP")

'Calculate HP
    HP = int((2 * Base + IV + EV) * Level / 100 + Level + 10)

    Call PutVar(Inifile & "", "Stats", "HP", HP)
    Call PlayerMsg(Index, Pokemon & " has " & HP & " in HP stats.", YELLOW)
    Call PlayerMsg(Index, "Values " & IV & " " & EV & " " & Base & " " & Level & ".", YELLOW)
End Sub

```
now i have this, still nothing :/

any other suggestions?

Damian666

[Bobosk]

try replacing Base with something else, cause when i stick it in a VBscript editor, it shows up blue..

[damian666]

nope… goddamn XD
still the same, whenever i comment out the putvar, it works, i un-comment it, bam, its broken...

what the hell is this for joke? I'm getting frustrated ^^

thanks for helping mate :)

Damian666

[Bobosk]

Bleh, i didn't even notice the putvar, you're trying to use a variable "Path" that's not defined, anywhere… in the sub

[damian666]

ok, still stuck.
so i decided to make it somewhat easyer, just to see if t worked.

```
'Set Variables
Player = GetPlayerLogin(Index)
Pokemon = GetVar("Accounts\" & Player & "\Battle\Wild.ini", "Data", "Name")
IV = GetVar("Accounts\" & Player & "\Battle\Wild.ini", "IV", "HpIv")
EV = GetVar("Accounts\" & Player & "\Battle\Wild.ini", "EV", "HpEv")
Level = GetVar("Accounts\" & Player & "\Battle\Wild.ini", "Data", "Level")
BaseStats = GetVar("PokeSystem\Pokemon\" & Pokemon & ".ini", "Base", "HP")

'Calculate HP
HP = int((2 * BaseStats + IV + EV) * Level / 100 + Level + 10)

Call PutVar("Accounts\" & Player & "\Battle\Wild.ini", "Stats", "HP", HP)
Call PlayerMsg(Index, Pokemon & " has " & HP & " in HP stats.", YELLOW)
Call PlayerMsg(Index, "Values " & IV & " " & EV & " " & BaseStats & " " & Level & ".", YELLOW)

```
and guess what… still nothing :/
still stops working if i use PutVar O.o

anybody?

Damian666

[Akselj]

You need a \ before battle, else you will have to make one folder for each account.

[damian666]

ah no, thats a typo, it actually points to a made folder,
thats not it, not to mention it all works if i comment out the putvar line O.o

so, i guess the problem lies there, but i cant see anything wrong there

Damian666

[Akselj]

But you can't have typos in your scripts…

[damian666]

nono, i mean its a typo in the forum ^^
in the posted code, not in my script :)

but keen eyes mate xD

damian666

[Akselj]

@damian666:

> but keen eyes mate xD

Thanks :D

I can't see anything wrong in that PutVar except for that…

[damian666]

yeah, thast what i thought O.o

so weird, i test the first IF, so i call it with wild being 0
and it all runs, except the putvar, after that, teh messages should show, but they dont …

so, that means it stops at putvar xD

damian666

[Bobosk]

Call PutVar("Accounts\" & Player & "\Battle\Wild.ini", "Stats", "HP", HP & "")
try that, just for funsies..

[damian666]

WTF xD

lol, that seemed to work man ^^
the messages after the PutVar are now displayed, i cant check if the variable is really written, because server is not where i am, but tomorrow i can check that too.

but, it seems to work man ^^
all who have helped me, thanks a bunch, i was stuck with my battle system, and now i can finally continue :)

thank you eclipse ^^

Damian666

[damian666]

just a update, i checked teh server for teh variable, and it wrote it ^^

so, this is solved :)

Damian666