HLFX.Ru Forum - Безумно сложный язык программирования

В соответствии с федеральным законом № 139-ФЗ предупреждаем, что на сайте может содержаться информация, неприемлемая для лиц моложе 18 лет. Если вам не исполнилось 18 лет, пожалуйста, покиньте ресурс.

профиль • правила • регистрация • календарь • народ • FAQ • поиск • новое • сутки • главная • выход

HLFX.Ru Forum > Наш форум > Флуд > Безумно сложный язык программирования

Страницы (5): « 1 2 3 [4] 5 »

Предыдущая тема Следующая тема

Автор

Тема

Дядя Миша
racing for fish

Дата регистрации: Oct 2005
Проживает: Кубань
Сообщений: 33014
Нанёс повреждений: 392 ед.

Рейтинг

[подробно]

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

__________________
My Projects: download page

F.A.Q по XashNT
Блог разработчика в телеграме

Цитата:

C:\DOCUME~1\C4C5~1\LOCALS~1\Temp\a33328if(72) : see declaration of 'size_t'

Сообщить модератору | IP: Записан
Сообщение: 65246

08-10-2010 15:26

FiEctro
Кот Арсис

Дата регистрации: Aug 2006
Проживает: код
Сообщений: 13502
Возраст: 33

Рейтинг

[подробно]

PomanoB
А не в курсе как использовать ANSI графику и его цвета? А так же цвета ASCII ( кроме system("COLOR A"); ).
В гугле нашел только для жабы.

Отредактировано FiEctro 08-10-2010 в 18:46

Сообщить модератору | IP: Записан
Сообщение: 65259

08-10-2010 18:40

Дядя Миша
racing for fish

Дата регистрации: Oct 2005
Проживает: Кубань
Сообщений: 33014
Нанёс повреждений: 392 ед.

Рейтинг

[подробно]

http://en.wikipedia.org/wiki/Code_page_437

__________________
My Projects: download page

F.A.Q по XashNT
Блог разработчика в телеграме

Цитата:

C:\DOCUME~1\C4C5~1\LOCALS~1\Temp\a33328if(72) : see declaration of 'size_t'

Сообщить модератору | IP: Записан
Сообщение: 65260

08-10-2010 19:08

FiEctro
Кот Арсис

Дата регистрации: Aug 2006
Проживает: код
Сообщений: 13502
Возраст: 33

Рейтинг

[подробно]

Дядя Миша
Это всё конечно хорошо, но мну нужен пример реализации этого в си. А это я в гугле уже читал.

Сообщить модератору | IP: Записан
Сообщение: 65261

08-10-2010 19:21

Skaarj
Ctrl+S

Дата регистрации: Aug 2006
Проживает: Twisting Nether
Сообщений: 2416
Нанёс повреждений: 9 ед.

Рейтинг

[подробно]

Награды
Профессионал форума

[2 награды]

Для меня всё сложно круче кубейсика.

Управление
Z - <-
C - ->
X - Юзать
Q - выход
[ и ] - должна меня задержку каждого цикла, но я уже хз почему не пашет.
10 лет прошло.

