1. Lua / Говнокод #25853

    −1

    1. 1
    Ня, пока.

    Пароль: 123456654321123456

    3oJIoTou_xyu, 18 Сентября 2019

    Комментарии (20)
  2. Lua / Говнокод #25829

    0

    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
    if self.Weapon:GetNextPrimaryFire() < CurTime() then
    	if GetConVarNumber( "ma2_togglechargeui" ) == 1 then
    		if (self.Charge-self.DmgMin)/self.DmgMax*100<=10 then
    			ply:SetNWString("chargebar","██")
    		elseif (self.Charge-self.DmgMin)/(self.DmgMax-self.DmgMin)*100<=20 then
    			ply:SetNWString("chargebar","████")
    		elseif (self.Charge-self.DmgMin)/(self.DmgMax-self.DmgMin)*100<=30 then
    			ply:SetNWString("chargebar","██████")
    		elseif (self.Charge-self.DmgMin)/(self.DmgMax-self.DmgMin)*100<=40 then
    			ply:SetNWString("chargebar","████████")
    		elseif (self.Charge-self.DmgMin)/(self.DmgMax-self.DmgMin)*100<=50 then
    			ply:SetNWString("chargebar","██████████")
    		elseif (self.Charge-self.DmgMin)/(self.DmgMax-self.DmgMin)*100<=60 then
    			ply:SetNWString("chargebar","████████████")
    		elseif (self.Charge-self.DmgMin)/(self.DmgMax-self.DmgMin)*100<=70 then
    			ply:SetNWString("chargebar","██████████████")
    		elseif (self.Charge-self.DmgMin)/(self.DmgMax-self.DmgMin)*100<=80 then
    			ply:SetNWString("chargebar","████████████████")
    		elseif (self.Charge-self.DmgMin)/(self.DmgMax-self.DmgMin)*100<=90 then
    			ply:SetNWString("chargebar","██████████████████")
    		elseif (self.Charge-self.DmgMin)/(self.DmgMax-self.DmgMin)*100>90 then
    			ply:SetNWString("chargebar","████████████████████")
    			ply:SetNWBool("chargemaxxxed",true)
    		end
    	end
    end

    https://steamcommunity.com/sharedfiles/filedetails/?id=1825542758

    amd, 11 Сентября 2019

    Комментарии (13)
  3. Lua / Говнокод #25726

    +1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Есть случаи когда нужно 2 вызывать сборку помойки...
    
    A = {x = "this is A"}
    B = {f = A}
    setmetatable(B, {__gc = function (o) print(o.f.x) end})
    A, B = nil
    collectgarbage() -- this is A

    Роберту это называет Воскресение (Воскрешение)
    https://stackoverflow.com/questions/28320213/why-do-we-need-to-call-luas-collectgarbage-twice

    _____, 19 Июля 2019

    Комментарии (48)
  4. Lua / Говнокод #25710

    −2

    1. 1
    2. 2
    Я долгие годы вел наблюдение. И я могу сделать уверенное заявление.
    Lure Of Chaos это златохуй.

    habrahabr, 10 Июля 2019

    Комментарии (35)
  5. Lua / Говнокод #25667

    +2

    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
    gr = love.graphics
    win = love.window
    lk = love.keyboard
    require("button")
    require("t")
    
    function love.load()
    local loading = {}
    loading = serialize.load("records.lua")
    font = gr.newFont("NotoSans.ttf",14)
    mini = gr.newFont("NotoSans.ttf",10)
    big = gr.newFont("NotoSans.ttf",30)
    flag = nil --Flag = nil -menu, Flag = 1 -records, Flag = 2 -type game, Flag = 3 -type game standart, Flag = 4 -type game impulse, Flag = 5 -type game Invers, Flag = 6 -type game Unreal
    kube = {x = 96, y = 196, colx = 8, coly = 8}
    speed = 1
    timer = 0
    umber = {}
    records = {{"Standart", 0},{"Impulse", 0},{"Invers", 0},{"Unreal", 0},{"XY diagonal", 0},{"Perpendiculars", 0}}
    if loading and #loading > 0 then
    	for i = 1, #loading do
    		records[i][2] = loading[i]
    	end
    end
    score = 0
    	mb = {utton:create(200-font:getWidth(">Play<")/2,125,">Play<"),utton:create(200-font:getWidth(">Records<")/2,160,">Records<"),utton:create(200-font:getWidth(">Exit<")/2,195,">Exit<")}
    	tgb = {utton:create(200-font:getWidth(">Standart<")/2,60,">Standart<"),utton:create(200-font:getWidth(">Impulse<")/2,90,">Impulse<"),utton:create(200-font:getWidth(">Invers<")/2,120,">Invers<"),utton:create(200-font:getWidth(">Unreal<")/2,150,">Unreal<"),utton:create(200-font:getWidth(">XY diagonal<")/2,180,">XY diagonal<"),utton:create(200-font:getWidth(">Perpendiculars<")/2,210,">Perpendiculars<")}
    	back = utton:create(200-font:getWidth(" >Back< ")/2,300," >Back< ")
    	r = utton:create(200-font:getWidth(" >Restart< ")/2,250," >Restart< ")
    end
    
    local function restart()
    	kube = {x = 96, y = 196, colx = 8, coly = 8, speed = 350}
    	speed = 1
    	timer = 0
    	umber = {}	
    	score = 0
    	toch = nil
    end

    My первый игра сделаная на love2d. Аж всплакнул.

    3oJIoTou_xyu, 07 Июня 2019

    Комментарии (27)
  6. Lua / Говнокод #25633

    +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
    utf8 = {}
    function utf8.charbytes(s, i)
       -- argument defaults
       i = i or 1
       local c = string.byte(s, i)
       
       -- determine bytes needed for character, based on RFC 3629
       if c > 0 and c <= 127 then
          -- UTF8-1
          return 1
       elseif c >= 194 and c <= 223 then
          -- UTF8-2
          local c2 = string.byte(s, i + 1)
          return 2
       elseif c >= 224 and c <= 239 then
          -- UTF8-3
          local c2 = s:byte(i + 1)
          local c3 = s:byte(i + 2)
          return 3
       elseif c >= 240 and c <= 244 then
          -- UTF8-4
          local c2 = s:byte(i + 1)
          local c3 = s:byte(i + 2)
          local c4 = s:byte(i + 3)
          return 4
       end
    end
    
    function utf8.len(s)
       local pos = 1
       local bytes = string.len(s)
       local len = 0
       
       while pos <= bytes and len ~= chars do
          local c = string.byte(s,pos)
          len = len + 1
          
          pos = pos + utf8.charbytes(s, pos)
       end
       
       if chars ~= nil then
          return pos - 1
       end
       
       return len
    end
    
    print(utf8.len("Аутизм")) --6
    
    local mt = {__len = function(self) 
          local k=0
          for _,v in pairs(self) do 
            k = k+1;
            if k > 1 then  print(1) return #self end
          end
          if k==1 and type(self[1])=="string" then
            print(utf8.len(self[k]))
          end
        end};
    setmetatable(_G,{
        __index = function(self, key) return setmetatable({key},mt) end} 
      )
    t=(#Аутизм) --12

    Чот пытался - но словил хуйца.

    3oJIoTou_xyu, 22 Мая 2019

    Комментарии (7)
  7. Lua / Говнокод #25346

    +3

    1. 1
    2. 2
    3. 3
    do debug.getinfo(1).func() end --рекурсия
    do debug.getinfo(2).func() end --вылет нахуй интерпретатора 5.3 версии без ошибки.
    do debug.getinfo(3).func() end --не существует с таким индексом. Ошибка.

    3oJIoTou_xyu, 01 Февраля 2019

    Комментарии (29)
  8. Lua / Говнокод #25272

    +2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    -- Pipe Elbow ****************************************************************************
    pipe_elbow = util.table.deepcopy(data.raw["storage-tank"]["storage-tank"])
    pipe_elbow.name = "pipe-elbow"
    pipe_elbow.icon = "__Flow Control__/graphics/icon/pipe-elbow.png"
    pipe_elbow.minable = data.raw["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"].minable
    pipe_elbow.corpse = "small-remnants"
    pipe_elbow.max_health = data.raw["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"].max_health
    pipe_elbow.resistances = data.raw["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"].resistances
    pipe_elbow.fast_replaceable_group = data.raw["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"].fast_replaceable_group
    pipe_elbow.collision_box = data.raw["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"].collision_box
    pipe_elbow.selection_box = data.raw["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"]["pipe"].selection_box

    Пип Еблов.
    Factorio mod Flow Control_3.0.3
    --Завышеное ЧСВ или самолюбование?

    TOPT, 04 Января 2019

    Комментарии (22)
  9. Lua / Говнокод #25016

    0

    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
    class Person {
        protected name: string;
        constructor(name: string) { this.name = name; }
    }
    
    class Employee extends Person {
        private department: string;
    
        constructor(name: string, department: string) {
            super(name);
            this.department = department;
        }
    
        public get ElevatorPitch() {
            return `Hello, my name is ${this.name} and I work in ${this.department}.`;
        }
    }
    
    let howard = new Employee("Howard", "Sales");
    console.log(howard.ElevatorPitch);

    наговнокодил компайлер TypeScript для Lua для тех кто терпеть не может такой говноязык как Lua но в экстазе от говно Vm от Lua 5.3

    https://github.com/ASDAlexander77/TypeScriptLUA

    Закомпили тестовый файл:
    node __out/main.js test.ts

    Теперь можно эту лажу запустить
    lua test.lua

    ASD_77, 24 Октября 2018

    Комментарии (23)
  10. Lua / Говнокод #25014

    0

    1. 1
    2. 2
    _G = setmetatable(_G, {__newindex = function(t,k,v) t[k] = "sG_nil" end})
    pitux=1

    чо поцоны, изи рекурсия.

    3oJIoTou_xyu, 24 Октября 2018

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