Метатабличный / Говнокод #27687 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
  77. 77
  78. 78
  79. 79
  80. 80
  81. 81
  82. 82
  83. 83
  84. 84
  85. 85
  86. 86
  87. 87
  88. 88
  89. 89
  90. 90
  91. 91
  92. 92
  93. 93
  94. 94
  95. 95
function throw_artefact(obj)
	if obj==nil then
		return
	end
	math.randomseed(time_global())
	local rnd=math.random(10)
	local sect = obj:section()
	local lv = obj:level_vertex_id()
	local gv = obj:game_vertex_id()
	local pos = obj:position()
	local off_x = 2
	local off_y = 1.5
	local off_z = 2
	pos.x = pos.x + off_x
	pos.y = pos.y + off_y
	pos.z = pos.z + off_z	
	if lv and gv and pos then
		math.randomseed(time_global())
		if string.find(sect, "witches") then			
			if string.find(sect, "weak") then
				math.randomseed(time_global())
				if math.random(4) == 1 then alife():create("af_electra_sparkler", pos, lv, gv) end
			elseif string.find(sect, "average") then
				math.randomseed(time_global())
				if math.random(6) == 1 then alife():create("af_electra_sparkler", pos, lv, gv) end
				if math.random(4) == 1 then alife():create("af_electra_flash", pos, lv, gv) end
			else
				math.randomseed(time_global())
				if math.random(4) == 1 then alife():create("af_electra_moonlight", pos, lv, gv) end
				if math.random(5) == 1 then alife():create("af_electra_flash", pos, lv, gv) end
				if math.random(5) == 1 then alife():create("af_electra_sparkler", pos, lv, gv) end
			end
			
		elseif string.find(sect, "mosquito") then
			math.randomseed(time_global())
			if string.find(sect, "weak") then
				if math.random(6) == 1 then alife():create("af_cristall_flower", pos, lv, gv) end
			elseif string.find(sect, "average") then
				if math.random(4) == 1 then alife():create("af_cristall_flower", pos, lv, gv) end
				if math.random(5) == 1 then alife():create("af_medusa", pos, lv, gv) end
			else
				if math.random(6) 	== 1 then alife():create("af_night_star", pos, lv, gv) end
				if math.random(4)  == 1 then alife():create("af_medusa", pos, lv, gv) end
				if math.random(5)  == 1 then alife():create("af_cristall_flower", pos, lv, gv) end
			end
			
		elseif string.find(sect, "mincer") then
			math.randomseed(time_global())
			if string.find(sect, "weak") then
				if math.random(6)==1 then alife():create("af_blood", pos, lv, gv) end
			elseif string.find(sect, "average") then
				if math.random(5) == 1 then alife():create("af_blood", pos, lv, gv) end
				if math.random(4) <= 1 then alife():create("af_mincer_meat", pos, lv, gv) end
			else
				if math.random(6) == 1 then alife():create("af_soul", pos, lv, gv) end
				if math.random(4) == 1 then alife():create("af_mincer_meat", pos, lv, gv) end
				if math.random(5) == 1 then alife():create("af_blood", pos, lv, gv) end
			end
			
		elseif string.find(sect, "gravi") then
			math.randomseed(time_global())
			if string.find(sect, "weak") then
				if math.random(6)==1 then alife():create("af_vyvert", pos, lv, gv) end
			elseif string.find(sect, "average") then
				if math.random(4) == 1 then alife():create("af_vyvert", pos, lv, gv) end
				if math.random(5) <= 1 then alife():create("af_gravi", pos, lv, gv) end
			else
				if math.random(6) == 1 then alife():create("af_gold_fish", pos, lv, gv) end
				if math.random(4) == 1 then alife():create("af_gravi", pos, lv, gv) end
				if math.random(5) == 1 then alife():create("af_vyvert", pos, lv, gv) end
			end
			
		elseif string.find(sect, "ameba") or string.find(sect, "burning_fuzz") or string.find(sect, "rusty") then
				math.randomseed(time_global())
				if math.random(2) == 1 then alife():create("af_rusty_sea-urchin", pos, lv, gv) end
				if math.random(2) == 1 then alife():create("af_rusty_kristall", pos, lv, gv) end
				if math.random(2) == 1 then alife():create("af_rusty_thorn", pos, lv, gv) end
		elseif string.find(sect, "buzz") then
			if string.find(sect, "weak") then
				if math.random(6)==1 then alife():create("af_ameba_slug", pos, lv, gv) end
			elseif string.find(sect, "average") then
				if math.random(5) == 1 then alife():create("af_ameba_slime", pos, lv, gv) end
				if math.random(4) <= 1 then alife():create("af_ameba_slug", pos, lv, gv) end
			else
				if math.random(5) == 1 then alife():create("af_ameba_mica", pos, lv, gv) end
				if math.random(5) == 1 then alife():create("af_ameba_slug", pos, lv, gv) end
				if math.random(4) == 1 then alife():create("af_ameba_slime", pos, lv, gv) end
			end

