xppxdd

Nicee :))

And how do i do that :)? i know all of that i just cant find out how to make it said the info :Z hoe do i do that the index will be the player ?

@Lightning: > O_o No.. > > ``` > Dim plvl As Long > Dim index as long > plvl = Player(index).Level > > frmMain.lblPlevel.caption = plvl > > ``` > Or, alternatively: > > ``` > frmMain.lblPlevel.caption = Player(index).Level > ``` @Lightning: > O_o No.. > > ``` > Dim plvl As Long > Dim index as long > plvl = Player(index).Level > > frmMain.lblPlevel.caption = plvl > > ``` > Or, alternatively: > > ``` > frmMain.lblPlevel.caption = Player(index).Level > ``` umm.. read the first post, you just copy pasted what i said doesnt work :O

LOL ?? Wait but its giving me an error: expected expression:O

I want to Declare vars that hold some player data, like level, stats and stuff. Iv'e tried using : in the sub "UpdateDescWindow" (ye i know.. i need this to check whether the LevelReq of an item is bigger then the player level.) ``` Dim plvl As Long Dim index as long plvl = Player(index).Level frmMain.lblPlevel = plvl ``` also with Player(index).Stat Anyone :Z

@greendixy: > good day not my first time with this engine but first post with this nickname cant remember my old one my question is.. is there a way to calculate an item and your armor to show if it would give better stats or worse stats before equiping the item/armor like if my armor as +4 str and the item has +6 str it will show in green a +2 great work works well That easy to :) just need to add a check whether the Equipped item Stats is grater and then "-" it and update the label:) ill update the script if ill have time :)

The V2 as well? :P

there is ofc, lol only adding an "IF" at the start :) will update ! Edit: Update~

I dont think so… you got any problems?

Thanks :)

