xppxdd Posted October 29, 2011 Author Share Posted October 29, 2011 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:DV3!Show Items Requirement Stats and mark with red when player doesn't have enough of them.Show level (Mark as well)V2Showing DMG, ATS, Stats to Weapons, Armors, Helmet and Shield only.Show Item Type.Cancel the Window on Currency.known-bugs:NoneClient-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,lblItemspeedlblItemStatlblItemPricelblItemDMGlblItemTypeUpdate:lbllvl_reqlblstr_reqlblend_reqlblint_reqlblagi_reqlblwill_reqEdit 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 LongDim FirstLetter As String * 1Dim Name As StringDim ATS As DoubleATS = Trim$(Item(itemnum).Speed) / 1000Dim DMG As LongDMG = Trim$(Item(itemnum).Data2)'stat addDim STR As LongSTR = Trim$(Item(itemnum).Add_Stat(1))Dim ENDu As LongENDu = Trim$(Item(itemnum).Add_Stat(2))Dim AGI As LongAGI = Trim$(Item(itemnum).Add_Stat(4))Dim INTe As LongINTe = Trim$(Item(itemnum).Add_Stat(3))Dim WILL As LongWILL = Trim$(Item(itemnum).Add_Stat(5))'stat reqDim STRq As LongSTRq = Trim$(Item(itemnum).Stat_Req(1))Dim ENDuq As LongENDuq = Trim$(Item(itemnum).Stat_Req(2))Dim AGIq As LongAGIq = Trim$(Item(itemnum).Stat_Req(4))Dim INTeq As LongINTeq = Trim$(Item(itemnum).Stat_Req(3))Dim WILLq As LongWILLq = Trim$(Item(itemnum).Stat_Req(5))Dim LVLq As LongLVLq = Trim$(Item(itemnum).LevelReq)Dim CLASSq As LongCLASSq = Trim$(Item(itemnum).ClassReq)'player statsDim Index As LongDim plvl As LongDim pstr As LongDim pend As LongDim pint As LongDim pagi As LongDim pwill As LongDim pclass As Longpclass = Player(MyIndex).Classplvl = Player(MyIndex).Levelpstr = 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 Suberrorhandler: HandleError "UpdateDescWindow", "modGameLogic", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit SubEnd 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://img825.imageshack.us/img825/7391/screenyv3.png)](http://imageshack.us/photo/my-images/825/screenyv3.png/)Uploaded with [ImageShack.us](http://imageshack.us)here is the GUI:[![](http://img11.imageshack.us/img11/8382/descriptionitem.jpg)](http://imageshack.us/photo/my-images/11/descriptionitem.jpg/)Uploaded with [ImageShack.us](http://imageshack.us) Link to comment Share on other sites More sharing options...
Taegan Posted October 29, 2011 Share Posted October 29, 2011 Any chance you can post a screenshot, please? Link to comment Share on other sites More sharing options...
Xbatz Posted October 29, 2011 Share Posted October 29, 2011 A screenshot would be nice :) Link to comment Share on other sites More sharing options...
xppxdd Posted October 29, 2011 Author Share Posted October 29, 2011 [![](http://img85.imageshack.us/img85/6504/screenyw.png)](http://imageshack.us/photo/my-images/85/screenyw.png/)Uploaded with [ImageShack.us](http://imageshack.us) Link to comment Share on other sites More sharing options...
Xbatz Posted October 29, 2011 Share Posted October 29, 2011 :o very nice and this is Eo[2.0] right? I'm thinking so, well ill try it. Link to comment Share on other sites More sharing options...
Taegan Posted October 29, 2011 Share Posted October 29, 2011 Oh, very nice. ^^ I think I'll implement it. Thank you. Link to comment Share on other sites More sharing options...
xppxdd Posted October 29, 2011 Author Share Posted October 29, 2011 Thanks :) Link to comment Share on other sites More sharing options...
Taegan Posted October 29, 2011 Share Posted October 29, 2011 This question probably doesn't even make sense, but do we by any chance need to delete our existing items to implement this? o.o Link to comment Share on other sites More sharing options...
xppxdd Posted October 29, 2011 Author Share Posted October 29, 2011 I dont think so… you got any problems? Link to comment Share on other sites More sharing options...
Taegan Posted October 29, 2011 Share Posted October 29, 2011 I haven't tried it yet, I was just asking. I'm busy running errands right now, but tonight I will try it and get back to you. Thanks again. Link to comment Share on other sites More sharing options...
aiden500 Posted October 29, 2011 Share Posted October 29, 2011 You need to comply this right with vb6? Link to comment Share on other sites More sharing options...
Taegan Posted October 29, 2011 Share Posted October 29, 2011 'Course. Link to comment Share on other sites More sharing options...
XPiXel Posted October 30, 2011 Share Posted October 30, 2011 @Taegan:> This question probably doesn't even make sense, but do we by any chance need to delete our existing items to implement this? o.oI don't think so since it only makes the stats visible in the description, so it's really just a visual changing… Link to comment Share on other sites More sharing options...
Taegan Posted October 30, 2011 Share Posted October 30, 2011 Yeah, thanks. xDSo, I tried it and it works perfectly. I just wish there was a way to make it appear for Equipment items only. Link to comment Share on other sites More sharing options...
xppxdd Posted October 30, 2011 Author Share Posted October 30, 2011 there is ofc, lol only adding an "IF" at the start :) will update !Edit: Update~ Link to comment Share on other sites More sharing options...
Taegan Posted October 30, 2011 Share Posted October 30, 2011 Ohh, nice. o_oIn any case, it works great, good job. Link to comment Share on other sites More sharing options...
xppxdd Posted October 30, 2011 Author Share Posted October 30, 2011 The V2 as well? :P Link to comment Share on other sites More sharing options...
greendixy Posted October 30, 2011 Share Posted October 30, 2011 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 Link to comment Share on other sites More sharing options...
xppxdd Posted October 30, 2011 Author Share Posted October 30, 2011 @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 wellThat 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 :) Link to comment Share on other sites More sharing options...
Ariel Posted November 1, 2011 Share Posted November 1, 2011 That helped me learn a little about how to get details of thing in the game:)Oh And Thanks on Your Client to :) Link to comment Share on other sites More sharing options...
Wirbelwind Posted November 22, 2011 Share Posted November 22, 2011 Nice, Nice, Nice, thanks for this, dude ! :cheesy: Link to comment Share on other sites More sharing options...
benedek11 Posted December 24, 2011 Share Posted December 24, 2011 I think I'm the dumb, but it gives me an compile error, highlighting these:lblItemSpeed ..etc (the 11 line) (On the right side there's MouseMove insted of Default, cause i didn't find default o.o)And please help me how to insert the GUI..I overwrited the Graphic–->GUI--->Character-----> item_description to your itemdescription picture, but my item is out of the "item frame" look: Link to comment Share on other sites More sharing options...
theobjop Posted January 8, 2012 Share Posted January 8, 2012 Where do I find PicItemDesc???? Link to comment Share on other sites More sharing options...
Whackeddie99 Posted January 8, 2012 Share Posted January 8, 2012 you have to drag down your frmMain. its at the bottom left.Anyways, I have a question. When I add this in, all is swell except the item desc doesn't appear over currency. Nothing pops up for Currency typed items. Just nothing when I move my mouse over the icon Link to comment Share on other sites More sharing options...
theobjop Posted January 8, 2012 Share Posted January 8, 2012 What do you mean you have to "drag down"? Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now