Spell 3 of my Time Magic collection. Thanks to Acratia for showing us all in the IRC channel how to go about this.
Edit: Bug fixed. If using before, either re-download or find the missing ENDIF yourself
[code:1:4495b72b35]
[ITEMDEF i_scroll_haste]
ID=i_scroll_earthquake
NAME=Haste Scroll
TYPE=t_eq_script
ON=@Create
ATTR=020
ON=@DClick
IF (
SRC.SYSMESSAGE You do not have enough mana to cast this spell
RETURN 1
ENDIF
TARGET Select Target
RETURN 1
ON=@Targon_Char
IF (
SRC.SYSMESSAGE You do not have enough mana to cast this spell
RETURN 1
ELSE
SRC.MANA=
SRC.SAY Uus Tym
SRC.ANIM 17
TAG.OLDAMOUNT=
AMOUNT=1
ATTR=
P=1,1
LINK=
MORE1=0
TIMER=1
IF (
SRC.NEWITEM i_scroll_haste
SRC.ACT.AMOUNT=
SRC.ACT.CONT=
TAG.OLDAMOUNT=
ENDIF
ENDIF
RETURN 1
ON=@Timer
IF !(
REMOVE
ENDIF
IF
LINK.EFFECT 3,i_fx_sparkle_2,20,15
LINK.SFX 486
MORE1={300 600}
TIMERd=2
ELSEIF
REMOVE
ELSE
MORE1 =
LINK.TIMERd=2
TIMERd=3
ENDIF
RETURN 1
[/code:1:4495b72b35]