Tenia ganas de hacer algun aporte y hace mucho que no me siento con el codigo asi que publico esta pabada

todo en el server:

Reemplazan el "Sub NPCTirarOro" por este:

1. <LI class=li1>Sub NPCTirarOro(MiNPC As npc, UserIndex As Integer) <LI class=li2> <LI class=li1>'SI EL NPC TIENE ORO LO TIRAMOS <LI class=li2>'Pablo (ToxicWaste): Ahora se puede poner más de 10k de drop de oro en los NPC. <LI class=li1>If MiNPC.GiveGLD = 0 Then <LI class=li2> Call WriteConsoleMsg(UserIndex, "No te dio oro el npc.", FontTypeNames.FONTTYPE_INFO) <LI class=li1>End If <LI class=li2>If MiNPC.GiveGLD > 0 Then <LI class=li1> UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiNPC.GiveGLD <LI class=li2> Call WriteConsoleMsg(UserIndex, "El npc te ha dado " & MiNPC.GiveGLD & " monedas de oro", FontTypeNames.FONTTYPE_INFO) <LI class=li1> Call WriteUpdateUserStats(UserIndex) <LI class=li2>End If <LI class=li1>
2. End Sub

y despues buscan esta linea:

1. Call NPCTirarOro(MiNPC

y la reemplazan por esta:

1. Call NPCTirarOro(MiNPC, UserIndex)

Despues para que al agarrar oro valla directo a la billetera buscan el "Sub GetObj"
y abajo de esto:


MiObj.amount = MapData(UserList(UserIndex).Pos.map, X, Y).ObjInfo.amount

1. MiObj.ObjIndex = MapData(UserList(UserIndex).Pos.map, X, Y).ObjInfo.ObjIndex

ponen:

1. <LI class=li1>If Obj.OBJType = 5 Then <LI class=li2> UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiObj.amount <LI class=li1> Call EraseObj(MapData(UserList(UserIndex).Pos.map, X, Y).ObjInfo.amount, UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y) <LI class=li2> Call WriteUpdateUserStats(UserIndex) <LI class=li1> Exit Sub
2. End If

Espero que les guste mucho!!