[](http://imageshack.us/photo/my-images/85/screenyw.png/) Uploaded with [ImageShack.us](http://imageshack.us)

Very very very easy edit for you who want to make the PicItemDesc More detailed and don't know how. Words of motivation- Well, I am just like most of you; no extreme knowledge in programming, or have a bit of orientation in the source, but still iv'e mange to make my own add-on! How? First, Youtube(vb6 tut) Second, I read most of the source to gain more experience with it. Last, Iv'e applied everything that I know and FOCUS on making that feature. LOL If it will make even just one of you motivated it's worth it:D V3! Show Items Requirement Stats and mark with red when player doesn't have enough of them. Show level (Mark as well) V2 Showing DMG, ATS, Stats to Weapons, Armors, Helmet and Shield only. Show Item Type. Cancel the Window on Currency. known-bugs: None Client-Side only and EO 2.0 OFC… First, find you PicItemDesc, you can do that by expanding the frmMain borders. In default is on the bottom left. Next, add 11 labels, lblItemspeed lblItemStat lblItemPrice lblItemDMG lblItemType Update: lbllvl_req lblstr_req lblend_req lblint_req lblagi_req lblwill_req Edit the properties as you like and position it as you want. Now search for: ``` Public Sub UpdateDescWindow ``` Replace the whole Sub with: ``` Public Sub UpdateDescWindow(ByVal itemnum As Long, ByVal x As Long, ByVal y As Long) Dim i As Long Dim FirstLetter As String * 1 Dim Name As String Dim ATS As Double ATS = Trim$(Item(itemnum).Speed) / 1000 Dim DMG As Long DMG = Trim$(Item(itemnum).Data2) 'stat add Dim STR As Long STR = Trim$(Item(itemnum).Add_Stat(1)) Dim ENDu As Long ENDu = Trim$(Item(itemnum).Add_Stat(2)) Dim AGI As Long AGI = Trim$(Item(itemnum).Add_Stat(4)) Dim INTe As Long INTe = Trim$(Item(itemnum).Add_Stat(3)) Dim WILL As Long WILL = Trim$(Item(itemnum).Add_Stat(5)) 'stat req Dim STRq As Long STRq = Trim$(Item(itemnum).Stat_Req(1)) Dim ENDuq As Long ENDuq = Trim$(Item(itemnum).Stat_Req(2)) Dim AGIq As Long AGIq = Trim$(Item(itemnum).Stat_Req(4)) Dim INTeq As Long INTeq = Trim$(Item(itemnum).Stat_Req(3)) Dim WILLq As Long WILLq = Trim$(Item(itemnum).Stat_Req(5)) Dim LVLq As Long LVLq = Trim$(Item(itemnum).LevelReq) Dim CLASSq As Long CLASSq = Trim$(Item(itemnum).ClassReq) 'player stats Dim Index As Long Dim plvl As Long Dim pstr As Long Dim pend As Long Dim pint As Long Dim pagi As Long Dim pwill As Long Dim pclass As Long pclass = Player(MyIndex).Class plvl = Player(MyIndex).Level pstr = Player(MyIndex).Stat(1) pend = Player(MyIndex).Stat(2) pint = Player(MyIndex).Stat(3) pagi = Player(MyIndex).Stat(4) pwill = Player(MyIndex).Stat(5) 'no DescWindow for currency If Trim$(Item(itemnum).Type) = 7 Then Exit Sub End If ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler FirstLetter = LCase$(Left$(Trim$(Item(itemnum).Name), 1)) If FirstLetter = "$" Then Name = (Mid$(Trim$(Item(itemnum).Name), 2, Len(Trim$(Item(itemnum).Name)) - 1)) Else Name = Trim$(Item(itemnum).Name) End If ' check for off-screen If y + frmMain.picItemDesc.height > frmMain.ScaleHeight Then y = frmMain.ScaleHeight - frmMain.picItemDesc.height End If ' set z-order frmMain.picItemDesc.ZOrder (0) With frmMain .picItemDesc.top = y .picItemDesc.Left = x .picItemDesc.Visible = True If LastItemDesc = itemnum Then Exit Sub ' exit out after setting x + y so we don't reset values ' set the name Select Case Item(itemnum).Rarity Case 0 ' white .lblItemName.ForeColor = RGB(255, 255, 255) Case 1 ' green .lblItemName.ForeColor = RGB(117, 198, 92) Case 2 ' blue .lblItemName.ForeColor = RGB(103, 140, 224) Case 3 ' maroon .lblItemName.ForeColor = RGB(205, 34, 0) Case 4 ' purple .lblItemName.ForeColor = RGB(193, 104, 204) Case 5 ' orange .lblItemName.ForeColor = RGB(217, 150, 64) End Select ' set captions .lblItemName.Caption = Name .lblItemDesc.Caption = Trim$(Item(itemnum).Desc) .lblprice.Caption = "Price: " & Trim$(Item(itemnum).Price) .lblstat.Caption = "No Stats." .lblDMG = "Have no damage." .lblItemSpeed.Caption = "" 'to do class ----> .lblclass_req.Caption = Class(MyClass).Name ' Item Type Select Case Item(itemnum).Type Case 0 ' None .lblItemType.Caption = "ETC" Case 1 ' Weapon .lblItemType.Caption = "Weapon" .lblItemSpeed.Caption = ATS & "s" .lblstat.Caption = "STR: +" & STR & vbCrLf & "END: +" & ENDu & vbCrLf & "INT: +" & INTe & vbCrLf & "AGI: +" & AGI & vbCrLf & "WILL: +" & WILL .lblDMG = "Damage: " & DMG Case 2 ' Armor .lblItemType.Caption = "Armor" .lblItemSpeed.Caption = "" .lblstat.Caption = "STR: +" & STR & vbCrLf & "END: +" & ENDu & vbCrLf & "INT: +" & INTe & vbCrLf & "AGI: +" & AGI & vbCrLf & "WILL: +" & WILL .lblDMG = "" 'show armor Case 3 ' Helmet .lblItemType.Caption = "Helmet" .lblItemSpeed.Caption = "" .lblstat.Caption = "STR: +" & STR & vbCrLf & "END: +" & ENDu & vbCrLf & "INT: +" & INTe & vbCrLf & "AGI: +" & AGI & vbCrLf & "WILL: +" & WILL .lblDMG = "" 'show armor Case 4 ' Shield .lblItemType.Caption = "Shield" .lblItemSpeed.Caption = "" .lblstat.Caption = "STR: +" & STR & vbCrLf & "END: +" & ENDu & vbCrLf & "INT: +" & INTe & vbCrLf & "AGI: +" & AGI & vbCrLf & "WILL: +" & WILL .lblDMG = "" 'show armor Case 5 ' orange .lblItemType.Caption = "Consume" Case 6 ' orange .lblItemType.Caption = "Key" Case 7 ' orange .lblItemType.Caption = "Currency" Case 8 ' orange .lblItemType.Caption = "Spell Scroll" End Select 'is player meets REq: If plvl < LVLq Then .lbllvl_req.ForeColor = RGB(255, 0, 0) .lbllvl_req.Caption = "Level: " & LVLq Else .lbllvl_req.ForeColor = RGB(255, 255, 255) .lbllvl_req.Caption = "Level: " & LVLq End If If pstr < STRq Then .lblSTR_req.ForeColor = RGB(255, 0, 0) .lblSTR_req.Caption = "Str: " & STRq Else .lblSTR_req.ForeColor = RGB(255, 255, 255) .lblSTR_req.Caption = "Str: " & STRq End If If pend < ENDuq Then .lblEND_req.ForeColor = RGB(255, 0, 0) .lblEND_req.Caption = "End: " & ENDuq Else .lblEND_req.ForeColor = RGB(255, 255, 255) .lblEND_req.Caption = "End: " & ENDuq End If If pagi < AGIq Then .lblagi_req.ForeColor = RGB(255, 0, 0) .lblagi_req.Caption = "Agi: " & AGIq Else .lblagi_req.ForeColor = RGB(255, 255, 255) .lblagi_req.Caption = "Agi: " & AGIq End If If pint < INTeq Then .lblINT_req.ForeColor = RGB(255, 0, 0) .lblINT_req.Caption = "Int: " & INTeq Else .lblINT_req.ForeColor = RGB(255, 255, 255) .lblINT_req.Caption = "Int: " & INTeq End If If pwill < WILLq Then .lblWILL_req.ForeColor = RGB(255, 0, 0) .lblWILL_req.Caption = "Will: " & WILLq Else .lblWILL_req.ForeColor = RGB(255, 255, 255) .lblWILL_req.Caption = "Will: " & WILLq End If ' If pclass = CLASSq Then ' .lblclass_req.ForeColor = RGB(255, 255, 255) ' Else ' .lblclass_req.ForeColor = RGB(255, 0, 0) ' End If 'Trim$(Item(itemnum).data1) 'to do spell Details ' render the item BltItemDesc itemnum End With ' Error handler Exit Sub errorhandler: HandleError "UpdateDescWindow", "modGameLogic", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` (The code is a one big mess i know… soz!) And sample as that compile and you done :) To do:(v4) Class Requirement. Show Consume and spell details. Final result: [](http://imageshack.us/photo/my-images/825/screenyv3.png/) Uploaded with [ImageShack.us](http://imageshack.us) here is the GUI: [](http://imageshack.us/photo/my-images/11/descriptionitem.jpg/) Uploaded with [ImageShack.us](http://imageshack.us)

@Annahstas: > We don't need to know your ip. OK just check the questions: > 1\. Did you use 7001 0r 4000 port? > 2\. Did you go to portforward.com and port your router correctly? > 3\. Did you get the correct ip from ipchicken.com or whats my ip on Google search? > 4\. Did you put your correct ip in the .config notepad file? > 5\. If you changed your port did you do it in the server file as well? > 6\. Is your fire wall open?

I cant attack NPCs 0.0 why? XD

fixed, in scrlDrop value was 0 and needed to be 1:) thnx every one !

