damian666

aah, for some strange reason, that worked ^^ could ya explain me why it works like that? why the hell does it need a empty char at the end? Thanks man :) Damian666

oooh, nono, i didnt explain that enough i think, i use Inifile as a variable the variable is passed to the sub, and then i use it further down in the sub. ``` Sub Set_IV(Index, Inifile) Call PlayerMsg(Index, "Inifile used is: " Inifile, YELLOW) Call PutVar(Inifile, "IV", "HpIv", Rand(0, 31)) Call PutVar(Inifile, "IV", "AttIv", Rand(0, 31)) Call PutVar(Inifile, "IV", "DefIv", Rand(0, 31)) Call PutVar(Inifile, "IV", "SpdIv", Rand(0, 31)) Call PutVar(Inifile, "IV", "SpaIv", Rand(0, 31)) Call PutVar(Inifile, "IV", "SpdIv", Rand(0, 31)) End Sub ``` there, that should be clearer ^^ now any idea? Damian666

``` Call PutVar(Inifile, "IV", "HpIv", Rand(0, 31)) ``` as simple as that right? well, not… doesnt insert my variables in the Ini :/ function is called, i checked it with a debug message, but after that, nothing. any ideas? Damian666

nope, autoit ^^ Damian666

well, i have found a ocx that adds png support with a control. you atleast could add that to custom menu's, is a start ^^ Damian666

well, making a good game needs source edit in my opinion :) so, that would rule it out :( Damian666

pointless… XD hell no, i am sure there are a lot of guys that wont even try E3. i wont, i barely am getting in VB6, and now i have to learn java??? WTF :( i am sticking with the old eclipse, better said, i am gonna stick with yours :) Damian666

personally, i hope he goes to DX8 png ftw XD Damian666

damn XD even the script error looked over it ^^ well, we learn everyday :) Damian666

this is very weird man… i cant seem to find anything wrong except the different index and Index. not that it matters as far as i know. i even used a up-to-date scripiteditor, no errors detected at all O.o Damian666

thats true… but for readability sake, ill make it Case select. Damian666

seems a bit weird if ya ask me. is there any speed impact on the two? is a select faster then a IF? Damian666

yeah, i just missed that ")" in the example :) thanks for all your help mate. i apriciate it. Damian666

yes, very much so :) so, if i want to retrieve some data from ini's i use GetVar, and put them in Data1 etc. and then i use: ``` Call SendDataTo(Index, "updateroster" & SEP_CHAR & cstr(data1) & SEP_CHAR & cstr(data2) & END_CHAR ``` thats right right? ^^ damian666

ok, lets get this right. ill post all that i do now. This is send from Client: ``` Sub SendGetRoster(ByVal Index As Long) Call SendData("GetRoster" & SEP_CHAR & Index & END_CHAR) End Sub ``` That is recieved by server with this: ``` Case "getroster" 'Call PutVar(App.Path & "\Test.ini", "Test", "Test", "Test") Call Packet_GetRoster(Index) Exit Sub [/code This works because the ini is created serverside. so, server calls this function: [code] Public Sub Packet_GetRoster(ByVal Index As Long) Dim Data1 Dim Data2 Dim updateroster 'Player = GetPlayerLogin(index) Data1 = GetVar(App.Path & "\Accounts\" & GetPlayerLogin(Index) & "\Roster\Slot1.ini", "Data", "Name") Data2 = GetVar(App.Path & "\Accounts\" & GetPlayerLogin(Index) & "\Roster\Slot1.ini", "Data", "Level") Call AdminMsg("Update roster packet send to" & Index & ".", BRIGHTGREEN) Call SendDataTo(Index, "updateroster") Exit Sub End Sub this returns a message stating its sedn to 1 :S so, thats where it goes wrong. and to recieve it client side: [code] ' :::::::::::::::::::::::::::::: ' :: Roster Updating :: ' :::::::::::::::::::::::::::::: If (casestring = "updateroster") Then Data1 = parse(1) Data2 = parse(2) Call AddText("Roster Update recieved.", BRIGHTGREEN) 'Call AddText("First Place:" & " " Data1 & SEP_CHAR & Data2, BRIGHTGREEN))) Exit Sub End If [/code] i am stumped XD Damian666 EDIT: You replied allready :P end char fixed it, do i put , between send data, i want to send 6 data's, so i can retrieve them on client, just a , or SEP_CHAR? thanx man, i am sorry i am such a pain XD[/code] ```

ok, quotes fixed, but it seems index returns a 1 instead of playername :S i thought Index was determined by server? Damian666

gah XD not that easy it seems :P it is send from server, but then it just doesn't do anything… this is send from server: ``` Call AdminMsg("Update roster packet send", WHITE) Call SendData(Index, "updateroster") ``` and this i use to receive it: ``` ' :::::::::::::::::::::::::::::: ' :: Roster Updating :: ' :::::::::::::::::::::::::::::: If (casestring = "updateroster") Then Data1 = parse(1) Data2 = parse(2) Call AddText("Roster Update recieved.", BRIGHTGREEN) 'Call AddText("First Place:" & " " Data1 & SEP_CHAR & Data2, BRIGHTGREEN))) Exit Sub End If ``` i know it doesn't send the data, but it should at least say the text message right? well, it doesn't XD btw, even worse, if i use SendData it crashes, it wants SendDataTo for a strange reason :P Damian666

ooh, OK, that should be doable ^^ thanks flash, your my coding God :) Damian666

oh yeah, that so fixed it :D now, a related question, i never tried to recieve teh packets on client. how does that work? damian666

damn… i should have known its that easy XD and it always gets the player with index? really? i never knew that... well, again i learned ^^ ill try it out now, BRB Damian666

i placed it in the sub handledata thats the place that deals with the send packets right? :S Damian666

OK, so i have a little problem here, and i am sure its just me… XD i use this in Client: ``` Sub SendGetRoster(ByVal Index As Long) Call SendData("GetRoster" & SEP_CHAR & Index & END_CHAR) End Sub ``` and to test it, i use this on server: ``` Case "GetRoster" Call PutVar(App.Path & "\Test.ini", "Test", "Test", "Test") 'Call Packet_GetRoster(Index) Exit Sub ``` but, client gets disconnected with invalid packet send… any help? Thanks in advance guys ^^ Damian666

still doesnt work, maybe unnown can fix it? Damian666

well, i haven't seen any of those… give me a sample to work with, and i will see what i can do for ya ^^ Damian666

and where exactly do i put this? you didnt specify that ya knwo XD Damian666