[Hendricks266]

The Duke Nukem IV mod screenshots reminded me of my first foray into modding back in 2005. This is essentially H266MOD version -2 before a restart or two. My development strategy was "add whatever cool shit you find on RTCM, the 3DR forums, and the EDukeWiki, and then half-assedly write anything else you felt like". Note: Do not entrust a 10-year-old with game design.

http://hendricks266....cons_in_2005.7z

Feel free to download this mess and poke around yourself, but here are some highlights from what I found:

Excellent, methodical whitespace formatting

Spoiler

state jib_sounds
    ifrnd SWEARFREQUENCY
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
  { ifrnd 128
    globalsound JIBBED_ACTOR12
    else
    globalsound JIBBED_ACTOR1 }
    else
    globalsound JIBBED_ACTOR9
    else
    globalsound JIBBED_ACTOR14 } }
    else
    globalsound SMACKED
    else
    globalsound JIBBED_ACTOR2 } }
    else
    globalsound MDEVSPEECH
    else
    globalsound JIBBED_ACTOR5 } }
    else
    globalsound JIBBED_ACTOR11
    else
    globalsound JIBBED_ACTOR13 }
    else
    globalsound JIBBED_ACTOR3
    else
    globalsound JIBBED_ACTOR8 } }
    else
    globalsound JIBBED_ACTOR6
    else
    globalsound JIBBED_ACTOR4 }
    else
    globalsound JIBBED_ACTOR10
    else
    globalsound JIBBED_ACTOR15 }
    else
    globalsound JIBBED_ACTOR7 } } } }
ends

I like to spawn things

Spoiler

definequote 136       SEVERE JIB ALERT!!!!!!!!!!

state extra_jibby
  state random_wall_jibs
spawn GGIB1
spawn EYEGIB
spawn EYEGIB
spawn MEATGIB
spawn FLESHGIB
spawn FLESHGIB
spawn GGIB2
spawn GGIB1
spawn MEATGIB
spawn FLESHGIB
spawn FLESHGIB
spawn GGIB2
spawn FLESHGIB
spawn DUKETORSO1
spawn DUKETORSO1
spawn DUKETORSO1
spawn DUKETORSO1
spawn DUKETORSO1
spawn DUKEGUN1
spawn DUKEGUN1
spawn DUKEGUN1
spawn DUKEGUN1
spawn DUKEGUN1
spawn DUKELEG1
spawn DUKELEG1
spawn DUKELEG1
spawn DUKELEG1
spawn DUKELEG1
spawn MEATGIB
spawn MEATGIB
spawn MEATGIB
spawn MEATGIB
spawn MEATGIB
spawn HEADJIB
spawn ARMJIB
spawn ARMJIB
spawn LEGJIB
spawn LEGJIB
spawn LIZMANHEAD
spawn LIZMANARM
spawn LIZMANARM
spawn LIZMANLEG
spawn LIZMANLEG
spawn LIZMANHEAD
spawn LIZMANARM
spawn LIZMANARM
spawn LIZMANLEG
spawn LIZMANLEG
spawn DUKETORSO1
spawn DUKETORSO1
spawn DUKETORSO1
spawn DUKETORSO1
spawn DUKETORSO1
spawn DUKEGUN1
spawn DUKEGUN1
spawn DUKEGUN1
spawn DUKEGUN1
spawn DUKEGUN1
spawn DUKELEG1
spawn DUKELEG1
spawn DUKELEG1
spawn DUKELEG1
spawn DUKELEG1
spawn MEATGIB
spawn MEATGIB
spawn MEATGIB
spawn MEATGIB
spawn MEATGIB
spawn HEADJIB
spawn ARMJIB
spawn ARMJIB
spawn LEGJIB
spawn LEGJIB
  state random_wall_jibs
guts HEADJIB 5
guts ARMJIB 5
guts LEGJIB 5
guts DUKETORSO 5
guts DUKEGUN 8
guts LIZMANARM1 5
guts LIZMANLEG1 5
guts LIZMANHEAD1 5
  quote 136
ends

state alldebris
      state extra_jibby
      state standard_jibs
      state rats
      state scraps
      state lotsocrap
      state lotsocrap
      spawn SIXPAK
      spawn FIRSTAID
      spawn BURNING
      spawn EXPLOSION2
      spawn FIRSTGUNSPRITE
      spawn SHOTGUNSPRITE
      spawn CHAINGUNSPRITE
      spawn RPGSPRITE
      spawn HBOMBAMMO
      spawn SHRINKERSPRITE
      spawn EXPANDERSPRITE
      spawn DEVISTATORSPRITE
      spawn FREEZESPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
      spawn TRIPBOMBSPRITE
