[SISTEMA] Exp y DC Premiun - By ArOn

Este es un sistema del juego Knight Online, me surgio la idea de hacerlo para el Wc3



Descripcion de lo que hace el Sistema:

Compras tu item Exp/DC Premiun del NPC (Tienda/Shop) el item se remueve del inventario, se te da los atributos deseados segun el premiun comprado, el tiempo es modificable segun multiplo 0.50 x 2 = 1 segundo [Ejemplo quiero 2 minutos seria 240, luego le restas 15 x 2 = 30 y se lo colocas antes del mensaje condicion del detonador loop] en el loop hay para configurar en la cantidad de tiempo que quieres que salga el tiempo de aviso antes de que expire.
No se puede usar 2 veces el premiun sin antes primero aver expirado.

Exp Premiun => Aumenta la Exp Rate del jugador en un 300% durante 2 minutos.
DC Premiun => Aumenta el Drop Rate de Oro del hero segun la cantidad deseada, como ejemplo le coloque 5 de drop oro bonus hacia unidades y 50 hacia heroes de drop oro bonus.(solo funcione en el que lo haya comprado)[/color]

Detonadores:
Exp Premiun:

Spoiler:

 

[gui]Exp Prem
   Acontecimientos
       Unidad - A unit Adquiere un objeto
   Condiciones
       (Item-type of (Item being manipulated)) Igual a Exp Premiun
   Acciones
       Set ExpPrem_Max_Index = (ExpPrem_Max_Index + 1)
       Set ExpPrem_Owner[ExpPrem_Max_Index] = (Triggering unit)
       If (All Conditions are True) then do (Then Actions) else do (Else Actions)
           Si: Condiciones
               (Level of Exp Premiun  for ExpPrem_Owner[ExpPrem_Max_Index]) Igual a 0
           Entonces: Acciones
               Detonador - Turn on Exp Prem Loop
               Set ExpPrem_Timer[ExpPrem_Max_Index] = 0
               Unidad - Add Exp Premiun  to ExpPrem_Owner[ExpPrem_Max_Index]
               HÃroe - Make (Owner of ExpPrem_Owner[ExpPrem_Max_Index]) Heroes gain 300.00% experience from future kills
               Objeto - Remove (Item carried by ExpPrem_Owner[ExpPrem_Max_Index] of type Exp Premiun)
               Set ExpPrem_PlayerDisplay[ExpPrem_Max_Index] = (Player group((Owner of ExpPrem_Owner[ExpPrem_Max_Index])))
               -------- Edita este display a tu gusto. --------
               Partida - Display to ExpPrem_PlayerDisplay[ExpPrem_Max_Index] the text: |c00FEBA0EExp Premi...
               Custom script:   call DestroyForce(udg_ExpPrem_PlayerDisplay[udg_ExpPrem_Max_Index])
           Otros: Acciones
               -------- el oro de abajo es importante que sea el mismo que la cantidad que cuesta al comprarla --------
               Jugador - Add 500 to (Owner of ExpPrem_Owner[ExpPrem_Max_Index]) Oro actual
               Objeto - Remove (Item carried by ExpPrem_Owner[ExpPrem_Max_Index] of type Exp Premiun)
               Set ExpPrem_PlayerDisplay[ExpPrem_Max_Index] = (Player group((Owner of ExpPrem_Owner[ExpPrem_Max_Index])))
               -------- Este display te dice que ya tienes una premiun en uso y no podras usar otro hasta que expire --------
               Partida - Display to ExpPrem_PlayerDisplay[ExpPrem_Max_Index] the text: |c00FEBA0EExp Premi...
               Custom script:   call DestroyForce(udg_ExpPrem_PlayerDisplay[udg_ExpPrem_Max_Index])
               Set ExpPrem_Owner[ExpPrem_Max_Index] = Ninguna unidad
               Set ExpPrem_Max_Index = (ExpPrem_Max_Index - 1)[/gui]

