sweetboy

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?

hahaha anyone know why it say that i don't have slot in my inventory, even i have many slot in my inventory?

um mind if i ask something i got some bug at the quest system? [http://prntscr.com/2xgjpj](http://prntscr.com/2xgjpj)

up D:

up up! D:

nooo D:

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

but it need to upload the update with client inside right?

err yeah ._. currently the easy way is changing the client but it take too much byte in my updater

Hello i wanna ask is there a way to force player to update the game from updater when i upload new file at updater server?

so there are other updater? @_@

up? D:

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/)

er excuse me what if i want to change the class from event and reset the stat,and lvland make it into skill point? :D

okay i will try it :D thanks richy

[http://prntscr.com/27mhrd](http://prntscr.com/27mhrd) this bro? :D

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

okay here is the line when its error [http://prntscr.com/27g6ps](http://prntscr.com/27g6ps) and um guys i don't know where its value T.T

bump >.<

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

hover over all the variables and give me their values..>

at which mods bro? :D

bump >.< still don't know how to fix this

at which mod to see the value?

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 >.<