The Nest of Dopefish [entries|archive|friends|userinfo]
ketmar

[ userinfo | ljr userinfo ]
[ archive | journal archive ]

Красивые часы на любой дисплей [Dec. 7th, 2022|06:02 pm]

hex_laden
[Tags|, , , , ]

Припер шеф в офис телевизор, новый здоровый плоский, чтоб клиентам МУЗ-ТВ или какое другое камеди показывать, мол, пусть будет, как в лучших домах города.
Сразу выяснилось, что коаксиал в офисе есть, но это оказалось не кабельное, а какая-то неведомая фигня, которая, в общем, даже неведомое показывать отказалась, хотя по тестам там даже какой-то сигнал есть, но с ним я ночью поэкспериментирую, вдруг какая Бухта Кэндл или Криполе Чудес после полуночи передается.

Оказалось, железячка не венде (какой-то окончательно порезанной и изуродованной 10-ке), так что довольно быстро научил его показывать из расшаренной Самбы видосы, но, поскольку там одни ужастики 80-х ("Извне", "Реаниматор", "Фантомы" и.д.), то для клиентов это не включишь, а за ютупом следить надо, вдруг посреди котиков Невзоров вылезет.

В общем, хуй с ним, сказал начальник, и попросил Большие Красивые Часы на весь экран.

Оказалось, что после небольшого шаманства, железке можно скрамливать неподписанные экзешники, и заливать все что хочешь, на доступный пользователю раздел SSD.

Что-ж, сказал я... И немедленно выпил. А потом сделал часы (ну как сделал, сконвертировал в экзешник(и)).



Clock_1.exe - часы в стандартном окне (с кнопками развернуть, свернуть и закрыть)
Clock_Noborder.exe - часы в стандартном окне без заголовка, закрываются ALT+F4 или по щелчку правой кнопкой мыши, выпадет меню с пунктом Exit
Clock_Fullscreen.exe - часы на полный экран без заголовка, закрываются аналогично предыдущему варианту. Идеальны для стационарного показа на мониторе, телевизоре, старом смартфоне под винду или информационном киоске.
swf\Clock_1.swf - оригинал программы.

Скачать с Mega.NZ

Это репост с сайта http://tolik-punkoff.com
Оригинал: https://tolik-punkoff.com/2022/12/07/krasivye-chasy-na-lyuboj-displej/
Linkmeow!

использованные гондоны [Dec. 7th, 2022|10:17 am]

tiphareth
[Tags|, , , ]
[Current Mood | sick]
[Current Music |Death in June - THE RULE OF THIRDS]

Независимая журналистика по-русски



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

Я, в принципе, не поддерживаю ограничения
на верещание Russia Today или телестанции "Дождь",
но разницы между ними тоже не вижу. То есть разница,
конечно, есть: из двух неразличимые обойм "независимых
журналистов", одни поддерживают системно-либеральную
половину кремлевских, другие поддерживают гебешную,
но в главном эти граждане никаких противоречий
не имеют, мелкие разногласия не мешают независимым
журналистам быть патриотами великой россии и
всем сердцем болеть за русских мальчиков в опопах.

Терпеть это невозможно, даже при всем моем неодобрении
ограничений на вещание путлеровцев. Проблема на самом деле
не в ограничениях, а в том, что deep state, то есть
всемирный интернационал гебистов и номенклатуры, при
любом раскладе будет душить чужие медиа и продвигать
свои, а эти номенклатурные мрази у международной
номенклатуры навечно в "своих". Соответственно, если
не лупить братьям дзядко по башке, номенклатура заполнит
вообще все окружающее пространство, задушит всех, усилит
в 20 раз 282-ю статью, и заткнет каждому рты так, как
никакому латвийскому парламенту и не снилось.

Затыкать рот, конечно, никому не надо, а вот обнулить
номенклатурщикам режим максимальной поддержки (лицензии,
внеочередные виды на жительство, ссуды, налоговые скидки,
вот это все) просто необходимо. Они враги вообще.

Блядь, война идет, и очевидно враждебная русофильская
гнида требует к себе "непредвзятого отношения". Да шлите их
всех нахуй, что "дождь", что "рт.ком", пусть на рутюбе
вещают, хуле.

Сислибы - использованные гондоны, влияния в кремле
у них практически не осталось, а если их режим вернется,
он вернется только на украинских штыках. И это никому
вообще не нужно, в первую очередь самим украинцам.

Россия должна быть слабой и раздробленной.

Привет
Link87 meows|meow!

