willunited

I did it for evolution of classes: Example:Fighter->Warrior->Knight/Puncher (i tried GetPlayerEvolution = 1 And GetPlayerEvolution = 9 but doenst work). ``` Function GetPlayerEvolution(ByVal index As Long) As Long Select Case GetPlayerClass(index) Case 1 GetPlayerEvolution = 1 Case 2 GetPlayerEvolution = 2 Case 3 GetPlayerEvolution = 3 Case 4 GetPlayerEvolution = 4 Case 5 GetPlayerEvolution = 5 Case 6 GetPlayerEvolution = 6 Case 7 GetPlayerEvolution = 7 Case 8 GetPlayerEvolution = 8 Case 9 GetPlayerEvolution = 1 And 9 Case 10 GetPlayerEvolution = 2 And 10 Case 11 GetPlayerEvolution = 3 And 11 Case 12 GetPlayerEvolution = 4 And 12 Case 13 GetPlayerEvolution = 5 And 13 Case 14 GetPlayerEvolution = 6 And 14 Case 15 GetPlayerEvolution = 7 And 15 Case 16 GetPlayerEvolution = 8 And 16 Case 17 GetPlayerEvolution = 1 And 9 And 17 Case 18 GetPlayerEvolution = 1 And 9 And 18 Case 19 GetPlayerEvolution = 2 And 10 And 19 Case 20 GetPlayerEvolution = 2 And 10 And 20 Case 21 GetPlayerEvolution = 4 And 12 And 21 Case 22 GetPlayerEvolution = 4 And 12 And 22 Case 23 GetPlayerEvolution = 5 And 13 And 23 Case 24 GetPlayerEvolution = 5 And 13 And 24 Case 25 GetPlayerEvolution = 6 And 14 And 25 Case 26 GetPlayerEvolution = 6 And 14 And 26 Case 27 GetPlayerEvolution = 7 And 15 And 27 Case 28 GetPlayerEvolution = 7 And 15 And 28 Case 29 GetPlayerEvolution = 8 And 16 And 29 Case 30 GetPlayerEvolution = 8 And 16 And 30 Case 31 GetPlayerEvolution = 3 And 11 And 31 Case 32 GetPlayerEvolution = 3 And 11 And 32 End Select End Function ``` And in UseItem sub: ``` If Item(itemnum).ClassReq > 0 Then If Not GetPlayerEvolution(index) = Item(itemnum).ClassReq Then PlayerMsg index, "Hidden", BrightRed Exit Sub End If End If ```

Thx for the help ^^

Variable not defined (Vb appoints Fighter as variable not defined)

(I'm Using EA) I tried do a thing like this but doenst work: ``` Function GetPlayerClassName(ByVal MyIndex As Long) As Long Select Case GetPlayerClass(MyIndex) Case 1 GetPlayerClassName = Trim$(Fighter) Case Else GetPlayerClassName = Trim$(Test) ``` And at DrawCharacter in modGraphics: ``` dY = dY + 13 RenderText Font_Default, "Class: " & GetPlayerClassName(MyIndex), dX, dY, White ``` Help please.

When Npc is following a player and cant pass because of a blocked tile he try other way,i dont want this,it lag so much,where i can delete this content?

Recover 25% of the maximun player hp by pressing R key (With cooldown)

I cant Recognize vbkey by server side? How?

Yes,it need code. Max is already at 1000… Prob ill need to remade all npc...

I did it scrlNum.Max = MAX_ITEMS,but still happening

I can't put more than 256,i get Overflow at NPC(EditorIndex).DropItem(DropIndex) = scrlNum.Value

Ex: lblLoading.visible = true when load: lblloading.visible = false Where i do it?

This one: > [background=rgb(247, 247, 247)] If Item(GetPlayerInvItemNum(Index, invNum)).BindType = 1 Or Item(GetPlayerInvItemNum(Index, invNum)).BindType = 2 Then Exit Sub[/background]

i put this: > ' Prevent hacking > > If invNum < 1 Or invNum > MAX_INV Then Exit Sub > > If Item(GetPlayerInvItemNum(Index, invNum)).BindType = 1 Or Item(GetPlayerInvItemNum(Index, invNum)).BindType = 2 Then Exit Sub > > If GetPlayerInvItemNum(Index, invNum) < 1 Or GetPlayerInvItemNum(Index, invNum) > MAX_ITEMS Then Exit Sub > > If Item(GetPlayerInvItemNum(Index, invNum)).Type = ITEM_TYPE_CURRENCY Then > > If Amount < 1 Or Amount > GetPlayerInvItemValue(Index, invNum) Then Exit Sub > > End If In HandleMapDropItem. Im geting Subscript out of range,but idk why. Where is the error?

Bump

If you withdraw a high number of item,you get subscript out of range. Ex:Withdraw 19320809813 Gold.

just 2 xD. No one help me to add this modification…

Idk how to do it my project is open and i need it D: Thx.

I put this on HandleMapDropItem Sub: > If Item(GetPlayerInvItemNum(Index, invNum)).BindType = 1 Then Exit Sub But stil droping…

I put Bind when Pickup but i can drop the item…. How to fix it? Thx

Is possible select a close target with tab? How?

[background=rgb(247, 247, 247)]Select Case Player(Index).Hotbar(Slot).sType[/background]

Geting subscript out of range in this line: > Select Case Player(Index).Hotbar(Slot).sType > > Case 1 ' inventory > > For i = 1 To MAX_INV > > If Player(Index).Inv(i).Num > 0 Then > > If Player(Index).Inv(i).Num = Player(Index).Hotbar(Slot).Slot Then > > UseItem Index, i > > Exit Sub > > End If > > End If > > Next

It doenst exists… and whats this: MAX_DOTS

I can add more than 30 items in a shop?

Yes….the prob is put the name. Example: I want to do this command /invite blkcrow