KrakaKrucifix

Ok, so it looks like there is a lot more to it over all than that, though I may not have described my situation very well. At the time I wrote this, I had done nothing client side regarding adding these two stats. Since then I have done quite a bit but I am still hitting on snag and I'm not sure what to do to fix it. When trying to log into the game with my edited client I get an VB Runtime error 9, script out of range. I've narrowed the issue down to one particular part of code. Please see my code below, the bolded part is where the issue occurs: > ' ::::::::::::::::::::::::: > ' :: Player Stats Packet :: > ' ::::::::::::::::::::::::: > If (casestring = "playerstatspacket") Then > Dim SubDef As Long, SubMagi As Long, SubSpeed As Long, SubStr As Long, SubWis As Long, SubDex As Long > SubStr = 0 > SubDef = 0 > SubMagi = 0 > SubSpeed = 0 > SubWis = 0 > SubDex = 0 > > If GetPlayerWeaponSlot(MyIndex) > 0 Then > SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddSTR > SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddDEF > SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddMAGI > SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddSpeed > SubWis = SubWis + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddWis > SubDex = SubDex + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).addDEX > > End If > If GetPlayerArmorSlot(MyIndex) > 0 Then > SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddSTR > SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddDEF > SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddMAGI > SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddSpeed > SubWis = SubWis + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddWis > SubDex = SubDex + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).addDEX > End If > If GetPlayerShieldSlot(MyIndex) > 0 Then > SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddSTR > SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddDEF > SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddMAGI > SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddSpeed > SubWis = SubWis + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddWis > SubDex = SubDex + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).addDEX > End If > If GetPlayerHelmetSlot(MyIndex) > 0 Then > SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddSTR > SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddDEF > SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddMAGI > SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddSpeed > SubWis = SubWis + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddWis > SubDex = SubDex + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).addDEX > End If > If GetPlayerLegsSlot(MyIndex) > 0 Then > SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerLegsSlot(MyIndex))).AddSTR > SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerLegsSlot(MyIndex))).AddDEF > SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerLegsSlot(MyIndex))).AddMAGI > SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerLegsSlot(MyIndex))).AddSpeed > SubWis = SubWis + Item(GetPlayerInvItemNum(MyIndex, GetPlayerLegsSlot(MyIndex))).AddWis > SubDex = SubDex + Item(GetPlayerInvItemNum(MyIndex, GetPlayerLegsSlot(MyIndex))).addDEX > End If > If GetPlayerRingSlot(MyIndex) > 0 Then > SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerRingSlot(MyIndex))).AddSTR > SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerRingSlot(MyIndex))).AddDEF > SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerRingSlot(MyIndex))).AddMAGI > SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerRingSlot(MyIndex))).AddSpeed > SubWis = SubWis + Item(GetPlayerInvItemNum(MyIndex, GetPlayerRingSlot(MyIndex))).AddWis > SubDex = SubDex + Item(GetPlayerInvItemNum(MyIndex, GetPlayerRingSlot(MyIndex))).addDEX > End If > If GetPlayerNecklaceSlot(MyIndex) > 0 Then > SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerNecklaceSlot(MyIndex))).AddSTR > SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerNecklaceSlot(MyIndex))).AddDEF > SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerNecklaceSlot(MyIndex))).AddMAGI > SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerNecklaceSlot(MyIndex))).AddSpeed > SubWis = SubWis + Item(GetPlayerInvItemNum(MyIndex, GetPlayerNecklaceSlot(MyIndex))).AddWis > SubDex = SubDex + Item(GetPlayerInvItemNum(MyIndex, GetPlayerNecklaceSlot(MyIndex))).addDEX > End If > > If SubStr > 0 Then > frmMirage.lblSTR.Caption = Val(parse(1)) - SubStr & " (+" & SubStr & ")" > Else > frmMirage.lblSTR.Caption = Val(parse(1)) > End If > If SubDef > 0 Then > frmMirage.lblDEF.Caption = Val(parse(2)) - SubDef & " (+" & SubDef & ")" > Else > frmMirage.lblDEF.Caption = Val(parse(2)) > End If > If SubMagi > 0 Then > frmMirage.lblMAGI.Caption = Val(parse(4)) - SubMagi & " (+" & SubMagi & ")" > Else > frmMirage.lblMAGI.Caption = Val(parse(4)) > End If > If SubSpeed > 0 Then > frmMirage.lblSPEED.Caption = Val(parse(3)) - SubSpeed & " (+" & SubSpeed & ")" > Else > frmMirage.lblSPEED.Caption = Val(parse(3)) > End If > ** If SubWis > 0 Then > frmMirage.lblWis.Caption = Val(parse(8)) - SubWis & " (+" & SubWis & ")" > Else > frmMirage.lblWis.Caption = Val(parse(8)) > End If > If SubDex > 0 Then > frmMirage.lblDex.Caption = Val(parse(9)) - SubDex & " (+" & SubDex & ")" > Else > frmMirage.lblDex.Caption = Val(parse(9)) > End If** frmMirage.lblEXP.Caption = Val(parse(6)) & " / " & Val(parse(5)) > > frmMirage.shpTNL.Width = (((Val(parse(6))) / (Val(parse(5)))) * 150) > frmMirage.lblLevel.Caption = Val(parse(7)) > Player(MyIndex).Level = Val(parse(7)) > > Exit Sub > End If