у власти в Латвии - пещерные националисты! [Dec. 6th, 2022|11:43 pm]

tiphareth
[Tags|, , , ]
[Current Mood | sick]
[Current Music |Reutoff - THREE SOULS FOR A REASONABLE PRICE]

Гнусное явлинское ебло
"лев шлосберг" выступает в унисон с
Песковым насчет того, что латвийцы
запутлера, раз они отобрали лицензию у
сислибовского телеканала "дождь"
https://twitter.com/LevShlosberg/status/1600044328008572928

У этого решения, безусловно, полностью внутриполитические
мотивы: это прямая популистская реакция на запрос
радикальной части латвийского общества, требующей полной
дерусификации медийного и политического пространства
страны.

На этой волне сейчас держится в Латвии парламентское
большинство и, соответственно, правительство. Это желание
управлять страной, опираясь на силу ненависти. И это очень
опасно.

Безусловно, это отражение глубокого провинциализма
политического ландшафта Латвии, который граничит с
самоизоляцией.

И печальный постскриптум для команды ``Дождя'': спасая себя,
нельзя приносить жертвы. Жертвой в итоге становится твоя
совесть.

Мне кажется, "совесть" и "яблочник" - понятия несовместимые.

резюме:

Аннулирование лицензии на вещание телеканала ``Дождь''

(признан в РФ СМИ-иноагентом) в Латвии является примером
ошибочных иллюзий, что где-то лучше и свободнее, чем в
России, заявил пресс-секретарь президента РФ Дмитрий
Песков.

еще резюме:

>йобану русню пускають у країну і навіть не хочуть вбити

>йобана русня сре і не дотримується ніяких правил/законів
>йобану русню закономірно викидають копняками
>йобана русня ниє погрожує і появля всю свою гидотну натуру

Финальный аккорд:

Пора открыть глаза, у власти в Латвии - пещерные

националисты. Это вовсе не Путин придумал про тамошнюю
русофобию. Она продолжается там многие
годы. Цивилизованным людям нечего делать в Латвии. А самой
Латвии с таким руководством нечего делать в ЕС.

Сообщает нам Владислав Наганов.

Послужной список Владислава Наганова:

В 2012-2013 годах был членом Координационного совета

российской оппозиции[31][32].

В 2015-2016 гг. входил в состав мониторинговой рабочей
группы Совета по правам человека при Президенте РФ по
наблюдению на региональных и муниципальных выборах[33].

В 2013 являлся доверенным лицом кандидата на должность
мэра Москвы Алексея Навального[34].

Постоянный автор каспаров.ру до кучи
https://www.kasparov.ru/author.php?id=50C051977F5E3

* * *

Блядь, если это называется "антивоенные активисты",
лучше пусть будут провоенные. Интересно, почему
Ройзман до сих пор не выступил.

Привет
Link83 meows|meow!

вреднее и опаснее откровенного путлеровца [Dec. 6th, 2022|07:28 pm]

tiphareth
[Tags|, , ]
[Current Mood | sick]
[Current Music |Деда План Планыч - ШАМБАЛА ШАМАНА]

Список говноедов
https://meduza.io/feature/2022/12/06/zayavlenie-meduzy-po-povodu-otzyva-latviyskoy-litsenzii-u-telekanala-dozhd
которые (вместе с гебешной медузой)
осуждают латвийцев за запрет гебешного
телеканала "дождь"

"дождь", конечно, запрещать не следовало,
потому что запрещать всегда плохо,
но борьба с сислибским медиа-продуктом должна
всегда идти в приоритете, а там по ссылке целый
зоопарк сислибовского говнища, которым по уму
место в окрестностях урюпинска, а никак не
в Риге

Если кого-то удивляет, почему латыши не запрещают
откровенно путлеровских мразей, типа АиФ или
московских телеканалов, а запрещают сислибские:
а именно поэтому и запрещают, "либеральный"
и "антивоенный" ельциноид вреднее и опаснее
откровенного путлеровца, сущность у них одна
("великая прекрасная россия"), но путлеровцы -
открытые гады, которым ничего в этой жизни
не светит, кроме суда в гааге; а сислибы -
замаскированные гады, из которых сделается
путлер 2.0, примерно как путлер 1.0 сделался
из ельцина, надо давить эту номенклатурную
говномассу в зародыше. Поэтому запомним этих
мразей системно-либеральных
.

Бонус-трэк:

