Метатабличный – Страница 6

Метатабличный / Говнокод #21705

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

{ Delphi compatible }
{$IFNDEF PtrInt}   type PtrInt = ^Integer; {$ENDIF}
{$IFNDEF PPointer} type PPointer = ^Pointer; {$ENDIF}
{$IFNDEF PPChar}   type PPChar = ^PChar; {$ENDIF}


var
  ls_lib: array[1..3] of luaL_reg =
    (
      (name: 'MultAllNumbers'; func: forLua_MultAllNumbers),
      (name: 'GetHostAppPath'; func: forLua_GetHostAppPath),
      (name: nil; func: nil)
    );

function luaopen_SimpleDelphiLua(L: Plua_State): Integer; cdecl;
begin
    luaL_openlib(L, PChar('SimpleDelphiLua'), @ls_lib, 0);
    lua_pop(L, 1);
    Result := 0;
end;

https://quik2dde.ru/viewtopic.php?id=40
Чел пишет на луе, и юзает дельфийские либы.
Обратите внимание, как он декларирует типы.

rotretS, 22.11.2016 (Updated 31.03.2018)

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

Метатабличный / Говнокод #21698

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

-- Searching for localization files
local lang_id = System.getLanguage()
local localization
if lang_id == 0 then
	localization = chdir().."../CHMM Localization/japanese.txt"
elseif lang_id == 1 then
	localization = chdir().."../CHMM Localization/english.txt"
elseif lang_id == 2 then
	localization = chdir().."../CHMM Localization/french.txt"
elseif lang_id == 3 then
	localization = chdir().."../CHMM Localization/german.txt"
elseif lang_id == 4 then
	localization = chdir().."../CHMM Localization/italian.txt"
elseif lang_id == 5 then
	localization = chdir().."../CHMM Localization/spanish.txt"
elseif lang_id == 6 then
	localization = chdir().."../CHMM Localization/simplified chinese.txt"
elseif lang_id == 7 then
	localization = chdir().."../CHMM Localization/korean.txt"
elseif lang_id == 8 then
	localization = chdir().."../CHMM Localization/dutch.txt"
elseif lang_id == 9 then
	localization = chdir().."../CHMM Localization/portuguese.txt"
elseif lang_id == 10 then
	localization = chdir().."../CHMM Localization/russian.txt"
else
	localization = chdir().."../CHMM Localization/traditional chinese.txt"
end
if not doesFileExist(localization) then
	localization = "romfs:/english.txt"
end
dofile(localization)

(c) https://github.com/Rinnegatamante/CHMM2/blob/master/source/boot.lua

RandomTrash, 20.11.2016 (Updated 31.03.2018)

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

Метатабличный / Говнокод #21601

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

if closedk>0 then
	for k=1,closedk do
		if closedlist[k].x==curbase.x+1 and closedlist[k].y==curbase.y then
			rightOK=false
		end
		if closedlist[k].x==curbase.x-1 and closedlist[k].y==curbase.y then
			leftOK=false
		end
		if closedlist[k].x==curbase.x and closedlist[k].y==curbase.y+1 then
			downOK=false
		end
		if closedlist[k].x==curbase.x and closedlist[k].y==curbase.y-1 then
			upOK=false
		end
	end
end
		
		-- Check if next points are on the map and within moving distance
if curbase.x+1>xsize then
	rightOK=false
end
if curbase.x-1<1 then
	leftOK=false
end
if curbase.y+1>ysize then
	downOK=false
end
if curbase.y-1<1 then
	upOK=false
end

		-- If it IS on the map, check map for obstacles
		--(Lua returns an error if you try to access a table position that doesn't exist, so you can't combine it with above)
if curbase.x+1<=xsize and mapmat[curbase.y][curbase.x+1]~=0 then
	rightOK=false
end
if curbase.x-1>=1 and mapmat[curbase.y][curbase.x-1]~=0 then
	leftOK=false
end
if curbase.y+1<=ysize and mapmat[curbase.y+1][curbase.x]~=0 then
	downOK=false
end
if curbase.y-1>=1 and mapmat[curbase.y-1][curbase.x]~=0 then
	upOK=false
end

Кусок кода A* какого-то чувака, который не знает что такое elseif
К тому же с 19 по 30 строки можно выпилить, просто curbase.x+1<=xsize подобных условий заменить на проверку на существование нужного элемента таблицы.

Сам код тут: https://github.com/philnelson/A-Star-Pathfinding-For-Lua/blob/master/A-star%20algorithm%20release.lua

_____, 28.10.2016 (Updated 31.03.2018)

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

Метатабличный / Говнокод #21571

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

function True()
	do
			do
				do
					do
				return true
					end
		return true
end
								do	do do do do do return true
								end end end end
		return true
	end
do do return end
					end
			return true
	end
		return true
	end
		do
		return true
	end
	end
return true
end

3oJIoTou_xyu, 25.10.2016 (Updated 31.03.2018)

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

Метатабличный / Говнокод #21282

0

1

А не напиться ли нам "солнцедару"?

Забухать шоли.

TAMAPA, 27.09.2016 (Updated 31.03.2018)

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

