script "Infinite Time"  
run:
    poke $FF84E9 $09
script "Infinite Character Select Time"  
run:
    poke $FF8635 $0A
script "Select Starting Episode" \
 inter=1,8,1 
run:
    if (peek($FF84D9)==$00)
      poke $FF84D9 (param-$1)
    endif
script "Hit Anywhere"  
on:
    temp0=dpeek($0109C6)
    temp1=dpeek($011020)
    temp2=dpeek($011A0A)
    temp3=dpeek($012154)
    temp4=dpeek($01223A)
    temp5=dpeek($01230E)
    temp6=dpeek($0123A4)
run:
    dpoke $0109C6 $6002
    dpoke $011020 $6002
    dpoke $011A0A $4E71
    dpoke $012154 $6002
    dpoke $01223A $6002
    dpoke $01230E $6002
    dpoke $0123A4 $6002
off:
    dpoke $0109C6 temp0
    dpoke $011020 temp1
    dpoke $011A0A temp2
    dpoke $012154 temp3
    dpoke $01223A temp4
    dpoke $01230E temp5
    dpoke $0123A4 temp6
script "One Hit Kills"  
on:
    temp0=dpeek($010A62)
    temp1=dpeek($0110E2)
    temp2=dpeek($0123E8)
    temp3=dpeek($01256E)
run:
    dpoke $010A62 $6002
    dpoke $0110E2 $6002
    dpoke $0123E8 $6002
    dpoke $01256E $6002
off:
    dpoke $010A62 temp0
    dpoke $0110E2 temp1
    dpoke $0123E8 temp2
    dpoke $01256E temp3
script "Infinite Ammo" \
 "comm:Works for Rifle, Gun, Uzi, M-16A1, Shotgun and Bazooka"  
on:
    temp0=lpeek($0239DE)
    temp1=lpeek($0239E2)
    temp2=lpeek($180000)
    temp3=lpeek($180004)
    temp4=lpeek($180008)
run:
    lpoke $0239DE $4EB90018
    lpoke $0239E2 $00004E71
    lpoke $180000 $366A00B4
    lpoke $180004 $70323740
    lpoke $180008 $006C4E75
off:
    lpoke $0239DE temp0
    lpoke $0239E2 temp1
    lpoke $180000 temp2
    lpoke $180004 temp3
    lpoke $180008 temp4
script "Never lose weapons" \
 "comm:After enemy hits, dropped weapons are never lost"  
on:
    temp0=peek($0246B2)
run:
    poke $0246B2 $60
off:
    poke $0246B2 temp0
script "Never drop weapons" \
 "comm:Weapons are never dropped unless Game Over happens."  
on:
    temp0=peek($010EA2)
    temp1=peek($0117CC)
    temp2=peek($01C26C)
    temp3=peek($01C44C)
    temp4=peek($01C612)
    temp5=peek($01C7AA)
    temp6=peek($01CC96)
    temp7=peek($01D2FA)
run:
    poke $010EA2 $0C
    poke $0117CC $B2
    poke $01C26C $B2
    poke $01C44C $B2
    poke $01C612 $B2
    poke $01C7AA $B2
    poke $01CC96 $B2
    poke $01D2FA $B2
off:
    poke $010EA2 temp0
    poke $0117CC temp1
    poke $01C26C temp2
    poke $01C44C temp3
    poke $01C612 temp4
    poke $01C7AA temp5
    poke $01CC96 temp6
    poke $01D2FA temp7
script "Kill Vice T. with 1 hit Now!"  
on:
    dpoke $FFDCA0 $0001
script "Kill Butcher with 1 hit Now!"  
on:
    dpoke $FFDCA0 $0001
script "Kill Hogg with 1 hit Now!"  
on:
    dpoke $FFD3E0 $0001
script "Kill Slice with 1 hit Now!"  
on:
    dpoke $FFDAE0 $0001
script "Kill Morgan/Morgue with 1 hit Now!"  
on:
    dpoke $FFDCA0 $0001
script "Kill Tyrog with 1 hit Now!"  
on:
    dpoke $FFDCA0 $0001
script "Kill Slisaur 1 with 1 hit Now!"  
on:
    dpoke $FFD680 $0001
script "Kill Slisaur 2 with 1 hit Now!"  
on:
    dpoke $FFD5A0 $0001
script "Kill the one headed Fessenden with 1 hit Now!"  
on:
    dpoke $FFD920 $0001
script "Kill the several headed Fessenden with 1 hit Now!"  
on:
    dpoke $FFD4C0 $0001
script "Finish Episode Now!"  
on:
    poke $FF84D1 $06
script "See End Sequence Now!"  
on:
    poke $FF84D1 $06
    poke $FF84D9 $07
script " "  
script "P1 Infinite Lives"  
run:
    poke $FFB317 $03
script "P1 Infinite Energy"  
run:
    poke $FFB2E1 $64
script "P1 Invincibility"  
run:
    poke $FFB274 $02
    dpoke $FFB360 $0002
script "P1 Select Character" \
 "0x01/Jack.T"\
 "0x02/Hannah.D"\
 "0x03/Mustapha.C"\
 "0x04/Mess.O" 
run:
    if (param==$01)
      poke $FFB277 $00
      poke $FF863A $00
    endif
    if (param==$02)
      poke $FFB277 $02
      poke $FF863A $01
    endif
    if (param==$03)
      poke $FFB277 $01
      poke $FF863A $02
    endif
    if (param==$04)
      poke $FFB277 $03
      poke $FF863A $03
    endif
script "P1 Rapid Fire - Normal" \
 "comm:Turn it OFF on the name entry screen"  
run:
    poke $FFB314 $00|(peek($FFB314)&~$10)
script "P1 Rapid Fire - Unlimited" \
 "comm:Turn it OFF on the name entry screen"  
run:
    poke $FFB314 $00|(peek($FFB314)&~$10)
    poke $FFB326 $00
script " "  
script "P2 Infinite Lives"  
run:
    poke $FFB497 $03
script "P2 Infinite Energy"  
run:
    poke $FFB461 $64
script "P2 Invincibility"  
run:
    poke $FFB3F4 $02
    dpoke $FFB4E0 $0002
script "P2 Select Character" \
 "0x01/Jack.T"\
 "0x02/Hannah.D"\
 "0x03/Mustapha.C"\
 "0x04/Mess.O" 
run:
    if (param==$01)
      poke $FFB3F7 $00
      poke $FF8646 $00
    endif
    if (param==$02)
      poke $FFB3F7 $02
      poke $FF8646 $01
    endif
    if (param==$03)
      poke $FFB3F7 $01
      poke $FF8646 $02
    endif
    if (param==$04)
      poke $FFB3F7 $03
      poke $FF8646 $03
    endif
script "P2 Rapid Fire - Normal" \
 "comm:Turn it OFF on the name entry screen"  
run:
    poke $FFB494 $00|(peek($FFB494)&~$10)
script "P2 Rapid Fire - Unlimited" \
 "comm:Turn it OFF on the name entry screen"  
run:
    poke $FFB494 $00|(peek($FFB494)&~$10)
    poke $FFB4A6 $00
script " "  
script "P3 Infinite Lives"  
run:
    poke $FFB617 $03
script "P3 Infinite Energy"  
run:
    poke $FFB5E1 $64
script "P3 Invincibility"  
run:
    poke $FFB574 $02
    dpoke $FFB660 $0002
script "P3 Select Character" \
 "0x01/Jack.T"\
 "0x02/Hannah.D"\
 "0x03/Mustapha.C"\
 "0x04/Mess.O" 
run:
    if (param==$01)
      poke $FFB577 $00
      poke $FF8652 $00
    endif
    if (param==$02)
      poke $FFB577 $02
      poke $FF8652 $01
    endif
    if (param==$03)
      poke $FFB577 $01
      poke $FF8652 $02
    endif
    if (param==$04)
      poke $FFB577 $03
      poke $FF8652 $03
    endif
script "P3 Rapid Fire - Normal" \
 "comm:Turn it OFF on the name entry screen"  
run:
    poke $FFB614 $00|(peek($FFB614)&~$10)
script "P3 Rapid Fire - Unlimited" \
 "comm:Turn it OFF on the name entry screen"  
run:
    poke $FFB614 $00|(peek($FFB614)&~$10)
    poke $FFB626 $00
script " "  
script "Enable Hidden OBJECT TEST and SCROLL TEST" \
 "comm:Press F2 and get OBJECT Test on '10' and SCROLL TEST on '11'"  
run:
    poke $FF84C3 $01
