.memorymap defaultslot 0 slotsize $4000 slot 0 $0000 slot 1 $4000 slot 2 $8000 .endme .rombankmap bankstotal 16 banksize $4000 banks 16 .endro .background "Pac In Time [Proto].gg" .define Y $d604 .define X $d609 ; free space here .unbackground $38 $65 .bank 0 slot 0 .org $38 .section "hack" force push af push hl in a,($dc) ; get P1 inputs ld hl,(Y) bit 1,a jr nz,+ inc hl +: bit 0,a jr nz,+ dec hl +: ld (Y),hl ld hl,(X) bit 3,a jr nz,+ inc hl +: bit 2,a jr nz,+ dec hl +: ld (X),hl pop hl pop af ; resume game jp $2524 .ends .bank 1 slot 1 .orga $448b .section "patch Y movement" overwrite ret .ends .orga $445d .section "patch Y collision" overwrite ret .ends .orga $44a1 .section "patch X movement" overwrite ret .ends .orga $437d .section "patch X collision" overwrite ret .ends