Code: Select all
#define gotoY v1
#define gotoX v2
#define myX v3
#define myY v4
Sub Main
/varset gotoX $p0
/varset gotoY $p1
/varset myX $char(x)
/varset myY $char(y)
/face loc $gotoY,$gotoX
/if n $myX!=$gotoX /if $myY!=$gotoY /call run
/if n $myX==$gotoX /if $myY==$gotoY /call endmacro
/return
Sub run
/sendkey up
/return
Sub endmacro
/endmacro



