Advertisement
samrrr

Career

Apr 13th, 2015
367
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.34 KB | None | 0 0
  1.  
  2. local component = require("component")
  3. local ro = require("robot")
  4.  
  5. function read_number()
  6.   local number=0
  7.   repeat
  8.     number=io.read()
  9.   until type(tonumber(number))=="number"
  10.   number=tonumber(number)
  11.   return number
  12. end
  13.  
  14. function go_f()
  15. print("fst")
  16. local i = 0
  17.     repeat
  18.         if ro.forward() then
  19.             i = 1
  20.         else
  21.           ro.use()
  22.         end
  23.     until i==1
  24. print("fok")
  25. end
  26.  
  27. xx=0
  28. yy=0
  29. print("Left move")
  30. xx=read_number()
  31. print("Forward move")
  32. yy=read_number()
  33.  
  34. ud=false
  35. dd=false
  36.  
  37. print("Up dig(0,1)")
  38. m=read_number()
  39. if m==1 then
  40.   ud=true
  41. end
  42.  
  43. print("Down dig(0,1)")
  44. m=read_number()
  45. if m==1 then
  46.   dd=true
  47. end
  48.  
  49. if xx>1 then
  50.     xx=xx/2
  51.     yy=yy-1
  52.     for i=1,xx do
  53.       if dd then ro.useDown() end
  54.       if ud then ro.useUp() end
  55.       for r=1,yy do
  56.         go_f()
  57.         if dd then ro.useDown() end
  58.         if ud then ro.useUp() end
  59.       end
  60.       ro.turnLeft()
  61.       go_f()
  62.       ro.turnLeft()
  63.       if dd then ro.useDown() end
  64.       if ud then ro.useUp() end
  65.       for r=1,yy do
  66.         go_f()
  67.         if dd then ro.useDown() end
  68.         if ud then ro.useUp() end
  69.       end
  70.       ro.turnRight()
  71.       if i<xx then go_f() end
  72.       ro.turnRight()
  73.     end
  74. else
  75.       if dd then ro.useDown() end
  76.       if ud then ro.useUp() end
  77.       for r=1,yy do
  78.         go_f()
  79.         if dd then ro.useDown() end
  80.         if ud then ro.useUp() end
  81.       end  
  82. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement