add patcher for Super Huey, Squire, Baron, Millionaire

src/passport.a

@@ -710,6 +710,7 @@ _applyToAll
          !source "patchers/protecteddos.a"
          !source "patchers/fbff.a"
          !source "patchers/sierra.a"
+         !source "patchers/corrupter.a"
 
          lda   gPatchCount
          beq   .nopatches

src/patchers/corrupter.a

@@ -0,0 +1,40 @@
+;-------------------------------
+; #CORRUPTER
+; intentionally destroys T00,S00
+; if protection check fails
+;-------------------------------
+!zone {
+corrupter
+         lda   #$0F
+         sta   .sector+1
+.sector  lda   #$FF       ; modified at runtime
+         ldx   #$2C
+         ldy   #$07
+         jsr   compare
+         !byte $20,$E3,$03,$84,$00,$85,$01
+         bcs   .nextsector
+         ldx   #$D4
+         ldy   #$0F
+         jsr   compare
+         !byte $A9,$00,$8D,$00,$A0,$EE,$D3,$40
+         !byte $AD,$D3,$40,$C9,$FF,$D0,$F1
+         bcs   .nextsector
+         ldx   #$A4
+         ldy   #$0F
+         jsr   compare
+         !byte $A9,$23,$85,$02,$A9,$00,$85,$03
+         !byte $A9,$01,$85,$04,$20,$28,$40
+         bcs   .nextsector
+         sta   gDisplayBytes
+         pha
+         lda   #s_corrupter
+         jsr   PrintByID
+         pla
+         ldy   #$01
+         jsr   modify
+         !byte $60
+.nextsector
+         dec   .sector+1
+         bpl   .sector
+.exit
+}

src/strings/en.a

@@ -84,7 +84,8 @@ s_specdel =    $41
 s_bytrack =    $42
 s_a5count =    $43
 s_restart =    $44
-STRINGCOUNT =  $45
+s_corrupter =  $45
+STRINGCOUNT =  $46
 
 !zone {
 StringTable
@@ -157,6 +158,7 @@ StringTable
          !word .bytrack
          !word .a5count
          !word .restart
+         !word .corrupter
 ;
 ; Text can contain substitution strings, which
 ; are replaced by current values at runtime. Each
@@ -182,7 +184,7 @@ StringTable
 ; can be set directly before calling PrintByID.
 ;
 .header
-         !text "Passport by 4am               2017-01-27",00
+         !text "Passport by 4am               2017-01-30",00
 .mainmenu
          !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
          !text "              "
@@ -405,4 +407,7 @@ StringTable
          !text "T%t,S%0 Found A5 nibble count",$8D,$00
 .restart
          !text "Restarting scan",$8D,$00
+.corrupter
+         !text "T%t,S%0 Protection check intentionally",$8D
+         !text "destroys unauthorized copies",$8D,$00
 }