ends

Victory

Spoiler

definequote 137       YOU DID IT! YOU KILLED BATTLELORD!
definequote 138       UNBELIVABLE! YOU KILLED OVERLORD!!
definequote 139       AWESOME! YOU KILLED CYCLOID EMPEREOR!
definequote 140       NO WAY!!! YOU KILLED THE ALIEN QUEEN! 

I always thought it was out of place that the pistol pickup did not have a quote

Spoiler

definequote 129       OH BOY!! A PISTOL!! WHOOP-DE-SHIT!!!!

Duke Burger needed more interactivity

Spoiler

// This enables Duke to eat and drink.

state eatfood
  ifp pfacing
    ifpdistl 1280
      ifhitspace
      {
        ifphealthl 20
        {
          addphealth 10
          palfrom 32 0 32
          globalsound DUKE_GOTHEALTHATLOW
          quote 125
          killit
        }
        else
        {
          ifphealthl MAXPLAYERHEALTH
          {
            addphealth 10
            palfrom 32 0 32
            quote 125
            globalsound DUKE_GET
            killit
          }
          else
          {
            quote 126
            break
          }
        }
      }
ends

state eataton
  ifp pfacing
    ifpdistl 1280
      ifhitspace
      {
        ifphealthl 20
        {
          addphealth 50
          palfrom 32 0 32
          globalsound DUKE_GOTHEALTHATLOW
          quote 130
          killit
        }
        else
        {
          ifphealthl MAXPLAYERHEALTH
          {
            addphealth 50
            palfrom 32 0 32
            quote 130
            globalsound DUKE_GET
            killit
          }
          else
          {
            quote 126
            break
          }
        }
      }
ends

state drinkjo
  ifp pfacing
    ifpdistl 1280
      ifhitspace
      {
        ifphealthl 20
        {
          addphealth 50
          globalsound DUKE_GOTHEALTHATLOW
          quote 131
          killit
        }
        else
        {
          ifphealthl MAXPLAYERHEALTH
          {
            addphealth 50
            quote 131
            globalsound DUKE_GET
            killit
          }
          else
          {
            quote 132
            break
          }
        }
      }
ends

definequote 125       YOU ATE A SNACK: +10 HEALTH!
definequote 126       YOU AREN'T HUNGRY NOW...
definequote 130       YOU ATE DINNER: +50 HEALTH!!!!!
definequote 131       YOU DRANK SOME COFFEE: +20 HEALTH!!
definequote 132       YOU AREN'T THIRSTY NOW...

// This enables Duke to wipe his face/ass.

definequote 127       YOU WIPE YOUR FACE: +10 HEALTH!
definequote 128       YOUR FACE ISN'T DIRTY...
definequote 183       YOU WIPE YOUR ASS: +10 HEALTH!
definequote 184       YOUR ASS ISN'T DIRTY...

state wipeass
  ifpdistl 1280
    ifhitspace
    { ifp pfacing
     { ifphealthl 20
        { addphealth 10
          globalsound DUKE_GOTHEALTHATLOW
          quote 127
          killit }
        else
     { ifphealthl MAXPLAYERHEALTH
        { addphealth 10
          quote 127
          globalsound DUKE_GET
          killit }
          else
          { quote 128
            break } } }
            else
     { ifphealthl 20
        { addphealth 10
          globalsound DUKE_GOTHEALTHATLOW
          quote 183
          killit }
        else
     { ifphealthl MAXPLAYERHEALTH
        { addphealth 10
          quote 183
          globalsound DUKE_GET
          killit }
          else
          { quote 184
            break } } } }
ends

// Worms!

definequote 185       EWW! UGH! WORMS! YOU'RE DEAD!!

state eww
  ifp pfacing
    ifpdistl 1280
      ifhitspace
      { addphealth -9999
        palfrom 64 64
        globalsound DUKE_KILLED6
        quote 185
        killit }
ends

Marking territory

Spoiler

definequote 210        WELCOME TO EDUKE32 1.3.0!!!
definequote 211        CONS: HENDRICKS 266 VERSION 9.0
definequote 212        DEFS: HENDRICKS 266 VERSION 5.0
definequote 213        MAPS: HENDRICKS 266 VERSION 2.0
definequote 214        ENGINE: JONOF VERSION 2005-10-09

I really didn't want to leave out any maps

Spoiler

definevolumename 4 EXTRAS
definevolumename 5 DUKE IT OUT IN D.C.
definevolumename 6 MAPFAQ TUTORIALS
// definevolumename 7 TROUBLESHOOTING
// definevolumename 8 HELP ME!

definelevelname 4 0 _ZOO.map	80:00 80:00 ZOO LEVEL
definelevelname 4 1 _SE.map	80:00 80:00 SECTOR EFFECTORS
definelevelname 4 2 _ST.map	80:00 80:00 SECTOR TAGS

definelevelname 5 0 DUKEDC1.map		02:54 01:02 HELL TO THE CHIEF
definelevelname 5 1 DUKEDC2.map		03:55 00:59 MEMORIAL SERVICE
definelevelname 5 2 DUKEDC3.map		03:32 01:49 NUKED FILES
definelevelname 5 3 DUKEDC4.map		23:15 06:46 SMITHSONIAN TERROR
definelevelname 5 4 DUKEDC5.map		03:26 00:44 CAPITOL PUNISHMENT
definelevelname 5 5 DUKEDC6.map		03:51 01:47 METRO MAYHEM
definelevelname 5 6 DUKEDC7.map		03:00 01:21 BROWN WATER
definelevelname 5 7 DUKEDC8.map		06:15 03:09 DREAD OCTOBER
definelevelname 5 8 DUKEDC9.map		02:38 01:17 NUKE PROOF
definelevelname 5 9 DUKEDCSL.map	16:45 05:10 TOP SECRET
definelevelname 5 10 DEMO.map		02:54 01:02 DEMO LEVEL

definelevelname 6 0 ADVANCED.MAP	80:00 80:00 ADVANCED TUTORIAL
definelevelname 6 1 AIRLOCK.MAP		80:00 80:00 UNDERWATER AIRLOCKS
definelevelname 6 2 ATOMIC.MAP		80:00 80:00 ATOMIC ONLY EXAMPLES
definelevelname 6 3 MIRRORS.MAP		80:00 80:00 MIRRORS
definelevelname 6 4 ROTATEDR.MAP	80:00 80:00 ROTATING DOORS
definelevelname 6 5 SLOPEWTR.MAP	80:00 80:00 RISING WATER ON SLOPES
definelevelname 6 6 STHRUSLD.MAP	80:00 80:00 SEE-THROUGH SLIDING DOORS
definelevelname 6 7 SWLIFT.MAP		80:00 80:00 SWITCH OPERATED LIFTS
definelevelname 6 8 TDOOR2.MAP		80:00 80:00 TEETH DOORS
definelevelname 6 9 TUTORIAL.MAP	80:00 80:00 COMPLETE TUTORIAL

/*
definelevelname 7 0 ACTORS.MAP		80:00 80:00 ACTOR TEST 1
definelevelname 7 1 UNKNOWN.MAP		80:00 80:00 ACTOR TEST 2
definelevelname 7 2 EFFECTS.MAP		80:00 80:00 EFFECT TEST 1
definelevelname 7 3 MINIBOSS.MAP	80:00 80:00 BUILDING TEST 1

definelevelname 8 0 HELP.MAP		80:00 80:00 HELP IS COMING!
definelevelname 8 1 HELP.MAP		80:00 80:00 HELP IS COMING!
definelevelname 8 2 HELP.MAP		80:00 80:00 HELP IS COMING!
definelevelname 8 3 HELP.MAP		80:00 80:00 HELP IS COMING!
definelevelname 8 4 HELP.MAP		80:00 80:00 HELP IS COMING!
definelevelname 8 5 HELP.MAP		80:00 80:00 HELP IS COMING!
definelevelname 8 6 HELP.MAP		80:00 80:00 HELP IS COMING!
definelevelname 8 7 HELP.MAP		80:00 80:00 HELP IS COMING!
definelevelname 8 8 HELP.MAP		80:00 80:00 HELP IS COMING!
definelevelname 8 9 HELP.MAP		80:00 80:00 HELP IS COMING!
definelevelname 8 10 HELP.MAP		80:00 80:00 HELP IS COMING!
*/

The FECES actor's potential was seriously overlooked in the original game

Spoiler

