ByLetsFeeL Admin
Mesaj Sayısı : 161 Puanlar : 145801161 REP : 94 Kayıt tarihi : 02/02/10 Nerden : Nereyee...
| Konu: Caos Atak - Buyrun Çarş. Şub. 03, 2010 1:21 pm | |
| Kod: Public Function MobID() Dim pPtr As Long Dim GetMobID As String Dim GetMBID As Long pPtr = Readlong(KO_CHR_OFF) GetMBID = Readlong(pPtr + OFF_MOB) 'H580 GetMobID = AlignDWORD(GetMBID) MobID = Strings.Mid(GetMobID, 1, 4) End Function
Kod: Public Function CharID() Dim pPtr As Long Dim GetCharID As String Dim GetCHID As Long pPtr = Readlong(KO_OFF_CHR) ' HC05EE8 GetCHID = Readlong(pPtr + KO_ID_OFF) '&H5B3 GetCharID = AlignDWORD(GetCHID) CharID = Strings.Mid(GetCharID, 3, 4) End Function Kayıtlı
ALINTIDIR... ByLetsFeeL Bi Teşekkür.... | |
|
XQW100 Üye
Mesaj Sayısı : 2 Puanlar : 25826 REP : 0 Kayıt tarihi : 07/02/10
| Konu: Geri: Caos Atak - Buyrun Paz Şub. 07, 2010 8:57 pm | |
| bunun için form a neler ekleyeyim ? | |
|