I I Metin2 Pvp - Knight Pvp - Knight I I

Would you like to react to this message? Create an account in a few clicks or log in to continue.

I I Metin2 Pvp - Knight Pvp - Knight I I


    (Koxp yapımcıları için) Warior manasız atack yapma buyrun içeri

    тнку ¢нσ¢υq
    тнку ¢нσ¢υq
    тнку ¢нσ¢υq
    Co-AdminCo-Admin


    Mesaj Sayısı : 137
    Rep Gücü : 10351
    Başarı Sistemi : 1
    Kayıt tarihi : 20/05/10
    Yaş : 31
    Nerden : Nereye =)
    • Post n°1

    (Koxp yapımcıları için) Warior manasız atack yapma buyrun içeri Empty (Koxp yapımcıları için) Warior manasız atack yapma buyrun içeri

    Mesaj tarafından тнку ¢нσ¢υq Cuma Mayıs 21, 2010 8:02 pm

    erekli olanlar :
    1 adet listbox
    2 adet check box(styl:graphical)
    2 adet timer

    1 adet check box açın caption: Atack başlat içine şunu yapıştırın :
    Kod:
    Private Sub Check9_Click()
    If Check9.value = 1 Then
    Check10.value = 0 ' bu Manuel Seçimin Checki
    tmrWrZ.Enabled = True
    tmrWatak.Enabled = True
    Check9.Caption = "Atack Durdur"
    Else
    Check9.Caption = "Atack Başlat"
    tmrWrZ.Enabled = False
    tmrWatak.Enabled = False
    End If
    End Sub



    1 tane daha check açın caption: Manuel Seçim
    2 adet timer açın
    birinin name'i (caption deil)=tmrWatak İnterval=1300 Enabled=False
    dierinin name'i( Caption deil ) =tmrWrZ İnterval = 50 Enabled=False



    tmrWatak timerının kodu:Kod:
    Private Sub tmrWatak_Timer()
    Dim ListedenItemOku
    Dim WR As Long
    ListedenItemOku = List2.Text
    Select Case ListedenItemOku
    Case "Hash"
    SkillWR ("500")
    Case "Hoodwink"
    SkillWR ("505")
    Case "Shear"
    SkillWR ("510")
    Case "Pierce"
    SkillWR ("515")
    Case "Leg Cutting"
    SkillWR ("520")
    Case "Carving"
    SkillWR ("525")
    Case "Sever"
    SkillWR ("530")
    Case "Prick"
    SkillWR ("535")
    Case "Multiple Shock"
    SkillWR ("540")
    Case "Cleave"
    SkillWR ("545")
    Case "Mangling"
    SkillWR ("550")
    Case "Thrust"
    SkillWR ("555")
    Case "Sword Aura"
    SkillWR ("557")
    Case "Sword Dancing"
    SkillWR ("560")
    Case "Howling Sword"
    SkillWR ("570")
    Case "Blooding"
    SkillWR ("575")
    Case "Hell Blade"
    SkillWR ("580")
    End Select
    End Sub



    tmrWrZ Timerının kodu:
    Kod:
    Tuş yolla("z")
    SendkeyK DIK_Z



    Modüle eklenecek olanlar:
    Kod:
    Public Sub dvrwarior1()
    Form1.List2.AddItem ("Hash")
    Form1.List2.AddItem ("Hoodwink")
    Form1.List2.AddItem ("Shear")
    Form1.List2.AddItem ("Pierce")
    Form1.List2.AddItem ("Leg Cutting")
    Form1.List2.AddItem ("Carving")
    Form1.List2.AddItem ("Sever")
    Form1.List2.AddItem ("Prick")
    Form1.List2.AddItem ("Multiple Shock")
    Form1.List2.AddItem ("Cleave")
    Form1.List2.AddItem ("Mangling")
    Form1.List2.AddItem ("Thrust")
    Form1.List2.AddItem ("Sword Aura")
    Form1.List2.AddItem ("Sword Dancing")
    Form1.List2.AddItem ("Howling Sword")
    Form1.List2.AddItem ("Blooding")
    Form1.List2.AddItem ("Hell Blade")
    End Sub



    2. Olarak:
    Kod:
    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 & WR
    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 + "0000000000000000000000000D00")
    ConvHEX2ByteArray pStr, pBytes
    SendPackets pBytes
    pStr = ("3102" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + "FFFF" + MobXID1 + MobXID2 + "0D020600B7019BFF0000F0000F00")
    ConvHEX2ByteArray pStr, pBytes
    SendPackets pBytes
    pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "0D020600B7019BFF0000F0000F00")
    ConvHEX2ByteArray pStr, pBytes
    SendPackets pBytes
    End Sub



    EN ÖNEMLİ YER YÜKLE BUTONUNA BUNU YAZIN:

    dvrwarior1

    eğer yazmassanız skill vurmaz...


    Checkleri Kendinize Ayarlayın,





    (Koxp yapımcıları için) Warior manasız atack yapma buyrun içeri 1-35
    • Sayfa başına dön

      Forum Saati Perş. Mayıs 09, 2024 7:08 am