DarkDino

No runtimes, Nothing happened D:, the problem is same 

Yes :S , no is a problem from server?

lblCharStat(1), lblCharStat(2), lblCharStat(3), lblCharStat(4), lblCharStat(5)  is Index, name from labels is lblCharStat

STR Index 1 DEX Index 2 INT Index 3 AGI Index 4 WILL Index 5 ..

``` Select Case PointType Case Stats.Strength Call SetPlayerStat(index, Stats.Strength, GetPlayerRawStat(index, Stats.Strength) + 1) sMes = "Strength" Case Stats.Endurance Call SetPlayerStat(index, Stats.Endurance, GetPlayerRawStat(index, Stats.Endurance) + 1) sMes = "Endurance" Case Stats.Intelligence Call SetPlayerStat(index, Stats.Intelligence, GetPlayerRawStat(index, Stats.Intelligence) + 1) sMes = "Intelligence" Case Stats.Agility Call SetPlayerStat(index, Stats.Agility, GetPlayerRawStat(index, Stats.Agility) + 1) sMes = "Agility" Case Stats.Willpower Call SetPlayerStat(index, Stats.Willpower, GetPlayerRawStat(index, Stats.Willpower) + 1) sMes = "Willpower" End Select ``` Default Numeration STR 1 DEX 2 INT 3 AGI 4 WILL 5

> Can we see the code for the labels? ``` Private Sub HandlePlayerStats(ByVal Index As Long, ByRef data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim buffer As clsBuffer Dim i As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set buffer = New clsBuffer buffer.WriteBytes data() For i = 1 To Stats.Stat_Count - 1 SetPlayerStat Index, i, buffer.ReadLong frmMain.lblCharStat(i).Caption = GetPlayerStat(MyIndex, i) Next ' Error handler Exit Sub errorhandler: HandleError "HandlePlayerStats", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` And this in HandlePlayer Data ``` For x = 1 To Stats.Stat_Count - 1 frmMain.lblCharStat(x).Caption = GetPlayerStat(MyIndex, x) Next ``` 

I have no idea why this happens. I can't explain it, i do not change the stats but this happens:  PLEASE HELP  I use EO 3.0.

Answer me please S:

*bump*

**Warning**: Cannot modify header information - headers already sent by (output started at /home/Marshy Dearest Dearest99/touchofdeathforums.com/submit.php:5) in **/home/Marshy Dearest Dearest99/touchofdeathforums.com/submit.php** on line **44** ****

> Fixed the problem you guys were having. > > Replace SendTargetDetails (Server side modServerTCP) with > > ``` > > Public Sub SendtargetDetails(ByVal index As Long) > > Dim Buffer As clsBuffer > > Dim target As Long, targetType As Long > > Dim i As Long > > target = TempPlayer(index).target > > targetType = TempPlayer(index).targetType > > Set Buffer = New clsBuffer > > Buffer.WriteLong stargetdetails > > Select Case targetType > > Case TARGET_TYPE_PLAYER > > Buffer.WriteString GetPlayerName(target) > > Buffer.WriteByte GetPlayerLevel(target) > > Buffer.WriteLong GetPlayerMaxVital(target, HP) > > Buffer.WriteLong GetPlayerVital(target, HP) > > For i = 1 To Stats.Stat_Count - 1 > > Buffer.WriteByte Player(target).stat(i) > > Next i > > Case TARGET_TYPE_NPC > > With Npc(MapNpc(GetPlayerMap(index)).Npc(target).Num) > > Buffer.WriteString Trim$(.Name) > > Buffer.WriteByte .Level > > Buffer.WriteLong .HP > > Buffer.WriteLong MapNpc(GetPlayerMap(index)).Npc(target).Vital(HP) > > For i = 1 To Stats.Stat_Count - 1 > > Buffer.WriteByte .stat(i) > > Debug.Print .stat(i) > > Next i > > End With > > Case TARGET_TYPE_NONE > > Buffer.WriteString vbNullString > > Buffer.WriteByte 1 > > Buffer.WriteLong 0 > > Buffer.WriteLong 0 > > For i = 1 To Stats.Stat_Count - 1 > > Buffer.WriteByte 0 > > Next i > > End Select > > SendDataTo index, Buffer.ToArray > > Set Buffer = Nothing > > End Sub > > ``` > Rather than referencing the NPC Num for mapNpc I used the Target num. (Target variable is for MapNpcValue) This work now :3!!! Nicee! thanks!.

> Ok, I didn't quite understand what you meant.. But here's what I found. (Excuse my ignorance, I'm not very advanced with VB6 at all.) > > This is the line that errors: > > Buffer.WriteLong MapNpc(GetPlayerMap(index)).NPC(mapNpcNum).Vital(HP) > > When I hovered over everything I found this: > > (GetPlayerMap(index)) = 1 > > .NPC(mapNpcNum) = 0 > > And out of these lines of code.. I found a few that (Subscript out of Range)'d > > For i = 1 To Stats.Stat_Count - 1 > > Buffer.WriteByte .Stat(i) = (Subscript out of Range) > > Debug.Print .Stat(i) = (Subscript out of Range) > > Next i > > End With > > Also, for some reason it seems to display the stats of the first NPC in my NPC list.. Rather than the actual map NPC.. I'm very confused. Have same error, this dont work :/

How to change " [background=rgb(248, 248, 248)]frmMain.lblPVPplayer.Caption = "%% Player" "[/background] To Player Opponent Name?

bump, > I get an error > > An Unexpected Error has occured: Type mismatch > > It is likely that your configuration is incorrect Have this error me too  [UPDATER] GameWebsite=bravewolf.site40.net updateURL=bravewolf.site40.net/updates/ NewsURL=bravewolf.site40.net/darkstory.html Version= 1 ClientName= EclipseTFF.exe

I fix this, thanks escfoe2 :3. Have a problem with bank withdraw currency items :c!.

1\. Stackable Potion, i use and does not disappear from the inventory 2\. Inventory 3\. Use the Stack Potion ( No drop ) EDIT:* The drop working now  No, i test your stack potions in your engine, and work D:!, please help !.

Cool !! thanks, I rip the system D:, but the problem is the drop and use. I use stackable item and does not disappear and cant drop. Please help !.

> How can I fix it from moving threw events? Or do I just remove this whole system? Move this: For i = 1 To Map.CurrentEvents If Map.MapEvents(i).Visible = 1 Then If Map.MapEvents(i).x = x Then If Map.MapEvents(i).y = y Then If Map.MapEvents(i).WalkThrough = 0 Then CheckDirection = True Exit Function End If End If End If End If Next above this If Map.Moral = MAP_MORAL_SAFE Then Exit Function

Thanks!, this work in EO 3.0! 

Thanks for fix!

Thanks thanks Psl! *w* this work!. Resolved.

The second dagger, delete when log out player  how to fix? EDIT: THIS WORK!, sorry for post ! !! NICE!.

My error is when attack a NPC: "The argument is not optional" "Call SendAnimation" D: also where would the number of animation in this code? Call SendAnimation(Player(attacker).Map, MapNpc(mapNum).Npc(mapNpcNum).x, MapNpc(mapNum).Npc(mapNpcNum).y) ¿?

Psl i understand but, this is for Players D:!. I like to NPC Death, when you kill NPC a Animation Appear. No matter the same animation in all NPC. I make this SendAnimation GetPlayerMap(attacker), MapNpc(mapnum).NPC(mapNpcNum).x, MapNpc(mapnum).NPC(mapNpcNum).y above this ' send death to the map but error, please D: help in this!.

Hi Eclipse, i try to add stackable potions but i cant. How to Stackable Potions?