Skip to content

Ironseed

Ironseed was the first published commercial game I wrote with a partner in ’93. I did all the coding in Turbo Pascal and Assembly language with VGA graphics. Ironseed is approximately 33k lines of code. My business partner, Jeremy Stanton, did most of the writing, design, and graphics. We called ourselves “Channel 7 Software” based on the Max Headroom TV show. We did outsource some alien designs and the music.

Ironseed is a space based RPG set in the far future. Several elements of the game are similar to Star Control II such as the planet exploration. The music, similar to SC II, used Amiga MOD files written by Andrew Sega. The soundtrack is just incredible. We still own the copyright and story and have been thinking about rewriting it to use hardware accelerated graphics and 3D. We also own all rights to the music.

Original Ironseed Demo

External Links:    

procedure makesphere1;
label endcheck;
begin
 ofsy:=5+offset;
 for i:=6 to spherei do
  begin
    inc(ofsy);
    ofsx:=pm[i]+offset;
    part4:=0;
    for j:=1 to xw do
     begin
      part4:=part4+ppart[i];
      index:=round(part4);
      if index>xw then goto endcheck;
      inc(ofsx);
      if ecl>170 then
       begin
        if j=1 then alt:=10
         else alt:=(index-ecl+186) div 2;
       end
       else if ecl<171 then
        begin
         if index=xw then alt:=10
          else alt:=(ecl-index) div 2;
        end
       else alt:=0;
      if alt<0 then alt:=0;
      j2:=index+c;
      if j2>240 then j2:=j2-240;
      z:=colorlookup[landform^[j2,i]];
      if (z=waterindex) and (alt<6) then planet^[ofsy,ofsx]:=waterindex+6-alt
       else if z=waterindex then planet^[ofsy,ofsx]:=waterindex
       else
        begin
         if z<6 then
          begin
           if alt>spcindex2[z] then z:=1 else z:=spcindex[z]-alt;
          end
         else if z<32 then
          begin
           if z>alt then z:=z-alt else z:=1;
          end;
         planet^[ofsy,ofsx]:=z;
        end;
endcheck:
     end;
   end;
end;