![]() 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. ![]() ![]() 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; |
Projects >