- 1
console.log('Hello from GovnoKod!');
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
console.log('Hello from GovnoKod!');
0
Писать однострочный код это плохо? А если в одном файле совместить серверную и клиентскую часть? Пример аддона из Garry's Mod https://steamcommunity.com/sharedfiles/filedetails/?id=2754127067
AddCSLua("cl_init.lua")
if istable( xdestore ) then if xdestore.Menu then xdestore.Menu:Remove() end if xdestore.Unlock then xdestore.Unlock:Remove() end
if xdestore.Namer then xdestore.Namer:Remove() end if xdestore.Lock then xdestore.Lock:Remove() end end xdestore = {} xdestore.Players = {}
util.AddNetworkString( "XDEST_MenuS2COpen" ) util.AddNetworkString( "XDEST_MenuS2CClose" ) util.AddNetworkString( "XDEST_SendRes" )
util.AddNetworkString( "XDEST_MenuS2CUpdate" ) util.AddNetworkString( "XDEST_MenuS2CResult" ) util.AddNetworkString( "XDEST_MenuC2SClose" )
util.AddNetworkString( "XDEST_LockReset" ) util.AddNetworkString( "XDEST_MenuC2SAction" ) util.AddNetworkString( "XDEST_SendSnd" ) util.AddNetworkString( "XDEST_SendHint" )
xdestore.AmmoMdl = {
[ "AR2" ] = "models/items/combine_rifle_cartridge01.mdl",
[ "AR2AltFire" ] = "models/items/combine_rifle_ammo01.mdl",
[ "Pistol" ] = "models/items/boxsrounds.mdl",
[ "SMG1" ] = "models/items/boxmrounds.mdl",
[ "357" ] = "models/items/357ammo.mdl",
[ "XBowBolt" ] = "models/items/crossbowrounds.mdl",
[ "Buckshot" ] = "models/items/boxbuckshot.mdl",
[ "RPG_Round" ] = "models/weapons/w_missile_closed.mdl",
[ "SMG1_Grenade" ] = "models/items/ar2_grenade.mdl",
[ "Grenade" ] = "models/items/grenadeammo.mdl",
[ "slam" ] = "models/weapons/w_slam.mdl"
}
xdestore.NonSWEP = {
[ "weapon_357" ] = "models/weapons/w_357.mdl",
[ "weapon_pistol" ] = "models/weapons/w_pistol.mdl",
[ "weapon_bugbait" ] = "models/weapons/w_bugbait.mdl",
[ "weapon_crossbow" ] = "models/weapons/w_crossbow.mdl",
[ "weapon_crowbar" ] = "models/weapons/w_crowbar.mdl",
[ "weapon_frag" ] = "models/weapons/w_grenade.mdl",
[ "weapon_physcannon" ] = "models/weapons/w_physics.mdl",
[ "weapon_ar2" ] = "models/weapons/w_irifle.mdl",
[ "weapon_rpg" ] = "models/weapons/w_rocket_launcher.mdl",
[ "weapon_slam" ] = "models/weapons/w_slam.mdl",
[ "weapon_shotgun" ] = "models/weapons/w_shotgun.mdl",
[ "weapon_smg1" ] = "models/weapons/w_smg1.mdl",
[ "weapon_stunstick" ] = "models/weapons/w_stunbaton.mdl",
[ "weapon_alyxgun" ] = "models/weapons/w_alyx_gun.mdl",
[ "weapon_annabelle" ] = "models/weapons/w_annabelle.mdl",
[ "weapon_physgun" ] = "models/weapons/w_physics.mdl"
}
xdestore.ValidAct = { [ "Take" ] = true, [ "Move" ] = true, [ "Store" ] = true, [ "Rename" ] = true, [ "TakeAll" ] = true, [ "Split" ] = true, [ "Lock" ] = true, [ "Unlock" ] = true }
xdestore.ActToNum = { "Take", "Move", "Store", "TakeAll", "Rename", "Split", "Lock", "Unlock" }
xdestore.LockType = { "Simple", "Complex", "Question", "Key Weapon", "Group", "Personal" }
net.Receive( "XDEST_MenuS2COpen", function() local int = net.ReadFloat() local tab = net.ReadString() local con = net.ReadString()
local ent = net.ReadEntity() xdestore:OpenMenu( ply, int, tab, con, ent ) end )
net.Receive( "XDEST_MenuS2CClose", function() if xdestore.Menu then xdestore.Menu:Remove() end if xdestore.Namer then xdestore.Namer:Remove() end
if xdestore.Lock then xdestore.Lock:Remove() end if xdestore.Unlock then xdestore.Unlock:Remove() end end )
net.Receive( "XDEST_MenuS2CUpdate", function()
local tab = util.JSONToTable( net.ReadString() ) local con = util.JSONToTable( net.ReadString() ) local aa = net.ReadBool() local bb = net.ReadBool()
if IsValid( xdestore.Menu ) then xdestore.Menu.V_DataStat = tab xdestore.Menu.V_DataCont = con xdestore.Menu:UpdateItems( aa, bb ) end
end )
net.Receive( "XDEST_MenuC2SClose", function( len, ply ) if len > 32 or !IsValid( ply ) then return end
local int = net.ReadFloat() if IsValid( ply ) and ply:IsPlayer() and !ply:IsBot() and isnumber( int ) then xdestore:CloseMenu( ply, int ) end
end )
net.Receive( "XDEST_MenuC2SAction", function( len, ply ) if len >= 4096 or !IsValid( ply ) then return end
if isnumber( ply.XDEST_Cool ) and ply.XDEST_Cool > CurTime() then xdestore:SendHint( ply, "You are doing too fast!", "resource/warning.wav", 0 ) end
ply.XDEST_Cool = CurTime()+0.25 if !IsValid( ply:GetNWEntity( "XDEST_Ent" ) ) or ply:GetNWEntity( "XDEST_Ent" ) == Entity( 0 ) then return end local self = ply:GetNWEntity( "XDEST_Ent" )
if ( ( !isstring( self.Base ) or self.Base != "xdest_base" ) and self:GetClass() != "xdest_base" and self:GetClass() != "weapon_xdest" )
or !isstring( self.XDEST_Data ) or !isstring( self.XDEST_Contain ) then return end
local act = net.ReadFloat() local str = net.ReadString() if !isnumber( act ) then return end act = math.Round( act )
if !isstring( str ) then str = "_" end if isstring( xdestore.ActToNum[ act ] ) then act = xdestore.ActToNum[ act ] else return end xdestore:SlotAction( ply, self, act, str )
end )
net.Receive( "XDEST_MenuS2CResult", function() local ply = LocalPlayer() local yes = net.ReadBool() if IsValid( xdestore.Unlock ) then xdestore.Unlock:XDE_Result( yes ) end end )
net.Receive( "XDEST_LockReset", function() local ent = net.ReadEntity() if IsValid( ent ) and ent != Entity( 0 ) then ent.XDE_Pass = nil end end )
net.Receive( "XDEST_SendSnd", function() local str = net.ReadString() if !isstring( str ) or str == "!V" then return end surface.PlaySound( str ) end )
net.Receive( "XDEST_SendRes", function() local str = net.ReadString() local ply = LocalPlayer() local ent = net.ReadEntity() if !IsValid( ent )
or ent == Entity( 0 ) or !isstring( str ) or str == "" then return end if !isstring( ent.XDE_Pass ) then xdestore:SendHint( nil, "Access granted.", "", 0 ) end ent.XDE_Pass = str end )
net.Receive( "XDEST_SendHint", function() local txt = net.ReadString() local snd = net.ReadString() local typ = net.ReadFloat() xdestore:SendHint( nil, txt, snd, typ ) end )
0
Процедура СоздаватьПКОПриИзменении(Элемент)
Если НЕ ЗаписыватьДокументы Тогда
ЗаписыватьДокументы = Истина;
КонецЕсли;
КонецПроцедуры
Нельзя так просто взять и не создавать документы.
0
.org 80h
data:
db "Hello, world!\n"
db 0h
start:
mov %bp @data
; jmp @.exit ;
.loop:
mov %al [%si + %bp]
inc %si
cmp %al 0h
int 5h ;KOKOKO make me port-mapped io;
jnz @.loop
.exit:
int 0h
32 31 44 41 54 41 3A 30 30 38 30 3B 53 54 41 52
54 3A 30 30 38 45 3B 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 48 65 6C 6C 6F 20 77 6F 72
6C 64 21 0A 00 02 06 80 00 03 0A 38 09 05 0C 0A
00 00 0B 05 0F 92 00 0B 00
добавил комментарии, теперь можно будет красиво рисовать фреймы (радуйтесь)
0
return QUERY
with a as
(
with pr as
(
select p.ss, p.sb,
sum(sum_prih) as sum_prih
from material.prihod_by_all_sklads_by_doc_period(dt_ostatki) p
group by 1,2
),
r AS
(
select p.ss, p.sb,
sum(p.sum_by_cen) as sum_rash
from material.rashod_by_all_sklads_by_doc_period(dt_ostatki) p
group by 1,2
),
os AS
(
select o.ss, o.sb,
-- case when trim(o.sb)='1150' then 'Запчастини ВКМ,ВПК1,ВПК2,ВПК3,сб. 1150'
-- when trim(o.sb)='1050' then 'Запчастини ВКМ,ВПК1 сб. 1050'
-- when trim(o.sb)='1105' then 'Запчастини ВКМ,ВПК1,ВПК2,ВПК3,сб. 1105'
-- else o.name_sklad end as name_skl,
sum(o.sum_ost_doc) as sum_ost_doc--,
from material.ostatki_by_all_sklads(dt_ostatki) o
left join material.sklad s on (s.skladid = o.skladid)
group by 1,2
),
topl AS
(
select o.ss, o.sb,
sum(o.ost_sum) as sum_ost_doc,
sum(o.vos_sum) as sum_vos,
sum(o.prih_sum) as sum_prih,
sum(o.rash_sum) as sum_rash
from material.ostatki_by_all_toplot(dt_ostatki) o
group by 1,2
)
select os.ss, os.sb,
os.sum_ost_doc,
coalesce ( pr.sum_prih,0) as sum_prih,
coalesce (r.sum_rash,0) as sum_rash
from os
left join pr on (os.ss= pr.ss and os.sb= pr.sb )
left join r on (os.ss= r.ss and os.sb= r.sb )
UNION
select os.ss, os.sb,
os.sum_ost_doc,
-- os.sum_vos + os.sum_prih - os.sum_rash as sum_ost_doc ,
os.sum_prih,
-- os.sum_rash
-- case when period_dt$>='2018.08.01' then COALESCE( r.sum_rash,0)
-- else os.sum_vos-os.sum_ost_doc + os.sum_prih end as sum_rash --os.sum_rash END
-- r.sum_rash
os.sum_vos-os.sum_ost_doc + os.sum_prih
from topl os left join r on (os.ss= r.ss and os.sb= r.sb )
/*
select o.ss, o.sb,
sum(o.ost_sum) as sum_ost_doc,
sum(o.prih_sum) as sum_prih,
sum(o.rash_sum) as sum_rash
from material.ostatki_by_all_toplot(dt_ostatki) o left JOIN r on (r.ss =o.ss and r.sb=o.sb)
group by 1,2
*/
/* UNION
select ob.ss, ob.sus,
'112' as depart_name,
'112',
sum(ob.ost_sum),
sum(ob.pr_sum),
sum(ob.rm_sum)
from material.oborot_by_ss_112_by_sklads(period_dt, dt_ostatki) ob
group by 1,2,3,4 */
),
b as
(
select bb.ss,bb.sb,bb.sisb_d,bb.sisb_k, bb.sdob, bb.skob from cont.bbz_sald_by_sb(y,m,'112') bb where bb.sb = '0007'
UNION
select bb.ss,bb.sb,bb.sisb_d,bb.sisb_k, bb.sdob, bb.skob from cont.bbz_sald_by_sb(y,m,'153') bb
UNION
-- select bb.ss,bb.sb,bb.sisb_d,bb.sisb_k, bb.sdob, bb.skob from cont.bbz_sald_by_sb(y,m,'152') bb
select bb.ss,bb.sb,bb.sisb_d ,bb.sisb_k, bb.sdob, 0 from cont.bbz_sald_by_sb(y,m,'152') bb
UNION
select bb.ss,bb.sb,bb.sisb_d,bb.sisb_k, bb.sdob, bb.skob from cont.bbz_sald_by_sb(y,m,'201') bb
UNION
select bb.ss,bb.sb,bb.sisb_d,bb.sisb_k, bb.sdob, bb.skob from cont.bbz_sald_by_sb(y,m,'207') bb
UNION
select bb.ss,bb.sb,bb.sisb_d,bb.sisb_k, bb.sdob, bb.skob from cont.bbz_sald_by_sb(y,m,'209') bb
UNION
select bb.ss,bb.sb,bb.sisb_d,bb.sisb_k, bb.sdob, bb.skob from cont.bbz_sald_by_sb(y,m,'203') bb
UNION
select bb.ss,bb.sb,bb.sisb_d,bb.sisb_k, bb.sdob, bb.skob from cont.bbz_sald_by_sb(y,m,'221') bb
-- UNION
-- select bb.ss,bb.sb,bb.sisb_d,bb.sisb_k, bb.sdob, bb.skob from cont.bbz_sald_by_sb(y,m,'231') bb
-- UNION
-- select bb.ss,bb.sb,bb.sisb_d,bb.sisb_k, bb.sdob, bb.skob from cont.bbz_sald_by_sb(y,m,'232') bb
Весь запрос не влез...
−2
Здравствуйте-здравствуйте, дорогие инкубаторы! С рождеством!
Самое время поздравить родных, поцеловать богомольный знак на пузе попа или искупаться в проруби.
Эх, люблю я свою работу!..
Хочу, чтобы Хуйло изгнали. Нам не нужен презик-хуйло, это атавизм.
Пусть презиком будет кто-то из знатоков, например, Борис Бурда.
−2
not' = isInfinite . (1/)
−1
const files = {
"main.pcg": "funcTion text print hello;startFunction text;"
};
const functions = {};
const values = {};
function startc(text) {
var code = text.trim();
let strings = code.split(";");
for(var i = 0; i < strings.length; i++) {
let currentString = strings[i];
let words = currentString.split(" ");
if(words[0].toLowerCase() == "print") {
console.log(words[1]);
};
if(words[0].toLowerCase() == "printValue") {
console.log(values[words[1]]);
};
if(words[0].toLowerCase() == "value") {
values[words[1]] = words[2];
};
if(words[0].toLowerCase() == "ws") {
values[words[1]] = new WebSocket(words[2]);
};
if(words[0].toLowerCase() == "printcycle") {
for(var i = 0; i < words[1]; i++) {
console.log(words[2]);
};
};
if(words[0].toLowerCase() == "function") {
functions[words[1]] = words[2] + " " + words[3];
};
if(words[0].toLowerCase() == "startfunction") {
startc(functions[words[1]]);
};
};
};
function start(file) {
startc(files[file]);
};
+2
select sum(sma) as ism from Jur_7.ss2022_1 where ch=1 and gd*100+ms<2022*100+1
Нашел БД с ОТДЕЛЬНОЙ таблицей на каждый месяц (начиная с 2008 года). А тут еще и дата определяется....
−3
короче на новый год я ебанул гранатом по стене
его кровь лилась по мне
стул потом на видео крутил
вместе с видео убийства граната его я по каналам мутил