sathaporn12 / tsprivateserver

Automatically exported from code.google.com/p/tsprivateserver
0 stars 1 forks source link

Adding Table Definition for TS Private tables #6

Open GoogleCodeExporter opened 9 years ago

GoogleCodeExporter commented 9 years ago
adding table def. for friendly coding...

Original issue reported on code.google.com by Kan...@gmail.com on 21 Feb 2008 at 4:43

Attachments:

GoogleCodeExporter commented 9 years ago
[deleted comment]
GoogleCodeExporter commented 9 years ago
KanBaw, nanti kamu yang bertugas ubah modDataDef.bas. Untuk form.frm bantu2 
cari 
bagian mana yang harus diubah. ^^

Original comment by sunart...@gmail.com on 21 Feb 2008 at 6:35

GoogleCodeExporter commented 9 years ago
Ini semua buat versi 0.0.0.32++ <= belom kelar di bikin
++ sudah ditambahkan modul u 
modDataDef.bas dan code berikut :

            With rs
                 .Fields(IDGAME_FLD_ID).Value = idply(i)
                 .Fields(IDGAME_FLD_PASSWORD).Value = Pass
                 .Fields(IDGAME_FLD_NICK).Value = nickply(i)
                 .Fields(IDGAME_FLD_AGI).Value = agi
                 .Fields(IDGAME_FLD_ATK).Value = atk
                 .Fields(IDGAME_FLD_HPX).Value = hpx
                 .Fields(IDGAME_FLD_SPX).Value = spx
                 .Fields(IDGAME_FLD_INT).Value = inte
                 .Fields(IDGAME_FLD_DEF).Value = def
                 .Fields(IDGAME_FLD_LVL).Value = 1
                 .Fields(IDGAME_FLD_TEXP).Value = 6
                 .Fields(IDGAME_FLD_MAP).Value = 10816
                 .Fields(IDGAME_FLD_X).Value = 442
                 .Fields(IDGAME_FLD_Y).Value = 758
                 .Fields(IDGAME_FLD_GUILD).Value = 0
                 .Fields(IDGAME_FLD_SUMMON).Value = 0
                 .Fields(IDGAME_FLD_ELEMEN).Value = elemen
                 .Fields(IDGAME_FLD_DEWASIAL).Value = 0
                 .Fields(IDGAME_FLD_EXPMEDITASI).Value = 0
                 .Fields(IDGAME_FLD_LVLMEDITASI).Value = 1
                 .Fields(IDGAME_FLD_KODERAHASIA).Value = rahasia
                 .Fields(IDGAME_FLD_EQ1).Value = 0
                 .Fields(IDGAME_FLD_EQ2).Value = 19737
                 .Fields(IDGAME_FLD_EQ3).Value = 0
                 .Fields(IDGAME_FLD_EQ4).Value = 0
                 .Fields(IDGAME_FLD_EQ5).Value = 0
                 .Fields(IDGAME_FLD_EQ6).Value = 0
                 .Fields(IDGAME_FLD_WARNA).Value = warna
                 .Fields(IDGAME_FLD_WARNA2).Value = warna2
                 .Fields(IDGAME_FLD_STATUS).Value = 1
                 .Fields(IDGAME_FLD_KELAMIN).Value = kelamin
                 .Fields(IDGAME_FLD_KEQ1).Value = 0
                 .Fields(IDGAME_FLD_KEQ2).Value = 1
                 .Fields(IDGAME_FLD_KEQ3).Value = 0
                 .Fields(IDGAME_FLD_KEQ4).Value = 0
                 .Fields(IDGAME_FLD_KEQ5).Value = 0
                 .Fields(IDGAME_FLD_KEQ6).Value = 0
            End With

Tq atas perbaikannya ^^

Original comment by sunart...@gmail.com on 22 Feb 2008 at 2:59