code:
start:
SCREEN 13: CLS
GOTO a
p1:
LINE (6 + x, 9 + y)-(17 + x, 22 + y), c, BF
LINE (10 + x, 10 + y)-(13 + x, 10 + y)
IF k = 0 THEN LINE (10 + x, 11 + y)-(10 + x, 12 + y) ELSE LINE (13 + x, 11 + y)-(13 + x, 12 + y)
LINE (10 + x, 13 + y)-(13 + x, 17 + y), , BF
LINE (10 + x, 19 + y)-(13 + x, 19 + y)
LINE (10 + x, 22 + y)-(13 + x, 22 + y)
RETURN
p2:
LINE (6 + x, 9 + y)-(17 + x, 22 + y), c, BF
LINE (10 + x, 11 + y)-(13 + x, 11 + y)
IF k = 0 THEN LINE (10 + x, 12 + y)-(10 + x, 13 + y) ELSE LINE (13 + x, 12 + y)-(13 + x, 13 + y)
LINE (10 + x, 14 + y)-(13 + x, 18 + y), , BF
LINE (11 + x, 20 + y)-(14 + x, 20 + y)
LINE (9 + x, 22 + y)-(12 + x, 22 + y)
RETURN
p3:
LINE (6 + x, 9 + y)-(17 + x, 22 + y), c, BF
LINE (10 + x, 12 + y)-(13 + x, 12 + y)
IF k = 0 THEN LINE (10 + x, 13 + y)-(10 + x, 14 + y) ELSE LINE (13 + x, 13 + y)-(13 + x, 14 + y)
LINE (10 + x, 15 + y)-(13 + x, 19 + y), , BF
LINE (12 + x, 21 + y)-(15 + x, 21 + y)
LINE (8 + x, 22 + y)-(11 + x, 22 + y)
RETURN
p4:
LINE (6 + x, 9 + y)-(17 + x, 22 + y), c, BF
LINE (10 + x, 13 + y)-(13 + x, 13 + y)
IF k = 0 THEN LINE (10 + x, 14 + y)-(10 + x, 15 + y) ELSE LINE (13 + x, 14 + y)-(13 + x, 15 + y)
LINE (10 + x, 16 + y)-(13 + x, 20 + y), , BF
LINE (13 + x, 22 + y)-(16 + x, 22 + y)
LINE (7 + x, 22 + y)-(10 + x, 22 + y)
RETURN
p5:
LINE (6 + x, 9 + y)-(17 + x, 22 + y), c, BF
LINE (10 + x, 12 + y)-(13 + x, 12 + y)
IF k = 0 THEN LINE (10 + x, 13 + y)-(10 + x, 14 + y) ELSE LINE (13 + x, 13 + y)-(13 + x, 14 + y)
LINE (10 + x, 15 + y)-(13 + x, 19 + y), , BF
LINE (8 + x, 21 + y)-(11 + x, 21 + y)
LINE (12 + x, 22 + y)-(15 + x, 22 + y)
RETURN
p6:
LINE (6 + x, 9 + y)-(17 + x, 22 + y), c, BF
LINE (10 + x, 11 + y)-(13 + x, 11 + y)
IF k = 0 THEN LINE (10 + x, 12 + y)-(10 + x, 13 + y) ELSE LINE (13 + x, 12 + y)-(13 + x, 13 + y)
LINE (10 + x, 14 + y)-(13 + x, 18 + y), , BF
LINE (9 + x, 20 + y)-(12 + x, 20 + y)
LINE (11 + x, 22 + y)-(14 + x, 22 + y)
RETURN
a:
GOSUB la1
x = 100
u$ = "pl1"
o = 1
y = 165: c = 0
amy = 90: amx = 90
freg = 250
DO
k$ = INKEY$
IF POINT(x + 6, y + 23) = 0 AND POINT(x + 17, y + 23) = 0 THEN t = 1: y = y + 1 ELSE t = 0
IF t = 0 AND (PEEK(10333) = 75 OR k$ = "z") AND POINT(x + 5, y + 9) = 0 AND POINT(x + 5, y + 22) = 0 THEN t = 0: x = x - 1: k = 1: o = o + 1
IF t = 0 AND (PEEK(10333) = 77 OR k$ = "c") AND POINT(x + 18, y + 9) = 0 AND POINT(x + 18, y + 22) = 0 THEN t = 0: x = x + 1: k = 0: o = o + 1
IF a = 0 AND t = 0 AND (PEEK(10333) = 80 OR k$ = "x") AND POINT(x + 6, y + 23) = 4 AND POINT(x + 17, y + 23) = 4 THEN a = 1
IF a = 0 AND t = 0 AND (PEEK(10333) = 80 OR k$ = "x") AND POINT(x + 6, y + 23) = 14 AND POINT(x + 17, y + 23) = 14 THEN a1 = 1
IF PEEK(10333) = 1 OR k$ = "q" THEN END
IF o = 7 THEN o = 1
IF o = 1 AND k = 0 THEN GOSUB p1 ELSE IF o = 1 AND k = 1 THEN GOSUB p6
IF o = 2 AND k = 0 THEN GOSUB p2 ELSE IF o = 2 AND k = 1 THEN GOSUB p5
IF o = 3 AND k = 0 THEN GOSUB p3 ELSE IF o = 3 AND k = 1 THEN GOSUB p4
IF o = 4 AND k = 0 THEN GOSUB p4 ELSE IF o = 4 AND k = 1 THEN GOSUB p3
IF o = 5 AND k = 0 THEN GOSUB p5 ELSE IF o = 5 AND k = 1 THEN GOSUB p2
IF o = 6 AND k = 0 THEN GOSUB p6 ELSE IF o = 6 AND k = 1 THEN GOSUB p1
IF l = 1 THEN GOSUB l1
IF l = 2 THEN GOSUB l2
IF freg > 1 AND (PEEK(10333) = 2 OR k$ = "[") THEN freg = freg - 10: LOCATE 1, 1: PRINT freg * 100; "    "
IF freg < 1000 AND (PEEK(10333) = 3 OR k$ = "]") THEN freg = freg + 10: LOCATE 1, 1: PRINT freg * 100; "    "
FOR n = 0 TO 100 * freg: NEXT
IF fg1 = 0 THEN IF l = 1 THEN LINE (100, 100)-(gf + 75, 170), 0

