1814 loadoffset

Function LoadOffsets()
KO_TITLE = Form1.Text1.Text
KO_PTR_CHR= &HC08020
KO_PTR_DLG= &HC08310
KO_PTR_PKT= &HC082DC
KO_SND_FNC = &H475390
KO_RECVHK = &hC07E94
KO_RCVHKB = &HC07E98
KO_OFF_PartyHP = &HC082FC
KO_OFF_CLASSPriest = 1496
KO_OFF_IDPriest = 1460
KO_OFF_ID = &H5B3
KO_OFF_Y = &HBC
KO_OFF_X = &HB4
KO_OFF_CLASS = 1496
KO_OFF_SWIFT = &H62A
KO_OFF_NT = &H584
KO_OFF_HP = &H5E4
KO_OFF_MAXHP = &H5E0
KO_OFF_MP = &H9A8
KO_OFF_MAXMP = &H9A4
KO_OFF_SIT = &HAE6
KO_OFF_WH = &H598
KO_OFF_Z = &HB8
KO_OFF_LUP = &HC84
KO_OFF_LUP2 = &HAF0
KO_OFF_EXP = &H948
KO_OFF_MAXEXP = &H940
KO_OFF_AP = &H988
KO_OFF_GOLD = &H810
KO_OFF_HD = &H514
KO_OFF_MOB = &H580
nation = 1412
Rbugg = &H59C
ko = Readlong(KO_PTR_CHR)
End Function