[gui]Exp Prem Loop
   Acontecimientos
       Tiempo - Every 0.50 seconds of game time
   Condiciones
   Acciones
       For each (Integer ExpPrem_Current_Index) from 1 to ExpPrem_Max_Index, do (Actions)
           Bucle: Acciones
               Set ExpPrem_Timer[ExpPrem_Current_Index] = (ExpPrem_Timer[ExpPrem_Current_Index] + 1)
               If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                   Si: Condiciones
                       ExpPrem_Timer[ExpPrem_Current_Index] Igual a 210
                   Entonces: Acciones
                       Set ExpPrem_PlayerDisplay[ExpPrem_Current_Index] = (Player group((Owner of ExpPrem_Owner[ExpPrem_Current_Index])))
                       -------- Este display avisa cuando quedan 15 segundos antes de expirar. --------
                       Partida - Display to ExpPrem_PlayerDisplay[ExpPrem_Current_Index] the text: |c00FEBA0EExp Premi...
                       Custom script:   call DestroyForce(udg_ExpPrem_PlayerDisplay[udg_ExpPrem_Current_Index])
                   Otros: Acciones
               If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                   Si: Condiciones
                       ExpPrem_Timer[ExpPrem_Current_Index] Mayor que o igual a 240
                   Entonces: Acciones
                       Unidad - Remove Exp Premiun  from ExpPrem_Owner[ExpPrem_Current_Index]
                       -------- Aqui abajo restauramos la exp rate a la que tenia antes de comprar premiun --------
                       HÃroe - Make (Owner of ExpPrem_Owner[ExpPrem_Current_Index]) Heroes gain 100.00% experience from future kills
                       Set ExpPrem_PlayerDisplay[ExpPrem_Current_Index] = (Player group((Owner of ExpPrem_Owner[ExpPrem_Current_Index])))
                       -------- Este display avisa cuando ya se acabo tu premiun. --------
                       Partida - Display to ExpPrem_PlayerDisplay[ExpPrem_Current_Index] the text: |c00FEBA0EExp Premi...
                       Custom script:   call DestroyForce(udg_ExpPrem_PlayerDisplay[udg_ExpPrem_Current_Index])
                       Set ExpPrem_PlayerDisplay[ExpPrem_Current_Index] = ExpPrem_PlayerDisplay[ExpPrem_Max_Index]
                       Set ExpPrem_Owner[ExpPrem_Current_Index] = ExpPrem_Owner[ExpPrem_Max_Index]
                       Set ExpPrem_Timer[ExpPrem_Current_Index] = ExpPrem_Timer[ExpPrem_Max_Index]
                       Set ExpPrem_Current_Index = (ExpPrem_Current_Index - 1)
                       Set ExpPrem_Max_Index = (ExpPrem_Max_Index - 1)
                       If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                           Si: Condiciones
                               ExpPrem_Max_Index Igual a 0
                           Entonces: Acciones
                               Detonador - Turn off (This trigger)
                           Otros: Acciones
                   Otros: Acciones[/gui]

DC Premiun:

Spoiler:

 

