手持ちの6番目のポケモンを現在のボックスに30匹コピーする。
上書きなのでボックスにいるポケモンは消滅します。空のボックスでやろう。
メイン関数はわざマシンポケットに記述→パソコンのどうぐ預かりへ転写で。親の名前を気にしないなら50バイトで収まりますが。
別のメールを使って親名だけ事前にセットしてしまえば共通の名前を使う分には困りませんし。
僕はマシンで調整してから転写しちゃってましたけど、マシンをall255にして一個飛ばしで入力してから転写→パソコンで個数調整が簡単だったかも。
起動はメールからなので長いコードだからってボックス用で起動しないように。
;起動用メール ョぶへマだらへザよへャだの空空空 ;空はスペース。埋まってれば別になんでもいいけどバグ避けかつ入力が楽なので ごデドゼつづまの 000 xor a 001 inc a 002 call 309D 005 rst 10 006 call D60A 009 call 30AD 012 ret 013 ld a,a 014 ld a,a 015 ld a,a 016 ld c,(hl) ; 改行 017 ldi a,(hl) 018 ld (de),a 019 inc de 020 dec c 021 jp nz,CF32 024 ret
;メイン関数 3E 1E 11 10 AD 12 13 47 21 E0 DA 7E 12 13 05 20 FB AF 3D 12 13 06 1E 21 E0 DA 0E 20 CD 32 CF 05 20 F5 11 F0 B0 06 1E 21 2E DB 0E 06 CD 32 CF 05 20 F5 06 1E 21 52 DB 0E 06 CD 32 CF 05 20 F5 C9 000 ld a,1E 002 ld de,AD10 005 ld (de),a 006 inc de 007 ld b,a 008 ld hl,DAE0 011 ld a,(hl) 012 ld (de),a 013 inc de 014 dec b 015 jr nz,+FB 017 xor a 018 dec a 019 ld (de),a 020 inc de 021 ld b,1E 023 ld hl,DAE0 026 ld c,20 028 call CF32 031 dec b 032 jr nz,+F5 034 ld de,B0F0 037 ld b,1E 039 ld hl,DB2E 042 ld c,06 044 call CF32 047 dec b 048 jr nz,+F5 050 ld b,1E 052 ld hl,DB52 055 ld c,06 057 call CF32 060 dec b 061 jr nz,+F5 063 ret
