?login_element?

Subversion Repositories NedoOS

Rev

Rev 1000 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1. ;Тексты диалогов
  2.  
  3. ;Формат диалога:
  4. ;"TXT",0 - конец диалога
  5. ;"TXT",1 - перевод на собеседника
  6. ;"TXT",2 - перевод на гл. героя
  7. ;"TXT",3,X - переход на другой диалог и конец текущ. диалога
  8. ;"TXT",4,X - выполнение скрипта под номером X и конец диалога
  9. ;"TXT",5,X - выполнение скрипта X, который возвращ. в HL адрес
  10. ; след. диалога, при A'=0 героя, A'<>0 собеседника
  11. ;Т.е. может служить для продолжения речи какого-либо героя
  12. ;"TXT",13- перевод на строку ниже
  13. ;длина строки 34 симв. в диалоге
  14.  
  15. ;Команды
  16. END     EQU 0
  17. SOBES   EQU 1
  18. HERO    EQU 2
  19. DIALOG  EQU 3
  20. SCRPT   EQU 4
  21. NEXT    EQU 6 ;продолжение диалога любого персонажа
  22.               ;нужно когда весь диалог не влезает в окно диалога
  23. CR      EQU 13;перевод строки
  24.  
  25. PL      EQU #C000 ;реальное местоположение текстов
  26. FA      EQU #7000 ;куда компилируем
  27.  
  28. SM=-FA+PL
  29.  
  30.         ORG FA
  31.  
  32. ;Провидец Глеб
  33. GL_     DW G0+SM,G1+SM ;ссылки на диалог
  34. G0      DB "Возьмите, может сгодится.",SOBES
  35.         DB "Вещи - это оковы, которые тянут",CR
  36.         DB "человека к земле...",END
  37.  
  38. G1      DB "Здравствуйте, молодой человек.",SOBES
  39.         DB "Приветствую вас, Вера!",HERO
  40.  
  41.         DB "Вы, должно быть, Глеб?",SOBES
  42.         DB "Да, зовут меня Глеб. Хотя все",CR
  43.         DB "кличут Провидцем, потому как",CR
  44.         DB "считают, что я будущее вижу.",HERO
  45.  
  46.         DB "А на самом деле, не так что ли?",SOBES
  47.         DB "Нет, я вижу суть вещей!",HERO
  48.  
  49.         DB "Вроде мне это и надо. Загляни-ка",CR
  50.         DB "в эту самую ""суть"", и скажи,",CR
  51.         DB "кто это тут безобразничает?",SOBES
  52.         DB "Так, где мой хрустальный шар...",CR
  53.         DB "Оммммм...",HERO
  54.  
  55.         DB "Что ты видишь?",SOBES
  56.         DB "Вижу око!",HERO
  57.  
  58.         DB "Что?",SOBES
  59.         DB "Тьфу ты! Не тот канал. Уммммм...",HERO
  60.  
  61.         DB "...Удобная, наверное, штука...",SOBES
  62.         DB "Точно! Особенно в пятницу",CR
  63.         DB "вечером... Вот!",HERO
  64.  
  65.         DB "Что?",SOBES
  66.         DB "Вижу колдуна... Имя... Зловет!",CR
  67.         DB "Железная палка в руке. Злой",CR
  68.         DB "наверно.",HERO
  69.  
  70.         DB "Что он делает?",SOBES
  71.         DB "Колокол ворует... Вот гад! И чары",CR
  72.         DB "какие-то напускает на все вокруг.",CR
  73.         DB "Ай!",HERO
  74.  
  75.         DB "Что?!",SOBES
  76.         DB "Камеру видеонаблюдения разбил,",CR
  77.         DB "негодяй!",HERO
  78.  
  79.         DB "Ну, в общем, все ясно. Надо",CR
  80.         DB "наказать нахала... Поможешь мне?",SOBES
  81.         DB "А я разве уже не помог?",HERO
  82.  
  83.         DB "Эх, молодежь! Ну, прощай...",SOBES
  84.         DB "Прощай, Вера! Удачи тебе!",SCRPT,60
  85. GEND
  86.         INCLUDE "02ZLOVET"
  87.         INCLUDE "03HEVOR"
  88.         INCLUDE "04BUKVIN"
  89.         INCLUDE "05JORA"
  90.         INCLUDE "06PETRO"
  91.         INCLUDE "07ALENA"
  92.         INCLUDE "08FEKLA"
  93.         INCLUDE "09ZADOL"
  94.         INCLUDE "0AREPLIC"
  95.  
  96. ObjTab=$
  97.  
  98.         ORG ObjTab
  99.  
  100.         DB "GLEB    t"
  101.         DW GL_
  102.         DW GEND-GL_
  103.         DB 16
  104.         DB "xt"
  105.  
  106.         DB "ZLOVET  t"
  107.         DW ZL_
  108.         DW ZLEND-ZL_
  109.         DB 16
  110.         DB "xt"
  111.  
  112.         DB "HEVOR   t"
  113.         DW HV_
  114.         DW HEND-HV_
  115.         DB 16
  116.         DB "xt"
  117.  
  118.         DB "BUKVIN  t"
  119.         DW BK_
  120.         DW BEND-BK_
  121.         DB 16
  122.         DB "xt"
  123.  
  124.         DB "JORA    t"
  125.         DW JR_
  126.         DW JEND-JR_
  127.         DB 16
  128.         DB "xt"
  129.  
  130.         DB "PETRO   t"
  131.         DW PE_
  132.         DW PEND-PE_
  133.         DB 16
  134.         DB "xt"
  135.  
  136.         DB "ALENA   t"
  137.         DW AL_
  138.         DW AEND-AL_
  139.         DB 16
  140.         DB "xt"
  141.  
  142.         DB "FEKLA   t"
  143.         DW FK_
  144.         DW FEND-FK_
  145.         DB 16
  146.         DB "xt"
  147.  
  148.         DB "ZADOLB  t"
  149.         DW ZD_
  150.         DW ZEND-ZD_
  151.         DB 16
  152.         DB "xt"
  153.  
  154.         DB "REPLIC  t"
  155.         DW REPLIC
  156.         DW REND-REPLIC
  157.         DB 16
  158.         DB "xt"
  159.  
  160.         DB 0 ;END
  161.  
  162.         ORG #6100
  163.         INCLUDE "SAVEOBJ4"
  164.         ORG #6100
  165.  
  166.         DISPLAY "Gleb=   ",GEND-GL_
  167.         DISPLAY "Zlovet= ",ZLEND-ZL_
  168.         DISPLAY "Hevor=  ",HEND-HV_
  169.         DISPLAY "Bukvin= ",BEND-BK_
  170.         DISPLAY "Jora=   ",JEND-JR_
  171.         DISPLAY "Petro=  ",PEND-PE_
  172.         DISPLAY "Alena=  ",AEND-AL_
  173.         DISPLAY "Fekla=  ",FEND-FK_
  174.         DISPLAY "Kuznec= ",ZEND-ZD_
  175.         DISPLAY "Replic= ",REND-REPLIC
  176.         DISPLAY "В сумме=",REND-GL_
  177.