[External Editors]

ahh ok :P

[External Editors]

i like d idea, jus one question

would dis make the client run faster?

[Eclipse Revolution (Temp Name, maybe)]

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

[Damn ReadINI can't properly read values]

isnt meant to be like dis, anywayz dat how i would hav done it

ReadINI("START", "MaxLv", App.Path & "\DQ\DQ_" & Number & ".ini")

[Server Client Related]

well im out of ideas :P

[Server Client Related]

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

```

[Server Client Related]

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

[Server Client Related]

u hav to parse d data

data = parse(1)
data1 = parse(2)

and so on

[Server Client Related]

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

[Server Client Related]

u can use anything i was using data as an example

[Server Client Related]

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

[Server Client Related]

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)

[Server Client Related]

use GetVar to get data from an .ini file

GetVar(File As String, Header As String, Var As String)

[PutVar and creating INIs]

dis should help

PutVar(File As String, Header As String, Var As String, Value As String)

[Schools is out!]

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

[Eclipse Revolution (Temp Name, maybe)]

@jcsnider:

> @ Zesh: 1 competition between games is enough…..

:P well gl :P

[Eclipse Revolution (Temp Name, maybe)]

k, i also feel like makin an eclipse engine edit

[Eclipse Revolution (Temp Name, maybe)]

good luck, so wat about neon

[Psionics]

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

[Mapper in Only one map?]

try

/houseeditor

[VB6 Portable]

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

[MkDir and CreateIni]

use

WriteINI

[Sub CheckAnswers()]

try Else

[Client wont recieve the Packet i send :/]

ye i noticed but wouldnt it be

packet = packet & SEP_CHAR & GetPlayerName(i) & SEP_CHAR & END_CHAR

[Source code editing not working for me]

u hav to register the dll files or something like that