[gui]DC Prem
   Acontecimientos
       Unidad - A unit Adquiere un objeto
   Condiciones
       (Item-type of (Item being manipulated)) Igual a DC Premiun
   Acciones
       Set DCPrem_Max_Index = (DCPrem_Max_Index + 1)
       Set DCPrem_Owner[DCPrem_Max_Index] = (Triggering unit)
       If (All Conditions are True) then do (Then Actions) else do (Else Actions)
           Si: Condiciones
               (Level of DC Premiun  for DCPrem_Owner[DCPrem_Max_Index]) Igual a 0
           Entonces: Acciones
               Detonador - Turn on DC Prem Loop
               Detonador - Turn on DC Prem Kill Unidad
               Detonador - Turn on DC Prem Kill Heroe
               Set DCPrem_Timer[DCPrem_Max_Index] = 0
               Unidad - Add DC Premiun  to DCPrem_Owner[DCPrem_Max_Index]
               Objeto - Remove (Item carried by DCPrem_Owner[DCPrem_Max_Index] of type DC Premiun)
               Set DCPrem_PlayerDisplay[DCPrem_Max_Index] = (Player group((Owner of DCPrem_Owner[DCPrem_Max_Index])))
               -------- Edita este display a tu gusto. --------
               Partida - Display to DCPrem_PlayerDisplay[DCPrem_Max_Index] the text: |c00FEBA0EDC Premiu...
               Custom script:   call DestroyForce(udg_DCPrem_PlayerDisplay[udg_DCPrem_Max_Index])
           Otros: Acciones
               -------- el oro de abajo es importante que sea el mismo que la cantidad que cuesta al comprarla --------
               Jugador - Add 500 to (Owner of DCPrem_Owner[DCPrem_Max_Index]) Oro actual
               Objeto - Remove (Item carried by DCPrem_Owner[DCPrem_Max_Index] of type DC Premiun)
               Set DCPrem_PlayerDisplay[DCPrem_Max_Index] = (Player group((Owner of DCPrem_Owner[DCPrem_Max_Index])))
               -------- Este display te dice que ya tienes una premiun en uso y no podras usar otro hasta que expire --------
               Partida - Display to DCPrem_PlayerDisplay[DCPrem_Max_Index] the text: |c00FEBA0EDC Premiu...
               Custom script:   call DestroyForce(udg_DCPrem_PlayerDisplay[udg_DCPrem_Max_Index])
               Set DCPrem_Owner[DCPrem_Max_Index] = Ninguna unidad
               Set DCPrem_Max_Index = (DCPrem_Max_Index - 1)[/gui]

[gui]DC Prem Loop
   Acontecimientos
       Tiempo - Every 0.50 seconds of game time
   Condiciones
   Acciones
       For each (Integer DCPrem_Current_Index) from 1 to DCPrem_Max_Index, do (Actions)
           Bucle: Acciones
               Set DCPrem_Timer[DCPrem_Current_Index] = (DCPrem_Timer[DCPrem_Current_Index] + 1)
               If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                   Si: Condiciones
                       DCPrem_Timer[DCPrem_Current_Index] Igual a 210
                   Entonces: Acciones
                       Set DCPrem_PlayerDisplay[DCPrem_Current_Index] = (Player group((Owner of DCPrem_Owner[DCPrem_Current_Index])))
                       -------- Este display avisa cuando quedan 15 segundos antes de expirar. --------
                       Partida - Display to DCPrem_PlayerDisplay[DCPrem_Current_Index] the text: |c00FEBA0EDC Premiu...
                       Custom script:   call DestroyForce(udg_DCPrem_PlayerDisplay[udg_DCPrem_Current_Index])
                   Otros: Acciones
               If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                   Si: Condiciones
                       DCPrem_Timer[DCPrem_Current_Index] Mayor que o igual a 240
                   Entonces: Acciones
                       Unidad - Remove DC Premiun  from DCPrem_Owner[DCPrem_Max_Index]
                       Set DCPrem_PlayerDisplay[DCPrem_Current_Index] = (Player group((Owner of DCPrem_Owner[DCPrem_Current_Index])))
                       -------- Este display avisa cuando ya se acabo tu premiun. --------
                       Partida - Display to DCPrem_PlayerDisplay[DCPrem_Current_Index] the text: |c00FEBA0EDC Premiu...
                       Custom script:   call DestroyForce(udg_DCPrem_PlayerDisplay[udg_DCPrem_Current_Index])
                       Set DCPrem_PlayerDisplay[DCPrem_Current_Index] = DCPrem_PlayerDisplay[DCPrem_Max_Index]
                       Set DCPrem_Owner[DCPrem_Current_Index] = DCPrem_Owner[DCPrem_Max_Index]
                       Set DCPrem_Timer[DCPrem_Current_Index] = DCPrem_Timer[DCPrem_Max_Index]
                       Set DCPrem_Current_Index = (DCPrem_Current_Index - 1)
                       Set DCPrem_Max_Index = (DCPrem_Max_Index - 1)
                       If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                           Si: Condiciones
                               DCPrem_Max_Index Igual a 0
                           Entonces: Acciones
                               Detonador - Turn off DC Prem Kill Unidad
                               Detonador - Turn off DC Prem Kill Heroe
                               Detonador - Turn off (This trigger)
                           Otros: Acciones
                   Otros: Acciones[/gui]