Mitya Aleshkovskiy
Небольшое напоминание гражданам
Латвии: если вы не будете
протестовать против позорного
решения властей о запрете работы
телеканала Дождь, значит вы тоже
(как и ваши власти) работаете на
Кремль и несете ответственность за
то, что в Украине продолжается война.


* * *

Есличо, "алешковский" это подельник
путлеровской крымнашистской мрази "доктора
лизы", который громче всех огорчался,
когда та подохла, из той же обоймы персонаж.
Желаю им всем сдохнуть, в соседней камере
с путлеровцами.

Привет
Link45 meows|meow!

Не вижу причин не убить Д.Е.Галковского [Dec. 6th, 2022|11:07 pm]

dece
вместе со всем выводком гэбэшных выблядков.
Даже селёдкина менее отвратительна, хотя заслуживает того же ггг
Linkmeow!

О кетай [Dec. 6th, 2022|10:09 am]

dece
А никто, кстати, не зодумывалсо, шо, если б не отот кетайский полоумный пидераст, шо "объединил" 3 десятка разных царств, вырезав, попутно, Царство У (или И, я не помню точно ггг) под ноль, то Азия щас была б процветающей Европой, как минимум, а не куском тоталітарного говна.
Linkmeow!

Nina West - Drag Is Magic! [Dec. 5th, 2022|06:07 pm]

