Они самые. предлагаю вести такую тему, где будет по шагам описано создание игры на досурке.
UPD уроки по досурке (URQ_DOS от 30.11.04). Скачать её(досурку), а так же её описание можно здесь: http://urq.plut.info/soft (см ссылки:
цитата:
Скачать URQ_DOS от 30.11.04 - 132 Кб Описание URQL для URQ_DOS версии 1.35 от 23.11.2006 года от Корвина.
) UPD(11.02.09, 0:59): оказался недостаточно организован, что бы вести уроки. НО с удовольствием отвечу в этой теме на любые вопросы по urq_dos. появляюсь на форуме не реже 1 раза в неделю
Отправлено: 17.03.09 00:03. Заголовок: здесь демка акурки b..
здесь демка html-возможностей акурки by Korwin: http://slil.ru/27246304 ничего сложного нет. знания html практически не требуется. да и в 'похищенных' код довольно прост
остаёстся только прояснить вопросы: - как сделать в акурке фоновый рисунок - как сделать в акурке текст рядом с картинкой
я этого не знаю
помню, была такая игра, где ГГ в море собирал брёвна для плота и т п после кораблекрушения. там ещё был массив картинок. короче, технически игра была- на уровне. вроде бы и текст с картинкой рядом был. не помню
помню, была такая игра, где ГГ в море собирал брёвна для плота и т п после кораблекрушения. там ещё был массив картинок. короче, технически игра была- на уровне. вроде бы и текст с картинкой рядом был. не помню
Игра с ЛОК-2007, называется "Бриг КРИК". Есть здесь.
Отправлено: 17.03.09 11:23. Заголовок: Спасибо большое за о..
Спасибо большое за ответы и ссылки) в "бриг крик" лежит только файл квеста, никаких картинок нет) хотя из кода выкопал пару интересных вещей. Попробую поработать с html, сопоставлю свои возможности с тем, что требуется. Программер из меня не ахти..
qwerty, да, то что нужно) а можно снабдить текст комментариями? я пытался понять, что к чему, но совершенно запутался :) вот эта странная переменная r, как она работает.
Спасибо большое за ответы и ссылки) в "бриг крик" лежит только файл квеста, никаких картинок нет) хотя из кода выкопал пару интересных вещей. Попробую поработать с html, сопоставлю свои возможности с тем, что требуется.
О, вспомнил! "Бриг КРИК" участвовала еще в КРИЛ-2008, и ее можно найти в архиве участников данного конкурса.
Отправлено: 17.03.09 23:38. Заголовок: Ktirff, вот прога по..
Ktirff, вот простая прога с комментариями: Скрытый текст
; это- комментарий
:размышления pln pln что бы ещё сделать? pln номер=rnd3 ; генерим случайное число от 1 до 3 включительно btn дело_#номер$, придумать ; вместо #номер$ подставится значение переменной 'номер' end
:дело_1 ; если номер=1, попадём сюда pln pln а напишу-ка я супер-мега квест! pln btn размышления, дальше end
:дело_2 pln pln а напишу-ка я новый urql-интерпретатор! pln btn размышления, дальше end
:дело_3 pln pln а забью-ка я на всё, и лягу спать! pln btn размышления, думать ещё btn конец, лечь спать end
Спасибо, разобрался :) Фон вставлять можно, через стандартные html-тэги :) Вероятно, еще появятся вопросы, тогда обращусь к вам и вашему терпению) вот, кстати, чего удалось добиться на данный момент http://keep4u.ru/imgs/b/2009/03/18/35/35fb30579a654a494f.jpg
Чтобы сделать фон, я воспользовался такой формой (возможно, в ней есть что-то лишнее):
цитата:
<style type="text/css"> body {background-image: url(#quest_path$/[имя картинки с расширением]); } </style>
Теперь меня волнует проблема вставки стандартного urql в этот html-код) Как можно воспользоваться операторами if, input и аналогичными. В faq по Акурке Корвин указал только пример работы с pln, btn. Какие-то интересные моменты, заметил в квесте "возрождение" http://urq.plut.info/node/137 . Попробую там покопаться)..
:1 invkill perkill html true btn_visible false inv_visible false goto 2 end
:2 r=rnd2 <html> Ты стоишь у очень широкого обрыва<br> Ветер обдувает решительное лицо,<br> Лучи заходящего солнца окрасили обнажённую катану.<br> За спиной- враг<br> <br> <a href="btn:#2+r$">говорить</a><br> <a href="btn:#4+r$">действовать</a><br> </html> end
:3 <html> вариант говорить- А<br> <br> <a href="btn:2">откат</a><br> </html> end
:4 <html> вариант говорить- Б<br> <br> <a href="btn:2">откат</a><br> </html>
end
:5 r=rnd2 if r=2 then goto 7 <html> действие успешно<br> <br> <a href="btn:2">откат</a><br> </html> end
:6 <html> действие неудачно<br> <br> <a href="btn:2">откат</a><br> </html> end
:7 <html> критический успех!<br> <br> <a href="btn:2">откат</a><br> </html> end
:инициализация invkill perkill html true btn_visible false inv_visible false
; список переменных записка=0 ; флаг наличия записки, которую ГГ найдет в Баре matrix=-13 ; флаг глюка матрицы
; обсчёт всех переменных proc обсчт ; Акурка, блин, не различает ё и е
goto Бар end
:Бар <html> Горький дым мешает разглядеть обстановку бара. Что вы хотите сделать?<br><br> <a href="btn:#%Бар_бат2$">#%Бар_кап2$</a><br> <a href="btn:#%Бар_бат3$">#%Бар_кап3$</a><br> </html> end
:светильники записка=1 ; в случаях, когда значения переменных могли измениться ; вызываем процедуру обсчёта ; после работы с переменными, но до html-вставки proc обсчт <html> На столиках расставлены оригинальные китайские фонарики. Под одним из них, ты заметил клочок бумаги<br><br> <a href="btn:#%Бар_бат2$">#%Бар_кап2$</a><br> <a href="btn:#%Бар_бат3$">#%Бар_кап3$</a><br> <a href="btn:Бар">осмотреться</a><br> </html> end
:посетители matrix=0 proc обсчт <html> Завсегдатаи бара пьют, общаются, расслабляются. В дальней стороне зала, твоё внимание привлёк одинокий незнакомец. Причудливая игра теней, странным образом, постоянно меняет его внешность<br><br> <a href="btn:#%Бар_бат3$">#%Бар_кап3$</a><br> <a href="btn:#%Бар_бат2$">#%Бар_кап2$</a><br> <a href="btn:Бар">осмотреться</a><br> </html> end
:столик <html> Ты сидишь за столиком, на котором из-под светильника виден клочок бумаги<br><br> <a href="btn:Бар">встать</a><br> </html> end
:незнакомец <html> Ты подошёл к странному незнакомцу<br><br> <a href="btn:Бар">отойти</a><br> </html> end
:обсчт if записка=1 then Бар_бат2= "столик" & Бар_кап2= "сесть за столик" if записка=0 then Бар_бат2= "светильники" & Бар_кап2= "осмотреть светильники" if matrix=0 then Бар_бат3= "незнакомец" & Бар_кап3= "пройти в дальнюю сторону зала" if matrix<>0 then Бар_бат3= "посетители" & Бар_кап3= "осмотреть посетителей" end
; идея в том, что бы подменять те ссылки, которых не должно быть видно, ссылками на нечто, не важное для сюжета, а лишь создающее атмосферу квеста
qwerty, скрывать кнопки в html можно. если нужно (тема про досурку ударилась твёрдо ушла в сторону Акурки, а это- не мой конёк).
так, например, в следующем мини-примере ссылка целиком хранится в одной текстовой переменной. а если это переменная пуста- то и ссылки не будет(так что твой пример можно здорово упростить, и при этом УБРАТЬ не нужные кнопки, как того хотел автор(Ktirff). твой пример переделывать не буду, а только дам иллюстрирующий мини-примерчик:
подведу итог: видимо, наиболее корректным стилем программирования под Акурку, с использованием html будет предварительное формирование html-текста в особой переменной:
цитата:
; заполняем куски текста. как-нибудь так: if ... then text1= ... if ... then text2= ... if ... then text3= ... ; что бы пропустить переменную- присваиваем ей пустое значение
instr код_локации = #%text1$#%text2$#%text3$ ; собственно, 'код_локации' можно тоже формировать с ифами
<html>#%код_локации$</html>
; вот и всё
т е 'безусловные' локации делаем как обычно, а в начале составных локаций, составляем их текст с использованием переменных text1..textn
ИМХО- проще не придумаешь. и, повторюсь, я на самом деле не знаю языка html, и поддерживает ли Акурка какие-то ещё его возможности, кроме вывода текста(с форматированием и выбором шрифтов/цвета и т п), и гиперссылок, и картинок(в т ч - фона)
// все примеры с html-вставками проверял на Акурке pre6
Отправлено: 27.04.09 15:38. Заголовок: переходим к водным п..
переходим к водным процедурам...
то есть, от Акурки к fireurq. вот, например, очередной пример игры-головоломки. никаких специфических функций fireurq в игре не используется, НО что бы перевести её на Акурку, возможно, понадобится изменить работу с токенами. а для перевода на dos_urq, возможно, понадобится изменить выводимые строки, что бы они нормально размещались на экране. не знаю- тестировал только на fireurq
когда Вы в неё поиграете- поймёте, что тестировать эту игруху было ой, как не просто // блин, и как в этой фразе правильно расставить запятые? короче, вот эта игруха:
:intro pln pln Представляю Вашему вниманию ГОЛОВОЛОМКУ, на подобии "волк,коза и капуста". Неблагополучная семья, и полицейский с заключённым направляются в исправительное поселение. В игре время не ограничено, но для получения максимального фана от игры, рекомендую засечь время. Интересно, как быстро Вы сможете её решить? pln btn rules, правила головоломки end
:rules pln pln Цель игры: Перевести группу из 8-ми человек через реку. Когда все буду на другом берегу- победа твоя pln pln Правила такие: Перебраться через реку можно только на плоту. Одновременно на плоту помещаются не более 2-х человек. Управлять плотом умеют только родители и полисмен. Нельзя оставлять заключённого с членами семьи без присмотра полицейского. Нельзя оставлять папу с дочками без присмотра мамы. Нельзя оставлять маму с сыновьями без присмотра папы pln btn ruling, управление игрой end
:ruling pln pln Управление осуществляется посредством ввода команд с клавиатуры pln pln Игра понимает следующие команды: pln pln посадить <кого-то> [на плот] pln высадить <кого-то> [с плота] pln переплыть [реку [на плоту]] pln pln например: посадить зэка на плот pln pln в квадратные скобки заключена необязательная часть команды pln btn start, начать игру end
:start clrscr=1 cls if плот_где=1 then pln плот находится у первого(исходного) берега реки pln p На другой берег нужно переправить #там1$ чел: n=0 :start_label1 n=n+1 if перс#n$где=1 then p #%перс#n$им$ if n<8 then goto start_label1 pln pln p На плоту мы видим #там2$ чел: n=0 :start_label2 n=n+1 if перс#n$где=2 then p #%перс#n$им$ if n<8 then goto start_label2 pln pln p Уже удалось переправить #там3$ чел: n=0 :start_label3 n=n+1 if перс#n$где=3 then p #%перс#n$им$ if n<8 then goto start_label3 pln pln if плот_где=3 then pln плот находится у желаемого(второго) берега реки
instr vvod= пусто input vvod if vvod="" then goto start tokens vvod if token1= "посадить" then goto action_посадить if token1= "высадить" then goto action_высадить if token1= "переплыть" then goto action_переплыть goto action_help end
:action_help clrscr=1 cls pln pln *** введена неизвестная команда "#%token1$" ! *** pln pln Игра понимает следующие команды: pln pln посадить <кого-то> [на плот] pln высадить <кого-то> [с плота] pln переплыть реку [на плоту] pln pln в квадратные скобки заключена необязательная часть команды pln pln команды нужно вводить именно в такой форме. например: посадить зэка на плот pln pln *** никаких других команд игра не понимает! *** btn start, ОК! end
:action_help2 clrscr=1 cls pln pln ** указан неизвестный персонаж "#%token2$" ! ** pln pln Для команд "посадить" и "высадить" нужно указывать персонажа именно так, как он упомянут в описании ситуации. соблюдая падеж, регистр букв, и прочая pln pln Например: pln посадить папу pln высадить Машу pln pln ** игра понимает лишь минимальный набор жёстко заданных команд! ** btn start, ОК! end
:action_help3 clrscr=1 cls pln pln * Вы уже посадили "#%token2$" на плот до этого ! * pln pln внимательно читайте описание ситуации btn start, ОК! end
:action_help4 clrscr=1 cls pln pln * персонажу "#%token2$" не удаётся забраться на плот! * pln pln плот находится у другого берега реки btn start, ОК! end
:action_help5 clrscr=1 cls pln pln * персонажу "#%token2$" не удаётся забраться на плот! * pln pln на плоту уже находится два человека. больше туда никто не поместится btn start, ОК! end
:action_help6 clrscr=1 cls pln pln * "#%token2$" не удаётся высадить с плота! * pln pln Этот персонаж находится на берегу btn start, ОК! end
:action_help7 clrscr=1 cls pln pln * не удаётся переплыть реку! * pln pln На плоту нет никого, кто умел бы им управлять. Это умеют только мама, папа и коп btn start, ОК! end
:action_посадить n=0 flag1=0 :action_посадить_label1 n=n+1 if перс#n$им=token2 then goto action_посадить_label2 if n<8 then goto action_посадить_label1 goto action_help2 :action_посадить_label2 if перс#n$где=2 then goto action_help3 if перс#n$где<>плот_где then goto action_help4 if там2=2 then goto action_help5 перс#n$где=2 там2=там2+1 там#плот_где$= там#плот_где$-1 ходы=ходы+1 goto start end
:action_высадить n=0 flag1=0 :action_высадить_label1 n=n+1 if перс#n$им=token2 then goto action_высадить_label2 if n<8 then goto action_высадить_label1 goto action_help2 :action_высадить_label2 if перс#n$где<>2 then goto action_help6 перс#n$где=плот_где там2=там2-1 там#плот_где$= там#плот_где$+1 ходы=ходы+1 goto start end
:action_переплыть if (перс1где<>2)and(перс4где<>2)and(перс8где<>2)then goto action_help7 плот_где=4-плот_где ; автоматическая высадка(для облегчения проверки недопустимой ситуации) n=0 :action_переплыть_label1 n=n+1 if перс#n$где=2 then перс#n$где=плот_где & там2=там2-1 & там#плот_где$=там#плот_где$+1 if n<8 then goto action_переплыть_label1 ходы=ходы+1
; проверки: зэк=7 коп=8 if (перс7где<>перс8где)and(там#перс7где$>1) then goto Failure1 ;мама=1 сыновья= 5 и 6, папа=4 if (перс1где<>перс4где)and((перс1где=перс5где)or(перс1где=перс6где)) then goto Failure2 ;папа=4 дочери= 2 и 3, мама=1 if (перс1где<>перс4где)and((перс4где=перс2где)or(перс4где=перс3где)) then goto Failure3
if там3=8 then goto victory goto start end
:victory clrscr=1 cls pln pln + +++ +++++ ПОЗДРАВЛЯЮ ! +++++ +++ + pln pln Вам удалось решить эту головоломку за #ходы$ ходов pln pln + +++ +++++ +++++++ ВЫ ПОБЕДИЛИ !!! +++++++ +++++ +++ + pln pln и зэк с копом, и вся неблагополучная семейка успешно добрались до исправительного поселения Бобруйск-2050 btn инициализация, начать заново end
:Failure1 clrscr=1 cls pln pln * нельзя оставлять зэка с любым из членов семьи без присмотра копа! * pln pln ... сцены секса и насилия вырезаны цензурой ... pln pln ***** игра окончена ***** pln btn инициализация, начать заново end
:Failure2 clrscr=1 cls pln pln * нельзя оставлять маму с любым из сыновей без присмотра папы! * pln pln ... сцены секса и насилия вырезаны цензурой ... pln pln ***** игра окончена ***** pln btn инициализация, начать заново end
:Failure3 clrscr=1 cls pln pln * нельзя оставлять папу с любой из дочерей без присмотра мамы! * pln pln ... сцены секса и насилия вырезаны цензурой ... pln pln ***** игра окончена ***** pln btn инициализация, начать заново end
щазз перевыложу. при выкладывании сообщением пробелы урезаются. я это знал. обычно это не критично для игры, НО не на этот раз. выкладываю 'нормальную' версию, т е ту же прогу, но 'прикреплённым' файлом. игра проверена. пройти можно, но сложно
Простой пример. Зацикленная локация. И тут... Я хочу ввести в локации эникей. Соответственно дойдя до него, система встанет в ожидании нажатия клавиши. И не произойдет переход по goto. Можно ли каким то оригинальным кодом это обойти?
Отправлено: 02.05.09 20:48. Заголовок: Chicago1920А вот так..
Chicago1920
цитата:
А вот такой вопрос на смекалку
звучит так, как будто это возможно, и ты знаешь как. чему я удивлён
можно попробовать так: засечь текущее время в тиках(1/50мс), поставить паузу требуемой длительности(желательно от 2сек и более). после паузы опять засечь время в тиках, и сравнить разницу. если была нажата клавиша, то разница по времени будет меньше паузы, так как нажатие клавиши прерывает паузу
таким образом, можно вести отчёт, как в твоём примере, и в то же время среагировать на нажатие клавиши
если нужно что-то более другое- поясни, какой конкретно эффект должно производить нажимание клавиш
---
гораздо проще всё вышеописанное можно реализовать другим, более традиционным способом:
a=0 :1 cls a=a+1 pln #a$ btn fin, конец pause 2000 goto 1 end
звучит так, как будто это возможно, и ты знаешь как. чему я удивлён
Не хотел ввести тебя в заблуждение ненароком, но я этого не знаю. noname пишет:
цитата:
можно попробовать так: засечь текущее время в тиках(1/50мс), поставить паузу требуемой длительности(желательно от 2сек и более). после паузы опять засечь время в тиках, и сравнить разницу. если была нажата клавиша, то разница по времени будет меньше паузы, так как нажатие клавиши прерывает паузу
таким образом, можно вести отчёт, как в твоём примере, и в то же время среагировать на нажатие клавиши
Все даты в формате GMT
3 час. Хитов сегодня: 3
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
- участник сейчас на форуме
- участник вне форума