Oro, me llena ulla :/

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

» 12 Oct 2011 21:50

En el server buscas:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Public Sub TirarOroNpc(ByVal Cantidad As Long, ByRef Pos As WorldPos)

Y reemplazas todo ese Sub por esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. 'AyudandOh
2. Public Sub TirarOroNpc(ByVal UserIndex As Integer, ByVal Cantidad As Long, ByRef Pos As WorldPos)
3.  
4. On Error GoTo Errhandler
5.  
6.     If Cantidad > 0 Then
7.         UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + Cantidad
8.         Call WriteUpdateGold(UserIndex)
9.         Call WriteConsoleMsg(UserIndex, "Has obtenido " & Cantidad & " monedas de oro.", FontTypeNames.FONTTYPE_INFO) 'Ponele una comilla adelante de esta linea si no queres q salga por consola
10.     End If
11.  
12.     Exit Sub
13.  
14. Errhandler:
15.     Call LogError("Error en TirarOro. Error " & Err.Number & " : " & Err.description)
16. End Sub

Buscas:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Public Sub NPC_TIRAR_ITEMS(ByRef npc As npc, ByVal IsPretoriano As Boolean)

Y reemplazas todo ese Sub por esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. 'AyudandOh
2. Public Sub NPC_TIRAR_ITEMS(ByVal UserIndex As Integer, ByRef npc As npc, ByVal IsPretoriano As Boolean)
3.  
4. On Error Resume Next
5.  
6.     With npc
7.        
8.         Dim i As Byte
9.         Dim MiObj As Obj
10.         Dim NroDrop As Integer
11.         Dim Random As Integer
12.         Dim ObjIndex As Integer
13.        
14.         If IsPretoriano Then
15.             For i = 1 To MAX_INVENTORY_SLOTS
16.                 If .Invent.Object(i).ObjIndex > 0 Then
17.                       MiObj.Amount = .Invent.Object(i).Amount
18.                       MiObj.ObjIndex = .Invent.Object(i).ObjIndex
19.                       Call TirarItemAlPiso(.Pos, MiObj)
20.                 End If
21.             Next i
22.  
23.             If .GiveGLD > 0 Then _
24.                 Call TirarOroNpc(UserIndex, .GiveGLD, .Pos)
25.                
26.             Exit Sub
27.         End If
28.        
29.         Random = RandomNumber(1, 100)
30.        
31.         If Random <= 90 Then
32.             NroDrop = 1
33.            
34.             If Random <= 10 Then
35.                 NroDrop = NroDrop + 1
36.                  
37.                 For i = 1 To 3
38.  
39.                     If RandomNumber(1, 100) <= 10 Then
40.                         NroDrop = NroDrop + 1
41.                     Else
42.                         Exit For
43.                     End If
44.                 Next i
45.                
46.             End If
47.            
48.  
49.             ObjIndex = .Drop(NroDrop).ObjIndex
50.             If ObjIndex > 0 Then
51.            
52.                 If ObjIndex = iORO Then
53.                     Call TirarOroNpc(UserIndex, .Drop(NroDrop).Amount, npc.Pos)
54.                 Else
55.                     MiObj.Amount = .Drop(NroDrop).Amount
56.                     MiObj.ObjIndex = .Drop(NroDrop).ObjIndex
57.                    
58.                     Call TirarItemAlPiso(.Pos, MiObj)
59.                 End If
60.             End If
61.  
62.         End If
63.  
64.     End With
65.  
66. End Sub

Buscas:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Call NPC_TIRAR_ITEMS(MiNPC, IsPretoriano)

Y lo remplazas por:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Call NPC_TIRAR_ITEMS(UserIndex, MiNPC, IsPretoriano)

Fuente: [Z]ion! de GS - ZONE

201.212.4.181:27015

# gREEN CasTle

dame un kiz ♪♫

684

Registrado:

Ubicación: Rearmando Seventh AO ~

Mensajes: 2290

Aportes: 26

Premios: 2

Arriba

» 12 Oct 2011 23:27

Ahora me fijo sifunciona y edito...
Sos un groso escuchas Deadmau5

EDIT: No me encontro ninguna linea de la que pusistes...

gonza5a

<Staff Zarate-AO>

58 (-2)

Registrado:

Ubicación: Intentando Programar

Mensajes: 227

Arriba

» 13 Oct 2011 20:53

Ah porque eso era para 13.X
Fijate así:


Busca

Código:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub NPCTirarOro(ByRef MiNPC As npc)

Y reemplaza todo el sub por esto.

Código:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub NPCTirarOro(ByRef MiNPC As npc, ByVal UserIndex As Integer)
2.   UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiNPC.GiveGLD
3. End Sub

Luego buscas:

Código:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. If MiNPC.MaestroUser = 0 Then

y mas abajo va a ver esta linea:

Código:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Call NPCTirarOro(MiNPC)
2.  

Bueno la reemplazas por:

Código:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Call NPCTirarOro(MiNPC, UserIndex)

Si deadmau 5 ! RLZ

Última edición por # gREEN CasTle el 13 Oct 2011 20:54, editado 1 vez en total

201.212.4.181:27015

# gREEN CasTle

dame un kiz ♪♫

684

Registrado:

Ubicación: Rearmando Seventh AO ~

Mensajes: 2290

Aportes: 26

Premios: 2

Arriba

Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados