| To HD install:
| 1. Copy !Carnage from disc 1 to HD
| 2. Copy !Data1 from disc 1 as !Carnage.!Data1
| 3. Copy !Data2 from disc 2 as !Carnage.!Data2
| 4. Copy the disc 1 image as !Carnage.F1006701
| 5. Replace the contents of !Carnage.!Run with:
|  ADFBootFloppy F1006701

IF "<Obey$Dir>"="@" THEN ADFReserveMemory 832
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!Carnage
IfThere <Obey$Dir>.F1006701 THEN ADFMount <Obey$Dir>.F1006701

SET Carnage$Dir <Obey$Dir>.Object
SET Data$Dir <Obey$Dir>.Data
SET Disc1$Dir <Obey$Dir>.
RMAFree 32
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 13 320 ELSE ScreenSize 320
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 3.11
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
ADFJoystickKeys J1 L=98 R=100 D=99 U=89 UL=60 DR=78 UR=70 DL=87 B1=95 B2=96 B3=88
| Keys         Joystick
| A            Up left
| Z            Down right
| "            Up right
| /            Down left
| SPACE        B1         - Jump
| RIGHT ALT    B2         - Perform selected action
| RIGHT SHIFT  B3         - Change selected object
| Cursor keys  U/D/L/R    - Select action to perform
RMLoad <Carnage$Dir>.Expand
<Carnage$Dir>.SetMem
IF "<GameType$>"="One" THEN WimpSlot -Min 720K -Max 2000K ELSE WimpSlot -Min 2000K -Max 2000K

| Fix reliance on pipelining in About36
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 9A78 E88000FF E1A00000

| Prevent Gumdrop being run, so we can patch it
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 9CE8 EF000005 E1A00000

| Prevent vectors being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 228 E3A00009 EA000017 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 2BC EF00003B E1A00000 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 3FC 0A0005BF E1A00000 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 414 E3A00009 EA000016 BlueBoy

| Fix FileV vector code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7EC E3300000 EA000000 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7F4 13300002 E92D4000 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7F8 13300003 E51FE010 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7FC 13300004 E13E0000 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 800 13300007 08BD8000 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 804 13300008 E50F001C BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 810 0A00048A E1A00000 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 82C 092D8000 18BD8000 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 830 E1B0F00E EF020008 BlueBoy
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 834 E1A00000 E50FE04C BlueBoy

| Fix ByteV vector check
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1A80 1A000006 EA000006 BlueBoy

| Bugfix: Fix Page Zero access when you die
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1E1F0 E5D02014 E5D12014
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1E1F8 E5C02014 E5C12014
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 16080 E5D3400B E5D4400B

| Bugfix: Fix Page Zero access when dropping an object
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 218EC E5D52008 E59D5004
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 218F0 E3120040 E5D52008
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 218F4 0A000003 E3120040
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 218FC E5C5202E 15C5202E
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 21904 E5C5202F 15C5202F

| Bugfix: Fix Page Zero access in Paint Module
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA A90 E5D4400C E5D4500C Paint
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA AA0 E084400A E085500A Paint
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA AA4 E1540001 E1550001 Paint

<Obey$Dir>.About36

IF ADFFS$CPUID>=&A10 THEN LOAD <Carnage$Dir>.Intro ELSE RUN <Carnage$Dir>.Intro
IF ADFFS$CPUID>=&A10 THEN GO 8004
BASIC -quit <Obey$Dir>.!RunImage
RMKill Shorthand
ADFJoystickKeys
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
UnSet Carnage$Dir
UnSet Data$Dir
UnSet Disc1$Dir