ALPA
Site Kurucusu
Mesaj Sayısı : 815
Nerden : Ankara
Kayıt tarihi : 02/03/09
 Rep Puanı : 32
 |  Konu: Party CureDiasable Kontrolü.  Cuma Ara. 24, 2010 3:06 pm | |
| - Alkar demiş ki:
-
- Kod:
-
Function DiaeaseKontrol
Dim CureUye(1 to 8) as Long
CureUye(1)=ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(KO_PARTY) + &H1C8) + &H35C) + &H0) + &H26)
CureUye(2)=ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(KO_PARTY) + &H1C8) + &H35C) + &H0) + &H0) + &H26)
CureUye(3)=ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(KO_PARTY) + &H1C8) + &H35C) + &H0) + &H0) + &H0) + &H26)
If CureUye(1)=1 Then CureDisease1
If CureUye(2)=1 Then CureDisease2
If CureUye(3)=1 Then CureDisease3
End Function
4-5-6-7-8 bunlar gıbı devam ettırın.
şu tarz (KO_PARTY) + &H1C8) + &H35C) + &H0) + &H0) + &H26) her sayıda +1 arttırın.
ha şey,
KO_OFF_PARTY = &HC1ED4C
PartySayısı = &H360
PartyID = &H8
bunlar projenızde bulunsun.
________Kullanıcı İmzası_________ | |
|
