+- SphereCommunity (https://forum.spherecommunity.net)
+-- Forum: Sphere 0.56d (/Forum-Sphere-0-56d)
+--- Forum: Script Help (/Forum-Script-Help)
+--- Thread: duel pit fails (/Thread-duel-pit-fails)
duel pit fails - daedelus - 08-14-2012 11:37 PM
Spanish:
Intente crear un sistema automático poniendo simplemente .duelpit y que cree en cada una de las coordenadas una piedra para ingresar al duelpit. Después de 10 minutos se debería borrar. Pero no esta funcionando, porque a los 10 minutos no se borra y no crea todas las piedras que yo especifique.
English:
I Try to creating an automated system by simply putting. Duelpit and believes in each of the coordinates to enter a stone of duelpit. After 10 minutes the stone should be deleted. But not working, because after 10 minutes the stone don't delete.
The another problem is that, the stones don't be create completly, after ten minutes, the announcement again without put .duelpit.
Code:
[ITEMDEF I_GRAVEDUEL]
ID=I_GRAVE_STONE
NAME=Entrada DUEL PIT
CATEGORY=Mayo
SUBSECTION=Duel
DESCRIPTION=Piedra del Duel
on=@create
ATTR=ATTR_MOVE_NEVER
COLOR=0480
ON=@Dclick
SRC.GO 6074,449,-22
SRC.EVENTS +E_DUEL
[EVENTS E_DUEL]
SRC.TAG.OLDNAME=<SRC.NAME>
SRC.TAG.OLDCOLOR=<SRC.COLOR>
SRC.TAG.OLDKARMA=<SRC.KARMA>
SRC.TAG.OLDFAME=<SRC.FAME>
SRC.TAG.OLDKILLS=<SRC.KILLS>
SRC.NAME=<SRC.NAME>[DUEL PIT]
ON=@DEATH
SRC.GO 6091,442,-22
SRC.HITS=<SRC.STR>
RETURN 1
[ITEMDEF I_GRAVEDUEL2]
ID=I_GRAVE_STONE
NAME=Salida DUEL PIT
CATEGORY=Mayo
SUBSECTION=Duel
DESCRIPTION=Piedra del Duel 2
ON=@Dclick
SRC.GO 1336,1997,5,0
SRC.EVENTS -E_DUEL
SRC.EVENTS +E_DUEL2
[EVENTS E_DUEL2]
SRC.NAME=<SRC.TAG.OLDNAME>
SRC.COLOR=<SRC.TAG.OLDCOLOR>
SRC.KARMA=<SRC.TAG.OLDKARMA>
SRC.FAME=<SRC.TAG.OLDFAME>
SRC.KILLS=<SRC.TAG.OLDKILLS>
SRC.EVENTS -E_DUEL2
[ITEMDEF I_RESU]
ID=04
NAME=Ankh
ON=@CREATE
COLOR=COLOR_ICE
ON=@Dclick
SRC.RESURRECT
[ITEMDEF I_RESU2]
ID=05
NAME=Ankh
ON=@CREATE
COLOR=COLOR_ICE
ON=@Dclick
SRC.RESURRECT
[PLEVEL 4]
DUELPIT
[FUNCTION DUELPIT] //The first stone (brit) only can announce the event.
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 1431,1695,0,0 //BRIT
NEW.TIMER=1
NEW.MORE=10
SERV.B @0466 Se han creado las piedras para el Duel Pit!
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
SERV.B @0466 Se han creado las piedras para el Duel Pit!
TAG0.UID_ENTRADA=
return 1
ELSE
SERV.B @0466 Quedan <MORE> minutos para que comience el Duel Pit.
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
SERV.B @0466 Se cerro el acceso al duel pit.
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 2504,562,0,0 //MINOC
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 577,2131,0,0 //SKARA BRAE
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 4472,1178,0,0 //MOONGLOW
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 2234,1198,0,0 //COVE
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 5674,3142,12,0 //PAPUA
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 2893,3475,15,0 //SERPENT'S HOLD
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 2723,2188,0,0 //BUCCANNER'S DEN
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 5222,185,5,0 //WIND
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= J1324,3780,0,0 //JHELOM
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
//SERV.NEWITEM= I_GRAVEDUEL
//NEW.P= MAGINCIA ADD LATER
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 3690,2522,0,0 //OCCLO
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 1822,2825,0,0 //TRINSIC
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 636,859,0,0 //YEW
NEW.TIMER=1
NEW.MORE=10
ON=@TIMER
TIMER=60
IF ( <EVAL <MORE> > == 0 )
TIMER=-1
REMOVE <EVAL <TAG0.UID_ENTRADA> >
TAG0.UID_ENTRADA=
return 1
ELSE
MORE=<MORE>-1
return 1
IF (<MORE> == 0)
REMOVE
ENDIF
[EoF]Thanks
p.s.: Sorry for my english.
RE: duel pit fails - RanXerox - 08-15-2012 12:18 AM
Here is the main problem:
- A function cannot include triggers (things like ON=@something)
- In your case, the trigger should probably be on the gravestone ITEMDEF
- You can not redefine a trigger multiple times... There can only be one ON=@Trigger
Here is other advice:
- I have my doubts that "> ==" is a viable operator... use ">=" instead
- There is no need to EVAL MORE because MORE is always a number. You only need to EVAL things if they could have a string value. For example, a TAG or VAR could contain a number or a string and may need to be EVAL'd.
- The REMOVE function probably doesn't need to have its argument EVAL'd
RE: duel pit fails - daedelus - 08-15-2012 12:46 AM
(08-15-2012 12:18 AM)RanXerox Wrote: Here is the main problem:
- A function cannot include triggers (things like ON=@something)
- In your case, the trigger should probably be on the gravestone ITEMDEF
- You can not redefine a trigger multiple times... There can only be one ON=@Trigger
Here is other advice:
- I have my doubts that "> ==" is a viable operator... use ">=" instead
- There is no need to EVAL MORE because MORE is always a number. You only need to EVAL things if they could have a string value. For example, a TAG or VAR could contain a number or a string and may need to be EVAL'd.
- The REMOVE function probably doesn't need to have its argument EVAL'd
I looked back to the code and try to apply your answer, now put it in a part <link.more> == <more> and use it in a [function] that is valid?.
thanks
p.s: Sorry for my english
Code:
[ITEMDEF I_GRAVEDUEL]
ID=I_GRAVE_STONE
NAME=Entrada DUEL PIT
CATEGORY=Mayo
SUBSECTION=Duel
DESCRIPTION=Piedra del Duel
on=@create
attr=attr_move_never
color=0480
timer=1
MORE=10
LINK.MORE=<MORE> //I use this link.more for the function
ON=@Timer
Timer=60
IF ( <more> >= 0 )
timer=-1
remove <eval <tag0.uid_entrada> >
tag0.uid_entrada=
return 1
ELSE
MORE=<MORE>-1
return 1
ENDIF
ON=@Dclick
SRC.GO 6074,449,-22
SRC.EVENTS +E_DUEL
[EVENTS E_DUEL]
SRC.TAG.OLDNAME=<SRC.NAME>
SRC.TAG.OLDCOLOR=<SRC.COLOR>
SRC.TAG.OLDKARMA=<SRC.KARMA>
SRC.TAG.OLDFAME=<SRC.FAME>
SRC.TAG.OLDKILLS=<SRC.KILLS>
SRC.NAME=<SRC.NAME>[DUEL PIT]
ON=@DEATH
SRC.GO 6091,442,-22
SRC.HITS=<SRC.STR>
RETURN 1
[ITEMDEF I_GRAVEDUEL2]
ID=I_GRAVE_STONE
NAME=Salida DUEL PIT
CATEGORY=Mayo
SUBSECTION=Duel
DESCRIPTION=Piedra del Duel 2
ON=@Dclick
SRC.GO 1336,1997,5,0
SRC.EVENTS -E_DUEL
SRC.EVENTS +E_DUEL2
[EVENTS E_DUEL2]
SRC.NAME=<SRC.TAG.OLDNAME>
SRC.COLOR=<SRC.TAG.OLDCOLOR>
SRC.KARMA=<SRC.TAG.OLDKARMA>
SRC.FAME=<SRC.TAG.OLDFAME>
SRC.KILLS=<SRC.TAG.OLDKILLS>
SRC.EVENTS -E_DUEL2
[ITEMDEF I_RESU]
ID=04
NAME=Ankh
ON=@CREATE
COLOR=COLOR_ICE
ON=@Dclick
SRC.RESURRECT
[ITEMDEF I_RESU2]
ID=05
NAME=Ankh
ON=@CREATE
COLOR=COLOR_ICE
ON=@Dclick
SRC.RESURRECT
[PLEVEL 4]
DUELPIT
[FUNCTION DUELPIT]
SERV.B @0466 Se han creado las piedras para el Duel Pit!
IF (<LINK.MORE> == 10)
SERV.B @0466 Quedan <LINK.MORE> minutos para que comience el Duel Pit.
ELIF (<LINK.MORE> == 9)
SERV.B @0466 Quedan <LINK.MORE> minutos para que comience el Duel Pit.
ELIF (<LINK.MORE> == 8)
SERV.B @0466 Quedan <LINK.MORE> minutos para que comience el Duel Pit.
ELIF (<LINK.MORE> == 7)
SERV.B @0466 Quedan <LINK.MORE> minutos para que comience el Duel Pit.
ELIF (<LINK.MORE> == 6)
SERV.B @0466 Quedan <LINK.MORE> minutos para que comience el Duel Pit.
ELIF (<LINK.MORE> == 5)
SERV.B @0466 Quedan <LINK.MORE> minutos para que comience el Duel Pit.
ELIF (<LINK.MORE> == 4)
SERV.B @0466 Quedan <LINK.MORE> minutos para que comience el Duel Pit.
ELIF (<LINK.MORE> == 3)
SERV.B @0466 Quedan <LINK.MORE> minutos para que comience el Duel Pit.
ELIF (<LINK.MORE> == 2)
SERV.B @0466 Quedan <LINK.MORE> minutos para que comience el Duel Pit.
ELIF (<LINK.MORE> == 1)
SERV.B @0466 Quedan <LINK.MORE> minutos para que comience el Duel Pit.
ELIF (<LINK.MORE> == 0)
SERV.B @0466 Duel Pit cerrado!.
ENDIF
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 1431,1695,0,0 //BRIT
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 2504,562,0,0 //MINOC
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 4472,1178,0,0 //MOONGLOW
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 2234,1198,0,0 //COVE
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 5674,3142,12,0 //PAPUA
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 2893,3475,15,0 //SERPENT'S HOLD
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 2723,2188,0,0 //BUCCANNER'S DEN
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 5222,185,5,0 //WIND
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 1324,3780,0,0 //JHELOM
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 3690,2522,0,0 //OCCLO
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 1822,2825,0,0 //TRINSIC
SERV.NEWITEM= I_GRAVEDUEL
NEW.P= 636,859,0,0 //YEW
[EoF]RE: duel pit fails - RanXerox - 08-15-2012 06:32 AM
Try this:
PHP Code:
[PLEVEL 4]
DUELPIT
[FUNCTION DUELPIT]
IF (<VAR.DuelPitRunning>)
SRC.SYSMESSAGE You cannot start a new duel event till the previous one is finished
RETURN 1
ENDIF
SERV.B @0466 Se han creado las piedras para el Duel Pit!
SERV.NEWITEM=i_duel_control
VAR.DuelPitRunning=<NEW> // Set a global variable with the control stone's UID
NEW.P=<SRC.P> // Put the control stone at the GM's feet
NEW.LINK=<SRC> // Link the control stone to the GM
NEW.MORE=10 // This is the number of minutes for the countdown
NEW.TIMER=1 // Start the countdown timer
//Create all the entrance stones at each bank (link them to the control stone)...
SERV.NEWITEM=i_duel_entrance
NEW.P= 1431,1695,0,0 //BRIT
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 2504,562,0,0 //MINOC
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 4472,1178,0,0 //MOONGLOW
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 2234,1198,0,0 //COVE
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 5674,3142,12,0 //PAPUA
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 2893,3475,15,0 //SERPENT'S HOLD
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 2723,2188,0,0 //BUCCANNER'S DEN
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 5222,185,5,0 //WIND
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 1324,3780,0,0 //JHELOM
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 3690,2522,0,0 //OCCLO
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 1822,2825,0,0 //TRINSIC
NEW.LINK=<VAR.DuelPitRunning>
SERV.NEWITEM=i_duel_entrance
NEW.P= 636,859,0,0 //YEW
NEW.LINK=<VAR.DuelPitRunning>
[ITEMDEF i_duel_control]
ID=I_GRAVE_STONE
NAME=DUEL PIT CONTROL
TYPE=t_normal
CATEGORY=Mayo
SUBSECTION=Duel
DESCRIPTION=Duel Pit Controller
ON=@Create
ATTR=attr_move_never
COLOR=0480
ON=@Timer
IF (<MORE>)
SERV.B @0466 Quedan <EVAL <MORE>> minutos para que comience el Duel Pit.
MORE -- // subtract 1 from MORE
TIMER=60 // set the TIMER for 60 more seconds
ELSE
SERV.B @0466 Duel Pit cerrado!.
//The timer is finished so find and remove all the duel event entrances:
FORINSTANCES i_duel_entrance
REMOVE
ENDFOR
ENDIF
RETURN 1
ON=@Dclick
IF (<SRC.ISGM>)
// Code to cancel the duel event:
VAR.DuelPitRunning=
ENDIF
REMOVE
[ITEMDEF i_duel_entrance]
ID=I_GRAVE_STONE
NAME=Entrada DUEL PIT
TYPE=t_normal
CATEGORY=Mayo
SUBSECTION=Duel
DESCRIPTION=Piedra del Duel
ON=@Create
ATTR=attr_move_never
COLOR=0480
ON=@DClick
SERV.B @0466 <SRC.NAME>entered the Duel Pit!
TAG.PlayerUID=<SRC> // Store the Player's UID in a tag
SRC.GO 6074,449,-22 // Send the player to the Duel Area Start
SRC.EVENTS +E_DUEL // Give the Player a duel event
// Save the player's vital statistics:
SRC.TAG.OLDNAME=<SRC.NAME>
SRC.TAG.OLDCOLOR=<SRC.COLOR>
SRC.TAG.OLDKARMA=<SRC.KARMA>
SRC.TAG.OLDFAME=<SRC.FAME>
SRC.TAG.OLDKILLS=<SRC.KILLS>
SRC.NAME=<SRC.NAME>[DUEL PIT]
[EVENTS E_DUEL]
ON=@Death
SRC.GO 6091,442,-22 //Send the player back to the duel start
SRC.HITS=<SRC.STR>
RETURN 1 //Prevent the player from actually dying
RE: duel pit fails - daedelus - 08-15-2012 08:24 AM
Oh thanks y see this script and i learn!!.
Thanks man!.