home *** CD-ROM | disk | FTP | other *** search
/ The Party 1994: Try This At Home / disk_image.bin / source / mythic / request.inc < prev    next >
Text File  |  1994-08-26  |  13KB  |  384 lines
  1. ;        Konstanten für EGA-Farben
  2. ;
  3. PABLACK        =    000H
  4. PABLUE        =    0C7H
  5. PAGREEN        =    087H
  6. PACYAN        =    0A7H
  7. PARED        =    047H
  8. PAMAGENTA    =    0E7H
  9. PABROWN        =    067H
  10. PALTGRAY    =    02AH
  11.  
  12. PADKGRAY    =    015H
  13. PALTBLUE    =    0CCH
  14. PALTGREEN    =    08CH
  15. PALTCYAN    =    0ACH
  16. PALTRED        =    04CH
  17. PALTMAGENTA    =    0ECH
  18. PAYELLOW    =    06CH
  19. PAWHITE     =    03FH
  20.  
  21. PADKBLUE    =    0C5H
  22.  
  23. ;        Liste der EGA-Farben
  24. ;
  25. ABACKCOLOR    DB    PABLACK
  26.         DB    PABLUE
  27.         DB    PAGREEN
  28.         DB    PACYAN
  29.         DB    PARED
  30.         DB    PAMAGENTA
  31.         DB    PABROWN
  32.         DB    PALTGRAY
  33.  
  34.         DB    PADKGRAY
  35.         DB    PALTBLUE
  36.         DB    PALTGREEN
  37.         DB    PALTCYAN
  38.         DB    PALTRED
  39.         DB    PALTMAGENTA
  40.         DB    PAYELLOW
  41.         DB    PAWHITE
  42.  
  43. CHBACK    =    '░'
  44. CHTEXT    =    '▒'
  45. CHPATTERN =    '▓'
  46. CHFONT =    ''
  47.  
  48. ;        Fenster zur Auswahl der Hintergrundfarbe
  49. ;
  50. BACKREQUESTER    DW    8, 2, 30, 22
  51.         DB    CHBACK, PADKBLUE
  52.         DB    CHTEXT, COGRAY
  53.         DB    CHPATTERN, PTFADE1
  54.         DB    CHFONT, FOBIG
  55.         DB    '                     '
  56.         DB    '  Background color:  '
  57.         DB    '                     '
  58.         DB    CHTEXT, COWHITE
  59.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PABLACK, '    '
  60.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PABLUE,  '    '
  61.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAGREEN, '    '
  62.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PACYAN,  '    '
  63.         DB    CHBACK, PADKBLUE, '  ', CHBACK, PABLACK, '    '
  64.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PABLUE,  '    '
  65.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAGREEN, '    '
  66.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PACYAN,  '    '
  67.         DB    CHBACK, PADKBLUE, '  ', CHBACK, PABLACK, '   0'
  68.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PABLUE,  '   1'
  69.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAGREEN, '   2'
  70.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PACYAN,  '   3'
  71.         DB    CHBACK, PADKBLUE, '                      '
  72.  
  73.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PARED,     '    '
  74.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAMAGENTA, '    '
  75.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PABROWN,   '    '
  76.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTGRAY,  '    '
  77.         DB    CHBACK, PADKBLUE, '  ', CHBACK, PARED,     '    '
  78.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAMAGENTA, '    '
  79.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PABROWN,   '    '
  80.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTGRAY,  '    '
  81.         DB    CHBACK, PADKBLUE, '  ', CHBACK, PARED,     '   4'
  82.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAMAGENTA, '   5'
  83.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PABROWN,   '   6'
  84.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTGRAY,  '   7'
  85.         DB    CHBACK, PADKBLUE, '                      '
  86.  
  87.         DB    CHTEXT, COBLACK
  88.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PADKGRAY,  '    '
  89.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTBLUE,  '    '
  90.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTGREEN, '    '
  91.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTCYAN,  '    '
  92.         DB    CHBACK, PADKBLUE, '  ', CHBACK, PADKGRAY,  '    '
  93.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTBLUE,  '    '
  94.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTGREEN, '    '
  95.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTCYAN,  '    '
  96.         DB    CHBACK, PADKBLUE, '  ', CHBACK, PADKGRAY,  '   8'
  97.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTBLUE,  '   9'
  98.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTGREEN, '   A'
  99.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTCYAN,  '   B'
  100.         DB    CHBACK, PADKBLUE, '                      '
  101.  
  102.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTRED,     '    '
  103.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTMAGENTA, '    '
  104.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAYELLOW,    '    '
  105.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAWHITE,     '    '
  106.         DB    CHBACK, PADKBLUE, '  ', CHBACK, PALTRED,     '    '
  107.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTMAGENTA, '    '
  108.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAYELLOW,    '    '
  109.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAWHITE,     '    '
  110.         DB    CHBACK, PADKBLUE, '  ', CHBACK, PALTRED,     '   C'
  111.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PALTMAGENTA, '   D'
  112.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAYELLOW,    '   E'
  113.         DB    CHBACK, PADKBLUE, ' ',  CHBACK, PAWHITE,     '   F'
  114.         DB    CHBACK, PADKBLUE, '                      '
  115.  
  116. ;        Zusammenstellungen von 16 Farben
  117. ;
  118. AABCOLOR    EQU    ABCOLORRED
  119.  
  120. CORED        =    000H
  121. COYELLOW    =    001H
  122. COGREEN        =    002H
  123. COCYAN        =    003H
  124. COBLUE        =    004H
  125. COMAGENTA    =    005H
  126. COBLACK        =    006H
  127. COGRAY        =    007H
  128. COWHITE        =    008H
  129. CORAINBOW    =    009H
  130. CORY        =    00AH
  131. COYG        =    00BH
  132. COGC        =    00CH
  133. COCB        =    00DH
  134. COBM        =    00EH
  135. COMR        =    00FH
  136.  
  137. ABCOLORRED    DB    040H, 041H, 042H, 043H, 044H, 045H, 046H, 047H
  138.         DB    048H, 049H, 04AH, 04BH, 04CH, 04DH, 04EH, 04FH
  139. ABCOLORYELLOW    DB    060H, 061H, 062H, 063H, 064H, 065H, 066H, 067H
  140.         DB    068H, 069H, 06AH, 06BH, 06CH, 06DH, 06EH, 06FH
  141. ABCOLORGREEN    DB    080H, 081H, 082H, 083H, 084H, 085H, 086H, 087H
  142.         DB    088H, 089H, 08AH, 08BH, 08CH, 08DH, 08EH, 08FH
  143. ABCOLORCYAN    DB    0A0H, 0A1H, 0A2H, 0A3H, 0A4H, 0A5H, 0A6H, 0A7H
  144.         DB    0A8H, 0A9H, 0AAH, 0ABH, 0ACH, 0ADH, 0AEH, 0AFH
  145. ABCOLORBLUE    DB    0C0H, 0C1H, 0C2H, 0C3H, 0C4H, 0C5H, 0C6H, 0C7H
  146.         DB    0C8H, 0C9H, 0CAH, 0CBH, 0CCH, 0CDH, 0CEH, 0CFH
  147. ABCOLORMAGENTA    DB    0E0H, 0E1H, 0E2H, 0E3H, 0E4H, 0E5H, 0E6H, 0E7H
  148.         DB    0E8H, 0E9H, 0EAH, 0EBH, 0ECH, 0EDH, 0EEH, 0EFH
  149. ABCOLORBLACK    DB    000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H
  150.         DB    000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H
  151. ABCOLORGRAY    DB    003H, 007H, 00BH, 00FH, 013H, 017H, 01BH, 01FH
  152.         DB    023H, 027H, 02BH, 02FH, 033H, 037H, 03BH, 03FH
  153. ABCOLORWHITE    DB    03FH, 03FH, 03FH, 03FH, 03FH, 03FH, 03FH, 03FH
  154.         DB    03FH, 03FH, 03FH, 03FH, 03FH, 03FH, 03FH, 03FH
  155. ABCOLORRAINBOW    DB    0F4H, 0F7H, 0FAH, 04AH, 05AH, 06AH, 07AH, 08AH
  156.         DB    09AH, 0AAH, 0BAH, 0CAH, 0DAH, 0EAH, 0E7H, 0E4H
  157. ABCOLORRY    DB    041H, 043H, 045H, 047H, 049H, 04BH, 04DH, 04FH
  158.         DB    06FH, 06DH, 06BH, 069H, 067H, 065H, 063H, 061H
  159. ABCOLORYG    DB    061H, 063H, 065H, 067H, 069H, 06BH, 06DH, 06FH
  160.         DB    08FH, 08DH, 08BH, 089H, 087H, 085H, 083H, 081H
  161. ABCOLORGC    DB    081H, 083H, 085H, 087H, 089H, 08BH, 08DH, 08FH
  162.         DB    0AFH, 0ADH, 0ABH, 0A9H, 0A7H, 0A5H, 0A3H, 0A1H
  163. ABCOLORCB    DB    0A1H, 0A3H, 0A5H, 0A7H, 0A9H, 0ABH, 0ADH, 0AFH
  164.         DB    0CFH, 0CDH, 0CBH, 0C9H, 0C7H, 0C5H, 0C3H, 0C1H
  165. ABCOLORBM    DB    0C1H, 0C3H, 0C5H, 0C7H, 0C9H, 0CBH, 0CDH, 0CFH
  166.         DB    0EFH, 0EDH, 0EBH, 0E9H, 0E7H, 0E5H, 0E3H, 0E1H
  167. ABCOLORMR    DB    0E1H, 0E3H, 0E5H, 0E7H, 0E9H, 0EBH, 0EDH, 0EFH
  168.         DB    04FH, 04DH, 04BH, 049H, 047H, 045H, 043H, 041H
  169.  
  170. ;        Fenster zur Auswahl der Zeichenfarbe
  171. ;
  172. FRONTREQUESTER    DW    8, 5, 31, 18
  173.         DB    CHBACK, PABLACK
  174.         DB    CHTEXT, COWHITE
  175.         DB    CHPATTERN, PTFADE2
  176.         DB    CHFONT, FOBIG
  177.         DB    '                      '
  178.         DB    '   Character color:   '
  179.         DB    '                      '
  180.         DB    CHTEXT, COWHITE, ' 0 ', CHTEXT, CORED,     'Red     '
  181.         DB    CHTEXT, COWHITE, ' 8 ', CHTEXT, COWHITE,   'White   '
  182.         DB    CHTEXT, COWHITE, ' 1 ', CHTEXT, COYELLOW,  'Yellow  '
  183.         DB    CHTEXT, COWHITE, ' 9 ', CHTEXT, CORAINBOW, 'Rainbow '
  184.         DB    CHTEXT, COWHITE, ' 2 ', CHTEXT, COGREEN,   'Green   '
  185.         DB    CHTEXT, COWHITE, ' A ', CHTEXT, COMR,      'M > R   '
  186.         DB    CHTEXT, COWHITE, ' 3 ', CHTEXT, COCYAN,    'Cyan    '
  187.         DB    CHTEXT, COWHITE, ' B ', CHTEXT, CORY,      'R > Y   '
  188.         DB    CHTEXT, COWHITE, ' 4 ', CHTEXT, COBLUE,    'Blue    '
  189.         DB    CHTEXT, COWHITE, ' C ', CHTEXT, COYG,      'Y > G   '
  190.         DB    CHTEXT, COWHITE, ' 5 ', CHTEXT, COMAGENTA, 'Magenta '
  191.         DB    CHTEXT, COWHITE, ' D ', CHTEXT, COGC,      'G > C   '
  192.         DB    CHTEXT, COWHITE, ' 6 ', CHTEXT, COBLACK
  193.         DB    CHBACK, PADKGRAY, 'Black', CHBACK, PABLACK, '   '
  194.         DB    CHTEXT, COWHITE, ' E ', CHTEXT, COCB,      'C > B   '
  195.         DB    CHTEXT, COWHITE, ' 7 ', CHTEXT, COGRAY,    'Gray    '
  196.         DB    CHTEXT, COWHITE, ' F ', CHTEXT, COBM,      'B > M   '
  197.         DB    '                      '
  198.  
  199. AAPATTERN    DB    001H, 003H, 005H, 007H, 009H, 00BH, 00DH, 00FH
  200.         DB    003H, 005H, 007H, 009H, 00BH, 00DH, 00FH, 00DH
  201.         DB    005H, 007H, 009H, 00BH, 00DH, 00FH, 00DH, 00BH
  202.         DB    007H, 009H, 00BH, 00DH, 00FH, 00DH, 00BH, 009H
  203.         DB    009H, 00BH, 00DH, 00FH, 00DH, 00BH, 009H, 007H
  204.         DB    00BH, 00DH, 00FH, 00DH, 00BH, 009H, 007H, 005H
  205.         DB    00DH, 00FH, 00DH, 00BH, 009H, 007H, 005H, 003H
  206.         DB    00FH, 00DH, 00BH, 009H, 007H, 005H, 003H, 001H
  207.  
  208.         DB    00FH, 00DH, 00BH, 009H, 007H, 005H, 003H, 001H
  209.         DB    00DH, 00FH, 00DH, 00BH, 009H, 007H, 005H, 003H
  210.         DB    00BH, 00DH, 00FH, 00DH, 00BH, 009H, 007H, 005H
  211.         DB    009H, 00BH, 00DH, 00FH, 00DH, 00BH, 009H, 007H
  212.         DB    007H, 009H, 00BH, 00DH, 00FH, 00DH, 00BH, 009H
  213.         DB    005H, 007H, 009H, 00BH, 00DH, 00FH, 00DH, 00BH
  214.         DB    003H, 005H, 007H, 009H, 00BH, 00DH, 00FH, 00DH
  215.         DB    001H, 003H, 005H, 007H, 009H, 00BH, 00DH, 00FH
  216.  
  217.         DB    00FH, 00EH, 00DH, 00CH, 00BH, 00AH, 009H, 008H
  218.         DB    00EH, 00DH, 00CH, 00BH, 00AH, 009H, 008H, 007H
  219.         DB    00DH, 00CH, 00BH, 00AH, 009H, 008H, 007H, 006H
  220.         DB    00CH, 00BH, 00AH, 009H, 008H, 007H, 006H, 005H
  221.         DB    00BH, 00AH, 009H, 008H, 007H, 006H, 005H, 004H
  222.         DB    00AH, 009H, 008H, 007H, 006H, 005H, 004H, 003H
  223.         DB    009H, 008H, 007H, 006H, 005H, 004H, 003H, 002H
  224.         DB    008H, 007H, 006H, 005H, 004H, 003H, 002H, 001H
  225.  
  226.         DB    001H, 002H, 003H, 004H, 005H, 006H, 007H, 008H
  227.         DB    002H, 003H, 004H, 005H, 006H, 007H, 008H, 009H
  228.         DB    003H, 004H, 005H, 006H, 007H, 008H, 009H, 00AH
  229.         DB    004H, 005H, 006H, 007H, 008H, 009H, 00AH, 00BH
  230.         DB    005H, 006H, 007H, 008H, 009H, 00AH, 00BH, 00CH
  231.         DB    006H, 007H, 008H, 009H, 00AH, 00BH, 00CH, 00DH
  232.         DB    007H, 008H, 009H, 00AH, 00BH, 00CH, 00DH, 00EH
  233.         DB    008H, 009H, 00AH, 00BH, 00CH, 00DH, 00EH, 00FH
  234.  
  235. PTDIAG1        =    0
  236. PTDIAG2        =    1
  237. PTFADE1        =    2
  238. PTFADE2        =    3
  239.  
  240. ;        Fenster zur Auswahl des Zeichenmusters
  241. ;
  242. PATTERNREQUESTER DW    8, 6, 31, 18
  243.         DB    CHBACK, PABLACK
  244.         DB    CHTEXT, COWHITE
  245.         DB    CHPATTERN, PTFADE1
  246.         DB    CHFONT, FOBIG
  247.         DB    '                      '
  248.         DB    '  Character pattern:  '
  249.         DB    '                      '
  250.         DB    CHTEXT, COGRAY
  251.         DB    CHPATTERN, PTDIAG1, ' 0 █ █ Diagonal Nr: 1 '
  252.         DB    '                      '
  253.         DB    CHPATTERN, PTDIAG2, ' 1 █ █ Diagonal Nr: 2 '
  254.         DB    '                      '
  255.         DB    CHPATTERN, PTFADE1, ' 2 █ █ Fade Nr: 1     '
  256.         DB    '                      '
  257.         DB    CHPATTERN, PTFADE2, ' 3 █ █ Fade Nr: 2     '
  258.         DB    '                      '
  259.  
  260. ;        Fenster zur Auswahl des Objekttyps
  261. ;
  262. OBJECTREQUESTER    DW    12, 8, 27, 15
  263.         DB    CHBACK, PABLACK
  264.         DB    CHTEXT, COWHITE
  265.         DB    CHPATTERN, PTFADE2
  266.         DB    CHFONT, FOBIG
  267.         DB    '              '
  268.         DB    ' Object Types '
  269.         DB    '              '
  270.         DB    CHPATTERN, PTFADE1, CHTEXT, CORED
  271.         DB    '   0 Stars    '
  272.         DB    CHPATTERN, PTDIAG1, CHTEXT, COGRAY
  273.         DB    '   1 Hearts   '
  274.         DB    '              '
  275.  
  276. FOBIG        =    0
  277. FOSMALL        =    1
  278. FOTINY        =    2
  279. FOVGA        =    3
  280.  
  281. ;        Schriftfenster
  282. ;
  283. FONTREQUESTER    DW    13, 8, 27, 17
  284.         DB      CHTEXT, COBLUE
  285.         DB    CHBACK, PABLACK
  286.         DB    CHPATTERN, PTFADE1
  287.         DB    CHFONT, FOBIG
  288.         DB    '             '
  289.         DB    ' Select Font '
  290.         DB    '             '
  291.         DB    CHFONT, FOBIG,   '  0 Big      '
  292.         DB    CHFONT, FOSMALL, '  1 Small    '
  293.         DB    CHFONT, FOTINY,  '  2 Tiny     '
  294.         DB    CHFONT, FOVGA,   '  3 VGA      '
  295.         DB    '             '
  296.  
  297. ;        Cursorfenster
  298. ;
  299. CURSORREQUESTER    DW    12, 9, 28, 16
  300.         DB      CHTEXT, COGRAY
  301.         DB    CHBACK, PABLACK
  302.         DB    CHPATTERN, PTFADE1
  303.         DB    CHFONT, FOSMALL
  304.         DB    '               '
  305.         DB    ' Select Cursor '
  306.         DB    '               '
  307.         DB    CHTEXT, COBLUE, '  0 Blue       '
  308.         DB    CHTEXT, CORAINBOW, '  1 Rainbow    '
  309.         DB    '               '
  310.  
  311. ;        Informationsfenster
  312. ;
  313. ENDREQUESTER    DW    11, 10, 28, 14
  314.         DB      CHTEXT, CORAINBOW
  315.         DB    CHBACK, PABLACK
  316.         DB    CHPATTERN, PTFADE2
  317.         DB    CHFONT, FOSMALL
  318.         DB    '                '
  319.         DB    ' End of File !! '
  320.         DB    '                '
  321.  
  322. ;        Informationsfenster
  323. ;
  324. INFOREQUESTER    DW    8, 7, 32, 17
  325.         DB      CHTEXT, COBLUE
  326.         DB    CHBACK, PABLACK
  327.         DB    CHPATTERN, PTFADE1
  328.         DB    CHFONT, FOSMALL
  329.         DB    '                       '
  330.         DB    '     Mythic-Writer     '
  331.         DB    '                       '
  332.         DB    '      Version 1.0      '
  333.         DB    '                       '
  334.         DB    ' Copyright (C) 1993 by '
  335.         DB    '                       '
  336.         DB    '         xToto         '
  337.         DB    '                       '
  338.  
  339. ;        Hilfefenster
  340. ;
  341. HELP1REQUESTER    DW    8, 4, 32, 21
  342.         DB      CHTEXT, COMAGENTA
  343.         DB    CHBACK, PABLACK
  344.         DB    CHPATTERN, PTFADE1
  345.         DB    CHFONT, FOSMALL
  346.         DB    '                       '
  347.         DB    ' Mythic-Writer Help 1  '
  348.         DB    '                       '
  349.         DB    '  Key      Option      '
  350.         DB    ' --------------------- '
  351.         DB    ' Alt-B  Select Backgr. '
  352.         DB    ' Alt-F  Select Font    '
  353.         DB    ' Alt-H  Show Help      '
  354.         DB    ' Alt-I  Show Info      '
  355.         DB    ' Alt-L  Insert Line    '
  356.         DB    ' Alt-O  Select Object  '
  357.         DB    ' Alt-P  Select Pattern '
  358.         DB    ' Alt-R  Restart        '
  359.         DB    ' Alt-T  Select Text    '
  360.         DB    ' Alt-Z  Delete Line    '
  361.         DB    '                       '
  362.  
  363. HELP2REQUESTER    DW    8, 4, 32, 21
  364.         DB      CHTEXT, COMAGENTA
  365.         DB    CHBACK, PABLACK
  366.         DB    CHPATTERN, PTFADE1
  367.         DB    CHFONT, FOSMALL
  368.         DB    '                       '
  369.         DB    ' Mythic-Writer Help 2  '
  370.         DB    '                       '
  371.         DB    '  Key      Option      '
  372.         DB    ' --------------------- '
  373.         DB    ' Cursor movement       '
  374.         DB    '  Del   Delete Char    '
  375.         DB    ' Escape Quit           '
  376.         DB    '  F-1   Show Help      '
  377.         DB    '  F-2   Show Stars     '
  378.         DB    '  F-3   Show Cursor    '
  379.         DB    '  F-4   Show Sprites   '
  380.         DB    '  F-5   Clear Screen   '
  381.         DB    '  Ins   Insert Mode    '
  382.         DB    ' Space  Read fast      '
  383.         DB    '                       '
  384.