vid_h.pas

delphi编的不错的贪吃蛇

{----------------------------------------------------------------------------}
{                                                                            }
{ File(s): vid.h                                                             }
{ Content: video driver defs                                                 }
{                                                                            }
{ Initial conversion by : Lars ([e-mail])                                 }
{ Initial conversion on : 07-Jan-2002                                        }
{                                                                            }
{ This File contains part of convertion of Quake2 source to ObjectPascal.    }
{ More information about this project can be found at:                       }
{ http://www.sulaco.co.za/quake2/                                            }
{                                                                            }
{ Copyright (C) 1997-2001 Id Software, Inc.                                  }
{                                                                            }
{ This program is free software; you can redistribute it and/or              }
{ modify it under the terms of the GNU General Public License                }
{ as published by the Free Software Foundation; either version 2             }
{ of the License, or (at your option) any later version.                     }
{                                                                            }
{ This program is distributed in the hope that it will be useful,            }
{ but WITHOUT ANY WARRANTY; without even the implied warranty of             }
{ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                       }
{                                                                            }
{ See the GNU General Public License for more details.                       }
{                                                                            }
{----------------------------------------------------------------------------}
{ Updated on :                                                               }
{ Updated by :                                                               }
{                                                                            }
{----------------------------------------------------------------------------}
{ * Still dependent (to compile correctly) on:                               }
{ none                                                                       }
{----------------------------------------------------------------------------}
{ * TODO:                                                                    }
{ none                                                                       }
{----------------------------------------------------------------------------}

unit vid_h;

interface
type

  vrect_t = record
    x, y, width, height: integer;
  end;

  viddef_t = record
    width, height: integer;
  end;

  // Video module initialisation etc
  VID_Init = procedure;
  VID_ShutDown = procedure;
  VID_CheckChanges = procedure;

  VID_MenuInit = procedure;
  VID_MenuDraw = procedure;
  VID_MenuKey = function(i: integer): pchar;

var
  viddef: viddef_t;

implementation

end.