LOOP
la1:
LINE (0, 190)-(320, 200), 2, BF
LINE (30, 150)-(35, 189), 6, BF
LINE (280, 150)-(285, 189), 6, BF
CIRCLE (32, 150), 18, 2: PAINT (32, 145), 2
CIRCLE (282, 150), 18, 2: PAINT (282, 145), 2
LINE (199, 190)-(221, 200), 0, BF
l = 1: py = 0
FOR qweer = 0 TO 100: PSET (RND * 320, RND * 120): NEXT
CIRCLE (100, 50), 20, 7: PAINT (100, 50), 7
CIRCLE (135, 50), 40, 0: PAINT (120, 50), 0
CIRCLE (100, 90), 40, 1, , , .2:  PAINT (100, 90), 1
df = 41
RETURN
l1:
IF fg1 = 1 THEN df = df - 1: IF INT(df) = 0 THEN fg1 = 2
IF fg1 = 1 THEN CIRCLE (100, 90), df, 0, , , .2
IF fg1 = 0 THEN fg = fg + 1: IF fg = 100 THEN fg1 = 1
IF fg1 = 0 THEN gf = gf + 5: IF INT(gf) > 50 THEN gf = 0
IF fg1 = 0 THEN LINE (100, 100)-(gf + 75, 170), RND * 15
IF a = 1 THEN py = py + .5: LINE (200, 189 + py)-(220, 189 + py), 0
LINE (200, 190 + py)-(220, 193 + py), 4, BF
IF INT(py) = 10 THEN a = 0: l = 2: GOSUB la2
RETURN
la2:
CLS
LINE (0, 0)-(320, 10), 3, BF
LINE (199, 0)-(221, 10), 0, BF
LINE (100, 40)-(320, 50), 3, BF
LINE (199, 40)-(221, 43), 0, BF
LINE (0, 10)-(10, 200), 3, BF
LINE (310, 10)-(320, 150), 3, BF
LINE (250, 40)-(270, 41), 14, BF
LINE (115, 9)-(120, 41), 5, BF
LINE (0, 190)-(320, 200), 3, BF
LINE (0, 80)-(270, 120), 3, BF
LINE (100, 80)-(250, 110), 0, BF
LINE (100, 90)-(250, 110), 10, BF
LINE (126, 80)-(149, 91), 6, BF
LINE (151, 80)-(199, 91), 6, BF
LINE (201, 80)-(249, 91), 6, BF
LINE (260, 42)-(260, 45), 4
LINE (118, 45)-(260, 45), 4
LINE (118, 42)-(118, 45), 4
LINE (80, 140)-(310, 150), 3, BF
qww = 1: py = -5
y = -20: re = 1
rew = 0
RETURN
l2:
IF qww = 1 THEN py = py + .5: LINE (200, 9 + py)-(220, 9 + py), 0
IF qww = 1 THEN LINE (200, 10 + py)-(220, 13 + py), 4, BF
IF INT(py) = 30 THEN qww = 0
IF re1 = 1 THEN a1 = 0
IF a1 = 1 AND (re = 1 OR re = 2) AND re1 = 0 THEN re1 = 1: a1 = 0
IF re = 1 AND re1 = 1 THEN rew = rew + .5: LINE (115, 26 - rew)-(120, 26 - rew), 0: LINE (115, 25 + rew)-(120, 25 + rew), 0: IF INT(rew) = 15 THEN re1 = 0: re = 2: a1 = 0: RETURN
IF re = 2 AND re1 = 1 THEN rew = rew - .5: LINE (115, 25 - rew)-(120, 25 - rew), 5: LINE (115, 26 + rew)-(120, 26 + rew), 5: IF INT(rew) = -1 THEN re1 = 0: re = 1: a1 = 0
IF pus = 5 THEN GOTO sl2
IF pus <> 2 AND POINT(71 + jx, 74 + jy) = 15 THEN jx = jx + 1: pus = 1
LINE (76 + jx, 68 + jy)-(99 + jx, 79 + jy), 6, BF: IF pus = 1 THEN LINE (75 + jx, 68 + ly)-(75 + jx, 79 + jy), 0
IF POINT(75 + jx, 80 + jy) <> 3 THEN jy = jy + 1: pus = 2
IF POINT(75 + jx, 77 + jy) = 10 THEN pus = 5
IF pus = 2 THEN LINE (76 + jx, 67 + jy)-(99 + jx, 67 + jy), 0, BF
sl2:
IF POINT(x + 10, y + 23) = 10 THEN CLS : LOCATE 12, 14: PRINT "GAME OVER": SLEEP: GOTO start

