Wizardry: Knight of Diamonds - The Second Scenario (DOS)

Wizardry: Knight of Diamonds - The Second Scenario
Developer: Sir-Tech Publisher: Sir-Tech Platform: DOS Released in US: 1987 This game has uncompiled source code.

Uncompiled Source

Block 375 on the main disk has a bit of Pascal hiding inside.

								begin
									r^[j]:=prev;
									j:=j+1;
									if j=numX then
										begin
											j:=0;
											i:=i+1;
											r:=rowPtr(ord4(r)+realrowBytes)
										end
								end
						end;
				end
			else
				debug('unknown fType');
					
			Err:=FSClose(refNum);
			
			changed:=false;
	
		end;
		
	Hunlock(Handle(X));
	
end;

procedure setupX;

var i:integer;

begin

	for i:=0 to 255 do
		if myWindows[i]=nil then
			begin
				myWindows[i]:=mandelHandle(myNewHandle(sizeof(mandelStyle)));