gamevar FECESHITAG1 12 GAMEVAR_FLAG_PERACTOR
gamevar FECESHITAG2 13 GAMEVAR_FLAG_PERACTOR
gamevar FECESHITAG3 14 GAMEVAR_FLAG_PERACTOR
gamevar FECESHITAGTEMP 0 GAMEVAR_FLAG_PERACTOR
gamevar CREATORHITAGTEMP 0 GAMEVAR_FLAG_PERACTOR
gamevar FECESMANHITAGTEMP 0 GAMEVAR_FLAG_PERACTOR
gamevar SPAWNFECESHITAGTEMP 0 GAMEVAR_FLAG_PERACTOR

gamevar FECESLOTAGTEMP 0 GAMEVAR_FLAG_PERACTOR

gamevar FECESHITCOUNT 255 GAMEVAR_FLAG_PERACTOR

gamevar FECESMOVEA 10 GAMEVAR_FLAG_PERACTOR
gamevar FECESMOVEB -10 GAMEVAR_FLAG_PERACTOR
gamevar FECESX 0 GAMEVAR_FLAG_PERACTOR
gamevar FECESY 0 GAMEVAR_FLAG_PERACTOR
gamevar FECESZ 0 GAMEVAR_FLAG_PERACTOR
gamevar FECESXA 0 GAMEVAR_FLAG_PERACTOR
gamevar FECESYA 0 GAMEVAR_FLAG_PERACTOR
gamevar FECESZA 0 GAMEVAR_FLAG_PERACTOR


gamevar FECESHITAGBACKUP 0 GAMEVAR_FLAG_PERACTOR
gamevar FECESLOTAGBACKUP 0 GAMEVAR_FLAG_PERACTOR

/*
#define FECESMOVEA 5
#define FECESMOVEB -5
*/

define FECESMOVEA 5
define FECESMOVEB -5

state oldfeces
ai AIFECESFLYAWAY 
ifdead { spawn FECES } else {
ifcount 30 { spawn FECESCREATOR }
ifcount 60 { spawn FECESCREATOR }
ifcount 90 { spawn FECESCREATOR }
ifcount 120 { spawn FECESCREATOR }
ifcount 150 { spawn FECESCREATOR }
ifcount 180 { spawn FECESCREATOR fall ai AIFECESFALL killit } }
ends

state fecesexplode2
killit
spawn FECESCHOPPER
spawn FECESCHOPPER
spawn FECESCHOPPER
spawn FECESCHOPPER
ends

state feceschopperstate
 spawn FECESCHOPPER
 spawn FECESCHOPPER
 spawn FECESCHOPPER
 spawn FECESCHOPPER
ends

state fecesbirth spawn FECES killit ends

state feceshurt sound STEPNIT addvar FECESHITCOUNT -84 ends

state fecesdead sound SQUISHED spawn BLOODPOOL palfrom 64 32 16 killit ends

state fecesexplode
        ifwasweapon RADIUSEXPLOSION { state fecesexplode2 }
   else ifwasweapon RPG { state fecesexplode2 }
   else ifwasweapon HEAVYHBOMB { state fecesexplode2 }
   else ifwasweapon COOLEXPLOSION1 { state fecesexplode2 }
   else ifwasweapon EXPLOSION2 { state fecesexplode2 }
   else ifwasweapon MORTER { state fecesexplode2 }
   else ifwasweapon BOUNCEMINE { state fecesexplode2 }
   else ifwasweapon SEENINE { state fecesexplode2 }
   else ifwasweapon DEVISTATOR { state fecesexplode2 }
   else ifwasweapon DEVISTATORBLAST { state fecesexplode2 }
   else { state feceshurt }
ends

useractor notenemy FECESMAN 0 // feces manager
sizeat 1 1
cstat 32768

getactor[THISACTOR].hitag FECESMANHITAGTEMP
      ifvare FECESMANHITAGTEMP 11 { setvar FECESHITAGTEMP 11 state feceschopperstate }
 else ifvare FECESMANHITAGTEMP 12 { setvar FECESHITAGTEMP 12 state feceschopperstate state feceschopperstate }
 else ifvare FECESMANHITAGTEMP 13 { setvar FECESHITAGTEMP 13 state feceschopperstate state feceschopperstate state feceschopperstate }
 else ifvare FECESMANHITAGTEMP 14 { setvar FECESHITAGTEMP 14 spawn FECESCHOPPER }
 else { state fecesdead }
enda

// move MFECESFLYAWAY randomangle geth

