[Aporte] Al agarrar oro se auto-equipa

Bueno esto es para que cuando agarramos oro del piso se ponga directamente en la billetera:

En el "Sub GetObj(ByVal UserIndex As Integer)" buscamos

Código:

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

Y abajo ponemos

Código:

       If MiObj.ObjIndex = 12 Then
        UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiObj.amount
        Call EraseObj(MapData(UserList(UserIndex).Pos.map, X, Y).ObjInfo.amount, UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
        Call WriteUpdateGold(UserIndex)
        Exit Sub
        End If

Es todo. Saludos

Fuente: GS Zone

Buen Aporte , Gracias por traerlo al foro