1. VisualBasic / Говнокод #25393

    +1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    sub addleft
	for i = 1 to 4
		for j = 1 to 3
			if a(i,j)<>0 and a(i,j) = a(i,j+1) then
				moved = true 
				a(i,j) = a(i,j)+1
				a(i,j+1) = 0
				score = score + integer ( 2**a(i,j) )
			end if
		end for
	end for
end sub

sub left
	for i = 1 to 4
		for k = 1 to 3
			for j = 1 to 3
				if a(i,j) = 0 and a(i,j+1) <> 0 then
					moved = true
					a(i,j) = a(i,j+1)
					a(i,j+1) = 0
				end if
			end for
		end for
	end for
end sub

rem addright, addup, adddown, right, up, down в том же духе

rem . . .

rem главный суслик
while true
		xy = touchdown()
		if xy <> -1 then
			x = xy/65536&0x0000ffff
			y = xy&0x0000ffff
			repeat
				sleep 10
				xy = touchup()
			until xy <> -1
			x = x - (xy/65536&0x0000ffff)
			y = y - (xy&0x0000ffff)
			if (abs(x)>100) <> (abs(y)>100) then
				moved = false
				if abs(x) > 100 then
					if x > 0 then
						left
						addleft
						left
					else
						right
						addright
						right
					end if
				else
					if y > 0 then
						up
						addup
						up
					else
						down
						adddown
						down
					end if
				end if
				if moved then
					rand
				end if
			end if
		else
			sleep 10
		end if
		draw
		sleep 50
	end while

    Не визуальный, но всё-таки барсик (могильный).

    Запостил: Hu3KoypoBHeBblunemyx, 21 Февраля 2019

    Комментарии (21) RSS

    Добавить комментарий