![]() |
| |||||||
| Forum Arşivi Gereksiz,Yanlış konular bu alanda toplanır. |
| |
| |
| | LinkBack | Konu Araçları | Stil |
| | #1 (permalink) |
| ArcheryBot Coder |
Oto Chaos Yapımı: Check Açın içine: Kod: If Check1.value = 1 Then Timer1.Enabled = True Else Timer1.Enabled = False End If Timer içine(Enabled False interval=100) Kod: Dim pStr As String Dim pBytes() As Byte pStr = "5F081800" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes Oto Ft Yapımı: Check Açın içine: Kod: If Check2.value = 1 Then Timer1.Enabled = True Else Timer1.Enabled = False End If Timer içine(Enabled False interval=100) Kod: Dim pBytes() As Byte Dim pStr As String pStr = Trim$("563100") ConvHEX2ByteArray pStr, pBytes SendPackets pBytes Oto Bdw Yapımı: Check açın içine: Kod: If Check4.Value = 1 Then Timer1.Enabled = True Else Timer1.Enabled = False End If Timer içine(Enabled False interval=100) Kod: Dim pBytes(1 To 12) As Byte pBytes(1) = &H5F + &H8 + &H1 + &H0 pBytes(2) = &H5F + &H8 + &H2 + &H0 pBytes(3) = &H5F + &H8 + &H3 + &H0 pBytes(4) = &H5F + &H8 + &H4 + &H0 pBytes(5) = &H5F + &H8 + &H5 + &H0 pBytes(6) = &H5F + &H8 + &H6 + &H0 pBytes(7) = &H5F + &H8 + &H7 + &H0 pBytes(8) = &H5F + &H8 + &H8 + &H0 pBytes(9) = &H5F + &H8 + &H9 + &H0 pBytes(10) = &H5F + &H8 + &HA + &H0 pBytes(11) = &H5F + &H8 + &HB + &H0 pBytes(12) = &H5F + &H8 + &HC + &H0 SendPackets pBytes Chaos 1k Hp basma yapımı: Check açın içine: Kod: If Check1.value = 1 Then Timer1.Enabled = True Else Timer1.Enabled = False End If Timer içine(Enabled False interval=100) Kod: Dim hp Dim MaxHp hp = ReadLong(KO_ADR_CHR + KO_OFF_HP) MaxHp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP) If hp < MaxHp Then CaosHpBas End If Modül içine: Kod: Public Sub CaosHpBas() Dim pStr As String Dim pBytes() As Byte pStr = "3103" + "EE7A0700" + CharID + CharID + "0000000000000000000000000000" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes Oto Party Yapımı: Check açın içine: Kod: If Check1.value = 1 Then Timer1.Enabled = True Else Timer1.Enabled = False End If Timer içine(Enabled False interval=100) Kod: Dim pStr As String Dim pBytes() As Byte pStr = "2f0201" & hexword ConvHEX2ByteArray pStr, pBytes SendPackets pBytes Copy Char yapımı: Check açın içine: Kod: If Check1.value = 1 Then WriteLong KO_ADR_CHR + KO_OFF_ID, "0" Else WriteLong KO_ADR_CHR + KO_OFF_ID, "1" End If Speed Hack yapımı: Check açın içine: Kod: If Check1.value = 1 Then WriteFloat KO_ADR_CHR + 1664, -2 Else WriteFloat KO_ADR_CHR + 1664, 1 End If 10 M Teleport Yapımı: Button açın içine: koddaki 10ları istediğiniz gibi ayarlarsınız 20-30 fln Kod: Dim VVA As Single VVA = ReadFloat(KO_ADR_CHR + KO_OFF_X) WriteFloat KO_ADR_CHR + KO_OFF_X, VVA + 10 Dim VVA2 As Single VVA2 = ReadFloat(KO_ADR_CHR + KO_OFF_Y) WriteFloat KO_ADR_CHR + KO_OFF_Y, VVA2 + 10 |
| |
| Etiket |
| bas, bdw, chaos, char, copy, hack, kodları, oto, party, speed |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Konu Araçları | |
| Stil | |
| |