Guest User

Untitled

a guest
Apr 5th, 2013
107
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; 3e7c1
  2.     ld a, [$c711]
  3.     and a
  4.     ret nz
  5.  
  6.     ld a, [InLinkBattle]
  7.     and a
  8.     jr z, .asm_3e817
  9.  
  10.     call $6dd1
  11.  
  12.     call $309d
  13.  
  14.     ld a, [$d0ec]
  15.     and a
  16.     call z, $68e4
  17.  
  18.     call $30b4
  19.  
  20.     ld a, [$d430]
  21.     cp $e
  22.     jp z, $68bd
  23.  
  24.     cp $d
  25.     jp z, $682c
  26.  
  27.     cp $4
  28.     jp nc, $68c1
  29.  
  30.     ld [CurEnemyMoveNum], a
  31.     ld c, a
  32.     ld a, [EnemySubStatus1]
  33.     bit 6, a
  34.     jp nz, $6882
  35.  
  36.     ld a, [EnemySubStatus3]
  37.     and $13
  38.     jp nz, $6882
  39.  
  40.     ld hl, EnemySubStatus5
  41.     bit 4, [hl]
  42.     ld a, [LastEnemyMove]
  43.     jp nz, $687f
  44.  
  45.     ld hl, EnemyMonMove1
  46.     ld b, $0
  47.     add hl, bc
  48.     ld a, [hl]
  49.     jp $687f
  50.  
  51. .asm_3e817
  52.     ld hl, EnemySubStatus5
  53.     bit 4, [hl]
  54.     jr z, .asm_3e824
  55.  
  56.     ld a, [LastEnemyMove]
  57.     jp $687f
  58.  
  59. .asm_3e824
  60.     call $68d1
  61.  
  62.     jp nz, $68c1
  63.  
  64.     jr .asm_3e830
  65.  
  66.     ld a, $ff
  67.     jr .asm_3e87f
  68.  
  69. .asm_3e830
  70.     ld hl, EnemyMonMove1
  71.     ld de, EnemyMonPPMove1
  72.     ld b, $4
  73. .asm_3e838
  74.     ld a, [hl]
  75.     and a
  76.     jp z, $68bd
  77.  
  78.     ld a, [EnemyEncoredMove]
  79.     cp [hl]
  80.     jr z, .asm_3e848
  81.  
  82.     ld a, [de]
  83.     and $3f
  84.     jr nz, .asm_3e84f
  85.  
  86. .asm_3e848
  87.     inc hl
  88.     inc de
  89.     dec b
  90.     jr nz, .asm_3e838
  91.  
  92.     jr .asm_3e8bd
  93.  
  94. .asm_3e84f
  95.     ld a, [IsInBattle]
  96.     dec a
  97.     jr nz, .asm_3e882
  98.  
  99. .asm_3e855
  100.     ld hl, EnemyMonMove1
  101.     call FarBattleRNG
  102.  
  103.     and $3
  104.     ld c, a
  105.     ld b, $0
  106.     add hl, bc
  107.     ld a, [EnemyEncoreCount]
  108.     swap a
  109.     and $f
  110.     dec a
  111.     cp c
  112.     jr z, .asm_3e855
  113.  
  114.     ld a, [hl]
  115.     and a
  116.     jr z, .asm_3e855
  117.  
  118.     ld hl, EnemyMonPPMove1
  119.     add hl, bc
  120.     ld b, a
  121.     ld a, [hl]
  122.     and $3f
  123.     jr z, .asm_3e855
  124.  
  125.     ld a, c
  126.     ld [CurEnemyMoveNum], a
  127.     ld a, b
  128. .asm_3e87f
  129.     ld [CurEnemyMove], a
  130. .asm_3e882
  131.     call SetEnemyTurn
  132.  
  133.     ld hl, $5e40
  134.     ld a, $d
  135.     rst $8
  136.  
  137.     call $68d1
  138.  
  139.     jr nz, .asm_3e894
  140.  
  141.     xor a
  142.     ld [$c733], a
  143. .asm_3e894
  144.     ld a, [EnemyMoveEffect]
  145.     cp $77
  146.     jr z, .asm_3e89f
  147.  
  148.     xor a
  149.     ld [$c680], a
  150. .asm_3e89f
  151.     ld a, [EnemyMoveEffect]
  152.     cp $51
  153.     jr z, .asm_3e8af
  154.  
  155.     ld hl, EnemySubStatus4
  156.     res 6, [hl]
  157.     xor a
  158.     ld [$c72c], a
  159. .asm_3e8af
  160.     ld a, [EnemyMoveEffect]
  161.     cp $6f
  162.     ret z
  163.  
  164.     cp $74
  165.     ret z
  166.  
  167.     xor a
  168.     ld [PlayerDamageTaken], a
  169.     ret
  170.  
  171. .asm_3e8bd
  172.     ld a, $a5
  173.     jr .asm_3e87f
  174.  
  175.     xor a
  176.     ld [$c680], a
  177.     ld [PlayerDamageTaken], a
  178.     ld [$c72c], a
  179.     ld hl, EnemySubStatus4
  180.     res 6, [hl]
  181.     ret
  182.  
  183. ; 3e8d1
RAW Paste Data