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

This page contains no introduction. What makes this game notable or what is it about? Are you a bad enough dude to save this article?

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)));