[Aportes indexados] Valores de oro aleatorios

Estado
Cerrado para nuevas respuestas.
S

Shura

Dragón Ancestral Lvl 2
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:
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
 
C

centauros

Aprendiz Lvl 1
PeSi

alguien me puede ayudar sobre como agregar un a clase de Pj
como ''Mago'' etc pos quiero acer una clase que se llame cocinero y que solo haga comida el que sepa que me agrege al msn y dejar el post muchas gracias..

aqui les dejo mi msn <a href="mailto:[email protected]" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">[email protected]</a>.
 
L

LorKin

Newbie Lvl 3
Hola centauros supongo que ya sabes quien soy xD.

Bueno se que eres nuevo en este foro pero te recomiendo que leas las reglas, ami al principio tambien me costo.

1) No revivas un mensaje que se publico hace tanto tiempo, en este caso mas un año :shock: y menos si no es una duda sobre ese mismo tema.

2) Para preguntar una duda no te lo pienses 2 vezes crea un tema nuevo bien expuesto y la gente se interesa mas por el.

Esto que hiciste tiene merecimiento de advertencia espero que no lo hagan ya que eres nuevo y te den una nueva oportunidad.

Salu2

PD: Respecto a tu duda no te puedo ayudar como ya sabes :?:
 
A

Anonymous

Invitado
Re: PeSi

centauros dijo:
alguien me puede ayudar sobre como agregar un a clase de Pj
como ''Mago'' etc pos quiero acer una clase que se llame cocinero y que solo haga comida el que sepa que me agrege al msn y dejar el post muchas gracias..

aqui les dejo mi msn <a href="mailto:[email protected]" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">[email protected]</a>.
Haz clic para expandir...
Como bien dijo LorKin, tenés que leer el reglamento (el cual es de lectura obligatória) y si tenés alguna duda sobre un tema de programación y no existe un tema reciente creado por la misma razón, no hay ningun problema en que crees uno explayandote en tu duda o problema, pero no lo hagas en un tema creado cuyo fin o tema que se tratando no tenga anda que ver con tu duda.

Como este tema creo que ya está resuelto, lo cierro, si algún administrador cree que debe estar abierto que lo reabra que no me enojo :p.
 
Estado
Cerrado para nuevas respuestas.
Arriba