PD

hold down shift to run

its not really dat hard, all u gotta 2 do iz make d server retrieve info from inis and send it across 2 d client were everythin is parsed and showd on d battle form dere might be a better way of doing it but im using inis files

ahh ok :P

i like d idea, jus one question would dis make the client run faster?

dats wat happens wen u download jc's programs :P lookin good, could u tell me how to make d npc chatbox thing it will be great in my game

isnt meant to be like dis, anywayz dat how i would hav done it ReadINI("START", "MaxLv", App.Path & "\DQ\DQ_" & Number & ".ini")

well im out of ideas :P

try dis ``` Case "rostrequest" Dim Packet_Roster As String Dim Data0, Data1, Data2, Data3, Data4, Data5, Data6, Data7, Data8, Data9, Data10, Data11 As String Data0 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok1", "Poke") Data1 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok2", "Poke") Data2 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok3", "Poke") Data3 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok4", "Poke") Data4 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok5", "Poke") Data5 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok6", "Poke") Data6 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok1", "Shiny") Data7 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok2", "Shiny") Data8 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok3", "Shiny") Data9 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok4", "Shiny") Data10 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok5", "Shiny") Data11 = GetVar(App.Path & "\Player\" & GetPlayerName(Index) & ".ini", "Pok6", "Shiny") Packet_Roster = "Packet_Roster" & SEP_CHAR & Index & SEP_CHAR & Data0 & SEP_CHAR & Data1 & SEP_CHAR & Data2 & SEP_CHAR & Data3 & SEP_CHAR & Data4 & SEP_CHAR & Data5 & SEP_CHAR & Data6 & SEP_CHAR & Data7 & SEP_CHAR & Data8 & SEP_CHAR & Data9 & SEP_CHAR & Data10 & SEP_CHAR & Data11 & SEP_CHAR & END_CHAR Call SendDataTo(Index, Packet_Roster) Exit Sub ``` ``` If casestring = "Packet_Roster" Then Dim Data0, Data1, Data2, Data3, Data4, Data5, Data6, Data7, Data8, Data9, Data10, Data11 As String Data0 = parse(1) Data1 = parse(2) Data2 = parse(3) Data3 = parse(4) Data4 = parse(5) Data5 = parse(6) Data6 = parse(7) Data7 = parse(8) Data8 = parse(9) Data9 = parse(10) Data10 = parse(11) Data11 = parse(12) If Data7 = 1 Then frmRoster.ripOmegaImage1.Picture = LoadPicture(App.Path & "\DKData\Pokemon\Front\Shiny\" & Parse(1) & ".bmp") Else frmRoster.ripOmegaImage1.Picture = LoadPicture(App.Path & "\DKData\Pokemon\Front\Normal\" & Parse(1) & ".bmp") End If If Data8 = 1 Then frmRoster.ripOmegaImage2 = LoadPicture(App.Path & "\DKData\Pokemon\Front\Shiny\" & Parse(2) & ".png") Else frmRoster.ripOmegaImage2 = LoadPicture(App.Path & "\DKData\Pokemon\Front\Normal\" & Parse(2) & ".png") End If If Data9 = 1 Then frmRoster.ripOmegaImage3 = LoadPicture(App.Path & "\DKData\Pokemon\Front\Shiny\" & Parse(3) & ".png") Else frmRoster.ripOmegaImage3 = LoadPicture(App.Path & "\DKData\Pokemon\Front\Normal\" & Parse(3) & ".png") End If If Data10 = 1 Then frmRoster.ripOmegaImage4 = LoadPicture(App.Path & "\DKData\Pokemon\Front\Shiny\" & Parse(4) & ".png") Else frmRoster.ripOmegaImage4 = LoadPicture(App.Path & "\DKData\Pokemon\Front\Normal\" & Parse(4) & ".png") End If If Data11 = 1 Then frmRoster.ripOmegaImage5 = LoadPicture(App.Path & "\DKData\Pokemon\Front\Shiny\" & Parse(5) & ".png") Else frmRoster.ripOmegaImage5 = LoadPicture(App.Path & "\DKData\Pokemon\Front\Normal\" & Parse(5) & ".png") End If If Data12 = 1 Then frmRoster.ripOmegaImage6 = LoadPicture(App.Path & "\DKData\Pokemon\Front\Shiny\" & Parse(6) & ".png") Else frmRoster.ripOmegaImage6 = LoadPicture(App.Path & "\DKData\Pokemon\Front\Normal\" & Parse(6) & ".png") End If End If ```

if ur using d normal image control or picture box, dey dont support .png images

u hav to parse d data data = parse(1) data1 = parse(2) and so on

Packet_Roster = "Packet_Roster" & SEP_CHAR & Index & SEP_CHAR & Data & SEP_CHAR & Data1 & SEP_CHAR & Data2 & SEP_CHAR & Data3 & SEP_CHAR & Data4 & SEP_CHAR & Data5 & SEP_CHAR & Data6 & SEP_CHAR & Data7 & SEP_CHAR & Data8 & SEP_CHAR & Data9 & SEP_CHAR & Data10 & SEP_CHAR & Data11 & SEP_CHAR & END_CHAR

u can use anything i was using data as an example

Data = GetVar(File As String, Header As String, Var As String) Data1 = GetVar(File As String, Header As String, Var As String) Dim Packet as string Packet = "" & Sep_Char & index & Sep_Char & Data & Sep_Char & Data1 & Sep_Char & End_Char Call SendDataTo(index, Packet) all u got 2 do iz use Sep_Char to seperate the data/variables

Data = GetVar(File As String, Header As String, Var As String) Dim Packet as string Packet = "" & sep_char & index & sep_char & data & sep_char & end_char call senddatato(index, Packet)

use GetVar to get data from an .ini file GetVar(File As String, Header As String, Var As String)

dis should help PutVar(File As String, Header As String, Var As String, Value As String)

i got my SATS to do den on july 17th school finishes

@jcsnider: > @ Zesh: 1 competition between games is enough….. :P well gl :P

k, i also feel like makin an eclipse engine edit

good luck, so wat about neon

i still hav d file on my computer, guess ill giv it another shot

try /houseeditor

in ur vb6 fplder there should be a program call vb6cli, run that extract the files to sys32 or something like dat and it should work

use WriteINI

try Else