ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801386
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
 |  Konu: Seri CS - Attack Hızını Ayarlama  Paz Şub. 21, 2010 4:56 pm | |
| Evet arkadaşlar şimdi seri cs yapımı ve bu seri cs nin atack hızını ayarlamayı yapıcaz..
1 adet check box açın ve bu kodu girin (caption seri cs)
- Kod:
-
Private Sub Check26_Click()
If Check26.Value = 1 Then
Timer5.Enabled = True
Else
Timer5.Enabled = False
End If
End Sub
1 Adet Timer açın bu kodu girin. enabled= false interwal = 1350
- Kod:
-
Private Sub Timer5_Timer()
On Error Resume Next
Dim pStr As String
Dim pBytes() As Byte
Dim skillid As String
Dim AttackID1 As String
Dim AttackID2 As String
Dim AttackID3 As String
Dim IDs As Long
Dim ID As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String
Dim attackskill As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
attackid = Class & 552
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)
ID = AlignDWORD(IDs)
ID1 = Strings.Mid(ID, 3, 2)
ID2 = Strings.Mid(ID, 5, 2)
MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)
attackskill = Hex(attackid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "5D020600B6019BFF0000F0000A00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3102" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + "FFFF" + MobXID1 + MobXID2 + "5D020600B6019BFF0000F0000A00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "0000000000000000000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Seri Cs Atack hızını ayarlama:
1 adet label açın Captionuna Seri cs atack hızı filan kendiniz bişiler yazın..
1 adet text box açın (oraya atack hızı sayısı girilcek)
1 adet command açın şu kodu yazın:
- Kod:
-
Timer5.Interval = Text15
Timer5 seri cs nin timerıydı Text15 ise atack hızı sayısı girilcek text..
TİMER CHECK VS. HEPSİNİN NUMARALARINI KENDİNİZE GÖRE AYARLAYIN..
ByLetsFeeL
Bi Tşk. Yeter... | |
|
burak
Moderator
Mesaj Sayısı : 26
Puanlar : 26152
REP : 0
Kayıt tarihi : 08/02/10
Yaş : 28
Nerden : Konya
| | Konu: Geri: Seri CS - Attack Hızını Ayarlama Paz Şub. 21, 2010 5:57 pm | |
| | |
|
