sweetboy
-
Posts
41 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by sweetboy
-
-
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 >.<
Unknow error~
in Q & A
Posted
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?