tiphareth
[Tags|, ]
[Current Mood | sick]
[Current Music |The Blue's Clues Pride Parade - Sing-Along Ft. Nina West!]


Старенький трансвестит Nina West

записал пластинку для дошкольников, с
песнями про философию трансвестизма
https://www.reddit.com/r/rupaulsdragrace/comments/ay7rge/nina_west_hosted_drag_queen_story_time_at_a_local/
https://www.youtube.com/watch?v=JbU60p0QxFk
https://www.reddit.com/r/rupaulsdragrace/comments/brdoeq/nina_west_drag_is_magic_official_music_video/
https://www.reddit.com/r/rpdrcringe/comments/vrs667/underrated_queen_of_cringe/
трешак неописуемый, рекомендую.

Бонус трэк
https://www.reddit.com/r/rpdrcringe/comments/nna873/nina_west_is_back_to_terrify_new_children_with/
Families marching three by three, hurrah, hurrah,
Families marching three by three, hurrah, hurrah,
These babas are non-binary,
They love each other so proudly
and they all go marching in THE BIG PARADE


гениальнейшее вообще, почти как The Curious Sofa.

Привет
Link87 meows|meow!

Transren [Dec. 5th, 2022|12:27 am]

hex_laden
[Tags|, ]

Translit Renamer - программа, которая заменяет русские буквы в именах файлов на латинские, т.е. транслитерирует имена файлов и каталогов.
v 0.0.1b (L) ChaosSoftware 2022.

Использование: transren.exe <-h>|<-m <mask> и/или <-t>>[-d] [-s]
-h - эта помощь
-m <mask> - Маска <mask>, маска для файлов, которые нужно переименовать
-t - переименовать каталоги (по маске каталоги не ищет)
[-d] <directory> - Стартовый каталог. Если не указан, используется текущий каталог.
[-s] - включить в поиск подкаталоги
[-f] - только поиск, показывает файлы для переименования

Примеры:

transren.exe -m *.html - транслитерировать *.html в текущем каталоге
transren.exe -t - переименовать подкаталоги в текущем каталоге
transren.exe -m *.html -s - переименовать *.html в текущей директории и всех подкаталогах
transren.exe -m *.* -s -t - транслитерировать все файлы и все поддиректории в текущей директории
transren.exe -m *.html -d D:\DOC\ - транслитерировать файлы *.html в каталоге D:\DOC

Если файл существует, программа спросит, заменить ли его.
Если каталог существует, программа его пропустит.

Скриншоты






Как сделал


Была у меня для этих целей программулина на VB 6.0, но за давностью лет проебалась, вместе с исходниками. Пришлось с ноля переписывать на Трупопаскале FreePascal, в принципе, как написаны основные части, я уже рассказал, по тегу pascal (копия на LJR)

Зато не требует за собой таскать framework и кучу библиотек.

Системные требования


+ 64 Мб ОП
+ 800 Kb HDD
+ OS: Windows XP - Windows 11.

Скачать


Экзешник
Инсталлятор (распаковывается в %WINDIR%)
ZIP-архив

Исходники


На GitHub

Это репост с сайта http://tolik-punkoff.com
Оригинал: https://tolik-punkoff.com/2022/12/05/transren/
Linkmeow!

Коллекция эротических игр на Flash [Dec. 4th, 2022|09:21 pm]

hex_laden
[Tags|]

Мне не нравится, потому не конвертировал, кому надо, найдете по тегу flash конвертер в экзешники.
Но оставлю это здесь в рамках сохранения HTML-памятников истории и культуры.

Скачать с Mega.NZ

Это репост с сайта http://tolik-punkoff.com
Оригинал: https://tolik-punkoff.com/2022/12/04/kollektsiya-eroticheskih-igr-na-flash/
Linkmeow!

превентивно дискредитируют Навального и навальноидов [Dec. 4th, 2022|03:14 pm]

tiphareth
[Tags|, , , ]
[Current Mood | sick]
[Current Music |Muslimgauze - Betrayal ]

Кстати, у многих свербит когнитивный диссонанс насчет
того, что украинцы и их сторонники из Прибалтики заняты
борьбой с навальноидами и прочей либеральной
общественностью, когда могли бы бороться с ватниками.

Совершенно зря, в принципе, нет в этом ничего
удивительного.

Если путлер победит, всем пиздец, и украинцам, и
либералам, причем никак помешать его победе навальноиды
не могут, даже если бы и хотели (а судя по тому, что
продолжают "бороться с коррупцией" - они и не хотят).

Но вот в случае возможной (хоть и маловероятной)
победы Украины, инициатива в сраной неизбежно
перейдет навальноидам, адептам "эха москвы", дождя,
и прочим системным либералам, которые, как они всегда
обещали, займутся созданием Великой Прекрасной
России Будущего.

Даже если эта Великая Россия Будущего будет чем-то отличаться
от десятков Великих Россий, которые мы видели (очень сомнительно),
никакой пользы украинцам от этого нет: иметь Великую Прекрасную
Россию в качестве врага на севере гораздо хуже, чем иметь
помойную бензоколонку и нигерию со снегом. Кроме того,
Россия должна Украине миллиардные репарации. Если ее оккупируют
и расчленят, она их заплатит (недвижимостью и ресурсами),
а вот если Навальный сыграет в де Голля и скажет, это не
мы делали, идите ищите деньги в Панаме - никаких
репараций не будет.

Насчет де Голля, если кто не в курсе: почти всю WWII Франция
воевала на стороне нацистов, исправно уничтожала евреев и
практиковала ту же континентальную политическую философию,
что и Гитлер. Сам же де Голль имел 500 человек войска и "воевал"
с нацистами где-то в Конго, Браззавиле. Когда нацистов победили
и Францию ожидала заслуженная денацификация, оказалось,
что все французы поголовно состояли в Сопротивлении, под
руководством де Голля воевали с нацистами, и теперь требуют
своих заслуженных бонусов, как победители.

Если гебне удастся провернуть аналогичный ход, выставив
Певчих и Волкова генералами Сопротивления, а всех остальных
русских - великим антипутлеровским войском под руководством
генералиссимуса Навального, никакой денацификации РФ не будет
и никаких репараций Украине платить тоже никто не будет.
Вот для того, чтобы это не осуществилось, силы добра
превентивно дискредитируют Навального и навальноидов
и прочих "русских с хорошими лицами". Им нужна "великая
россия", а нам - чтобы никакой россии вообще не было,
потому что путлеровщина логически вытекает из русской
истории и культуры, и пока русскую историю и культуру
не помножат на ноль, вместе с россией - путлеровщина
бессмертна.

Ватники не опасные, а "антипутинские"
либералы опасные дичайше, и для борьбы с
ними прибалты и украинцы не пожалеют
ничего вообще.

Так и надо! Лично меня от рублевской
статусной номенклатуры меня печет дичайше
и пекло еще в 1990-е, эти выродки не лучше путлеровцев,
а по сути и хуже, чем больше говна на них намажут,
тем больше шансов, что "великой прекрасной россии"
под руководствой ельциноидов не получится.

Привет
Link229 meows|meow!

Коллекция Flash-игр #3 [Dec. 4th, 2022|08:50 pm]

hex_laden
[Tags|]



Все сконвертировано в экзешники и запускается на всех виндах, начиная с XP, флэш-плеер/плагин не нужен.

Азартные:
	777 - симулятор "Однорукого бандита"
	naperstok - игра в наперстки
	ochko - Очко
	ochko_s_bo - Очко с зайцем Бо
Драки:
	Boks - Бокс
	kapojero - капоэйра
	samurai - файтинг
Хип-Хоп:
	ebosh_skrejchi - симулятор диджея
Квесты:
	princeofpercia - римейк досовского "Принца Персии"
Логические:
	krestiki_noliki - Крестики-нолики
	shakhmaty - Шахматы
Спортивные:
	futbol - футбол
	kyorling - керлинг
	motiki - гонки на мотоциклах
	skejt - скейт
	tennis - Пинг-понг


Скачать с Mega.NZ

Это репост с сайта http://tolik-punkoff.com
Оригинал: https://tolik-punkoff.com/2022/12/04/kollektsiya-flash-igr-3/
Linkmeow!

Еще одна коллекция Flash-игр [Dec. 4th, 2022|03:51 am]

hex_laden
[Tags|]

Все перекодировано в экзешники, совместимо со всеми Windows от XP до 10.



2 - надо спасать милых шарообразных существ от попадания в кислоту и другие неприятности
8_figur - надо расположить 8 шахматных фигур, чтоб они не стояли на одной прямой или диагонали
bobry_i_futbol - Бобры и футбол
bubble - надо порвести мыльный пузырь по лабиринту
CAT_bowling - боулинг, вместо кеглей коты
cat_kill - стреляем котами (аналог классических "Пингвинов", только с котами)
catjump - аналог динозаврика Google, только с котом
Crazy_Race - гоночный симулятор
cubshoot3 - еще один аналог "Пингвинов", но я не понял, как играть
dead_morozzz - Пьяный Санта
dead_morozzz2 - Пьяный Санта 2
deathjunior3 - ученик Смерти
e-states - Захвати все США (мини-стратегия)
headspace - леталка, надо отбиваться от НЛО
heliattak3 - простенький платформер
hovercraftgame - лабиринт, аналог мыльного пузыря
Immigrant - вы перешли мексиканскую границу, надо свалить от ментов!
lesnik [НЕПОЛИТКОРРЕКТНО] - мочи пидорасов, иначе выебут!
Missile_strike - надо защищать базу от метеоритов
muravji - мочи тараканов, иначе жильцы разбегутся!
nu_pogodi - симулятор игры "Ну, погоди"
Opol4enezIraka - симулятор чмобика
Orbox - головоломка
Panic - симулятор пользователя ПК
pong - Пинг-понг
security - очередной лабиринт, избегайте камер наблюдения
skakalka - симулятор скакалки, садистский и неполиткорректный (можно расчленить негра)
Smehun - логическая игра, надо не взять последний шарик.
Snezhki - замочи снежками российских звезд, политкорректная игра
Strelbishe
xiaoxiao6
xiaoxiao8
xiaoxiao9 - файтинг рисованных человечков
yozh - платформер, играем за ежика
zamok - классический "расстрел замка", есть возможность играть вдвоем
zmeyka - Змейка, почти как на Nokia 3310
zmeyka2 - еще один вариант Змейки

Скачать с Mega.nz

Это репост с сайта http://tolik-punkoff.com
Оригинал: https://tolik-punkoff.com/2022/12/04/eshhe-odna-kollektsiya-flash-igr/
Linkmeow!

оптимальная форма россиянина [Dec. 3rd, 2022|07:53 pm]

tiphareth
[Tags|, , ]
[Current Mood | sick]
[Current Music |Muslimgauze - Betrayal]

Охуенный проект "Сдай москаля"
https://www.gazeta.ru/social/news/2022/12/02/19178563.shtml
https://fckrashist.tmlaw.com.ua/
предлагают помощь в разыскании рускоговорящих и сдаче
их ментам на всей территории европы. Очень своевременная
мера! Подозреваю, что сами гебисты и сделали, но может
и украинцы, сейчас уже и не отличишь вообще.

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

То же и с русским миром, по уму, высылать надо
всех, кто не поддерживает немедленное уничтожение
памятников пушклеру и ветеранам, и изъятие всех
русских "книг" из общественных библиотек. Но это будет
нетолерантно, примерно как если высылать не только
радикальных исламистов, но и вполне безобидных
людей, которым просто не повезло родиться
мусульманами.

Конечно, сейчас в западных странах проблема обратная,
общество излишне толерантно к мусульманству,
которое есть (если глобально смотреть) одна большая
террористическая организация. Ну так вот, "русский мир"
это тоже одна большая террористическая организация,
и западное общество проявляет недопустимо высокий
уровень толерантности к этому фашистскому культу.

Поэтому высылать не высылать, а уровень толерантности
к русско-фашистам и прочим пушкиноведам в штатском
надо снижать любой ценой, так что проект "сдай москаля"
хороший, годный, даже если они никого не вышлют.

В принципе, сейчас силы добра и силы зла добиваются
одного и того же: снизить до нуля любые контакты сраной
рашки и цивилизованного мира. Путлеру надо, чтобы
потенциальные чмобики не разбежались и остались в сраной
до полной утилизации. Но и украинцам нужно того же
самого: носитель имперской-русской ментальности принесет
гораздо больше зла в Европе, распространяя учение
пушкинизма, победобесия, "великой прекрасной
россии будущего" и прочей путлеровщины. Поэтому
оптимальная форма россиянина это чмобилизованный
груза 200, в таком виде россиянин устраивает и
украинцев и путлеровцев наилучшим образом.

Привет
Link149 meows|meow!

[Dec. 3rd, 2022|10:13 pm]

dece
Ушел из лагеря беженцев, снял тихую комнату у старушки польки. Ещё в одной комнате обычно живет семья заробитчан, но сейчас никого нет, так что лафа. В одной она сама. Старый, если не древний, дом, нужно уточнить. Соседи уже 1) сверлили стены 2) шумели в подъезде. Поляки даже это делают невыразимо интеллигентно! ггг
В РиЖ!
За РиЖ!
Продолжаем зоонаблюдения.
Link7 meows|meow!

