;'Bat Elixer' item use

BatSprite = 28

If GetUserFlag(#USERID, 3) = 0
	SetUserFlag(#USERID, 3, GetUserSprite(#USERID))
	SetUserSprite(#USERID, BatSprite)
	Timer(164, 300000, #USERID, 0, 0)
	WarpUser(#USERID, GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID))
	TakeItem(#USERID,110)
Endif

Continue = 1