Pearlsea

block wcs_ulti_engineer
{
if (server_var(wcs_debug) = "1") then echo wcs_ulti_suicide start
  es_xset wcs_team_target 0
  es_getplayerteam wcs_team server_var(wcs_userid)
  // check teams (T=2, CT=3)
  if (server_var(wcs_team) = 2) do
  {
    es_xset wcs_team_target 3
    es_xset wcs_team_targetn #ct
  }
  if (server_var(wcs_team) = 3) do
  {
    es_xset wcs_team_target 2
    es_xset wcs_team_targetn #t
  }
  if (server_var(wcs_team_target) != "0") do
  {
    es_xset wcs_pcount 0
    es_getlivingplayercount wcs_pcount server_var(wcs_team_target)
    if (server_var(wcs_pcount) > 0) do
    {
	  es_xset wcs_x1 0
      es_xset wcs_y1 0
      es_xset wcs_z1 0
	  es es_xtell server_var(wcs_userid) server_var(wcs_x1) server_var(wcs_y1) server_var(wcs_z1) server_var(wcs_radius)
	  es playerget viewcoord server_var(wcs_userid) wcs_x1 wcs_y1 wcs_z1
	  es es_xtell server_var(wcs_userid) server_var(wcs_x1) server_var(wcs_y1) server_var(wcs_z1) server_var(wcs_radius)
	  //es_createvectorstring wcs_vector server_var(wcs_x1) server_var(wcs_y1) server_var(wcs_z1)
	  es es_entcreate server_var(wcs_userid) weapon_c4
	  //es_xcopy eventscripts_lastgive wcs_c4prop


	  //alias wcs_run_ulti_suicide3 "es est_effect_08 #a 0 materials/sprites/lgtning.vmt server_var(wcs_vector) 1 200 1 2 20 10 50 255 255 255 100 10 0;es_delayed 1 est_effect_08 #a 0 materials/sprites/lgtning.vmt server_var(wcs_vector) 1 200 1 2 20 10 50 255 255 255 100 10 0;es_delayed 2 est_effect_08 #a 0 materials/sprites/lgtning.vmt server_var(wcs_vector) 1 200 1 2 20 10 50 255 255 255 100 10 0;es_delayed 3 est_effect_08 #a 0 materials/sprites/lgtning.vmt server_var(wcs_vector) 1 200 1 2 20 10 50 255 255 255 100 10 0;if (server_var(wcs_time) > 3) then es_delayed 4 est_effect_08 #a 0 materials/sprites/lgtning.vmt server_var(wcs_vector) 1 200 1 2 20 10 50 255 255 255 100 10 0;if (server_var(wcs_time) > 4) then es_delayed 5 est_effect_08 #a 0 materials/sprites/lgtning.vmt server_var(wcs_vector) 1 200 1 2 20 10 50 255 255 255 100 10 0;if (server_var(wcs_time) > 5) then es_delayed 6 est_effect_08 #a 0 materials/sprites/lgtning.vmt server_var(wcs_vector) 1 200 1 2 20 10 50 255 255 255 100 10 0;if (server_var(wcs_time) > 6) then es_delayed 7 est_effect_08 #a 0 materials/sprites/lgtning.vmt server_var(wcs_vector) 1 200 1 2 20 10 50 255 255 255 100 10 0;if (server_var(wcs_time) > 7) then es_delayed 8 est_effect_08 #a 0 materials/sprites/lgtning.vmt server_var(wcs_vector) 1 200 1 2 20 10 50 255 255 255 100 10 0;es_emitsound entity server_var(wcs_c4prop) button/blip1;es_delayed 1 es_emitsound entity server_var(wcs_c4prop) button/blip1;es_delayed 2 es_emitsound entity server_var(wcs_c4prop) button/blip1;es_delayed 3 es_emitsound entity server_var(wcs_c4prop) button/blip1;if (server_var(wcs_time) > 3) then es_delayed 4 es_emitsound entity server_var(wcs_c4prop) button/blip1;if (server_var(wcs_time) > 4) then es_delayed 5 es_emitsound entity server_var(wcs_c4prop) button/blip1;if (server_var(wcs_time) > 5) then es_delayed 6 es_emitsound entity server_var(wcs_c4prop) button/blip1;if (server_var(wcs_time) > 6) then es_delayed 7 es_emitsound entity server_var(wcs_c4prop) button/blip1;if (server_var(wcs_time) > 7) then es_delayed 8 es_emitsound entity server_var(wcs_c4prop) button/blip1 //need sound + beacon then continue alias
      alias wcs_run_ulti_suicide1 "es_xset wcs_immunity 0;es_keygetvalue wcs_immunity WCSuserdata server_var(wcs_targetid) ulti_immunity;if (server_var(wcs_immunity) = 0) then wcs_run_ulti_suicide2;if (server_var(wcs_immunity) != 0) then es_xtell server_var(wcs_userid) #multi server_var(wcs_lng_ulti_immunity_a);if (server_var(wcs_immunity) != 0) then es_xtell server_var(wcs_targetid) #multi server_var(wcs_lng_ulti_immunity_v)"
      alias wcs_run_ulti_suicide2 "es_xmath wcs_counter + 1;es wcs_explode server_var(wcs_userid) server_var(wcs_targetid) server_var(wcs_magnitude) server_var(wcs_radius);wcs_run_ulti_suicide3"
      es_xset wcs_counter 0
	  es_tell server_var(wcs_userid) server_var(wcs_x1) server_var(wcs_y1) server_var(wcs_z1) server_var(wcs_radius)

	  es nearcoord wcs_targetid server_var(wcs_team_targetn) server_var(wcs_x1) server_var(wcs_y1) server_var(wcs_z1) server_var(wcs_radius) server_var(wcs_radius) server_var(wcs_radius) "es_exists wcs_exists userid server_var(wcs_targetid);if (server_var(wcs_exists) = 1) then wcs_run_ulti_suicide1;if (server_var(wcs_exists) = 0) es_tell server_var(wcs_userid) failed"      // no more needed
	  es_tell server_var(wcs_userid) server_var(wcs_x1) server_var(wcs_y1) server_var(wcs_z1) server_var(wcs_radius)
      //if (server_var(wcs_counter) > 0) then wcs_explode server_var(wcs_userid) server_var(wcs_userid) server_var(wcs_magnitude) server_var(wcs_radius)
    }
  }
}