;Ultimate Destruction
VarX = 0
VarY = 0

id = Floor(GetUserMessage(#USERID))

While VarY < 21

if VarX >= 21
VarX = 0
VarY = VarY + 1
endif

CreateEffect(id,2000,2000,#DIR_UP,GetUserMap(#USERID),VarX,VarY,5,#USERID,0)
CreateEffect(id,2000,2000,#DIR_DOWN,GetUserMap(#USERID),VarX,VarY,5,#USERID,0)
CreateEffect(id,2000,2000,#DIR_LEFT,GetUserMap(#USERID),VarX,VarY,5,#USERID,0)
CreateEffect(id,2000,2000,#DIR_RIGHT,GetUserMap(#USERID),VarX,VarY,5,#USERID,0)

VarX = VarX + 1
Wend

Continue = 1