elseif string.find(sect, "doggy") then
			local n=0
			math.randomseed(time_global())
			for n=1, math.random(3) do
				alife():create("dog_weak", pos, lv, gv)
			end

Свиток перебирает аномалии на локации и по рандому спавнит в них артефакты.
Да, блять - мне пришлось изучить луа. Теперь я тоже "золотой хуй".

Нижние строки отвечают за функционирование самодельной аномалии, которая после полуночи (по ИВ) плодит гипнособак и прочую нечисть. Стаи собак вырезают целые поселения; таким образом, я стал поистине сталкером. Так как я давно фриплею, надо разнообразить ко-ко-корутину.

CBuHOKYP CBuHOKYP, (Updated )

Комментарии (16, +16)

Метатабличный / Говнокод #27079 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
ont = love.graphics.newFont("/font/RobotoMono-Regular.ttf",14);
love.graphics.setFont(font);

box = {
  draw = false;
  }
function box:cr(d,variant)
  --self.draw = false;
  self.d = d;
  self.var = variant or {};
  table.insert(self.var,">> Quit");
  --table.insert(self.var,">> retry");
  self.str = 0;
  self.v = vector(0,(love.graphics.getHeight()/2)-150);
  self.h = 300;
  self.w = 800;
end

function box:up(dt)
  
end

function box:dr()
  if self.draw then
    love.graphics.setColor(0,0,0);
    love.graphics.rectangle("fill",self.v.x,self.v.y,self.w,self.h);
    love.graphics.setColor(1,1,1);
    love.graphics.print(self.d,self.v.x,self.v.y);
    love.graphics.print(self.str,self.v.x,self.v.y+20);
    for k,v in pairs(self.var) do
      if k == self.str then
        --love.graphics.setColor(1,1,1);
        love.graphics.draw(animmouse.img.RMB,self.v.x+font:getWidth(v),self.v.y+200+((k-1)*20))
        love.graphics.setColor(1,1,0);
      else
        love.graphics.setColor(1,1,1);
      end
      love.graphics.print(v,self.v.x,self.v.y+200+((k-1)*20));
     
    end
  end
end

function box:mw(y)
  if self.draw then
    local lt = #self.var;
    self.str = self.str - y;
    if 1 > self.str then
      self.str = lt;
    elseif lt < self.str then
      self.str = 1;
    end
  end
end

function box:mp(x,y,b)
  if self.draw then
    if b == 2 then
      if self.str == #self.var then
        self.draw = false
      end
    end
  end
end

lalalalallallalalalalallallalalalalallal lalalalalallallalalalalallallalalalalall allalalalalallallalalalalallallalalalala llallalalalalallallalalalalallallalalala lallallalalalalallallalalalalallallalala lalallallalalalalallallalalalalallallala lalalallallalalalalallallalalalalallalla lalalalallallalalalalallallalalalalallal lalalalalallallalalalalallallalalalalall allalalalalallallalalalalallallalalalala llallalalalalallallalalalalallallalalala lallallalalalalallallalalalalallallalala lalallallalalalalallallalalalalallallala lalalallallalalalalallalla

3oJIoTou_xyu 3oJIoTou_xyu, (Updated )

Комментарии (194, +194)

Метатабличный / Говнокод #26853 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
  77. 77
  78. 78
  79. 79
  80. 80
  81. 81
  82. 82
  83. 83
  84. 84
  85. 85
  86. 86
  87. 87
  88. 88
  89. 89
  90. 90
  91. 91
  92. 92
  93. 93
  94. 94
  95. 95
  96. 96
  97. 97
  98. 98
  99. 99
  100. 100
