Deltarune (Chapter 3) script viewer

← back to main script listing

gml_GlobalScript_scr_board_checklocation

(view raw script w/o annotations or w/e)
1 
function 
scr_board_checklocation
scr_board_checklocation

function 
scr_board_checklocation()
{
    var _name = argument0;
    var _xloc = argument1;
    var _yloc = argument2;
    if (_xloc < 12)
        _xloc = board_tilex(_xloc);
    if (_yloc < 12)
        _yloc = board_tiley(_yloc);
    var _tol = 4;
    if (argument_count == 4)
        _tol = argument3;
    var targ = 0;
    with (obj_mainchara_board)
    {
        if (name == _name)
            targ = id;
    }
    if (!i_ex(targ))
    {
        debug_message("target does not exist");
        return false;
    }
    if (abs(targ.x - _xloc) < _tol && abs(targ.y - _yloc) < _tol)
        return true;
}
()

                        		
                    

                
                    

                        
                            2
                        

                        
                            
{

                        		
                    

                
                    

                        
                            3
                        

                        
                            
    var _name = argument0;

                        		
                    

                
                    

                        
                            4
                        

                        
                            
    var _xloc = argument1;

                        		
                    

                
                    

                        
                            5
                        

                        
                            
    var _yloc = argument2;

                        		
                    

                
                    

                        
                            6
                        

                        
                            
    if (_xloc < 12)

                        		
                    

                
                    

                        
                            7
                        

                        
                            
        _xloc = board_tilex(_xloc);

                        		
                    

                
                    

                        
                            8
                        

                        
                            
    if (_yloc < 12)

                        		
                    

                
                    

                        
                            9
                        

                        
                            
        _yloc = board_tiley(_yloc);

                        		
                    

                
                    

                        
                            10
                        

                        
                            
    var _tol = 4;

                        		
                    

                
                    

                        
                            11
                        

                        
                            
    if (argument_count == 4)

                        		
                    

                
                    

                        
                            12
                        

                        
                            
        _tol = argument3;

                        		
                    

                
                    

                        
                            13
                        

                        
                            
    var targ = 0;

                        		
                    

                
                    

                        
                            14
                        

                        
                            
    with (obj_mainchara_board)

                        		
                    

                
                    

                        
                            15
                        

                        
                            
    {

                        		
                    

                
                    

                        
                            16
                        

                        
                            
        if (name == _name)

                        		
                    

                
                    

                        
                            17
                        

                        
                            
            targ = id;

                        		
                    

                
                    

                        
                            18
                        

                        
                            
    }

                        		
                    

                
                    

                        
                            19
                        

                        
                            
    if (!i_ex(targ))

                        		
                    

                
                    

                        
                            20
                        

                        
                            
    {

                        		
                    

                
                    

                        
                            21
                        

                        
                            
        debug_message("target does not exist");

                        		
                    

                
                    

                        
                            22
                        

                        
                            
        return false;

                        		
                    

                
                    

                        
                            23
                        

                        
                            
    }

                        		
                    

                
                    

                        
                            24
                        

                        
                            
    if (abs(targ.x - _xloc) < _tol && abs(targ.y - _yloc) < _tol)

                        		
                    

                
                    

                        
                            25
                        

                        
                            
        return true;

                        		
                    

                
                    

                        
                            26
                        

                        
                            
}