GMLscripts.com

Expand///@description tile_meeting_precise(x,y,layer)
///@param x
///@param y
///@param layer
/*
  Returns true or false
  
  place_meeting() for use with tiles.
  [Requires] obj_precise_tile_checker
  more information can be found here:
  https://www.yoyogames.com/blog/577/precise-tile-collisions-by-pixelated-pope

  make a sprite sheet with the exact same tiles. and for gms 1.4.9999 you may
  wish to expand the mask 1 in every direction (assists with sub pixel movement)
  
  Ported by Red#9475
*/
/// GMLscripts.com/license
var _layer = argument2;

_checker = obj_precise_tile_checker;
if(!instance_exists(_checker)) instance_create(0,0,_checker); 

var _x1 = bbox_left + (argument0 - x),
    _y1 = bbox_top + (argument1 - y),
    _x2 = bbox_right + (argument0 - x),
    _y2 = bbox_bottom + (argument1 - y),
    
for(var _x = _x1; _x <= _x2; _x++){
  for(var _y = _y1; _y <= _y2; _y++){
    var _tile = tile_layer_find(_layer, _x, _y);
    if(_tile){
      var bg = tile_get_background(_tile),
          bg_ww = background_get_width(bg),
          ww = tile_get_width(_tile),
          hh = tile_get_height(_tile),
          ll = (tile_get_left(_tile) / ww),
          tt = (tile_get_top(_tile) / hh);
      
      var pos = ll + tt*(bg_ww div ww);
      
     _checker.x = _x - (_x mod tile_get_width(_tile));
     _checker.y = _y - (_y mod tile_get_height(_tile));
     _checker.image_index = pos;

     if(place_meeting(argument0,argument1,_checker)) return true;
    }
 }
}

return false;

Expand///anim_rotate()

/* This script is used to animate the sprite rotation mimicing
     the paper mario style with out the need for seperate arm
     or leg sprites
   
   Make sure to account for player direction as the sprite will
     rotate in different styles based on the direction it rotated
     to, for instance when the player walks right, then up, then
     left. the front side (right) of the sprite will shrink at 
     it rotates to give the illusion it is further away from the 
     camera.
     
   Returns: Bool (True when animation is finished, False for any other state)
*/

/// GMLscripts.com/license

returned = false


if !variable_instance_exists(self.id, "anim_rotate_start") {anim_rotate_start = true}


//set the animation variables
if (anim_rotate_start)
{
  anim_time = floor(room_speed*0.25)
  anim_timer = anim_time
  anim_flip_frame = floor(anim_time*0.5)
  //anim_ideal_delta_time = 1/room_speed * 1000000; //typically 33333 or 16666
  anim_travel_dis = sprite_width/anim_time
  pi_time = pi / anim_time
  //this variable is used to keep track of the last view we did. 9 is a view which doesnt exist so it will think it's a new frame
  view_loop = 9
  
  //if turning prefered up  
  if (direction > 0) && (direction < 180) {anim_face_dir = -1}
  //if turning prefered down or instant turn
  if (direction = 0) || ((direction < 360) && (direction >= 180)) {anim_face_dir = 1}
  
  //if turning left
  if (direction > 90) && (direction < 270) {anim_rotate_dir = -1}
  //if turning right
  if (direction < 90) || (direction > 270) {anim_rotate_dir = 1}
  //anim_rotate_dir = sign(image_xscale)
  
  max_y_multiplier = abs(sprite_height)*0.2 //20 percent of the height
  
  anim_rotate_start = false
}

var lag = delta_time * room_speed * 0.000001

/// tris will multiply variables by 1 or -1 fepending on the flip
var flip_multiplier = sign(anim_timer - anim_flip_frame)


// the x distance the flip needs to travel, acounting delta time
var trav_dis = anim_travel_dis * lag

/// a negative number means we were right, and we're turning left
var trav_dis_x = cos(anim_timer * pi_time) * (sprite_width/2) - abs(sprite_width/2)*anim_rotate_dir

// how much we skew the y for either the front of back of the player
var y_miltiplier = cos((anim_timer-anim_flip_frame)  * pi_time)*max_y_multiplier


draw_sprite_pos(sprite_index,
                image_index, 
                
                //top left
                x-(sprite_xoffset)+trav_dis_x, 
                y-(sprite_yoffset)-(y_miltiplier*anim_face_dir), 
                
                //top right
                x+(sprite_width-sprite_xoffset)-trav_dis_x, 
                y-(sprite_yoffset)+(y_miltiplier*anim_face_dir), 
                
                //bottom right
                x+(sprite_width-sprite_xoffset)-trav_dis_x, 
                y+(sprite_height-sprite_yoffset)+(y_miltiplier*anim_face_dir), 
                
                //bottom left
                x-(sprite_xoffset)+trav_dis_x, 
                y+(sprite_height-sprite_yoffset)-(y_miltiplier*anim_face_dir), 
                
                image_alpha);

//this will keep track of the view ports we've iterated through, that way we never count down the anim timer more then once each frame
if (view_current < view_loop){
  view_loop = view_current
  anim_timer -= 1*lag
}else if (view_current > view_loop){
  view_loop = view_current
}

if (anim_timer <= 0)
{
  returned = true
  anim_rotate_start = true
}



return returned

Expand/// rect_point_dir(x1,y1,x2,y2,px,py,dir)


var x1,y1,x2,y2,px,py,dir;
x1 = argument0
y1 = argument1
x2 = argument2
y2 = argument3
px = argument4
py = argument5
dir = argument6

var rect_width  = x2-x1
var rect_height = y2-y1

if point_in_rectangle(px,py,x1,y1,x2,y2)
{
      var vx = cos(degtorad(dir))
      var vy = sin(degtorad(dir))
      var trav = rect_width*rect_height
      
      if (vx != 0) {
        t = (x1-px)/vx;
          if (t > 0) trav = min(t,trav);
          draw_text(0,16,"left = "+string(t))
        t = (x2-px)/vx; 
          if (t > 0) trav = min(t,trav);
          draw_text(0,32,"right = "+string(t))
      }
      
      if (vy != 0) {
        t = (py-y1)/vy; 
          if (t > 0) trav = min(t,trav);
          draw_text(0,48,"top = "+string(t))
        t = (py-y2)/vy; 
          if (t > 0) trav = min(t,trav);
          draw_text(0,64,"bottom = "+string(t))
      }
      draw_text(0,0,"travel = "+string(trav))
      draw_set_color(c_red)
      draw_circle(px+lengthdir_x(trav,dir),py+lengthdir_y(trav,dir),3,false)
      draw_set_color(c_white)

      return trav
      
}else{
  return -1
}