RETURN

Вложение: 441.zip (33.0 кб)
Этот файл был скачан 231 раз.

Сообщить модератору | IP: Записан
Сообщение: 65263

08-10-2010 19:46

XaeroX
Crystice Softworks

Дата регистрации: Oct 2005
Проживает: Торонто
Сообщений: 35003
Нанёс повреждений: 514 ед.
Возраст: 38

Рейтинг

[подробно]

Награды
Fast Level Design: Gold

[1 награда]

Skaarj
Сам писал?

__________________

Сообщить модератору | IP: Записан
Сообщение: 65264

08-10-2010 19:49

Skaarj
Ctrl+S

Дата регистрации: Aug 2006
Проживает: Twisting Nether
Сообщений: 2416
Нанёс повреждений: 9 ед.

Рейтинг

[подробно]

Награды
Профессионал форума

[2 награды]

Вспомнил, что почему-то PEEK перестаёт работать когда ЕХЕшку делаю, хотя если в самом КуБэйсике запускаю то всё ОК.

Добавлено 08-10-2010 в 22:50:

Сам. Щас в шоке от обилия непонятных переменных. %)

Добавлено 08-10-2010 в 22:58:

У меня все такие поделки сводились к "IF THEN ELSE" с огромной кипой переменных.

Добавлено 08-10-2010 в 23:03:

Хоть 10 лет прошло, всё ещё порнимаю где и что.
Первые блоки с p1 по p6 - отрисовка 6-ти кадров движения персонажа.
Затем блок с "физикой" игрока, опросом клавиш и проверкой "коллизии".
la1 и la2 - отрисовка 2-х уровней.
Последний блок я уже хз. Возможно динамические объекты на самих картах.

Сообщить модератору | IP: Записан
Сообщение: 65265

08-10-2010 20:03

Дядя Миша
racing for fish

Дата регистрации: Oct 2005
Проживает: Кубань
Сообщений: 33014
Нанёс повреждений: 392 ед.

Рейтинг

[подробно]

Ой какая красотища! А мы еще в 8 классе на уроке информатики кубейсили потихонечку

__________________
My Projects: download page

F.A.Q по XashNT
Блог разработчика в телеграме

Цитата:

C:\DOCUME~1\C4C5~1\LOCALS~1\Temp\a33328if(72) : see declaration of 'size_t'

Сообщить модератору | IP: Записан
Сообщение: 65266

08-10-2010 20:19

PomanoB
Житель форума

Дата регистрации: Aug 2010
Проживает: (void)
Сообщений: 157

Рейтинг

[подробно]

FiEctro функция SetConsoleTextAttribute в windows.h
Первый параметр - указатель на консоль - GetStdHandle(STD_OUTPUT_HANDLE);
Второй атрибуты текста

Сообщить модератору | IP: Записан
Сообщение: 65269

09-10-2010 04:23

kogemyaka
^_^

Дата регистрации: Nov 2008
Проживает: Таганрог
Сообщений: 280
Возраст: 36

Рейтинг

[подробно]

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

В ней сравниваются C++/C, ПЛ/2, Фортран, Паскаль, Модула, Java, C# и Оберон.

Сообщить модератору | IP: Записан
Сообщение: 65289

09-10-2010 14:58

Skaarj
Ctrl+S

Дата регистрации: Aug 2006
Проживает: Twisting Nether
Сообщений: 2416
Нанёс повреждений: 9 ед.

Рейтинг

[подробно]

Награды
Профессионал форума

[2 награды]

Я тот мой код выше в этой теме попытался доработать, некоторые вещи не заработали как задумано, слишком всё накостыленно.
Перешёл на QB64Phoenix, там годные операторы, можно одной строчкой установить лимит в 30 фепесов и нажатие кнопок через _KEYDOWN вообще шикарно.
И экзешка даже под виндой запускается.
Управление стрелочками, взаимодействие - стрелочка вниз.