WTF 0.0 the IP on the title now changed to something else i think is my DNS but i dont know 0.0 its stating with 63 end with 2 sound familiare??(I dunna) firewall is off :)

and if mine doesnt have? is there any other way ?:) how do i make it run on my Hamachi for example. also, how does that function called? (ext ip to lan ip)

Hi :) So im trying to publish my game for some friends, i did everything right, changed the configs open a DMZ in my router ETC… still, no one can login or register.. "the server is down". my theory is that the server is running on the router LAN (or how its called) which is only available to the computers that connected to him. in the server form the title the IP shows the 192.168.2.X which is my router address(X=the number that the router gave to my comp) any suggestion? :O TThanks BTW: I dont have problem runing a minecraft or others games server :Z

added already… to top: Private DropIndex As Byte and to the form load now the DropIndex = 1. still the same:Z Scott whould you like to have the source to see if you can point me what is the problem ? :)

yes i've done the same, but i keep on getting the "RunTime error 9" with the outrange subscrip and i dont know why :Z Private Sub scrlDrop_Change() DropIndex = scrlDrop.Value fraDrop.Caption = "Drop - " & DropIndex *txtChance.text = NPC(EditorIndex).DropChance(DropIndex) scrlNum.Value = NPC(EditorIndex).DropItem(DropIndex) scrlValue.Value = NPC(EditorIndex).DropItemValue(DropIndex) End Sub * = error