Метатабличный / Говнокод #21281

0

1

Давайте в жопу ебаться.

TAMAPA, 27.09.2016 (Updated 31.03.2018)

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

Метатабличный / Говнокод #21275

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14

local r = LocalPlayer():GetRole()
   
   for _, p in pairs(player.GetAll()) do
	  local cramprib = p:GetRole()
	  if r != ROLE_TRAITOR then
         if IsValid(p) and cramprib == ROLE_DETECTIVE and p != LocalPlayer() then
            dpick:AddChoice(p:Nick(), p:UniqueID())
         end
	  elseif r == ROLE_TRAITOR then
         if IsValid(p) and cramprib != ROLE_INNOCENT and p != LocalPlayer() then
            dpick:AddChoice(p:Nick(), p:UniqueID())
         end
      end		 
   end

a != a

pls3x, 26.09.2016 (Updated 31.03.2018)

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

Метатабличный / Говнокод #21175

0

1
2
3
4
5
6

Луашники на все смотрят как на таблицу
Человека можно разделить на таблицу с таблицами функции с таблицами в таблице функций
Вот ты, да ты, я вижу в тебе сущность в виде таблицы, таблица.

Человек = {}
Кстати, когда твое время истечет таблица, то table.remove(self) и твоя таблица исчезнет с лица таблицы земля

3oJIoTou_xyu, 12.09.2016 (Updated 31.03.2018)

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

Метатабличный / Говнокод #21048

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

lit = {"aeoiyu","qwrtpsdfghjklzxcvbnm"}

function strgen()
local stor = ""
	while true do
	local r = {math.random(1,#lit[1]),math.random(1,#lit[2])}
	local s = {lit[1]:sub(r[1],r[1]),lit[2]:sub(r[2],r[2])}
	r2 = math.random(1,4)
		if r2 == 1 then
			stor = stor..s[1]..s[2]
		else
			stor = stor..s[2]..s[1]
		end
		if math.random(1, 10-#stor) == 1 then
			break
		end
	end
return stor
end

Назову я его генератор для названий заклинаний

Sfabrikan, 31.08.2016 (Updated 31.03.2018)

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

Метатабличный / Говнокод #20496

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

people = {}

function people:cr(age,id,fami)
local t = {}
t.age = age or {0,0,0} --лет, месяцев, дней
t.id = id
t.mid = id
t.gen = math.random(1,2)
sch[1][t.gen] = sch[1][t.gen]+1
t.name = name[t.gen][math.random(1,#name[t.gen])]
t.fam = name[1][math.random(1,#name[t.gen])]..fam[t.gen]
	if fami then
		t.fam = fami..fam[t.gen]
	end
t.b = false; t.zh = false; t.sv = {"",""}
t.tirod = 0; t.srname = ""
return setmetatable(t,{__index = self})
end

function people:life()
	self.age[3] = self.age[3] + 1
	if self.age[3] == 30 then
		self.age[2] = self.age[2] + 1
		self.age[3] = 0
	end
	if self.age[2] == 12 then
		self.age[2] = 0
		self.age[1] = self.age[1] + 1
	end
	if self.age[1] >= 16 then
		if self.gen == 2 then
			if self.zh then
				if self.tirod == 0 then
					local r = math.random(1,20)
					if r == 1 then
						self.tirod = 1
					end
				end
			else
				if not self.zhid then
					self.zhid = #sch[2]+1
					--print(self.zhid)
					sch[2][#sch[2]+1] = self.id
				end
			end
			if self.tirod > 0 then
				local r = math.random(266,294)
				local ploho = math.random(1,10000)
				self.tirod = self.tirod + 1
				if ploho == 1 then
					self.tirod = 0
				end
				if self.tirod >= r then
					local _ = #pl+1
					local name = self.sv[1]
						if self.srname then
						name = self.srname
						self.srname = nil
						end
					pl[_] = people:cr(nil,_,name)
					self.tirod = 0
				end
			end
		else
			if not self.zh then
				local r = math.random(1,200)
				if r == 1 then
					local l = math.random(1,#sch[2])
					self.mid = sch[2][l]	
					print(self.mid,l)
					local n,f = pl[self.mid]:svadba(self.name,self.fam,self.id)
					self:svadba(n,f,id)
					table.remove(sch[2],l)
				end
			end
		end
	end
	self.rkill = math.random(1, 10000)
	if self.rkill == 1 then
		sch[1][self.gen] = sch[1][self.gen]-1
		if self.gen = 2 and not self.zh then
		pl[self.id] = nil
		end
	end
end

function people:svadba(n,f,id)
	self.sv = {n,f}
	self.mid = id
	self.zh = true
	return self.name, self.fam
end

local tex = {" Женат на "," Замужем за "}
function people:dr(x,y)
gr.print(self.name.." "..self.fam.." "..self.age[1].." "..self.age[2].." "..self.age[3].." беременность: "..self.tirod..tex[self.gen]..self.sv[1].." "..self.sv[2],x,y)
end

Багованая жизнь

Sfabrikan, 09.08.2016 (Updated 31.03.2018)

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