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

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

yeah, i know its 0 indexed man ^^ still nothing. 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

``` '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

aaah, that could be it ^^ ill try, thanx guys, ill be back if it doesnt work XD 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

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

anybody?

sheesh… it doesnt work afterall mate :( i thought it would, becaus it compiled great, but it still shows O.o Damian666

oh yeah, that seems to work ^^ thanx a lot dude :) Damian666

good idea, but not the solution i want to be honest, ^^ i mean, WTF, why the hell cant we hide them??? for now i resricted acces on the buttons themself, they check if its me, and if so, work, else not xD but thanx man :) Damian666

oooh, me like dude, me like very much even ^^ ill be waiting for this :) Damian666

o, so i noticed the game hangs on mapswitching sometimes, and totally random :( is this a known issue, and if so, is there a fix for it? is it a problem with the server that doesn't send all data or what? does somebody know anything about it? Damian666

oh great man, you read my mind ^^ can ya also provide a walktru to put it in the source? i have edited mine so much… would mean 2 months of work gone :) great job dude ^^ Damian666

ah yes, thats a great idea man XD that would open up so much possibilities ^^ Damian666

what about plugging this in a 2.7 source altogether? i personally think its better to have only running 1 server. could you do it? Damian666

even better, do what i did. drop the old soundsystem in total, and inplant FMod system in it ^^ i have been able to do it, so… XD everybody could do it then i think. Damian666

you cant edit teh source with that man. you need VB6, nothing else works. Damian666

nope, visible=true/false hides or shows the whole tabcontrol. not a certain page :( and that line is commented out mate XD Damian666

ok, so, i would like to include a tab with commands only i can use. ``` Private Sub Form_Load() If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then If GetPlayerName(MyIndex) = "damian666" Then 'frmAdmin.SSTab1.Controls.add (SSTab1.Coder) Else SSTab1.Controls.remove (SSTab1.Coder(1)) End If End Sub ``` doesnt work though :/ anybody has a idea how i would hide and unhide the tabpage? thanx in advance guys Damian666

well, i think i have to try then huh ^^ would open up some oportunities anyway XD Damian666

well, i am actually scripting one right now. with EV, IV, exp all the stuff XD but if you know how, mayb eyou can offer me some help? i am wondering about the wilp pokemon, how the hell do i set their stats for the wild battle? how to determine them? but, looking good ^^ personally i am more the new style, but gold IS classic ^^ Damian666

really? also never knew that either XD so, we can basicly use all VBScript functions then? Damian666

damn ^^ never knew that man. thanx for the clear explanation :D Damian666