Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

sweetboy

Members
  • Posts

    41
  • Joined

  • Last visited

    Never

Posts posted by sweetboy

  1. Sub SendDataTo(ByVal index As Long, ByRef Data() As Byte)
    Dim buffer As clsBuffer
    Dim TempData() As Byte

        If IsConnected(index) Then
            Set buffer = New clsBuffer
            TempData = Data

            buffer.PreAllocate 4 + (UBound(TempData) - LBound(TempData)) + 1
            buffer.WriteLong (UBound(TempData) - LBound(TempData)) + 1
            buffer.WriteBytes TempData()

    _**frmServer.Socket(index).SendData buffer.ToArray(**_)

        End If
    End Sub

    i got an error at this line anyone know why? and how to fix it?
  2. i have this problem im using EFF 

    i got an blank screen when im trying make new account in my game 

    like this [http://prntscr.com/2wlor1](http://prntscr.com/2wlor1)

    when i try to delete spell folder from my server it work fine is there anyone can help me?

    oh yeah im having a strange problem too when make spell its slot in spell sometimes randomize so when i try to make spell at slot 1 they suddenly appear in slot 10

    forget to mention i have spell 1-35 if i delete spell from 25-35 its work! but if im trying make a new spell from slot 25++ and its blank screen again 

    i really really appreciate if you can help me thanks! :D
  3. anyone have a backup of robin updater the link there dead? thanks! :D

    [http://www.eclipseorigins.com/community/index.php?/topic/105234-eclipse-multi-purpose-autoupdater/](http://www.eclipseorigins.com/community/index.php?/topic/105234-eclipse-multi-purpose-autoupdater/)
  4. GetWeapon = GetPlayerEquipment(attacker, weapon)

    ah i manage to solve this one the engine put the GetWeapon As Byte i change it to As Long

    the left problem left is

    Function GetPlayerExp(ByVal index As Long) As Long

        GetPlayerExp = Player(index).EXP

    End Function
  5. i got this

    Public Sub GivePlayerEXP(ByVal index As Long, ByVal EXP As Long)

        ' give the exp

        Call SetPlayerExp(index, GetPlayerExp(index) + EXP)

        SendEXP index

        SendActionMsg GetPlayerMap(index), "+" & EXP & " EXP", White, 1, (GetPlayerX(index) * 32), (GetPlayerY(index) * 32)

        ' check if we've leveled

        CheckPlayerLevelUp index

    End Sub

    Sub SendEXP(ByVal index As Long)

    Dim buffer As clsBuffer

        Set buffer = New clsBuffer

        buffer.WriteLong SPlayerEXP

        buffer.WriteLong GetPlayerExp(index)

        buffer.WriteLong GetPlayerNextLevel(index)

        SendDataTo index, buffer.ToArray()

        Set buffer = Nothing

    End Sub

    Sub CheckPlayerLevelUp(ByVal index As Long)

        Dim i As Long

        Dim expRollover As Long

        Dim level_count As Long

        level_count = 0

        Do While GetPlayerExp(index) >= GetPlayerNextLevel(index)

            expRollover = GetPlayerExp(index) - GetPlayerNextLevel(index)

            ' can level up?

            If Not SetPlayerLevel(index, GetPlayerLevel(index) + 1) Then

                Exit Sub

            End If

            Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + 3)

            Call SetPlayerExp(index, expRollover)

            level_count = level_count + 1

        Loop

        If level_count > 0 Then

            If level_count = 1 Then

                'singular

                GlobalMsg GetPlayerName(index) & " has gained " & level_count & " level!", Brown

            Else

                'plural

                GlobalMsg GetPlayerName(index) & " has gained " & level_count & " levels!", Brown

            End If

            SendEXP index

            SendPlayerData index

            SendPlayerSound index, GetPlayerX(index), GetPlayerY(index), SoundEntity.seLevelUp, 1

        End If

    End Sub

    Public Sub KillPlayer(ByVal index As Long)

    Dim EXP As Long

        ' Calculate exp to give attacker

        EXP = GetPlayerExp(index) \ 5

        ' Make sure we dont get less then 0

        If EXP < 0 Then EXP = 0

        If EXP = 0 Then

            Call PlayerMsg(index, "You lost no exp.", BrightRed)

        Else

            Call SetPlayerExp(index, GetPlayerExp(index) - EXP)

            SendEXP index

            Call PlayerMsg(index, "You lost " & EXP & " exp.", BrightRed)

        End If

        Call OnDeath(index)

    End Sub

    Sub SetPlayerExp(ByVal index As Long, ByVal EXP As Long)

        Player(index).EXP = EXP

        If GetPlayerLevel(index) = MAX_LEVELS And Player(index).EXP > GetPlayerNextLevel(index) Then

            Player(index).EXP = GetPlayerNextLevel(index)

        End If

    End Sub
  6. uhm sorry if im asking too much, i got an error again at this line

    Function GetPlayerExp(ByVal index As Long) As Long

        GetPlayerExp = Player(index).EXP

    End Function

    then another error at

    GetWeapon = GetPlayerEquipment(attacker, weapon)

    im using eclipse Final Frontier thanks >.<
×
×
  • Create New...