любительница Северной Кореи, призывавшая голосовать за Путина [Dec. 3rd, 2022|03:05 pm]

tiphareth
[Tags|, ]
[Current Mood | sick]
[Current Music |Александр Подорожный - ХОСПИС В АДУ]

По случаю репрессий против путлеровцев из "дождя"
Бабченко напомнил, что латвийскому правительству
неплохо бы выслать "Чулпан Хаматову", с конфискацией.

Кстати, латыши, у вас же там ещё и одна любительница

Северной Кореи, призывавшая голосовать за Путина, домик
прикупила?

Ну... Идеальный момент, по-моему.

"Чулпан Хаматова" это та самая любимица "хороших русских",
доверенное лицо путлера на последних "выборах",
которая говорила, что лучше жить как в Северной Корее,
но с путлером, чем если произойдет революция против
путлера. Мразь неописуемая, конечно, но клиентура
"дождя" и "эха москвы" вся - такие же выродки, клейма на
них некуда ставить. Кремлядь всегда остается
кремлядью, даже на пенсии в Латвии.

Но все это чудовищный наивняк, конечно, для
международной гебни Бабченко это мутный хуй с горы,
бомж-аутсайдер по типу Стомахина, а номенклатурные
бляди вроде Хаматовой или чиновников Мемориала,
отказывавшего Стомахину в статусе "политзека" -
свои и близкие (сталинские дети, дети палача).
Номенклатура видит своим главным врагом плебс,
для нее гебня другой страны - это просто
конкуренты и сотрудники, из соседнего департмента.
С ними лучше договариваться, потому что совместную
борьбу с бабченками и стомахиными никто не отменял.

