pickup point thing

/* this all done on shitty phone so no promises and this might be crap and not work at all */

/* absolute value function because there's not a native abs() acs function */
function int abs (int x)
{
  if (x < 0)
    return -x;
  return x;
}

/* function for setting player as activator, works in ZDoom without giving any player a tid, if you want this for zandronum you will have to do something like give each player a tid on start and store them in an array, unless there's a zandronum specific function (there are quite a few) that helps with this that I'm not aware of */
function int SetActivator_Player (int player_num); /* player_num doesn't have to be same name as variable passed to it, can be whatever you want */
{
  int check; /* check for later, value at declaration is zero */

  switch(player_num) /* switch for player number, player numbers start at 0, so player 1 has a player number of 0 and player 8 has a player number of 7 */
  {
    case 0:
      SetActivator(0, AAPTR_PLAYER1);
      break;
    case 1:
      SetActivator(0, AAPTR_PLAYER2);
      break;
    case 2:
      SetActivator(0, AAPTR_PLAYER3);
      break;
    case 3:
      SetActivator(0, AAPTR_PLAYER4);
      break;
    case 4:
      SetActivator(0, AAPTR_PLAYER5);
      break;
    case 5:
      SetActivator(0, AAPTR_PLAYER6);
      break;
    case 6:
      SetActivator(0, AAPTR_PLAYER7);
      break;
    case 7
      SetActivator(0, AAPTR_PLAYER8);
      break;
  }

  if(player_num == PlayerNumber()) /* the player number is the same as the intended player number, meaning setactivator was successful; setactivator has its own return value, but this returns false if the pointer is null, which is basically but not quite exactly what this is checking */
  {
    check = 1; /* set check to a positive value  so it can return a true value */
  }

  return check;
}

script "pointpickup" enter /* the actual pickup script */
{

/* all the variables below are just getting declared right now, they don't have any values (well they do, but it's all 0) and don't do anything yet */

  int actor_tid, player_num, target_check; /* tid to assign to actor being picked up, player number, check for if player is pointing at something */

  int a_x, a_y, a_z; /* actor x, y, z coordinates */
  int p_x, p_y, p_z; /* player x, y, z coordinates */

  int max_dist, max_xy_dist, max_z_dist; /* maximum total distance, maximum horizontal distance, and maximum vertical height to allow pickup */

/* disregard this section, this is more painful than I thought on a phone so I'm simplifying this for now */
  int use_r_h; /* switch to use radius and height in distance checks */
  int a_radius, a_height; /* actor radius and height to include in distance checks */
  int p_radius, p_height; /* player radius and height to include in distance checks */
  int p_a_xy_angle; /* angle calculated from player to actor xy points to use with radius in max distance checks */

  str class; /* class name of actor being picked up*/

  /* now the distance maximums have their value set, the rest will be set during script; these need to be set in fixed point to work correctly, so make sure the values you set them to use a decimal point */

  max_dist = 128.0;
  max_xy_dist = 64.0;
  max_z_dist = 64.0;

  /* note that you could set these distance maximums later, and base what they are upon what class the actor being picked up is */

  player_num = PlayerNumber(); /* retrieve player number, before the loop is ever started and before we start changing activators */

  while(true) /* will continually loop */
  {
    if( (GetPlayerInput(0, INPUT_BUTTONS) & BT_USE) /* if one of the buttons the player is pressing this tic is the use button */
    && /* AND */
    !(GetPlayerInput(0, INPUT_OLDBUTTONS) & BT_USE) ) /* none of the buttons the player was pressing last tic were the use button, meaning they just started  pressing the use button this tic */
    { /* then */
      target_check = SetActivator(0, AAPTR_PLAYER_GETTARGET); /* set activator to actor under player crosshair, sets target_check to 1 if there is such an actor and 0 if not */
      if(target_check) /* if setactivator worked */
      {
        class = GetActorClass(0); /* get actor class name string for use later */

        a_x = GetActorX(0); /* get actor x position in fixed point */
        a_y = GetActorY(0); /* get actor y position in fixed point */
        a_z = GetActorZ(0); /* get actor z position in fixed point */

        actor_tid = UniqueTID(); /* get a unique tid to assign to actor */
        Thing_ChangeTID(0, actor_tid); /* now assign that tid to the actor */

        SetActivator_Player(player_num); /* now set activator back to player using custom function defined above */

        p_x = GetActorX(0); /* get player x position in fixed point */
        p_y = GetActorY(0); /* get player y position in fixed point */
        p_z = GetActorZ(0); /* get player z position in fixed point */

int max_dist, max_xy_dist, max_z_dist

        if( (VectorLength(VectorLength((ax - p_x), (a_y - p_y)), (a_z - p_z)) <= max_dist) /* if total distance between player and actor is less than or equal to max_dist */
        && /* AND */
        (VectorLength((ax - p_x), (a_y - p_y)) <= max_xy_dist) /* if horizontal distance between player and actor is less than or equal to max_xy_dist */
        && /* AND */
        (abs(a_z - p_z) <= max_z_dist) ) /* if vertical distance between player and actor is less than or equal to max_z_dist */
        { /* then */

          log(s: "You take the ", s:class ); /* print class name of actor for debugging; APROP_NAMETAG only works with checkactorproperty, and can only be compared, not retrieved. If you want to have a name that's not the decorate class name, recommend 2D string array with class name in first part of each set and what you want to print in second part of set, then have loop to compare class to each first part of set in array until you get a match, then print corresponding string in second part of set */

          StrCmp(class, "string to compare"); /* this is what you would use to compare the actor class name to in order to make decisions based on that, returns 0 if the strings being compared are the same; see: http://zdoom.org/wiki/StrCmp */

          Thing_Remove(actor_tid); /* remove the actor from the map */

        }
      }
      else /* if setactivator failed */
      {
        SetActivator_Player(player_num); /* set activator back to player using custom function defined above */
      }

    }

  delay(1); /* delay for one tic before starting loop again */

  }

)