Fixed warpportal script. bugreport:7451

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@17226 54d463be-8e91-2dee-dedb-b68131a5f0ec

src/map/script.c

@@ -15721,6 +15721,7 @@ BUILDIN_FUNC(warpportal)
 	group = skill_unitsetting(bl, AL_WARP, 4, spx, spy, 0);
 	if( group == NULL )
 		return 0;// failed
+	group->val1 = (group->val1<<16)|(short)0;
 	group->val2 = (tpx<<16) | tpy;
 	group->val3 = mapindex;