if thr < 0.1 then
		one()
	elseif thr > 0.1 and thr < 0.2 then
		one()
		two()
	elseif thr > 0.2 and thr < 0.3 then
		one()
		two()
		three()
	elseif thr > 0.3 and thr < 0.4 then
		one()
		two()
		three()
		four()
	elseif thr > 0.4 and thr < 0.5 then
		one()
		two()
		three()
		four()
		five()
	elseif thr > 0.5 and thr < 0.6 then
		one()
		two()
		three()
		four()
		five()
		six()
	elseif thr > 0.6 and thr < 0.7 then
		one()
		two()
		three()
		four()
		five()
		six()
		seven()
	elseif thr > 0.7 and thr < 0.8 then
		one()
		two()
		three()
		four()
		five()
		six()
		seven()
		eight()
	elseif thr > 0.8 and thr < 0.9 then
		one()
		two()
		three()
		four()
		five()
		six()
		seven()
		eight()
		nine()
	elseif thr > 0.9 and thr < 1 then
		one()
		two()
		three()
		four()
		five()
		six()
		seven()
		eight()
		nine()
		ten()
	elseif thr == 1 then
		one()
		two()
		three()
		four()
		five()
		six()
		seven()
		eight()
		nine()
		ten()
		eleven()
	end

........

function one()
	screen.setColor(0, 255, 0)
	screen.drawRectF(12, 53, 4, 5)
end
	
function two()
	screen.setColor(0, 255, 0)
	screen.drawRectF(16, 53, 4, 5)
end
	
function three()
	screen.setColor(0, 255, 0)
	screen.drawRectF(20, 53, 4, 5)
end
	
function four()
	screen.setColor(0, 255, 0)
	screen.drawRectF(24, 53, 4, 5)
end

Говнокод для рисования полоски загрузки

griffi1 griffi1, (Updated )

Комментарии (9, +9)

Метатабличный / Говнокод #26519 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
https://github.com/xexpanderx/conky-drawer-interactive/tree/master/lua

а вы тоже храните автосейв файлы редактора на гитхабе?

https://github.com/xexpanderx/conky-drawer-interactive/blob/master/lua/drawer.lua

cairo_arc(cr,hdd_x+22, hdd_y-5,10,270*math.pi/180,360*math.pi/180)
	cairo_arc(cr, hdd_x+22, hdd_y-5+28,10,0*math.pi/180,90*math.pi/180)

какая геометрия :))

MAKAKA MAKAKA, (Updated )

Комментарии (6, +6)

Метатабличный / Говнокод #26361 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
-- ввод
io.write('Введите число: ')
x=tonumber(io.read())
-- проверка
-- 1-я часть
pro=0
e=true
io.write("0")
for i=1,x do
 if e then
  io.write(' + '..i)
  pro = pro+i
 else
  io.write(' - '..i)
  pro = pro-i
 end
 e = not e
end
print(" = "..pro)
a1 = pro
-- 2-я часть
pro=1
e=true
for i=1,x-1,2 do io.write('(') end
io.write("1")
for i=1,x do
 if e then
  io.write(' + '..i)
  pro = pro+i
 else
  io.write(')/'..i)
  pro = pro/i
 end
 e = not e
end
print(" = "..pro)
a2 = pro
------------------------------
if (a1<0 and a2==1) then print('Число четное')
elseif (a1>=0 and a2~=1) then print('Число нечетное')
end

Проверка четности числа (работает для чисел >= 1)

st4rkc0d3 st4rkc0d3, (Updated )

Комментарии (14, +14)

Метатабличный / Говнокод #26249 Ссылка на оригинал

0

  1. 1
  2. 2
Я ЕБУ СОБАК, ВСЕГДА ГОТОВ СРАЗУ ТРАХАТЬ НЕСКОЛЬКО КОТОВ
ДА Я ЗООФИЛ НЕ ГОВОРИ ЛУЧШЕ МНЕ СОБАЧЕК ПОДАРИ

Я ЕБУ СОБАК, ВСЕГДА ГОТОВ СРАЗУ ТРАХАТЬ НЕСКОЛЬКО КОТОВ
ДА Я ЗООФИЛ НЕ ГОВОРИ ЛУЧШЕ МНЕ СОБАЧЕК ПОДАРИ

xyu_100cm xyu_100cm, (Updated )

Комментарии (0)

Метатабличный / Говнокод #26240 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
  77. 77
  78. 78
  79. 79
  80. 80
  81. 81
  82. 82
  83. 83
  84. 84
  85. 85
  86. 86
  87. 87
  88. 88
  89. 89
  90. 90
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ
СТРАЙКЕР СОСЁТ МОЙ ХУЙ

xyu_100cm xyu_100cm, (Updated )

Комментарии (0)