useractor notenemy FECESCREATOR 0
// sizeat 1 1
cstat 32768

getactor[THISACTOR].x FECESX
getactor[THISACTOR].y FECESY
getactor[THISACTOR].z FECESZ

ifcount 1 {
      ifrnd 64 { addvar FECESX FECESMOVEA setactor[THISACTOR].x FECESX state fecesbirth }
 else ifrnd 64 { addvar FECESX FECESMOVEB setactor[THISACTOR].x FECESX state fecesbirth }
 else ifrnd 64 { addvar FECESY FECESMOVEA setactor[THISACTOR].y FECESY state fecesbirth }
 else ifrnd 64 { addvar FECESY FECESMOVEB setactor[THISACTOR].y FECESY state fecesbirth } }
enda

useractor notenemy FECESCHOPPER 0 // chopper as in something that chops something else
// sizeat 1 1
cstat 32768

getactor[THISACTOR].x FECESXA
getactor[THISACTOR].y FECESYA
getactor[THISACTOR].z FECESZA

ifcount 1 {
      ifrnd 64 { addvar FECESXA FECESMOVEA setactor[THISACTOR].x FECESXA state fecesbirth }
 else ifrnd 64 { addvar FECESXA FECESMOVEB setactor[THISACTOR].x FECESXA state fecesbirth }
 else ifrnd 64 { addvar FECESYA FECESMOVEA setactor[THISACTOR].y FECESYA state fecesbirth }
 else ifrnd 64 { addvar FECESYA FECESMOVEB setactor[THISACTOR].y FECESYA state fecesbirth } }
enda

actor FECES 50 AFECES MFECES spin
getactor[THISACTOR].hitag FECESHITAGBACKUP
getactor[THISACTOR].lotag FECESLOTAGBACKUP

setactor[THISACTOR].hitag FECESHITAGTEMP
setactor[THISACTOR].lotag FECESLOTAGTEMP
fall
ifspawnedby FECESCHOPPER { move MFECES spin

getactor[THISACTOR].hitag FECESHITAGTEMP

ifvare FECESHITAGTEMP 0 { sizeat 50 50
setactor[THISACTOR].hitag FECESHITAG1
getactor[THISACTOR].hitag FECESHITAGTEMP }

ifvare FECESHITAGTEMP 11 { sizeat 50 50
setactor[THISACTOR].hitag FECESHITAG1
getactor[THISACTOR].hitag FECESHITAGTEMP }

ifvare FECESHITAGTEMP 12 { sizeat 12 12
setactor[THISACTOR].hitag FECESHITAG2
getactor[THISACTOR].hitag FECESHITAGTEMP }

ifvare FECESHITAGTEMP 13 { sizeat 3 3
setactor[THISACTOR].hitag FECESHITAG3
getactor[THISACTOR].hitag FECESHITAGTEMP }

ifvare FECESHITAGTEMP 14 { state fecesdead } } else { sizeto 200 200 }

ifp palive { ifpdistl 1024 { ifpdistg 24 { pstomp globalsound DUKE_STEPONFECES spawn BLOODPOOL ifcount 30 { sound SQUISHED palfrom 64 32 16 killit } } } }
ifhitweapon { state feceshurt ifdead { state fecesdead } } // state fecesexplode
enda

There's more, including giving every palswap of the trooper from 1 to 25 its own behavior, giving the trooper fatalities (both ripped off of some mod), replicating SD_Duke functionality, and making actors called "CRAP" (referring to the giant metal parts found around the helicopter tiles; they would slowly fall to the ground after you blew up a commander).

[Jimmy]

YOU WIPE YOUR ASS: +10 HEALTH!

[Mikko Pekkola]

Nice CON Codings. In what lines did you enable Duke to eat and drink? I want to learn this CON Coding too

[Hendricks266]

No, the point is that this is bad CON code. I am much more advanced and disciplined now.

[Mikko Pekkola]

Hendricks266, on 29 April 2013 - 08:54 AM, said:

No, the point is that this is bad CON code. I am much more advanced and disciplined now.

Why is that? What do you mean?

[Kyanos]

http://www.youtube.c...d&v=z_Meq5hEd00

[TheCycoONE]

Mikko Pekkola, on 29 April 2013 - 10:10 AM, said:

Why is that? What do you mean?

Now you've done it Hendriks, this code will be all over the net.

[LAW]

Have Hendrick learned some weapon coding, sub-weapon to be exact

[kona]

Thanks for your sharing