В общем, убейте их всех нахуй.

Привет
Link143 meows|meow!

Lazarus: Crt, WinCrt, русский язык и нажатие клавиши в консоли. [Dec. 3rd, 2022|01:39 am]

hex_laden
[Tags|, ]

Понадобилось сделать что-то типа такого:

Файл уже существует. Заменить? [Y/N]

Вспомнил, что в Турбопаскале была функция ReadKey из модуля Crt, а вдруг и во FreePascal есть?

Есть, но модуль Crt делает глюк русскому языку:

program TestCrt;
uses Crt;
var Ch:char;
begin
  WriteLn('Нажмите любую клавишу...');
  Ch:=ReadKey;
end.




Ладно, пробуем заменить Crt на WinCrt.

Глюк с русским языком пропал, но функция ReadKey на нажатие клавиш не реагирует, да пиздец, еб твою мать!

В общем, долго плевался, реализовал через TKeyEvent из модуля Keyboard:

uses SysUtils,Keyboard;

function Ask(FilePath:UnicodeString):boolean;
var K: TKeyEvent;
    KS:String;
begin
    WriteLn ('File ', FilePath, ' is exists! Replace file? [Y/N]');
    InitKeyBoard;
   while true do begin
      K:=GetKeyEvent;
      K:=TranslateKeyEvent(K);
      KS:=KeyEventToString(K);

      if (KS='Y') or (KS='y') then begin DoneKeyBoard; exit(true); end;
      if (KS='N') or (KS='n') then begin DoneKeyBoard; exit(false); end;
   end;

  DoneKeyBoard;
  exit(false);