[gui]DC Prem Kill Heroe
   Acontecimientos
       Unidad - A unit Muere
   Condiciones
       ((Dying unit) is Un hÃroe) Igual a False
       ((Dying unit) is Una estructura) Igual a False
       ((Dying unit) belongs to an enemy of (Owner of (Killing unit))) Igual a True
       (Level of DC Premiun  for (Killing unit)) Igual a 1
   Acciones
       -------- editen el oro a la cantidad deseada cuando mates a un heroe --------
       Jugador - Add 5 to (Owner of (Killing unit)) Oro actual
       -------- Aqui pueden editar el mensaje del texto flotante a su gusto --------
       Texto flotante - Create floating text that reads |c0000FF00+5 [DC Pr... above (Killing unit) with Z offset 0.00, using font size 12.00, color (100.00%, 0.00%, 0.00%), and 0.00% transparency
       Set DCPrem_PlayerDisplayK = (Player group((Owner of (Killing unit))))
       Texto flotante - Mostrar (Last created floating text) for DCPrem_PlayerDisplayK
       Custom script:   call DestroyForce(udg_DCPrem_PlayerDisplayK)
       Texto flotante - Change (Last created floating text): Desactivar permanence
       Texto flotante - Change the lifespan of (Last created floating text) to 1.50 seconds
       Texto flotante - Set the velocity of (Last created floating text) to 92.00 towards 90.00 degrees
       Texto flotante - Change the fading age of (Last created floating text) to 0.00 seconds[/gui]

[gui]DC Prem Kill Unidad
   Acontecimientos
       Unidad - A unit Muere
   Condiciones
       ((Dying unit) is Un hÃroe) Igual a True
       ((Dying unit) is Una estructura) Igual a False
       ((Dying unit) belongs to an enemy of (Owner of (Killing unit))) Igual a True
       (Level of DC Premiun  for (Killing unit)) Igual a 1
   Acciones
       -------- editen el oro a la cantidad deseada cuando mates a una unidad. --------
       Jugador - Add 50 to (Owner of (Killing unit)) Oro actual
       -------- Aqui pueden editar el mensaje del texto flotante a su gusto --------
       Texto flotante - Create floating text that reads |c0000FF00+50 [DC P... above (Killing unit) with Z offset 0.00, using font size 12.00, color (100.00%, 0.00%, 0.00%), and 0.00% transparency
       Set DCPrem_PlayerDisplayK = (Player group((Owner of (Killing unit))))
       Texto flotante - Mostrar (Last created floating text) for DCPrem_PlayerDisplayK
       Custom script:   call DestroyForce(udg_DCPrem_PlayerDisplayK)
       Texto flotante - Change (Last created floating text): Desactivar permanence
       Texto flotante - Change the lifespan of (Last created floating text) to 1.50 seconds
       Texto flotante - Set the velocity of (Last created floating text) to 92.00 towards 90.00 degrees
       Texto flotante - Change the fading age of (Last created floating text) to 0.00 seconds[/gui]

(Hice 2 detonadores [DC Prem Kill Unidad/Heroe] para que los nuevos entiendan mejor y no se confundan, ya que en una guia que habia hecho para un user nuevo se habia confundido mucho con varios if que le dije , asi que lo dejo claro de una vez esta parte)

Descargar:

:descargar: 


 

no olviden dejar creditos si lo usan en alguno de sus mapas

más sistemas, más rep

Util, se agradece .

Saludos.

Excelente sistema ArOn, muevo a la sección para aprobados.

Muy pronto ya estarás recibiendo tus respectivas monedas.

Saludos,
Sapphiron.

exelente para mi mapa

lo voy a probar. gracias por el aporte..comento para ver link

Comento para ver el enlace.

Comento para descargar...

Buenas, comento para descargar.

El titulo me parecio nuevo, bueno igual, buen aporte, sigue asi ahijado

Probando el mapa

El enlace no sirve...

gracias por el aporte

Buen Aporte amigo

veamos que tal

gracias por la guia

No funciona el .link dice que esta expirado!!!!

¡muy practico!

me encanta

muy bueno

bien buen