Должен был быть ивент "прилетело нло и высадило чувачка", но он неправильно работает, а если вырезать этот кусок кода то ломается всё.

Нашёл баг, одновременное нажатие влево+вправо приводит к залипанию персонажа.
Даже придумал костыль это обойти.

Добавлено 12-06-2023 в 14:57:

Перезалив.

Зато теперь другой баг, при нажатии влево+вправо в падении персонаж зависает в воздухе, но потом падает если отпустить. )

Добавлено 12-06-2023 в 15:01:

И это починил.

Вложение: untitled1.7z (470.0 кб)
Этот файл был скачан 92 раз.

Сообщить модератору | IP: Записан
Сообщение: 214590

12-06-2023 13:01

ZGreen
Роугнесс

Дата регистрации: Sep 2007
Проживает: Красноярск
Сообщений: 417
Возраст: 37

Рейтинг

[подробно]

Скарж -- программист. Сейчас, похоже, ХЛ3 анонсируют. Или Анрыл 3. Тектонические сдвиги :-D

Сообщить модератору | IP: Записан
Сообщение: 214591

12-06-2023 13:07

Дядя Миша
racing for fish

Дата регистрации: Oct 2005
Проживает: Кубань
Сообщений: 33014
Нанёс повреждений: 392 ед.

Рейтинг

[подробно]

Прошло 13 лет. Теперь я автор собственного крестоподобного языка.
Офигеть.

__________________
My Projects: download page

F.A.Q по XashNT
Блог разработчика в телеграме

Цитата:

C:\DOCUME~1\C4C5~1\LOCALS~1\Temp\a33328if(72) : see declaration of 'size_t'

Сообщить модератору | IP: Записан
Сообщение: 214592

12-06-2023 16:54

XaeroX
Crystice Softworks

Дата регистрации: Oct 2005
Проживает: Торонто
Сообщений: 35003
Нанёс повреждений: 514 ед.
Возраст: 38

Рейтинг

[подробно]

Награды
Fast Level Design: Gold

[1 награда]

Дядя Миша
Так ещё Мастер требовал, чтобы мы на AngelScript переходили, потому что он более крестообразный. И вот ты наконец пошёл у него на поводу.

__________________

Сообщить модератору | IP: Записан
Сообщение: 214593

12-06-2023 17:29

(_-=ZhekA=-_)
Житель форума

Дата регистрации: Jan 2006
Проживает: Москва
Сообщений: 4054
Возраст: 37

Рейтинг

[подробно]

Цитата:

ZGreen писал:
Или Анрыл 3

Анрил 5 уже давно вышел ) Возможно ты имел 6 ?!

__________________
Kiss my ass if you don't like my Ford!
------------------------------------------
Game Area51 Update 1
First Person Shooter Released Jul 24, 2017
The game is a 3d shooter with the elements of the quest.

http://button.moddb.com/download/medium/125531.png

Сообщить модератору | IP: Записан
Сообщение: 214594

12-06-2023 18:08

Тема:

(Опционально)

Ваш ответ:

Переводчик транслита

[проверить длину сообщения]

Опции:

Автоматическое формирование ссылок: автоматически добавлять [url] и [/url] вокруг интернет адресов.
Уведомление по E-Mail: отправить вам уведомление, если кто-то ответил в тему (только для зарегистрированных пользователей).
Отключить смайлики в сообщении: не преобразовывать текстовые смайлики в картинки.
Показать подпись: добавить вашу подпись в конец сообщения (только зарегистрированные пользователи могут иметь подписи).

Временная зона GMT. Текущее время 21:53.

Страницы (5): « 1 2 3 [4] 5 »

Предыдущая тема Следующая тема

HLFX.Ru Forum > Наш форум > Флуд > Безумно сложный язык программирования

Версия для печати |

Отправить тему по E-Mail |

Подписаться на эту тему

Быстрый переход:

Оцените эту тему:

Правила Форума:

Вы not можете создавать новые темы
Вы not можете отвечать в темы
Вы not можете прикреплять вложения
Вы not можете редактировать ваши сообщения

HTML Код ВЫКЛ
vB Код ВКЛ
Смайлики ВКЛ
[IMG] Код ВКЛ

На основе vBulletin
Авторское право © 2000 - 2002, Jelsoft Enterprises Limited.
Дизайн и программирование: Crystice Softworks © 2005 - 2024