dim dx[]=-1,1,0,0
dim dy[]=0,0,-1,1
w=input("歩幅(dot)",5)
t=input("歩数",500)
x=G_MOUSE_X
y=G_MOUSE_Y
btn(left,down,x,y)
for i=1 to t
  r=random(4)
  x=x+w*dx[r]
  y=y+w*dy[r]
  mmv(x,y,10)
next
btn(left,up)