1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Bu kodları bi açıklar mısınız


  1. Advance

    Advance   rank8

    Kayıt:
    27 Ocak 2008
    Mesajlar:
    11.747
    Beğenilen Mesajlar:
    16
    Ödül Puanları:
    48
    çözebilirseniz kurt felan alabiliriz

    Public iMaxSockets As Integer
    Public ItemAmount(1 To 500) As Integer
    Public ItemData(1 To 500) As String
    Public ListItemAmount(1 To 500) As Integer
    Public ListItemData(1 To 500) As String
    Private Type pData

    Username As String
    Password As String
    Charname As String
    AccountID As String
    BerserkBar As Integer
    State As String
    GrowthPet As Long
    GrowthPetID As String
    GrowthPetXPos As Double
    GrowthPetYPos As Double
    WalkSpeed As Integer
    RunSpeed As Integer
    BerserkSpeed As Integer
    UsingSkill As Boolean
    AttackSkillID As String
    Berserking As Boolean
    Attacking As Boolean
    AttackingID As String
    Race As Integer
    CastingID As String
    CastingSkillID As String
    Transport As String
    TransportID As String
    Riding As Boolean
    Busy As Boolean
    Walking As Boolean
    ActiveBuffs As Integer
    BuffList(1 To 20) As String
    MasteryLvl(1 To 7) As Integer
    NumSkills As Integer
    SkillList(1 To 100) As String
    Ingame As Boolean
    CharID As String
    Position As String
    Chartype As Integer
    AttributePoints As Integer
    Volume As Integer
    Level As Integer
    HighLevel As Integer
    Strength As Integer
    Intelligence As Integer
    Skillpoints As Double
    HP As Double
    MP As Double
    MinPhyAtk As Double
    MaxPhyAtk As Double
    MinMagAtk As Double
    MaxMagAtk As Double
    PhyDef As Double
    MagDef As Double
    Hit As Double
    Parry As Double
    XSection As Integer
    YSection As Integer
    XPos As Double
    YPos As Double
    WalkingX As Integer
    WalkingY As Integer
    CharPath As String
    GM As Boolean
    SelectedID As String
    ChatIndex As Integer
    NewStall As Boolean
    StallName As String
    StallWelcomeMessage As String
    StallIsOpen As Boolean
    StallItemCount As Integer
    StallItem(0 To 9) As Boolean
    StallItemID(0 To 9) As String
    StallItemInventorySlot(0 To 9) As String
    StallItemAmount(0 To 9) As String
    StallItemGold(0 To 9) As String
    StallChatCount As Integer
    IsInExchange As Boolean
    ExchangeTargetID As String
    ExchangeTargetWinSock As Integer
    InventorySlot(0 To 100) As String

    End Type

    Private Type ItemData
    Type As String
    amount As Integer
    ID As Integer
    PlusValue As Integer
    Durability As Integer
    PhyReinforce As Integer
    MagReinforce As Integer
    End Type

    Private Type MobData
    Type As String
    ID As String
    HP As Integer
    XPos As Double
    YPos As Double
    XSector As Integer
    YSector As Integer
    End Type

    Public Items(1 To 500, 0 To 44) As ItemData
    Public Mobs(1 To 500) As MobData
    Public PlayerData() As pData

    Public Function InitServer()

    iMaxSockets = 500
    frmMain.LoginSocket(0).LocalPort = 15779
    frmMain.GameSocket(0).LocalPort = 15778

    frmMain.lblLoginserver.BackColor = &HFF00&
    frmMain.lblGameserver.BackColor = &HFF00&
    frmMain.lblLoginserver.Caption = "ONLINE"
    frmMain.lblGameserver.Caption = "ONLINE"

    'Prevents unwanted loop errors.
    ReDim Preserve PlayerData(0)

    End Function
     
  2. ferosero_

    ferosero_ Bilgiliyim rank8

    Kayıt:
    30 Aralık 2007
    Mesajlar:
    1.378
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Şehir:
    Waiting Psro
    Shocked Shocked Shocked Shocked Shocked o ne kardeş öle
     
  3. Advance

    Advance   rank8

    Kayıt:
    27 Ocak 2008
    Mesajlar:
    11.747
    Beğenilen Mesajlar:
    16
    Ödül Puanları:
    48
    walla bulursanız pet felan alabiliriz
     
  4. Advance

    Advance   rank8

    Kayıt:
    27 Ocak 2008
    Mesajlar:
    11.747
    Beğenilen Mesajlar:
    16
    Ödül Puanları:
    48
    up diyecem kimse bakmıyo
     
  5. krcgkhn

    krcgkhn Gözlemliyorum rank8

    Kayıt:
    20 Şubat 2008
    Mesajlar:
    51
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    bunlar galiba vb deki modüle geçirilecek ola nkodlar belkide formlara geçirilik tam bilmiyorum