;storm scroll (557)

;GoTo END

If #PARAM5 = 1
	GoTo SKIP
	sendmassagetouser(GetUserID("Apollyon"),"k",#MSG_CRITICAL)
EndIf
If #PARAM5 = 2
	GoTo SKIP
EndIf
If #PARAM5 = 3
	GoTo SKIP
EndIf
If #PARAM5 = 4
	GoTo SKIP
EndIf

MAP = #MAPID
X = #XPOS
Y = #YPOS
UP = #DIR_UP
K = 0
Label SKIP


if #PARAM5 = 1
CreateEffect(7,500,0,#PARAM1,#PARAM2,#PARAM3-2,#PARAM4,0,0,1)
createeffect(7,500,0,#PARAM1,#PARAM2,#PARAM3+2,#PARAM4,0,0,1)
endif

if #PARAM5 = 2
createeffect(7,500,0,#PARAM1,#PARAM2,#PARAM3,#PARAM4-2,0,0,1)
createeffect(7,500,0,#PARAM1,#PARAM2,#PARAM3,#PARAM4+2,0,0,1)
endif

if #PARAM5 = 3
CreateEffect(7,500,0,#PARAM1,#PARAM2,#PARAM3-1,#PARAM4-1,0,0,1)
createeffect(7,500,0,#PARAM1,#PARAM2,#PARAM3+1,#PARAM4+1,0,0,1)
endif

if #PARAM5 = 4
createeffect(7,500,0,#PARAM1,#PARAM2,#PARAM3+1,#PARAM4-1,0,0,1)
createeffect(7,500,0,#PARAM1,#PARAM2,#PARAM3-1,#PARAM4+1,0,0,1)
endif

if #PARAM5 = 4
goto END
endif

timer5(710,100,#DIR_UP,MAP,X,Y,K+1)

Label END

Continue = 1