Ok, I should be able to do that, my only issue is that I'm not sure how to make it so that when I look at frmMirage it shows me the picCharStatus window… There is some step I'm forgetting. (Haven't worked on my game in a couple months.) Thanks again.

Hello everyone and long time no see. I recently used this link: [http://www.touchofdeathforums.com/smf/index.php/topic,35634.0.html](http://www.touchofdeathforums.com/smf/index.php/topic,35634.0.html) to add two new stats to my game: dexterity and wisdom. It appears to have worked, the functions are usable and all. The problem I am having is that this doesn't add the stats to the client side so that Users can click the + sign to add stats. I was wondering if anyone could make or knows of a tutorial that walks through adding stats on the client's side. Thanks in advance, KK

Thanks for the tip, Balliztik1. I was away from the forums for a long while and never saw this response. Looking over it now and it looks like it'll work great for me. Thanks again.

hmm, was worried about that. guess i'll have to look into figuring that out.

I was actually just wondering if anyone would be willing to draw a crossbow in paperdoll form or already has one that they are willing to share? Thanks in advance

Is there a way to change the text color of items? Like in most MMOs where an Uncommon item is green, rare is blue, etc.

Ok, I'm really new to drawing so I'm not sure how I'd go about adding texture or shading for that matter. I understand that texture is making it look more like wood, but I'm not sure how I would get that effect. I believe I have improved the shading to make it look better and have the look of light shining down from above. But when dealing with something this small, I'm not sure how to make it look more like wood XD Thanks for the help!

 Just a sign I made for my game. Let me know what you think and how I could improve it.

I believe I found it in the client source code. If you do a ctrl+f for GetPlayerHPRegen throughout the entire project you will see where Total = GetPlayerDef/2 or something like that. By changing the 2 to a higher number you can slow down HP regen or you could just have total = something set in stone. I think I am going to have it based on level + def.

Ok, I know that you can turn them on and off, and edit how often they regen. But where do you go to change the amount of HP/MP/SP that regens every time it ticks off? Would that be scripting somewhere or source? If it's source, anyone know where? I'd like to change it =D

I was wondering if anyone could make and post a tutorial on how to edit the source code to make it so that the item editor has a level requirement and multiple class requirement options. Thanks in advance!

What if you don't have a frmTrade.frm? :cry: Edit: Ignore me… frmPlayerTrade.frm XD

Yeah, this'll be quite awesome. So glad its almost done. =D WTG!

Do you happen to know where in the source? It would save me some searching =p

Ok, so I'm not sure if this is my problem or a problem with the source but here is what happened: So I decided to make a Ring that gives +20 speed. I set it all up, but when I put it on it gave me +20 Magic instead. I went to edit the item and sure enough, it said 20 Speed. So, I set Speed to 0 and Set Magic to 20. Then the ring gives me +20 Speed. Now the oddest part… I go to edit the ring and it's back to saying +20 speed. :huh: So is this an issue with Eclipse itself or just something on my end?

Well, the topic below discusses changing text/chat bubbles but it's from an old version of Eclipse and doesn't work with EE 2.7. Maybe you can ask someone to edit it for you? I'd do it but when I work on a script, the script breaks =p [http://www.touchofdeathforums.com/smf/index.php/topic,8903.0.html](http://www.touchofdeathforums.com/smf/index.php/topic,8903.0.html)

I did it! Yay me!

Bump

Ok, with some help from Admiral, (he pretty much gave me the code =D ) I now have the following code: ``` Function GetNPConXorY(map, x, y) For i = 1 To 16 If GetNpcX(map, i) = x And GetNpcY(map, i) = y Then GetNPConXorY = i End If Exit Function Next GetNPConXorY = 0 End Function ``` Where Map is the players map and X and Y are particular X's and Y's. For the case of testing this function I had X and Y = the player X and Y. Then had the Call for GetNPConXorY use an X 1 higher than the players X like so: ``` Case 6 X = GetPlayerX(Index)+1 Y = GetPlayerY(Index) Z = GetPlayerMap(Index) Min = GetNPConXorY(Z, X, Y) Call PlayerMsg(Index, "The value of Test is " & Min & " okay", 5) Exit Sub ``` However it doesn't seem to work. Anyone have any ideas? Edit: Figured I'd clarify on how it doesn't work. basically the player message comes out as "The value of Test is okay".

Well, it appears that the monster does get frozen in place… however... it freezes the server as well XD Any other ideas, anyone? Edit: So I had the idea of using a Timer sub call the LockNPC sub. In this way I would be able to see if the spell freezes the NPC before any crash occurs. My problem is that it doesn't appear to be working. I'll post my call for the spell and the new LockNPC sub. Any help is appreciated. Call for Spell ``` Case 3 Y= GetPlayerMap(Index) X= GetPlayerTargetNPC(Index) Call SetTimer("LockNPC " & Y & "," & X, 500)) ``` LockNPC Sub > Sub LockNPC(MapNum, MapNpcNum) > Call SetMapNpcX(MapNum, MapNpcNum, GetNpcX(MapNum, MapNpcNum)) > Call SetMapNpcY(MapNum, MapNpcNum, GetNpcY(MapNum, MapNpcNum)) > Call SendNPC(MapNum, MapNpcNum) > End Sub

Actually, I'm trying to set it up using a timer that calls the UnLockNPC sub to unfreeze it =D

Would I need to put this in my main.txt or in the file that the spell i plan to use it in is?

I was wondering if there was a LockNPC Sub, like the lockplayer sub only for NPCs? Thanks again!

Ok, so I managed to get my hands on VB6 finally and what I want to do is change it so that GetPlayerSTR(), etc. includes strength added due to items and not just the player's base strength. Now, looking at the source, it appears that it should be doing that. So, I'm not quite sure what to edit so that this occurs. Can anyone give me some help please? Thank you in advance.