Loop=1

Label LoopAgain
EffectDirRand=Random(1,8)

If EffectDirRand=1
EffectDir=#DIR_UP
Endif
If EffectDirRand=2
EffectDir=#DIR_DOWN
Endif
If EffectDirRand=3
EffectDir=#DIR_RIGHT
Endif
If EffectDirRand=4
EffectDir=#DIR_LEFT
Endif
If EffectDirRand=5
EffectDir=#DIR_UPLEFT
Endif
If EffectDirRand=6
EffectDir=#DIR_DOWNLEFT
Endif
If EffectDirRand=7
EffectDir=#DIR_UPRIGHT
Endif
If EffectDirRand=8
EffectDir=#DIR_DOWNRIGHT
Endif

CreateEffect(Random(0,14),Random(0,1000),Random(0,400),EffectDir,#MAPID,Random(0,20),Random(0,20),0,0,0)

If Loop=20
	Goto End
Else
	Loop=Loop+1
	Goto LoopAgain
Endif

Label End




Continue = 1