ByLetsFeeL Admin
Mesaj Sayısı : 161 Puanlar : 145801311 REP : 94 Kayıt tarihi : 02/02/10 Nerden : Nereyee...
| Konu: Seri CS Ve Seri CS Hızını Ayarlama Perş. Mart 04, 2010 5:49 pm | |
| slm arkadaşlar simdi size seri cs ve seri cs atack hızı ayalamayı anlatacam
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ı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 Label5.Caption = Text5.Text Checkleri labelleri timerleri vs... kendinize göre hazırlayın | |
|
Har Üye
Mesaj Sayısı : 2 Puanlar : 25942 REP : 0 Kayıt tarihi : 13/02/10
| Konu: Geri: Seri CS Ve Seri CS Hızını Ayarlama Salı Mart 23, 2010 6:37 pm | |
| | |
|
ByLetsFeeL Admin
Mesaj Sayısı : 161 Puanlar : 145801311 REP : 94 Kayıt tarihi : 02/02/10 Nerden : Nereyee...
| Konu: Geri: Seri CS Ve Seri CS Hızını Ayarlama Çarş. Mart 24, 2010 4:43 pm | |
| Dene.. | |
|