Codigo creado por lagalot el dia 28 de Enero de 2006, quedan todos los derechos reservados y copyright 2006 por mi.
-Objetivo del codigo: Poder modificar la cantidad de dropeo de oro aleatoriamente permitiendoles asi a los usuarios poder obtener mas o quiza menos oro segun sea el caso.
+Instalacion: Demasiado sencilla, por no decir boba, solo debemos reemplazar un sub.
En el modulo NPCS reemplazamos todo el sub NPCTIRARORO por:
Nota: este codigo puede ser mejorado, pero no tengo tanto tiempo asi que lo dejo asi..
Nota2: Tambien puedo hacer otro sistema para que se declare el minOro y maxOro desde el npcs-hostiles pero abria que modificar todo, este es mas sencillo
Codigo Creado Por Lagalot
-Objetivo del codigo: Poder modificar la cantidad de dropeo de oro aleatoriamente permitiendoles asi a los usuarios poder obtener mas o quiza menos oro segun sea el caso.
+Instalacion: Demasiado sencilla, por no decir boba, solo debemos reemplazar un sub.
En el modulo NPCS reemplazamos todo el sub NPCTIRARORO por:
Código:
Sub NPCTirarOro(MiNPC As npc)
'SI EL NPC TIENE ORO LO TIRAMOS
If MiNPC.GiveGLD > 0 Then
Dim MiObj As Obj
If MiNPC.GiveGLD > 99 And MiNPC.GiveGLD < 200 Then
MiObj.Amount = RandomNumber(100, 199)
ElseIf MiNPC.GiveGLD > 199 And MiNPC.GiveGLD < 500 Then
MiObj.Amount = RandomNumber(200, 499)
ElseIf MiNPC.GiveGLD > 499 And MiNPC.GiveGLD < 750 Then
MiObj.Amount = RandomNumber(500, 749)
ElseIf MiNPC.GiveGLD > 749 And MiNPC.GiveGLD < 1000 Then
MiObj.Amount = RandomNumber(750, 999)
ElseIf MiNPC.GiveGLD > 999 And MiNPC.GiveGLD < 1500 Then
MiObj.Amount = RandomNumber(1000, 1499)
ElseIf MiNPC.GiveGLD > 1499 And MiNPC.GiveGLD < 2000 Then
MiObj.Amount = RandomNumber(1500, 1999)
ElseIf MiNPC.GiveGLD > 1999 And MiNPC.GiveGLD < 2500 Then
MiObj.Amount = RandomNumber(2000, 2499)
ElseIf MiNPC.GiveGLD > 2499 And MiNPC.GiveGLD < 3000 Then
MiObj.Amount = RandomNumber(2500, 2999)
ElseIf MiNPC.GiveGLD > 2999 And MiNPC.GiveGLD < 3500 Then
MiObj.Amount = RandomNumber(3000, 3499)
ElseIf MiNPC.GiveGLD > 3499 And MiNPC.GiveGLD < 4000 Then
MiObj.Amount = RandomNumber(3500, 3999)
ElseIf MiNPC.GiveGLD > 3999 And MiNPC.GiveGLD < 4500 Then
MiObj.Amount = RandomNumber(4000, 4499)
ElseIf MiNPC.GiveGLD > 4499 And MiNPC.GiveGLD < 5000 Then
MiObj.Amount = RandomNumber(4500, 4999)
ElseIf MiNPC.GiveGLD > 4999 And MiNPC.GiveGLD < 5500 Then
MiObj.Amount = RandomNumber(5000, 5499)
ElseIf MiNPC.GiveGLD > 5499 And MiNPC.GiveGLD < 6000 Then
MiObj.Amount = RandomNumber(5500, 5999)
ElseIf MiNPC.GiveGLD > 5999 And MiNPC.GiveGLD < 6500 Then
MiObj.Amount = RandomNumber(6000, 6499)
ElseIf MiNPC.GiveGLD > 6499 And MiNPC.GiveGLD < 7000 Then
MiObj.Amount = RandomNumber(6500, 6999)
ElseIf MiNPC.GiveGLD > 6999 And MiNPC.GiveGLD < 8000 Then
MiObj.Amount = RandomNumber(7000, 7999)
ElseIf MiNPC.GiveGLD > 7999 And MiNPC.GiveGLD < 9000 Then
MiObj.Amount = RandomNumber(8000, 8999)
ElseIf MiNPC.GiveGLD > 8999 And MiNPC.GiveGLD < 10000 Then
MiObj.Amount = RandomNumber(9000, 9999)
ElseIf MiNPC.GiveGLD > 9999 And MiNPC.GiveGLD < 15000 Then
MiObj.Amount = RandomNumber(10000, 14999)
ElseIf MiNPC.GiveGLD > 14999 And MiNPC.GiveGLD < 20000 Then
MiObj.Amount = RandomNumber(15000, 19999)
ElseIf MiNPC.GiveGLD > 19999 And MiNPC.GiveGLD < 30000 Then
MiObj.Amount = RandomNumber(20000, 29999)
Else
MiObj.Amount = MiNPC.GiveGLD
End If
MiObj.ObjIndex = iORO
Call TirarItemAlPiso(MiNPC.Pos, MiObj)
End If
End Sub
Nota: este codigo puede ser mejorado, pero no tengo tanto tiempo asi que lo dejo asi..
Nota2: Tambien puedo hacer otro sistema para que se declare el minOro y maxOro desde el npcs-hostiles pero abria que modificar todo, este es mas sencillo
Codigo Creado Por Lagalot