API tools faq
paste
Guest User

Untitled

a guest
Dec 11th, 2018
107
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Z80 Assembler 6.60 KB | None | 0 0
raw download clone embed print report
  1. PostBattle: ; 3ee3b
  2.     ld a, [InLinkBattle]
  3.     and a
  4.     ret nz
  5.     ld a, [$cfc0]
  6.     bit 0, a
  7.     ret nz
  8.     call Function3f0d4
  9.     xor a
  10.     ld [$d109], a
  11.     ld bc, PartyMons
  12. .asm_3ee50
  13.     ld hl, $0022
  14.     add hl, bc ; PartyMon1CurHP
  15.     ld a, [hli]
  16.     or [hl]
  17.     jp z, .asm_3f0b9
  18.     push bc
  19.     ld hl, $c664
  20.     ld a, [$d109]
  21.     ld c, a
  22.     ld b, $2
  23.     ld d, $0
  24.     ld a, $3
  25.     call $2d83
  26.     ld a, c
  27.     and a
  28.     pop bc
  29.     jp z, .asm_3f0b9
  30.     ld hl, $000c
  31.     add hl, bc
  32.     ld d, h
  33.     ld e, l
  34.     ld hl, $d225
  35.     push bc
  36.     ld c, $5
  37. .asm_3ee7c
  38.     inc hl
  39.     ld a, [de]
  40.     add [hl]
  41.     ld [de], a
  42.     jr nc, .asm_3ee89 ; 0x3ee80 $7
  43.     dec de
  44.     ld a, [de]
  45.     inc a
  46.     jr z, .asm_3eea4 ; 0x3ee85 $1d
  47.     ld [de], a
  48.     inc de
  49. .asm_3ee89
  50.     push hl
  51.     push bc
  52.     ld a, $1c
  53.     call $3917
  54.     ld a, [hl]
  55.     and a
  56.     pop bc
  57.     pop hl
  58.     jr z, .asm_3eea9 ; 0x3ee94 $13
  59.     ld a, [de]
  60.     add [hl]
  61.     ld [de], a
  62.     jr nc, .asm_3eea9 ; 0x3ee99 $e
  63.     dec de
  64.     ld a, [de]
  65.     inc a
  66.     jr z, .asm_3eea4 ; 0x3ee9e $4
  67.     ld [de], a
  68.     inc de
  69.     jr .asm_3eea9 ; 0x3eea2 $5
  70. .asm_3eea4
  71.     ld a, $ff
  72.     ld [de], a
  73.     inc de
  74.     ld [de], a
  75. .asm_3eea9
  76.     inc de
  77.     inc de
  78.     dec c
  79.     jr nz, .asm_3ee7c ; 0x3eeac $ce
  80.     xor a
  81.     ld [$ff00+$b4], a
  82.     ld [$ff00+$b5], a
  83.     ld a, [$d22c]
  84.     ld [$ff00+$b6], a
  85.     ld a, [EnemyMonLevel]
  86.     ld [$ff00+$b7], a
  87.     call $3119
  88.     ld a, $7
  89.     ld [$ff00+$b7], a
  90.     ld b, $4
  91.     call $3124
  92.     pop bc
  93.     ld hl, $0006
  94.     add hl, bc
  95.     ld a, [PlayerID]
  96.     cp [hl]
  97.     jr nz, .asm_3eedd ; 0x3eed2 $9
  98.     inc hl
  99.     ld a, [$d47c] ; PlayerIDLo
  100.     cp [hl]
  101.     ld a, $0
  102.     jr z, .asm_3eee2 ; 0x3eedb $5
  103. .asm_3eedd
  104.     call $7106
  105.     ld a, $1
  106. .asm_3eee2
  107.     ld [$d088], a
  108.     ld a, [$d22d]
  109.     dec a
  110.     call nz, $7106
  111.     push bc
  112.     ld a, $1
  113.     call $3917
  114.     ld a, [hl]
  115.     cp $7e
  116.     call z, $7106
  117.     ld a, [$ff00+$b6]
  118.     ld [$d087], a
  119.     ld a, [$ff00+$b5]
  120.     ld [$d086], a
  121.     ld a, [$d109]
  122.     ld hl, PartyMon1Nickname
  123.     call $38a2
  124.     ld hl, $711b
  125.     call $3ac3
  126.     ld a, [$d087]
  127.     ld [$ff00+$b6], a
  128.     ld a, [$d086]
  129.     ld [$ff00+$b5], a
  130.     pop bc
  131.     call $7136
  132.     push bc
  133.     call $309d
  134.     pop bc
  135.     ld hl, $000a
  136.     add hl, bc
  137.     ld d, [hl]
  138.     ld a, [$ff00+$b6]
  139.     add d
  140.     ld [hld], a
  141.     ld d, [hl]
  142.     ld a, [$ff00+$b5]
  143.     adc d
  144.     ld [hl], a
  145.     jr nc, .asm_3ef3d ; 0x3ef32 $9
  146.     dec hl
  147.     inc [hl]
  148.     jr nz, .asm_3ef3d ; 0x3ef36 $5
  149.     ld a, $ff
  150.     ld [hli], a
  151.     ld [hli], a
  152.     ld [hl], a
  153. .asm_3ef3d
  154.     ld a, [$d109]
  155.     ld e, a
  156.     ld d, $0
  157.     ld hl, PartySpecies
  158.     add hl, de
  159.     ld a, [hl]
  160.     ld [$cf60], a
  161.     call $3856
  162.     push bc
  163.     ld d, $64
  164.     ld hl, $4e47
  165.     ld a, $14
  166.     rst $8
  167.     pop bc
  168.     ld hl, $000a
  169.     add hl, bc
  170.     push bc
  171.     ld a, [$ff00+$b4]
  172.     ld b, a
  173.     ld a, [$ff00+$b5]
  174.     ld c, a
  175.     ld a, [$ff00+$b6]
  176.     ld d, a
  177.     ld a, [hld]
  178.     sub d
  179.     ld a, [hld]
  180.     sbc c
  181.     ld a, [hl]
  182.     sbc b
  183.     jr c, .asm_3ef74 ; 0x3ef6c $6
  184.     ld a, b
  185.     ld [hli], a
  186.     ld a, c
  187.     ld [hli], a
  188.     ld a, d
  189.     ld [hld], a
  190. .asm_3ef74
  191.     xor a
  192.     ld [$cf5f], a
  193.     ld a, $1f
  194.     call $2d83
  195.     ld hl, $4e1b
  196.     ld a, $14
  197.     rst $8
  198.     pop bc
  199.     ld hl, $001f
  200.     add hl, bc
  201.     ld a, [hl] ; PartyMonXLevel
  202.     cp $64
  203.     jp nc, .asm_3f0b9
  204.     cp d
  205.     jp z, .asm_3f0b9
  206.     ld [$c719], a
  207.     ld a, [$d143]
  208.     push af
  209.     ld a, d
  210.     ld [$d143], a
  211.     ld [hl], a
  212.     ld hl, $0000
  213.     add hl, bc
  214.     ld a, [hl]
  215.     ld [$cf60], a
  216.     ld [$d265], a
  217.     call $3856
  218.     ld hl, $0025
  219.     add hl, bc
  220.     ld a, [hld]
  221.     ld e, a
  222.     ld d, [hl]
  223.     push de
  224.     ld hl, $0024
  225.     add hl, bc
  226.     ld d, h
  227.     ld e, l
  228.     ld hl, $000a
  229.     add hl, bc
  230.     push bc
  231.     ld b, $1
  232.     ld a, $c
  233.     call $2d83
  234.     pop bc
  235.     pop de
  236.     ld hl, $0025
  237.     add hl, bc
  238.     ld a, [hld]
  239.     sub e
  240.     ld e, a
  241.     ld a, [hl]
  242.     sbc d
  243.     ld d, a
  244.     dec hl
  245.     ld a, [hl]
  246.     add e
  247.     ld [hld], a
  248.     ld a, [hl]
  249.     adc d
  250.     ld [hl], a
  251.     ld a, [$d0d4]
  252.     ld d, a
  253.     ld a, [$d109]
  254.     cp d
  255.     jr nz, .asm_3f035 ; 0x3efe1 $52
  256.     ld de, BattleMonHP
  257.     ld a, [hli]
  258.     ld [de], a
  259.     inc de
  260.     ld a, [hli]
  261.     ld [de], a
  262.     ld de, BattleMonMaxHP
  263.     push bc
  264.     ld bc, $000c
  265.     call $3026
  266.     pop bc
  267.     ld hl, $001f
  268.     add hl, bc
  269.     ld a, [hl]
  270.     ld [BattleMonLevel], a
  271.     ld a, [$c66c]
  272.     bit 3, a
  273.     jr nz, .asm_3f012 ; 0x3f003 $d
  274.     ld hl, $0026
  275.     add hl, bc
  276.     ld de, $c6b6
  277.     ld bc, $000a
  278.     call $3026
  279. .asm_3f012
  280.     xor a
  281.     ld [$d265], a
  282.     call $6cab
  283.     ld hl, $6c2c
  284.     ld a, $f
  285.     rst $8
  286.     ld hl, $6d45
  287.     ld a, $f
  288.     rst $8
  289.     ld hl, $5f48
  290.     ld a, $f
  291.     rst $8
  292.     call $6dd1
  293.     call $309d
  294.     ld a, $1
  295.     ld [$ff00+$d4], a
  296. .asm_3f035
  297.     ld a, $9
  298.     ld hl, $709e
  299.     rst $8
  300.     ld a, [$d0d4]
  301.     ld b, a
  302.     ld a, [$d109]
  303.     cp b
  304.     jr z, .asm_3f057 ; 0x3f043 $12
  305.     ld de, $00b6
  306.     call $3c23
  307.     call $3c55
  308.     ld hl, $4c9c
  309.     call $3ad5
  310.     call $309d
  311. .asm_3f057
  312.     xor a
  313.     ld [$cf5f], a
  314.     ld a, $1f
  315.     call $2d83
  316.     ld hl, $c4a9
  317.     ld b, $a
  318.     ld c, $9
  319.     call $0fe8
  320.     ld hl, $c4bf
  321.     ld bc, $0004
  322.     ld a, $28
  323.     call $2d83
  324.     ld c, $1e
  325.     call $0468
  326.     call $0a80
  327.     call $30b4
  328.     xor a
  329.     ld [$cf5f], a
  330.     ld a, [$cf60]
  331.     ld [$d265], a
  332.     ld a, [$d143]
  333.     push af
  334.     ld c, a
  335.     ld a, [$c719]
  336.     ld b, a
  337. .asm_3f093
  338.     inc b
  339.     ld a, b
  340.     ld [$d143], a
  341.     push bc
  342.     ld a, $1a
  343.     call $2d83
  344.     pop bc
  345.     ld a, b
  346.     cp c
  347.     jr nz, .asm_3f093 ; 0x3f0a1 $f0
  348.     pop af
  349.     ld [$d143], a
  350.     ld hl, $d1e8
  351.     ld a, [$d109]
  352.     ld c, a
  353.     ld b, $1
  354.     ld a, $3
  355.     call $2d83
  356.     pop af
  357.     ld [$d143], a
  358. .asm_3f0b9
  359.     ld a, [PartyCount]
  360.     ld b, a
  361.     ld a, [$d109]
  362.     inc a
  363.     cp b
  364.     jr z, .asm_3f0d1 ; 0x3f0c2 $d
  365.     ld [$d109], a
  366.     ld a, $0
  367.     call $3917
  368.     ld b, h
  369.     ld c, l
  370.     jp .asm_3ee50
  371. .asm_3f0d1
  372.     jp $557a
  373. ; 0x3f0d4
  374.  
  375. Function3f0d4: ; 3f0d4
  376.     ld a, [$c664]
  377.     ld b, a
  378.     ld c, $6
  379.     ld d, $0
  380. .asm_3f0dc
  381.     xor a
  382.     srl b
  383.     adc d
  384.     ld d, a
  385.     dec c
  386.     jr nz, .asm_3f0dc ; 0x3f0e2 $f8
  387.     cp $2
  388.     ret c
  389.     ld [$d265], a
  390.     ld hl, $d226
  391.     ld c, $7
  392. .asm_3f0ef
  393.     xor a
  394.     ld [$ff00+$b3], a
  395.     ld a, [hl]
  396.     ld [$ff00+$b4], a
  397.     ld a, [$d265]
  398.     ld [$ff00+$b7], a
  399.     ld b, $2
  400.     call $3124
  401.     ld a, [$ff00+$b6]
  402.     ld [hli], a
  403.     dec c
  404.     jr nz, .asm_3f0ef ; 0x3f103 $ea
  405.     ret
  406. ; 0x3f106
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!