1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

sremuda pot basma (çalışıyor )denendi..


  1. TheLastHawk

    TheLastHawk Tanınıyorum rank8

    Kayıt:
    30 Aralık 2007
    Mesajlar:
    266
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    serbest meslek,öğrenci
    Şehir:
    Türk-Aion
    evt arkadaşlar ilk öncelikle şunu yapaıyoruz...

    HP
    MP

    Vigor
    Pill
    Anti State
    Anti Stealth içindir...şimdi ..öncelikle sremuyu visual ile modgame serveri açıyoruz ardındanda ctrl+f ye basıyoruz find yerinede "Select Case sOpcode" bunu yazıyoruz buluyor ardındanda altına bunları yapıştırıyoruz
    Case "75BD" ' Handle Pottings
    HandlePot index, sData

    onun altınada bunları yapıştırıyoruz ..
    Public Function HandlePot(index As Integer, data As String)
    Dim psize As String
    Dim tslot As String
    Dim pottype As Integer
    Dim potcount As Integer
    Dim newpot As Integer
    Dim laenge As Integer
    Dim potsave As String
    Rem ==== Check if its HP Pots ====
    If Right$(data, 4) = "EC08" Then
    tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
    pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
    potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
    Rem Set Pot size
    psize = Hex$(pottype)
    laenge = Len(psize)
    If laenge = 2 Then
    psize = psize & "000000"
    Else
    psize = "0" & psize & "000000"
    End If
    Rem =============
    newpot = potcount - 1 'calculate new pot amount
    potsave = newpot
    If newpot = 0 Then
    iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
    Else
    iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
    End If
    End If
    Rem ==============================
    Rem ==== Check if its MP Pots ====
    If Right$(data, 4) = "EC10" Then
    tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
    pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
    potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
    Rem Set Pot size
    psize = Hex$(pottype)
    laenge = Len(psize)
    If laenge = 2 Then
    psize = psize & "000000"
    Else
    psize = "0" & psize & "000000"
    End If
    Rem =============
    newpot = potcount - 1 'calculate new pot amount
    potsave = newpot
    If newpot = 0 Then
    iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
    Else
    iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
    End If
    End If
    Rem ==============================
    Rem ==== Check if its Vigor Pots ====
    If Right$(data, 4) = "EC18" Then
    tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
    pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
    potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
    Rem Set Pot size
    psize = Hex$(pottype)
    laenge = Len(psize)
    If laenge = 2 Then
    psize = psize & "000000"
    Else
    psize = "0" & psize & "000000"
    End If
    Rem =============
    newpot = potcount - 1 'calculate new pot amount
    potsave = newpot
    If newpot = 0 Then
    iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
    Else
    iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
    End If
    End If
    Rem ==============================
    Rem ==== Check if its UniPil Pots ====
    If Right$(data, 4) = "6C31" Then
    tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
    pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
    potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
    Rem Set Pot size
    psize = Hex$(pottype)
    laenge = Len(psize)
    If laenge = 2 Then
    psize = psize & "000000"
    Else
    psize = "0" & psize & "000000"
    End If
    Rem =============
    newpot = potcount - 1 'calculate new pot amount
    potsave = newpot
    If newpot = 0 Then
    iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
    Else
    iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
    End If
    End If
    Rem ==============================
    Rem ==== Check if its AntiState Pots ====
    If Right$(data, 4) = "6C09" Then
    tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
    pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
    potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
    Rem Set Pot size
    psize = Hex$(pottype)
    psize = Inverse(psize) & "0000"
    Rem =============
    newpot = potcount - 1 'calculate new pot amount
    potsave = newpot
    If newpot = 0 Then
    iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
    Else
    iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
    End If
    End If
    Rem ==============================
    Rem ==== Check if its AntiStealth Pots ====
    If Right$(data, 4) = "EC0E" Then
    tslot = CLng("&H" & Left(data, 2)) 'check wich slot in inventory is pot
    pottype = iniGetStr("ID", "Item" & tslot, PlayerData(index).CharPath) 'check size of Pot
    potcount = iniGetStr("amount", "Item" & tslot, PlayerData(index).CharPath) 'read amount of pots
    Rem Set Pot size
    psize = Hex$(pottype)
    psize = Inverse(psize) & "0000"
    Rem =============
    newpot = potcount - 1 'calculate new pot amount
    potsave = newpot
    If newpot = 0 Then
    iniWrite vbNullString, vbNullString, "item" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are less than 0
    Else
    iniWrite potsave, "amount", "ITEM" & tslot, PlayerData(index).CharPath 'set new pot amount if pots are more than 0
    End If

    End If
    Rem ==============================

    fData = "4934"
    fData = fData & "0000"
    fData = fData & PlayerData(index).CharID
    fData = fData & psize
    pLen = (Len(fData) - Cool / 2
    fData = WordFromInteger(pLen) & fData
    For i = 1 To UBound(PlayerData)
    If PlayerData(i).Ingame = True Then
    frmMain.GameSocket(i).SendData cv_StringFromHex(fData)
    End If
    Next i
    End Function



    şimdide olay bukadar işte bunlarda itemleri çıkartmakl için gerekli olan kodlar iyi oyunlar ayrıca benmle hamachiden oynarsanız pvpde olmuştur olay budur:D iyi eylenceler ..işte kodlar..


    4 ITEM_ETC_HP_POTION_01
    5 ITEM_ETC_HP_POTION_02
    6 ITEM_ETC_HP_POTION_03
    7 ITEM_ETC_HP_POTION_04
    8 ITEM_ETC_HP_POTION_05
    9 ITEM_ETC_HP_SPOTION_01
    (MP)
    11 ITEM_ETC_MP_POTION_01
    12 ITEM_ETC_MP_POTION_02
    13 ITEM_ETC_MP_POTION_03
    14 ITEM_ETC_MP_POTION_04
    15 ITEM_ETC_MP_POTION_05
    16 ITEM_ETC_MP_SPOTION_01
    (Vigor)
    18 ITEM_ETC_ALL_POTION_01
    19 ITEM_ETC_ALL_POTION_02
    20 ITEM_ETC_ALL_POTION_03
    21 ITEM_ETC_ALL_POTION_04
    22 ITEM_ETC_ALL_POTION_05
    23 ITEM_ETC_ALL_SPOTION_01
    (Pill)
    55 ITEM_ETC_CURE_ALL_01
    56 ITEM_ETC_CURE_ALL_02
    57 ITEM_ETC_CURE_ALL_03
    58 ITEM_ETC_CURE_ALL_04
    (Anti State)
    10368 ITEM_ETC_CURE_RANDOM_01
    10369 ITEM_ETC_CURE_RANDOM_02
    10370 ITEM_ETC_CURE_RANDOM_03
    10371 ITEM_ETC_CURE_RANDOM_04
    (Anti Stealth)
    10372 ITEM_ETC_DETECT_01
    10373 ITEM_ETC_DETECT_02
    10374 ITEM_ETC_DETECT_03
    10375 ITEM_ETC_DETECT_04


    ......EMEĞE SAYGI.....alıntı değildir kendi elcağazlarımla yaptım ayrıca benm serverde sremu değil prevate olmuştur artık siz ne derseniz diyyin ama yaratıklar toplu çıkabiliyor yani ben çıkartıyorum ayrıca sana yani onune gelene saldırabiliyor ayrıca unquelerin yanında elitler titanslar flnda çıkıyor npcler eklendi ayrıca avrupalılarda var ve en önemliside PVP yapılabiliyor jamachiden benmle oynamak istiyenler..ağ adı=TCTURKEY........pw=tctc dir görüşmek üzere.. :mrgreen:
     
  2. HeNDiCaP

    HeNDiCaP Bilgiliyim rank8

    Kayıt:
    20 Şubat 2008
    Mesajlar:
    1.006
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    ögrenci ^^
    Şehir:
    Anahita River ^^
    nereye yapıştıracagız bunLarı
     
  3. TheLastHawk

    TheLastHawk Tanınıyorum rank8

    Kayıt:
    30 Aralık 2007
    Mesajlar:
    266
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    serbest meslek,öğrenci
    Şehir:
    Türk-Aion
    bak arkadaşım öncelkle vısual ile modgame serveri aç ve msjn devamı oku ok..