I did delete the folder (NPC) and she regenerate .. there are spawn though with no sprite or info… @taegan how did you fix and include the scrl? :)

whats wong with this lines: Private Sub scrlDrop_Change() DropIndex = scrlDrop.Value fraDrop.Caption = "Drop - " & DropIndex txtChance.text = NPC(EditorIndex).DropChance(DropIndex) scrlNum.Value = NPC(EditorIndex).DropItem(DropIndex) scrlValue.Value = NPC(EditorIndex).DropItemValue(DropIndex) End Sub im getting an subscript out of range on the fourth(4) line…

Its says the Script is out of range here's is my frmEDITOR_NPC: ``` Option Explicit Private DropIndex As Byte Private Sub cmbBehaviour_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler NPC(EditorIndex).Behaviour = cmbBehaviour.ListIndex ' Error handler Exit Sub errorhandler: HandleError "cmbBehaviour_Click", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub cmdDelete_Click() Dim tmpIndex As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler ClearNPC EditorIndex tmpIndex = lstIndex.ListIndex lstIndex.RemoveItem EditorIndex - 1 lstIndex.AddItem EditorIndex & ": " & NPC(EditorIndex).Name, EditorIndex - 1 lstIndex.ListIndex = tmpIndex NpcEditorInit ' Error handler Exit Sub errorhandler: HandleError "cmdDelete_Click", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub Form_Load() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler DropIndex = scrlDrop.Value scrlDrop.Max = MAX_NPC_DROPS scrlDrop.Min = 1 fraDrop.Caption = "Drop - " & DropIndex scrlSprite.Max = NumCharacters scrlAnimation.Max = MAX_ANIMATIONS 'ALATAR scrlQuest.Max = MAX_QUESTS '/ALATAR ' Error handler Exit Sub errorhandler: HandleError "Form_Load", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub cmdSave_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Call NpcEditorOk ' Error handler Exit Sub errorhandler: HandleError "cmdSave_Click", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub cmdCancel_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Call NpcEditorCancel ' Error handler Exit Sub errorhandler: HandleError "cmdCancel_Click", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub lstIndex_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler NpcEditorInit ' Error handler Exit Sub errorhandler: HandleError "lstIndex_Click", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlAnimation_Change() Dim sString As String ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlAnimation.Value = 0 Then sString = "None" Else sString = Trim$(Animation(scrlAnimation.Value).Name) lblAnimation.Caption = "Anim: " & sString NPC(EditorIndex).Animation = scrlAnimation.Value ' Error handler Exit Sub errorhandler: HandleError "scrlAnimation_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlSprite_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblSprite.Caption = "Sprite: " & scrlSprite.Value Call EditorNpc_BltSprite NPC(EditorIndex).Sprite = scrlSprite.Value ' Error handler Exit Sub errorhandler: HandleError "scrlSprite_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlDrop_Change() DropIndex = scrlDrop.Value fraDrop.Caption = "Drop - " & DropIndex txtChance.text = NPC(EditorIndex).DropChance(DropIndex) scrlNum.Value = NPC(EditorIndex).DropItem(DropIndex) scrlValue.Value = NPC(EditorIndex).DropItemValue(DropIndex) End Sub Private Sub scrlRange_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblRange.Caption = "Range: " & scrlRange.Value NPC(EditorIndex).Range = scrlRange.Value ' Error handler Exit Sub errorhandler: HandleError "scrlRange_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlNum_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblNum.Caption = "Num: " & scrlNum.Value If scrlNum.Value > 0 Then lblItemName.Caption = "Item: " & Trim$(Item(scrlNum.Value).Name) End If NPC(EditorIndex).DropItem = scrlNum.Value ' Error handler Exit Sub errorhandler: HandleError "scrlNum_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlStat_Change(Index As Integer) Dim prefix As String ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Select Case Index Case 1 prefix = "Str: " Case 2 prefix = "End: " Case 3 prefix = "Int: " Case 4 prefix = "Agi: " Case 5 prefix = "Will: " End Select lblStat(Index).Caption = prefix & scrlStat(Index).Value NPC(EditorIndex).Stat(Index) = scrlStat(Index).Value ' Error handler Exit Sub errorhandler: HandleError "scrlStat_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlValue_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblValue.Caption = "Value: " & scrlValue.Value NPC(EditorIndex).DropItemValue = scrlValue.Value ' Error handler Exit Sub errorhandler: HandleError "scrlValue_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub txtAttackSay_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler NPC(EditorIndex).AttackSay = txtAttackSay.text ' Error handler Exit Sub errorhandler: HandleError "txtAttackSay_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub txtChance_Change() On Error GoTo chanceErr If Not IsNumeric(txtChance.text) And Not Right$(txtChance.text, 1) = "%" And Not InStr(1, txtChance.text, "/") > 0 And Not InStr(1, txtChance.text, ".") Then txtChance.text = "0" NPC(EditorIndex).DropChance(DropIndex) = 0 Exit Sub End If If Right$(txtChance.text, 1) = "%" Then txtChance.text = Left(txtChance.text, Len(txtChance.text) - 1) / 100 ElseIf InStr(1, txtChance.text, "/") > 0 Then Dim i() As String i = Split(txtChance.text, "/") txtChance.text = Int(i(0) / i(1) * 1000) / 1000 End If If txtChance.text > 1 Or txtChance.text < 0 Then 'Err.Description = "Value must be between 0 and 1!" 'GoTo chanceErr End If NPC(EditorIndex).DropChance(DropIndex) = txtChance.text Exit Sub chanceErr: MsgBox "Invalid entry for chance! " & Err.Description txtChance.text = "0" NPC(EditorIndex).DropChance(DropIndex) = 0 End Sub Private Sub txtDamage_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Not Len(txtDamage.text) > 0 Then Exit Sub If IsNumeric(txtDamage.text) Then NPC(EditorIndex).Damage = Val(txtDamage.text) ' Error handler Exit Sub errorhandler: HandleError "txtDamage_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub txtEXP_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Not Len(txtEXP.text) > 0 Then Exit Sub If IsNumeric(txtEXP.text) Then NPC(EditorIndex).EXP = Val(txtEXP.text) ' Error handler Exit Sub errorhandler: HandleError "txtEXP_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub txtHP_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Not Len(txtHP.text) > 0 Then Exit Sub If IsNumeric(txtHP.text) Then NPC(EditorIndex).HP = Val(txtHP.text) ' Error handler Exit Sub errorhandler: HandleError "txtHP_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub txtLevel_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Not Len(txtLevel.text) > 0 Then Exit Sub If IsNumeric(txtLevel.text) Then NPC(EditorIndex).Level = Val(txtLevel.text) ' Error handler Exit Sub errorhandler: HandleError "txtlevel_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub txtName_Validate(Cancel As Boolean) Dim tmpIndex As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If EditorIndex = 0 Then Exit Sub tmpIndex = lstIndex.ListIndex NPC(EditorIndex).Name = Trim$(txtName.text) lstIndex.RemoveItem EditorIndex - 1 lstIndex.AddItem EditorIndex & ": " & NPC(EditorIndex).Name, EditorIndex - 1 lstIndex.ListIndex = tmpIndex ' Error handler Exit Sub errorhandler: HandleError "txtName_Validate", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub txtSpawnSecs_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Not Len(txtSpawnSecs.text) > 0 Then Exit Sub NPC(EditorIndex).SpawnSecs = Val(txtSpawnSecs.text) ' Error handler Exit Sub errorhandler: HandleError "txtSpawnSecs_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub cmbSound_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If cmbSound.ListIndex >= 0 Then NPC(EditorIndex).Sound = cmbSound.List(cmbSound.ListIndex) Else NPC(EditorIndex).Sound = "None." End If ' Error handler Exit Sub errorhandler: HandleError "cmdSound_Click", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub 'ALATAR Private Sub scrlQuest_Change() lblQuest = "Quest Num: " & scrlQuest.Value NPC(EditorIndex).QuestNum = scrlQuest.Value End Sub '/ALATAR ```

Thnx! helped :D

Thnx! helped :D