WD RPG WD

>! ' bank Private Sub picbank_DblClick() Dim bankNum As Long >! DragBankSlotNum = 0 >! bankNum = IsBankItem(BankX, BankY) If bankNum 0 Then If GetBankItemNum(bankNum) = ITEM_TYPE_NONE Then Exit Sub If Item(GetBankItemNum(bankNum)).Type = ITEM_TYPE_CURRENCY Then CurrencyMenu = 3 ' withdraw lblCurrency.Caption = "How many do you want to withdraw?" tmpCurrencyItem = bankNum txtCurrency.text = vbNullString picCurrency.Visible = True txtCurrency.SetFocus Exit Sub End If WithdrawItem bankNum, 0 Exit Sub End If End Sub >! Private Sub picbank_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim bankNum As Long bankNum = IsBankItem(x, y) If bankNum 0 Then If Button = 1 Then DragBankSlotNum = bankNum End If End If End Sub >! Private Sub picbank_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Dim i As Long Dim rec_pos As RECT ' TODO : Add sub to change bankslots client side first so there's no delay in switching If DragBankSlotNum > 0 Then For i = 1 To MAX_BANK With rec_pos .top = BankTop + ((BankOffsetY + 32) * ((i - 1) \ BankColumns)) .Bottom = .top + PIC_Y .left = BankLeft + ((BankOffsetX + 32) * (((i - 1) Mod BankColumns))) .Right = .left + PIC_X End With >! If x >= rec_pos.left And x = rec_pos.top And y ! DragBankSlotNum = 0 picTempBank.Visible = False End Sub >! Private Sub picbank_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim bankNum As Long, itemnum As Long, ItemType As Long Dim x2 As Long, y2 As Long >! BankX = x BankY = y If DragBankSlotNum > 0 Then Call BltBankItem(x + picBank.left, y + picBank.top) Else bankNum = IsBankItem(x, y) If bankNum 0 Then x2 = x + picBank.left + 2 y2 = y + picBank.top + 2 UpdateDescWindow Bank.Item(bankNum).num, Bank.Item(bankNum).Value, x2, y2 Exit Sub End If End If frmMain.picItemDesc.Visible = False LastBankDesc = 0 End Sub >! Private Function IsBankItem(ByVal x As Single, ByVal y As Single) As Long Dim tempRec As RECT Dim i As Long >! IsBankItem = 0 For i = 1 To MAX_BANK If GetBankItemNum(i) > 0 And GetBankItemNum(i) = tempRec.left And x = tempRec.top And y

Alright. I havnt been here in a while.. I cant remove the items from my bank. When I highlight an item in the bank the "information" pops up in front of the item and I cant click on it. Any advice on how to solve this problem? [](http://postimage.org/image/1qhkzhhwk/)

No, [WN] - Robins Package.

I was searching through the source and couldn't find where I can change the location of the starting place by class. I have six differant maps for 6 classes as tutorial maps. Any help would be appreciated. Thanks.

Its from Robins package. I added 4 new classes to the classes.ini The new classes were not registering HP and Mana. That code under the ModCombat Module shows that you also have to update the classes within the source. Its working now for me. I might as welll make a tutorial now. :)

Upon further testing I switched the source with the originial in both the client and server and the same issue occured. I guess that means the issue is somewhere not in the source? Maybe in the classes.ini? I changed it to 6 classes. I also changed the gui to a BMP.. Im just trying to think of things I changed. EDIT: OK, I found this under ModCombat I assume for every class I have I need to update this with every class? Anything else besides that? Function GetPlayerMaxVital(ByVal Index As Long, ByVal Vital As Vitals) As Long If Index > MAX_PLAYERS Then Exit Function Select Case Vital Case HP Select Case GetPlayerClass(Index) Case 1 ' Warrior GetPlayerMaxVital = ((GetPlayerLevel(Index) / 2) + (Player(Index).Stat(Stats.Endurance) / 2)) * 15 + 150 Case 2 ' Mage GetPlayerMaxVital = ((GetPlayerLevel(Index) / 2) + (Player(Index).Stat(Stats.Endurance) / 2)) * 5 + 65 End Select Case MP Select Case GetPlayerClass(Index) Case 1 ' Warrior GetPlayerMaxVital = ((GetPlayerLevel(Index) / 2) + (Player(Index).Stat(Stats.Intelligence) / 2)) * 5 + 25 Case 2 ' Mage GetPlayerMaxVital = ((GetPlayerLevel(Index) / 2) + (Player(Index).Stat(Stats.Intelligence) / 2)) * 30 + 85 End Select End Select End Function

Im not sure what I did to the source or where to look to fix the problem. I create a new player and they start with 100 hp/mp no matter what I set the end. or Int. to. On top of that, the monsters I created always kill my player in one hit regardless of my HP or their strength. Any ideas where to look? I can upload the source file if needed. It was working when I first started my project. Any help would be appreciated. Side note: The hp/mana/exp. bars in the Gui don't reduce/gain when affected. Any advice?

You may want to go to options and check which controls you have for movement.

@☺☻☺: > Robin, put your arrow system on sale. I wil surely buy it. > > If you don't have one, you should make on. Lots of $$$ will come your way. +1 But he seems busy enough as it is.

Great. It Worked. Such a simple thing. :P

Im trying to increase my MAX_ITEMS to 500\. I changed the server and the client to 500 and I'm getting an overflow message when I load the server. I'm new to this and I'm sure its a simple fix. Thanks.

Makes sence now. Thank you Robin.

After further review I'm only having issues with the one NPC and what they drop. I think it has somthing to do with having them assigned to a quest and trying to reuse that exact NPC later. I still don't know what the drop slide bar is for among other things like what level an NPC is and what that is for. Tutorials would be such a help.

I don't want to be a bother to anyone but I've tried to figure these things out on my own and somtimes I can't figure it out. In the NPC editor I see the drop item section. On the bottom you have: Drop Slide bar - No idea. Chance - Chance of dropping the item. Number - What item. Value - How many of that item. What is the drop slide bar and no matter what I do it is always random what an NPC drops. Somtimes they will drop 3 random items at once. And lastly, I like the hotbar but it blocks the Map name. Is it easy to move it to the bottom or have an option to disable it? And I thought they were assigned to the function keys. They work through my number keys. I know you're busy Robin. I put it here hoping others can help me if you have no time to.

I can confirm the same issues. I also noticed that under "give item" in the Conversation menu it lists the shops, not the items to be given. Also, nothing happens when setting it to "Open Bank".