		 <CopperFeet>   C࠭: 1	(1-480)    : 4strateg.a80     ६ : 21:41:36    23/11/1999 

;--------------------------- .        LD HL,(pntX)          . pnxOK  ;// প   .       { 鸞 ->A          .        DEFB  3,5,4,5,7,5,5,9
      {---------------       .        LD DE,#FFFF ;/ .       {-                  .        LD A,(pntUNI)         .       { ;騩 ஡(0)-
;     ࠦ᪨ ⥫ -  .       {                   .        LD A,120/8 ;। .        OR A                  .       {쭮               
      {             .        EXX                   .       { ६ -        .        JR Z,pnxn_            .        DEFB  3,5,5,7,9,3,5,7
;--------------------------- .        LD B,32               .        LD (pntDEL),A         .        CP #FF                .       {                     
      {---------------       .        LD DE,8               .        ;//ந    .        RET NZ ;த  .        DEFB  3,7,4,9,3,5,3,1
;*L+                         .        ;                     .        LD A,D                .       {                   .       {0                    
pntINI ;樠 ࠬ .        LD A,(pntATATYP) ; .        CALL B_IX             .        ;                     .        DEFB  4,5,3,5,9,3,9,1
      {஢ 窨 ᡮ      .       { ᯮᮡ ᪠  .        CALL HL_IX0           . pnxn_  CALL RND  ; ࠧ .       {0                    
       LD A,#FF              .       {                   .        CALL stayON           .       {ࠧ 롮    .                             
       LD (pntNUM),A         .        OR A                  .        LD A,(pntMAN)         .        AND %10101            . pKUNNXT;⠡ ⭮⥩
       LD A,(lev1ST) ;  .        JR NZ,pnx10           .        EX AF,AF              .        JR NZ,pnxn0           .       {   
      {প                .        LD A,(isDIVMAP)       .        LD A,1                .        CALL RND              .       { (3,4,5,7,9,10) - 3
       LD (pntDEL),A         .        OR A                  .        CALL NEWHER           .        LD (pnxNUM),A         .       {2                  
       ;।  窨 ᡮ .        JR Z,pnZ00            .        RET NZ ;     .        ;                     .        DEFB  15,19,17,15,21,
      {                     .        ;                     . pnxOK1 LD (IX+prof),2 ; . pnxn0  ;᫥騩  ⠡  .       {16,18,15 ; 
       LD HL,(KBUILD) ;. . pnx10  ;         .       { ⠪               .        LD HL,pnxNUM          .       {(18) - ⮫쪮  ᠭ
      {                .        EXX                   .        LD HL,(pntX)          .        INC (HL)              .       {                    
pniP0  LD A,L                .        LD A,(IX+0)           .        CALL IXt_HL           . pnxn1  ;롮ઠ ⨯         .        DEFB  21,15,16,18,19,
       OR A                  .        OR A                  .        JP IX_amov            .        LD A,(MASTER)         .       {17,17,15             
       JR Z,pniP             .        JR Z,pnx4             . pnxRCLLCALL pnxNIL ; 㦥 .        OR A                  .        DEFB  19,16,15,21,22,
pniPX  LD (pntX),HL          .        LD A,(IX+2)           .       {                  .        LD HL,pHUMNXT         .       {21,15,17             
       RET                   .        CP C                  .        JR pnxOK1             .        JR NZ,pnxn2           .        DEFB  16,18,19,15,17,
pniP   LD HL,(KUNGE) ;.  .        JR NZ,pnx4            .                              .        LD HL,pKUNNXT         .       {21,15,22             
      { / error     .        PUSH BC               . pnxBLT ;⨯ ந饣  . pnxn2  LD A,(pnxNUM)         .                             
       JR pniP0              .        CALL DIST2 ;᪠  .       { (0-23)           .        AND #1F               .                             
                             .       {襥               .        DEFB 0,0,0, 2,2,2,0,  .        CALL BA               .                             
                             .        POP BC                .       {2,2, 2,3,3            .        LD C,A                . pntNEW ;------------- 
pntACT ;-----ࠡ⪠ 窨 .        CP E                  .        DEFB 8,8,8, 10,10,10, .        ;室    .       { ᡮ           
      { ᡮ (1 ࠧ  8 ⨪ .        JR NC,pnx4            .       {10, 10,10, 11,11,11   .       {?                   .        ;//롮  
      {)                     .        LD E,A                .                              .        LD A,(pntATATYP)      .       { ( ⠪)    
       LD A,(TIC)            .        LD D,B                .                              .        CP 1                  .        LD B,17              
       AND %111              . pnx4   INC B                 .                              .        JR Z,pnxn3            . pnw0   CALL RND             
       CP %101               .        EXX                   . pntATA ;--------᫠  .        JR NC,pnxn4           .        AND #1F              
       RET NZ ; ࠧ  8  .        ADD IX,DE             .       {  ⠪             .        ;  -   .        ADD A,#28            
      { (~ ᥪ㭤)       .        DJNZ pnx10            .        CALL getTARXY         .       {஬       .        CALL B_IX            
       CALL isENABLEACT      .        JR pnx11              .        RET Z                 .        LD A,C                .        LD A,(IX+x)          
       LD HL,pntDEL          .        ;                     .        ; ᥬ   .        CP 18                 .        OR A                 
       LD A,(HL)             . pnZ00  CALL getTARXY         .       {⠪  HL      .        JR Z,pnxn0            .        JR NZ,pnw1           
       DEC (HL)              .        RET Z                 .        CALL loop_K           .        JR pnxn10             .        DJNZ pnw0            
       OR A                  . pnZ10  ;ᯥ樠 :  . pna0   LD A,(IX+x)           . pnxn4  ;  - ਭ㤨 .        JR pnwX ;   
       RET NZ ;প   .       { ⠪  ࠧ .        OR A                  .       {쭮 ⨯ 10/22( . pnw1   ;  
      {祭               .       {񭭮          .        JR Z,pna1             .       { 21)                  .       { (+7..-8)           
       LD HL,pntNUM          .        EXX                   .        LD A,(IX+prof)        .        LD A,(MASTER)         .        CALL HL_IX0          
       LD A,(HL)             .        LD A,(IX+0)           .        CP 2                  .        OR A                  .        EX DE,HL             
       DEC (HL)              .        OR A                  .        JR NZ,pna1            .        LD C,10               .        LD B,23              
       OR A                  .        JR Z,pnZ4             .        LD (IX+prof),3 ; .        JR NZ,pnxn10          . pnw2   LD C,E               
       JP Z,pntATA  ;᫠ .        LD A,(IX+2)           .       {->⠪騩          .        LD C,22               .        CALL RNDshf7         
      {  ⠪              .        CP C                  .        ;                     .        CALL RND              .        LD L,A               
       CP 128                .        JR NZ,pnZ4            .        LD A,(IX+typ) ;襡 .        CP 37                 .        LD C,D               
       JP NC,pntNEW  ;  .        PUSH BC               .       {?                  .        JR NC,pnxn10          .        CALL RNDshf7         
      {ᡮ                  .        CALL DIST2 ;᪠  .        CP 7                  .        DEC C                 .        LD H,A               
       ;                     .       {襥               .        JR Z,pna50            .        JR pnxn10             .        CALL cmpPART ; ⮩ 
       ;                     .        LD B,A                .        CP 19                 . pnxn3  ;ᠭ - carry=1  .       { ,   
pntNXT ;--------ந  .        CALL cmpPART ;ࠢ  .        JR NZ,pna60           .       { avia=1            .       {?                   
      {饣 童  .       { pntX                 . pna50  LD C,12 ;-⠪    .        LD A,C                .        JR NZ,pnw4           
      {                     .        JR Z,pnZ5             .        CALL pnMAGI           .        LD HL,AT_TYP          .        PUSH HL              
       CALL pnxNXT           .        SET 7,B ;㢥  .        LD (IX+prof),C        .        CALL BA               .        CALL GMAP2 ;᢮
       LD (pntMAN),A         .       {  ࠧ  .        ;                     .        AND carry+avia        .       { ?              
       LD C,A                .       {                     . pna60  LD A,(IX+phase) ; .        JR Z,pnxn0            .        LD A,(HL)            
       ;                     . pnZ5   LD A,B                .       {.            .        ;                     .        POP HL               
       ;᫨ 襡/६ .        POP BC                .        OR A                  . pnxn10 ;  -?   .        OR A                 
      {⭨  -  ந .        CP E                  .        JR NZ,pna0a           .        LD A,C                .        JR Z,pnw3            
      { ,  ⮧ .        JR NC,pnZ4            .        CALL RND              .        CP 12                 . pnw4   DJNZ pnw2            
      {                      .        EX AF,AF              .        AND %00000111         .        JR C,pnxn11           .        JR pnwX ;  
       OR A                  .        EXX                   .        OR  %10000000         .        SUB 12                .       {             
       JR Z,pnxW             .        CALL cmpPART ;ࠢ  .        LD (IX+phase),A       . pnxn11 SUB 2                 . pnw3   LD (pntX),HL ; 
       CP 7                  .       { pntTAR               . pna0a  CALL IX_stop ;楫  .        JR C,pnxnEx           .       { ᡮ             
       JR Z,pnxW             .        EXX                   .       { intel           .        LD HL,kHERO           . pnwX   ; ᡮ  ஬ 
       CP 19                 .        JR NZ,pnZ4 ;/䨭 . pna1   ADD IX,DE             .        CALL BA               .       {                 
       JR NZ,pnx2            .       {      .        DJNZ pna0             .        JR Z,pnxn0 ; ந .        ;                    
pnxW   CALL loop_K           .       {           .        ;                     .       {                .        ;// ᫮ 
pnxW0  LD A,(IX+x)           .        EX AF,AF              .        ;/ del  ᫥  .        ;                     .       {                   
       OR A                  .        ;諨 㦭   .       { = levDEL+RND(32)  . pnxnEx LD HL,pntUNI          .        LD A,(levMAX)        
       JR Z,pnxW1            .        LD E,A                .        CALL RND              .        LD A,(HL)             .        CP 3                 
       LD A,(IX+typ) ;?  .        LD D,B                .        AND %11111            .        INC A                 .        JR C,pnwM0           
       CP C                  . pnZ4   INC B                 .        LD HL,levDEL          .        LD A,C ;N->A     .        LD C,A               
       JR NZ,pnxW1           .        EXX                   .        ADD A,(HL)            .        RET NZ                .        SUB 2                
       LD A,(IX+prof) ;  .        ADD IX,DE             .        LD (pntDEL),A         .        ; 7,19,0 -   .        LD B,A               
      {?                    .        DJNZ pnZ10            .        RET                   .       {   த. . pnwM1  CALL RND             
       CP 12                 .        ;                     .        ;                     .       {拉                 .        RLCA                 
       JP NC,pnxRCLL ;諨  . pnx11  EXX                   . pnMAGI ;: C= ஢  .        OR A                  .        JR C,pnwM3           
      {,    .        LD A,D                .       { : C+=0..2      .        JR Z,pnxn0            .        DEC C                
      {                      .        CP #FF                .        LD A,R                .        CP 7                  .        DJNZ pnwM1           
pnxW1  ADD IX,DE             .        JR NZ,pnxOK           .        RRCA                  .        JR Z,pnxn0            . pnwM3  LD A,C               
       DJNZ pnxW0            .        ;//    .        RET C ;+0 /50%        .        CP 19                 . pnwM0  LD (pntNUM),A        
       ;                     .       {:(                    .        INC C                 .        JR Z,pnxn0            .        ;                    
pnx2   ;//।    .        XOR A                 .        RRCA                  .        LD (HL),C ;࠭  .        ;//롮 楫 ⠪  
      {-                  .        LD (pntUNI),A         .        RET C;+1 /25%         .       {  த.鸞 .        CALL pntSELNEW       
       LD HL,pnxBLT          .        INC A                 .        INC C                 .       {                      .        ;                    
       CALL BA               .        LD (pntATATYP),A  ;  .        RET ;+2 /25%          .        RET                   .        ;// ⨯ ⠪ 
       LD C,A                .       {㤠: ᬥ ⨯  .                              .                              .        LD A,(isDIVMAP)      
       ;                     .       {鸞                 .                              . pHUMNXT;⠡ ⭮⥩ .        OR A                 
       LD B,#28 ;  . pnxNIL LD A,3                .                              .       {    .        JR Z,pnwAR ; 
      {஢                .        LD (pntDEL),A         .                              .       { (3,4,5,7,9,10) - 3 .       {  -  ⨯ 
       LD IX,KBUILD          .        RET                   . pnxNXT ;롮 ⨯ ᫥ 童 .       {2                   .       {⠪         
		 <CopperFeet>   C࠭: 2	(481-960)    : 4strateg.a80     ६ : 21:41:36    23/11/1999 

       ;                     .        BIT 7,(IY+y) ;  .                              .                              .                             
       LD A,(pntTAR)         .       {                     .                              .                              .                             
       BIT 7,A               .        JR NZ,stt1a           .                              .                              .                             
       JR NZ,pnwAR ;⠪  .        isAVIA$ ; 楫 -  .                              .                              .                             
      {  - .  .       { ᠬ  ਮ .                              .                              .                             
      {                     .       {⮬                 .                              .                              .                             
       CALL N_IX             .        JR Z,sttx             .                              .                              .                             
       isAVIA$               .        LD E,C                .                              .                              .                             
       LD A,2 ;⠪   . stt1a  LD A,C                .                              .                              .                             
      { - 稭   (2 .        ADD A,11              .                              .                              .                             
      {)                     .        DJNZ stt1             .                              .                              .                             
       JR NZ,pnwA0           .        LD C,E ;楫   .                              .                              .                             
       CALL RND              .       { (  ) .                              .                              .                             
       AND 1                 .       {                      .                              .                              .                             
       INC A ;⠪    .        JR sttx               .                              .                              .                             
      {- (2)/ᠭ(1) - . sttNB  SET 7,C               .                              .                              .                             
      { 50%/50%              . sttx   LD A,C                .                              .                              .                             
       JR pnwA0              .        LD (pntTAR),A         .                              .                              .                             
       ;                     .        RET                   .                              .                              .                             
pnwAR  ;⨯ ⠪ (0- .                              .                              .                              .                             
      {-50%, 1-ᠭ-25%,  .                              .                              .                              .                             
      {2--25%)        . isENABLEACT;ࠧ襭  .                              .                              .                             
       CALL RND              .       { ⠪?           .                              .                              .                             
       AND 3                 .        LD HL,enableAT        .                              .                              .                             
       JR Z,pnwA0            .        LD A,(HL)             .                              .                              .                             
       DEC A                 .        OR A                  .                              .                              .                             
pnwA0  LD (pntATATYP),A      .        RET Z                 .                              .                              .                             
       CP 1                  .        ;                     .                              .                              .                             
       JR C,pnwU0 ;  .        PUSH HL               .                              .                              .                             
      { - 祣     .        LD HL,HBUILD          .                              .                              .                             
       JR Z,pnwA1            .        LD DE,8               .                              .                              .                             
       ;  -   .        LD B,#20              .                              .                              .                             
      {⥫               . isea0  LD A,(HL)             .                              .                              .                             
       LD A,(kHERO+8)        .        OR A                  .                              .                              .                             
       JR pnwA2              .        JR NZ,iseaY           .                              .                              .                             
pnwA1  ; ᠭ⭮ -  .        ADD HL,DE             .                              .                              .                             
      { ࠭ᯮ           .        DJNZ isea0            .                              .                              .                             
       LD A,(kHERO+9)        .        POP HL                .                              .                              .                             
pnwA2  OR A                  .        POP DE ;!!            .                              .                              .                             
       JR Z,pnwAR ;  .        RET; - 饭:   .                              .                              .                             
      { ⠪     .       {      .                              .                              .                             
       ;                     . iseaY  POP HL                .                              .                              .                             
       ;// ⨯ 鸞 .        LD (HL),0             .                              .                              .                             
      { (0-ࠧத-80%,  .        RET; - ࠧ襭      .                              .                              .                             
      {#FF-த-20%)   .                              .                              .                              .                             
pnwU0  CALL RND              .                              .                              .                              .                             
       CP 205                .                              .                              .                              .                             
       LD A,0                .                              .                              .                              .                             
       JR C,pnwU1            .                              .                              .                              .                             
       DEC A ;#ff            .                              .                              .                              .                             
pnwU1  LD (pntUNI),A         . ;--------------------------- .                              .                              .                             
       ;//ࠧࠧ  .       {-----------------     .                              .                              .                             
      { 冷            . POPdfndr;   .                              .                              .                             
       CALL RND              .       { 襣   .                              .                              .                             
       LD (pnxNUM),A         .       {⥪                 .                              .                              .                             
       RET                   .        ;: E-⨯, HL- .                              .                              .                             
                             .       { NC/C-⥪ /  .                              .                              .                             
                             .       {                .                              .                              .                             
                             .        LD HL,levSTACK+1      .                              .                              .                             
pntSELTAR;--------롮/ .        LD A,(HL)             .                              .                              .                             
      { 饩 楫      .        AND A                 .                              .                              .                             
       CALL getTARXY         .        RET Z ;⥪  (nc) .                              .                              .                             
       RET NZ ;楫   .       {                      .                              .                              .                             
      {                    .        ;                     .                              .                              .                             
       ;                     .        DEC (HL)              .                              .                              .                             
pntSELNEW;---- 楫       .        LD B,A                .                              .                              .                             
       ;  祫 .        ADD A,B               .                              .                              .                             
      { (ॡ )      .        ADD A,B;3            .                              .                              .                             
       LD B,32               .        LD HL,DfSTACK         .                              .                              .                             
       CALL RND              .        CALL BA               .                              .                              .                             
       AND #1F               .        LD E,(HL)             .                              .                              .                             
       ADD A,8               .        INC HL                .                              .                              .                             
stt0   LD C,A                .        LD A,(HL)             .                              .                              .                             
       CALL B_IX             .        INC HL                .                              .                              .                             
       OR A                  .        LD H,(HL)             .                              .                              .                             
       JR NZ,sttNB           .        LD L,A                .                              .                              .                             
       LD A,C                .        SCF                   .                              .                              .                             
       ADD A,7               .        RET C; -(c)         .                              .                              .                             
       CP #28                .                              .                              .                              .                             
       JR C,stt0a            .                              .                              .                              .                             
       SUB #20               .                              .                              .                              .                             
stt0a  DJNZ stt0             .                              .                              .                              .                             
       ;  祫 .                              .                              .                              .                             
      {                      .                              .                              .                              .                             
       LD B,_NHER ;=᫮  .                              .                              .                              .                             
      {⮪/=#            .                              .                              .                              .                             
       CALL RND              .                              .                              .                              .                             
       LD E,#FF              .                              .                              .                              .                             
stt1   CP _NHER              .                              .                              .                              .                             
       JR C,stt1b            .                              .                              .                              .                             
       SUB _NHER             .                              .                              .                              .                             
       JR stt1               .                              .                              .                              .                             
stt1b  LD C,A                .                              .                              .                              .                             
       CALL N_IX             .                              .                              .                              .                             
       OR A                  .                              .                              .                              .                             
       JR Z,stt1a            .                              .                              .                              .                             
