home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / pascal / pdial / intrface / alert.int next >
Encoding:
Text File  |  1993-07-14  |  11.6 KB  |  390 lines
  1. (*
  2.  * ALERT.PAS
  3.  *) 
  4.  
  5. unit alert;
  6.  
  7. interface
  8.  
  9. uses gem;
  10.  
  11. const
  12.  
  13.     macnote_data : array[0..63] of word =
  14.     ( 
  15.         $FFFF, $FFFF, $807F, $FFFF, $807F, $FFFF, $807F, $FFFF, 
  16.           $807F, $FFFF, $807F, $C0FF, $887F, $003F, $887E, $001F, 
  17.           $887C, $000F, $8078, $0C07, $8078, $0C07, $8070, $CCC3, 
  18.           $8070, $EDC3, $8070, $7F83, $8070, $3F03, $8073, $FFF3, 
  19.           $8073, $FFF3, $8070, $3F03, $8070, $7F83, $8070, $EDC3, 
  20.           $87F0, $CCC3, $81F0, $0C03, $81F0, $0C07, $81F0, $0007, 
  21.           $81F0, $000F, $81E0, $001F, $8F80, $007F, $81FF, $FFFF, 
  22.           $81FF, $FFFF, $81FF, $FFFF, $81FF, $FFFF, $FFFF, $FFFF
  23.     );
  24.     
  25.     macwait_data : array[0..63] of word =
  26.     ( 
  27.         $FFFF, $FFFF, $807F, $FFFF, $807F, $FFFF, $807F, $FFFF, 
  28.           $807F, $FFFF, $807F, $C0FF, $887F, $003F, $887E, $001F, 
  29.           $887C, $000F, $8078, $3F07, $8078, $7F87, $8070, $FFC3, 
  30.           $8070, $E1C3, $8070, $E1C3, $8070, $03C3, $8070, $0783, 
  31.           $8070, $0F03, $8070, $1E03, $8070, $1C03, $8070, $1C03, 
  32.           $87F0, $0003, $81F0, $1C03, $81F0, $1C07, $81F0, $1C07, 
  33.           $81F0, $000F, $81E0, $001F, $8F80, $007F, $81FF, $FFFF, 
  34.           $81FF, $FFFF, $81FF, $FFFF, $81FF, $FFFF, $FFFF, $FFFF
  35.     );
  36.     
  37.     macstop_data : array[0..63] of word =
  38.     ( 
  39.         $FFFF, $FFFF, $807F, $FFFF, $807F, $FFFF, $807F, $FFFF, 
  40.           $807F, $FFFF, $807F, $C0FF, $887F, $003F, $887E, $001F, 
  41.           $887C, $000F, $8078, $1C07, $8078, $1C07, $8070, $1C03, 
  42.           $8070, $1C03, $8070, $1C03, $8070, $1C03, $8070, $1C03, 
  43.           $8070, $1C03, $8070, $1C03, $8070, $1C03, $8070, $1C03, 
  44.           $87F0, $0003, $81F0, $1C03, $81F0, $1C07, $81F0, $1C07, 
  45.           $81F0, $000F, $81E0, $001F, $8F80, $007F, $81FF, $FFFF, 
  46.           $81FF, $FFFF, $81FF, $FFFF, $81FF, $FFFF, $FFFF, $FFFF
  47.     );
  48.     
  49.     calc_data : array[0..63] of word =
  50.     (
  51.         $1fff, $ffe0, $7fff, $fff0, $6000, $0038, $dfff, $ffd8, 
  52.         $dfff, $ffdc, $dfff, $ffde, $dfff, $ffdf, $c000, $001f, 
  53.         $df7d, $f7df, $d145, $145f, $d145, $145f, $df7d, $f7df, 
  54.         $c000, $001f, $df7d, $f7df, $d145, $145f,    $d145, $145f, 
  55.         $df7d, $f7df, $c000, $001f, $df7d, $f7df, $d145, $145f,
  56.         $d145, $145f, $df7d, $f7df, $c000, $001f, $df7d, $f7df, 
  57.         $d145, $145f, $d145, $145f, $df7d, $f7df, $6000, $003f, 
  58.         $7fff, $ffff, $1fff, $ffff, $07ff, $fffe, $03ff, $fff8
  59.     );
  60.     
  61.     gem2note_data : array[0..63] of word =
  62.     (
  63.         $0000, $0000, $0000, $0000, $0000, $0700, $0000, $0F80, 
  64.         $0000, $0F80, $0000, $0F80, $0000, $0F80, $0000, $0F80, 
  65.         $0000, $0F80, $0000, $0F80, $0000, $0F80, $0000, $0F80, 
  66.         $0079, $EF9C, $0EFB, $EFBC, $1EFB, $EFBC,    $1EFB, $EF7C, 
  67.         $16AA, $AF7C, $1EFB, $EF7C, $0D75, $DCBC, $038E, $37F8,
  68.         $1FFF, $DFF8, $1FFF, $7FF0, $1FFF, $FFF0, $1FFD, $FFE0, 
  69.         $1FFF, $FFC0, $0FFD, $FF80, $07FF, $FE00, $01FF, $F400,
  70.         $015F, $FC00, $01FF, $FC00, $01FF, $FC00, $0000, $0000
  71.     );
  72.     
  73.     gem2wait_data : array[0..63] of word =
  74.     (
  75.         $0000, $0000, $001F, $FE00, $007F, $FF80, $00FF, $FFC0, 
  76.         $01FF, $FFE0, $01F8, $07E0, $01F0, $03E0, $01F0, $03E0, 
  77.         $00E0, $03E0, $0000, $07C0, $0000, $0FC0, $0000, $1F80, 
  78.         $0000, $3F00, $0000, $7E00, $0000, $FC00, $0001, $F800, 
  79.         $0003, $F000, $0003, $E000, $0007, $C000, $0007, $C000, 
  80.         $0007, $C000, $0007, $C000, $0007, $C000, $0003, $8000, 
  81.         $0000, $0000, $0000, $0000, $0000, $0000, $0007, $C000, 
  82.         $000F, $E000, $000F, $E000, $0007, $C000, $0000, $0000
  83.     );
  84.         
  85.     gem2stop_data : array[0..63] of word =
  86.     ( 
  87.         $0000, $0000, $0001, $C000, $0073, $E000, $00FB, $E700, 
  88.           $00FB, $EF80, $1CFB, $EF80, $3EFB, $EF80, $3EFB, $EF80, 
  89.           $3EFB, $EF80, $3EFB, $EF80, $3EFB, $EF80, $3EFB, $EF80, 
  90.           $3EFB, $EF9C, $3EFB, $EFBC, $3EFB, $EFBC, $3FFF, $FF7C, 
  91.           $3FFF, $FF7C, $3FFF, $FF7C, $3FFF, $FEFC, $3FFF, $F7F8, 
  92.           $3FFF, $DFF8, $3FFF, $7FF0, $3FFF, $FFF0, $3FFD, $FFE0, 
  93.           $1FFD, $FFC0, $0FFF, $FF80, $07FF, $FF00, $03FF, $FE00, 
  94.           $03FF, $FE00, $03FF, $FE00, $03FF, $FE00, $0000, $0000
  95.     );
  96.         
  97.     gem1note_data : array[0..63] of word =
  98.     ( 
  99.        $0003, $C000, $0006, $6000, $000D, $B000, $001B, $D800, 
  100.        $0037, $EC00, $006F, $F600, $00DC, $3B00, $01BC, $3D80, 
  101.        $037C, $3EC0, $06FC, $3F60, $0DFC, $3FB0, $1BFC, $3FD8, 
  102.        $37FC, $3FEC, $6FFC, $3FF6, $DFFC, $3FFB, $BFFC, $3FFD, 
  103.        $BFFC, $3FFD, $DFFC, $3FFB, $6FFC, $3FF6, $37FC, $3FEC, 
  104.        $1BFF, $FFD8, $0DFF, $FFB0, $06FC, $3F60, $037C, $3EC0, 
  105.        $01BC, $3D80, $00DC, $3B00, $006F, $F600, $0037, $EC00, 
  106.        $001B, $D800, $000D, $B000, $0006, $6000, $0003, $C000
  107.     );
  108.     
  109.     gem1wait_data : array[0..63] of word =
  110.     ( 
  111.         $3FFF, $FFFC, $C000, $0003, $9FFF, $FFF9, $BFFF, $FFFD, 
  112.        $DFF8, $3FFB, $5FE0, $0FFA, $6FC0, $07F6, $2F83, $83F4, 
  113.        $3787, $C3EC, $1787, $C3E8, $1BFF, $83D8, $0BFF, $07D0, 
  114.        $0DFE, $0FB0, $05FC, $1FA0, $06FC, $3F60, $02FC, $3F40, 
  115.        $037C, $3EC0, $017C, $3E80, $01BF, $FD80, $00BF, $FD00, 
  116.        $00DC, $3B00, $005C, $3A00, $006C, $3600, $002F, $F400, 
  117.        $0037, $EC00, $0017, $E800, $001B, $D800, $000B, $D000, 
  118.        $000D, $B000, $0005, $A000, $0006, $6000, $0003, $C000
  119.     );
  120.          
  121.     gem1stop_data : array[0..63] of word =
  122.     (
  123.         $007F, $FE00, $00C0, $0300, $01BF, $FD80, $037F, $FEC0, 
  124.         $06FF, $FF60, $0DFF, $FFB0, $1BFF, $FFD8, $37FF, $FFEC, 
  125.         $6FFF, $FFF6, $DFFF, $FFFB, $B181, $860D, $A081, $0205, 
  126.         $A4E7, $3265, $A7E7, $3265, $A3E7, $3265, $B1E7, $3205, 
  127.         $B8E7, $320D, $BCE7,    $327D, $A4E7, $327D, $A0E7, $027D,
  128.         $B1E7, $867D, $BFFF, $FFFD, $DFFF, $FFFB, $6FFF, $FFF6, 
  129.         $37FF, $FFEC, $1BFF, $FFD8, $0DFF, $FFB0, $06FF, $FF60,
  130.        $037F, $FEC0, $01BF, $FD80, $00C0, $0300, $007F, $FE00
  131.     );
  132.     
  133.     happy_data : array[0..63] of word =
  134.     ( 
  135.         $7FFF, $FFFE, $FFFF, $FFFF, $FFE0, $07FF, $FF80, $01FF, 
  136.           $FE00, $007F, $FC00, $003F, $F800, $001F, $F000, $000F, 
  137.           $F000, $000F, $E030, $0C07, $E078, $1E07, $C078, $1E03, 
  138.           $C078, $1E03, $C030, $0C03, $C000, $0003, $C000, $0003, 
  139.           $C000, $0003, $C000, $0003, $C080, $0103, $C0C0, $0303, 
  140.           $C040, $0203, $E060, $0607, $E038, $1C07, $F01F, $F80F, 
  141.           $F007, $E00F, $F800, $001F, $FC00, $003F, $FE00, $007F, 
  142.           $FF80, $01FF, $FFE0, $07FF, $FFFF, $FFFF, $7FFF, $FFFE
  143.     );
  144.     sad_data : array[0..63] of word =
  145.     ( 
  146.         $7FFF, $FFFE, $FFFF, $FFFF, $FFE0, $07FF, $FF80, $01FF, 
  147.           $FE00, $007F, $FC00, $003F, $F800, $001F, $F000, $000F, 
  148.           $F000, $000F, $E030, $0C07, $E078, $1E07, $C078, $1E03, 
  149.           $C078, $1E03, $C030, $0C03, $C000, $0003, $C000, $0003, 
  150.           $C000, $0003, $C000, $0003, $C003, $E003, $C00F, $F803, 
  151.           $C01C, $1C03, $E030, $0607, $E020, $0207, $F060, $030F, 
  152.           $F040, $010F, $F800, $001F, $FC00, $003F, $FE00, $007F, 
  153.           $FF80, $01FF, $FFE0, $07FF, $FFFF, $FFFF, $7FFF, $FFFE
  154.     );
  155.     
  156.     bomb_data : array[0..63] of word =
  157.     ( 
  158.         $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000, 
  159.           $0000, $C790, $0000, $F844, $003D, $F830, $01FF, $FCB2, 
  160.           $07FF, $FC00, $0FFF, $F848, $1F3F, $F800, $1E67, $F800, 
  161.           $3FCF, $FC00, $3CFF, $FC00, $3C9F, $FC00, $7F9F, $FE00, 
  162.           $7FFF, $FE00, $7FFF, $FE00, $7FFF, $FE00, $3FFF, $FC00, 
  163.           $3FFF, $FC00, $3FFF, $FC00, $1FFF, $F800, $1FFF, $F800, 
  164.           $0FFF, $F000, $07FF, $E000, $01FF, $8000, $003C, $0000, 
  165.           $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000
  166.     );
  167.     info_data : array[0..63] of word =
  168.     ( 
  169.         $3FFF, $FFFC, $7FFF, $FFFE, $FFFC, $3FFF, $FFF8, $1FFF, 
  170.           $FFF0, $0FFF, $FFF0, $0FFF, $FFF0, $0FFF, $FFF0, $0FFF, 
  171.           $FFF8, $1FFF, $FFFC, $3FFF, $FFFF, $FFFF, $FFFF, $FFFF, 
  172.           $FF80, $0FFF, $FF80, $0FFF, $FFF0, $0FFF, $FFF0, $0FFF, 
  173.           $FFF0, $0FFF, $FFF0, $0FFF, $FFF0, $0FFF, $FFF0, $0FFF, 
  174.           $FFF0, $0FFF, $FFF0, $0FFF, $FFF0, $0FFF, $FFF0, $0FFF, 
  175.           $FFF0, $0FFF, $FFF0, $0FFF, $FFF0, $0FFF, $FF80, $01FF, 
  176.           $FF80, $01FF, $FFFF, $FFFF, $7FFF, $FFFE, $3FFF, $FFFC
  177.     );
  178.     
  179.     inversnote_data : array[0..63] of word =
  180.     (     
  181.         $7FFF, $FFFE, $FFFF, $F8FF, $FFFF, $F07F, $FFFF, $F07F, 
  182.           $FFFF, $F07F, $FFFF, $F07F, $FFFF, $F07F, $FFFF, $F07F, 
  183.           $FFFF, $F07F, $FFFF, $F07F, $FFFF, $F07F, $FF86, $1063, 
  184.           $F104, $1043, $E104, $1043, $E104, $1083, $E955, $5083, 
  185.           $E104, $1083, $F28A, $2343, $FC71, $C807, $E000, $2007, 
  186.           $E000, $800F, $E000, $000F, $E002, $001F, $E000, $003F, 
  187.           $F002, $007F, $F800, $01FF, $FE00, $0BFF, $FEA0, $03FF, 
  188.           $FE00, $03FF, $FE00, $03FF, $FFFF, $FFFF, $7FFF, $FFFE
  189.     );
  190.     
  191.     inverswait_data : array[0..63] of word =
  192.     ( 
  193.         $7FFF, $FFFE, $FFC0, $03FF, $FF00, $00FF, $FE00, $007F, 
  194.           $FC00, $003F, $FC0F, $F03F, $FC1F, $F83F, $FC1F, $F83F, 
  195.           $FE3F, $F83F, $FFFF, $F07F, $FFFF, $E07F, $FFFF, $C0FF, 
  196.           $FFFF, $81FF, $FFFF, $03FF, $FFFE, $07FF, $FFFC, $0FFF, 
  197.           $FFF8, $1FFF, $FFF8, $3FFF, $FFF0, $7FFF, $FFF0, $7FFF, 
  198.           $FFF0, $7FFF, $FFF0, $7FFF, $FFF0, $7FFF, $FFF8, $FFFF, 
  199.           $FFFF, $FFFF, $FFFF, $FFFF, $FFFF, $FFFF, $FFF0, $7FFF, 
  200.           $FFE0, $3FFF, $FFE0, $3FFF, $FFF0, $7FFF, $7FFF, $FFFE
  201.     );
  202.     inversstop_data : array[0..63] of word =
  203.     ( 
  204.         $7FFF, $FFFE, $FFFE, $3FFF, $FF8C, $1FFF, $FF04, $18FF, 
  205.           $FF04, $107F, $E304, $107F, $C104, $107F, $C104, $107F, 
  206.           $C104, $107F, $C104, $107F, $C104, $107F, $C104, $107F, 
  207.           $C104, $1063, $C104, $1043, $C104, $1043, $C000, $0083, 
  208.           $C000, $0083, $C000, $0083, $C000, $0103, $C000, $0807, 
  209.           $C000, $2007, $C000, $800F, $C000, $000F, $C002, $001F, 
  210.           $E002, $003F, $F000, $007F, $F800, $00FF, $FC00, $01FF, 
  211.           $FC00, $01FF, $FC00, $01FF, $FC00, $01FF, $7FFF, $FFFE
  212.     );
  213.     
  214.     macnote    :    BITBLK =
  215.     (
  216.         bi_pdata    : @macnote_data;
  217.         bi_wb        : 4;
  218.         bi_hl        : 32;
  219.         bi_x        : 0;
  220.         bi_y        : 0;
  221.         bi_color    : $0001;
  222.     );
  223.     
  224.     macwait    :    BITBLK =
  225.     (
  226.         bi_pdata    : @macwait_data;
  227.         bi_wb        : 4;
  228.         bi_hl        : 32;
  229.         bi_x        : 0;
  230.         bi_y        : 0;
  231.         bi_color    : $0001;
  232.     );
  233.     
  234.     macstop    :    BITBLK =
  235.     (
  236.         bi_pdata    : @macstop_data;
  237.         bi_wb        : 4;
  238.         bi_hl        : 32;
  239.         bi_x        : 0;
  240.         bi_y        : 0;
  241.         bi_color    : $0001;
  242.     );
  243.     
  244.     calc    :    BITBLK =
  245.     (
  246.         bi_pdata    : @calc_data;
  247.         bi_wb        : 4;
  248.         bi_hl        : 32;
  249.         bi_x        : 0;
  250.         bi_y        : 0;
  251.         bi_color    : $0001;
  252.     );
  253.         
  254.     gem2note    :    BITBLK =
  255.     (
  256.         bi_pdata    : @gem2note_data;
  257.         bi_wb        : 4;
  258.         bi_hl        : 32;
  259.         bi_x        : 0;
  260.         bi_y        : 0;
  261.         bi_color    : $0001;
  262.     );        
  263.     
  264.     gem2wait    :    BITBLK =
  265.     (
  266.         bi_pdata    : @gem2wait_data;
  267.         bi_wb        : 4;
  268.         bi_hl        : 32;
  269.         bi_x        : 0;
  270.         bi_y        : 0;
  271.         bi_color    : $0001;
  272.     );        
  273.     
  274.     gem2stop    :    BITBLK =
  275.     (
  276.         bi_pdata    : @gem2stop_data;
  277.         bi_wb        : 4;
  278.         bi_hl        : 32;
  279.         bi_x        : 0;
  280.         bi_y        : 0;
  281.         bi_color    : $0001;
  282.     );    
  283.     
  284.     gem1note    :    BITBLK =
  285.     (
  286.         bi_pdata    : @gem1note_data;
  287.         bi_wb        : 4;
  288.         bi_hl        : 32;
  289.         bi_x        : 0;
  290.         bi_y        : 0;
  291.         bi_color    : $0001;
  292.     );        
  293.         
  294.     
  295.     gem1wait    :    BITBLK =
  296.     (
  297.         bi_pdata    : @gem1wait_data;
  298.         bi_wb        : 4;
  299.         bi_hl        : 32;
  300.         bi_x        : 0;
  301.         bi_y        : 0;
  302.         bi_color    : $0001;
  303.     );        
  304.     
  305.     gem1stop    :    BITBLK =
  306.     (
  307.         bi_pdata    : @gem1stop_data;
  308.         bi_wb        : 4;
  309.         bi_hl        : 32;
  310.         bi_x        : 0;
  311.         bi_y        : 0;
  312.         bi_color    : $0001;
  313.     );        
  314.     
  315.     happy    :    BITBLK =
  316.     (
  317.         bi_pdata    : @happy_data;
  318.         bi_wb        : 4;
  319.         bi_hl        : 32;
  320.         bi_x        : 0;
  321.         bi_y        : 0;
  322.         bi_color    : $0001;
  323.     );        
  324.     
  325.     sad    :    BITBLK =
  326.     (
  327.         bi_pdata    : @sad_data;
  328.         bi_wb        : 4;
  329.         bi_hl        : 32;
  330.         bi_x        : 0;
  331.         bi_y        : 0;
  332.         bi_color    : $0001;
  333.     );        
  334.     
  335.     bomb    :    BITBLK =
  336.     (
  337.         bi_pdata    : @bomb_data;
  338.         bi_wb        : 4;
  339.         bi_hl        : 32;
  340.         bi_x        : 0;
  341.         bi_y        : 0;
  342.         bi_color    : $0001;
  343.     );        
  344.     
  345.     info    :    BITBLK =
  346.     (
  347.         bi_pdata    : @info_data;
  348.         bi_wb        : 4;
  349.         bi_hl        : 32;
  350.         bi_x        : 0;
  351.         bi_y        : 0;
  352.         bi_color    : $0001;
  353.     );        
  354.     
  355.     inversnote    :    BITBLK =
  356.     (
  357.         bi_pdata    : @inversnote_data;
  358.         bi_wb        : 4;
  359.         bi_hl        : 32;
  360.         bi_x        : 0;
  361.         bi_y        : 0;
  362.         bi_color    : $0001;
  363.     );        
  364.      
  365.     inverswait    :    BITBLK =
  366.     (
  367.         bi_pdata    : @inverswait_data;
  368.         bi_wb        : 4;
  369.         bi_hl        : 32;
  370.         bi_x        : 0;
  371.         bi_y        : 0;
  372.         bi_color    : $0001;
  373.     );         
  374.     
  375.     inversstop    :    BITBLK =
  376.     (
  377.         bi_pdata    : @inversstop_data;
  378.         bi_wb        : 4;
  379.         bi_hl        : 32;
  380.         bi_x        : 0;
  381.         bi_y        : 0;
  382.         bi_color    : $0001;
  383.     );        
  384.     
  385.     
  386. function do_alert(bitblock: BITBLKPtr;    otext, obuttons: pchar;
  387.                         bdefault, bundo: integer): integer;
  388.  
  389.     
  390.