end;

Исходник на PasteBin

Это репост с сайта http://tolik-punkoff.com
Оригинал: https://tolik-punkoff.com/2022/12/03/lazarus-crt-wincrt-russkij-yazyk-i-nazhatie-klavishi-v-konsoli/
Linkmeow!

"все будет как при бабушке" [Dec. 2nd, 2022|06:48 pm]

tiphareth
[Tags|, , , ]
[Current Mood | sick]
[Current Music |Александр Подорожный - ХОСПИС В АДУ]

Охуенно
https://www.pravda.com.ua/rus/news/2022/12/2/7379028/
дебилы из канала Дождь в прямом эфире собирали гуманитарку
для русских чмобиков на Украине, теперь их будут судить.
Дождь всегда был феерическим говнищем, даром что не кремлевский,
но вонял не меньше, чем какое-нибудь "эхо москвы".
Но сбор гуманитарки чмобикам это, конечно, бесценное,
хорошо иллюстрирует тезис о том, что русский "либерал"
эта такая же имперская сволочь и мразь, как и нелиберал.
"Хорошие русские" типа Навального это просто ельциноиды
с транспарантом "все будет как при бабушке". Учитывая,
что бабушка подтасовывала выборы не хуже путлера, развлекалась
ковровой бомбардировкой собственной территории и
расстреляла парламент, ясно, что разницы более-менее
никакой: ельцин и путлер это две части одного и того
же целого, и регресс к ельцинизму сраную лучше
не сделает.

В 1990-е я не думал, что когда-нибудь буду ненавидеть
кремлевский режим больше, чем я его тогда ненавидел,
потому что сраная в 1990-е была феерически инфернальным
фашистским адом. Путлер, конечно, пробил и это днище, н
о сравнивать один круг ада с другим довольно глупо,
ад это не место для жизни по-любому.

Навальный, конечно, герой, но вряд ли выйдет из тюрьмы,
а если и выйдет, то выйдет полнейшим ватником, типа Ходорковского.
А вот навальноиды из твиттера с этим их "дождем" это
вообще какая-то неописуемая имперская мразота.

Также в пятницу стало известно, что латвийский регулятор

NEPLP оштрафовал "Дождь" на 10 тысяч евро за карту, на
которой телеканал обозначил оккупированный Крым как часть
России, и называние российской армии "нашей".

Дебилы блядь.

Привет
Link163 meows|meow!

Lazarus, сортировка TStringList. [Dec. 2nd, 2022|02:22 am]

hex_laden
[Tags|, ]

Преамбула


Иногда список строк (TStringList) требуется сортировать, что, как бы, понятно. Но во Freepascal сортировка устроена довольно странно, в C# у аналогичного класса из коробки несколько больше возможностей, во всяком случае, можно поменять направление, по возрастанию или по убыванию. С хитрыми сортировками, конечно, тоже вылезает нетривиальщина, но на то они и хитрые сортировки.

Тестовые списки


Для начала сформируем тестовые списки, для русского и английского языков. Там код тривиален, потому не буду загружать заметку, ссылки на PasteBin:

Тестовый список для английского языка
Тестовый список для русского языка

Заодно уж и выведем списки в их изначальном виде:



Стандартная сортировка


Она же единственная из коробки, является стандартной сортировкой по возрастанию, т.е. список сортируется от меньшего к большему, а об алгоритме будет ниже. Вызов функции простой:

lstTest.Sort;

Пробуем. Выводим список на экран:

WriteLn('Сортировка по возрастанию (по-умолчанию, логическая):');
i:=0;
while i < lstTest.Count do begin
WriteLn(lstTest[i]);
inc(i);
end;

Writeln(); WriteLn('Press Enter...'); ReadLn();


Результат:


Как обычно, с поддержкой русского язкы все весело, но чинить эту поддержку в данной заметке не буду. Кому сильно надо - пишите.

Стандартный алгоритм сравнения строк во freepascal


Алгоритм:

1. Строки сравниваются посимвольно. Например, в словах parrot и puppy первые символы (p и p) равны, а далее a меньше u, т.е u в кодовой таблице находится ниже, чем a.
2. На этом сравнение прекращается, строка puppy больше чем parrot.
3. Если начальные символы строк совпадают, то в дело вступает длина, чем строка длиннее, тем она больше, поэтому, зависимая от центра Каталония, все еще больше, чем кот, который гуляет сам по себе:

program test;
var
  S1:string;
  S2:string;

begin
  S1:='cat';
  S2:='catalonia';
  if S1 < S2 then Writeln ('S1 (',S1,') < S2 (',S2,')' );
  if S1 = S2 then Writeln ('S1 (',S1,') = S2 (',S2,')' );
  if S1 > S2 then Writeln ('S1 (',S1,') > S2 (',S2,')' );
  Readln();
end.


Вывод:

S1 (cat) < S2 (catalonia)

Что, конечно, печально, потому что кот свободнее Каталонии, и явно больше в этом смысле.

Пользовательские функции сортировки


Ограничение, накладываемое одной функцией сортировки в комплекте класса TStringList легко решается тем, что можно подключить любую пользовательскую сортировку ссылкой на внешнюю функцию.

Для этого надо установить пользовательскую функцию сортировки, таким вот образом:

lstTest.CustomSort(@MySort);

где MySort - имя вашей функции сортировки. Естественно, она должна быть заранее создана, чтобы все откомпилировалось и заработало.

Не забудьте про символ @ перед именем функции, в Delphi не надо было его указывать, компилятор сам знал, где вместо имени функции вставить ссылку на ее адрес, в freepascal это надо указывать явно.

Формат функции следующий:

MySort(List: TStringList; Index1, Index2: Integer): Integer;

Т.е. на входе нужна переменная типа TStringList и две переменные типа Integer, для индексов строк в списке, функция должна возвращать значение типа Integer:

1 - Если строка Index1 > Index2
0 - Если строки равны
-1 - Если строка Index1 < Index2

Конечно, по мнению пользовательского алгоритма сортировки. Например, можем повторить стандартный метод сортировки:

function SortByAsc(List: TStringList; Index1, Index2: Integer): Integer;
begin
  if List[Index1]>List[Index2] then
  begin
    Result := 1;
    Exit;
  end;
  if List[Index1]=List[Index2]
    then Result := 0
    else Result := -1;
end;




Внезапно, починился русский язкы :)

Сортировка по убыванию


function SortByDesc(List: TStringList; Index1, Index2: Integer): Integer;
  begin
    if List[Index1]<List[Index2] then
    begin
      Result := 1;
      Exit;
    end;
    if List[Index1]=List[Index2]
      then Result := 0
      else Result := -1;
  end;


Вообще просто, достаточно заменить знак > на < в операторе сравнения.



Другие пользовательские сортировки


Возможности пользовательских сортировок не ограничены практически ничем. Покажу, как обычно, самое простое - сортировка строк по длине.

Сортировка по возрастанию:

function SortByLenAsc(List: TStringList; Index1, Index2: Integer): Integer;
begin
  if Length(List[Index1])>Length(List[Index2]) then
  begin
    Result := 1;
    Exit;
  end;
  if Length(List[Index1])=Length(List[Index2])
    then Result := 0
    else Result := -1;
end;


Т.е. просто применяем функцию Length в операторе сравнения:

Length(List[Index1])



Тот же вариант, но по убыванию:

function SortByLenDesc(List: TStringList; Index1, Index2: Integer): Integer;
begin
  if Length(List[Index1])<Length(List[Index2]) then
  begin
    Result := 1;
    Exit;
  end;
  if Length(List[Index1])=Length(List[Index2])
    then Result := 0
    else Result := -1;
end;




Тестовые программы


Пример для английского языка на GitHub
Пример для русского языка на GitHub

По мотивам


Обсуждения на Исходниках, но более подробнее и лучше у меня.

Это репост с сайта http://tolik-punkoff.com
Оригинал: https://tolik-punkoff.com/2022/12/02/lazarus-sortirovka-tstringlist/
Linkmeow!

На мотив "Подмосковных вечеров" [Dec. 2nd, 2022|01:58 am]

hex_laden
[Tags|, , ]

Чтоб приплыл к тебе,
Сука-Вовочка...
Синекольчатый осьминог.



Это репост с сайта http://tolik-punkoff.com
Оригинал: https://tolik-punkoff.com/2022/12/02/na-motiv-podmoskovnyh-vecherov/
Linkmeow!

Новости культуры [Dec. 2nd, 2022|01:04 am]

glebo
У Жан-Луи Костеса новый альбом вышел.



А Арт Пол Шлоссер вчера впервые покушол хурму.

Link9 meows|meow!

navigation
[ viewing | most recent entries ]
[ go | earlier ]