block wcs_blink
{
// WC3 Skill Conversion "Blink" by Yiyas
es_xset x 0;es_xset y 0;es_xset z 0;es_xset x1 0;es_xset y1 0;es_xset z1 0;es_xset x2 0;es_xset y2 0;es_xset z2 0;es_xset anglevert 0

es_getplayerlocation x1 y1 z1 server_var(wcs_userid)
es est_GetViewCoord server_var(wcs_userid) x2 y2 z2

es_xmathparse x "x2-x1"
es_xmathparse y "y2-y1"
es_xmathparse z "z2-z1"
es_xmathparse anglevert "atan(z/((x^2+y^2)^0.5))"
// Make sure angle isn't too high so they cant teleport above world boundaries
ifx parse("anglevert < 0.33") do
  {
  // Get the distance of the teleport
  es_xset distance 0
  es_xmathparse distance "(x^2+y^2+z^2)^0.5"
  ifx parse("maxdist < 175") do
    {
    es_xset maxdist 175
    }
  // Is the distance too big?
  ifx parse("distance > maxdist") do
    {
    es_xcopy distance maxdist
    }
  // Cut some off so you aren't teleporting in walls
  es_xmath distance - 50
  // Make sure the teleport is actually worthwhile
  ifx parse("distance > 100") do
    {
    es_xset x3 0;es_xset y3 0;es_xset z3 0;es_xset anglehoriz 0;es_xset coords 0;es_xset newcooldown 0
    es_xmathparse newcooldown "(maxdist - distance)/maxdist*cooldown"
    es_xmathparse anglehoriz "atan(y/x)"
    // Calculate the new co-ords
    ifx true(y) do
      {
      es_xmathparse y3 "sin(anglehoriz)*distance*cos(anglevert)"
      es_xmath y3 abs
      es_xmath y3 * 1
      ifx parse("(y > -30) and (y < 30)") do
        {
        }
      ifx parse("y < 0") do
        {
        es_xmath y3 * -1
        }
      }
    ifx true(x) do
      {
      es_xmathparse x3 "cos(anglehoriz)*distance*cos(anglevert)"
      es_xmath x3 abs
      es_xmath x3 * 1
      ifx parse("(x > -30) and (x < 30)") do
        {
        }
      ifx parse("x < 0") do
        {
        es_xmath x3 * -1
        }
      }
    ifx true(z) do
      {
      es_xmathparse z3 "distance*sin(anglevert)"
      es_xmath z3 abs
      ifx parse("z < 0") do
        {
        es_xmath z3 * -1
        }
      }
    es_xmathparse x "x1+x3"
    es_xmathparse y "y1+y3"
    es_xmathparse z "z1+z3+10"
    es_xformatv coords "%1,%2,%3" x y z
    ifx true(coords) do
      {
      //es_setplayerprop server_var(wcs_userid) CBaseEntity.m_vecOrigin server_var(coords)
      es_xmath z1 + 20
      es est_effect 10 #a 0 dev/ocean.vmt server_var(x1) server_var(y1) server_var(z1) 200 20 0.5 10 5 0 255 100 100 255 20
      es est_god server_var(wcs_userid) 1
      es est_Fade server_var(wcs_userid) 0 0.001 0.25 0 0 0 255
      es est_freeze server_var(wcs_userid) 1
      es est_teleport server_var(wcs_userid) server_var(x) server_var(y) -10000
      es_delayed 0.25 est_freeze server_var(wcs_userid) 0
      es_delayed 0.4 est_god server_var(wcs_userid) 0
      es_delayed 0.25 est_teleport server_var(wcs_userid) server_var(x) server_var(y) server_var(z)
      es_xmath z + 20
      es_delayed 0.1 est_effect 10 #a 0 dev/ocean.vmt server_var(x) server_var(y) server_var(z) 20 200 1.25 10 5 0 255 100 100 255 10
      // put your effects in here
      }
    }
  // Was too close :(
  es_xelse do
    {
    es_tell server_var(wcs_userid) #multi #greenToo Close!!#lightgreen try #greenBlinking#lightgreen #greenfurther#lightgreen away!
    es_xset wcs_ultinotexec 1
    }
  }
// Was too high :(
es_xelse do
  {
  es_tell server_var(wcs_userid) #multi #greenToo High!!#lightgreen try #greenBlinking#lightgreen a #greenshallower#lightgreen angle!
  es_xset wcs_ultinotexec 1
  }
}