index 0d623dd29481b56f03311aef5873ef3b61b2474d..8015bb4ca6740a2fb1704722aa461d19e7f53b0d 100644 (file)
interface
procedure r_Game_Draw;
- procedure DrawLoadingStat;
- procedure DrawMenuBackground (tex: AnsiString);
+ procedure r_Game_DrawLoadingStat;
+ procedure r_Game_DrawMenuBackground (tex: AnsiString);
implementation
g_textures, e_input, e_sound,
g_language, g_console, g_menu, g_triggers, g_player, g_options, g_monsters, g_map, g_panel, g_window,
g_items, g_weapons, g_gfx, g_phys, g_net, g_gui, g_netmaster,
- g_game, r_console, r_gfx, r_items, r_map
+ g_game, r_console, r_gfx, r_items, r_map, r_panel
;
var
end;
end;
-procedure DrawLoadingStat();
+procedure r_Game_DrawLoadingStat;
procedure drawRect (x, y, w, h: Integer);
begin
if (w < 1) or (h < 1) then exit;
end;
end;
-procedure DrawMenuBackground(tex: AnsiString);
+procedure r_Game_DrawMenuBackground (tex: AnsiString);
var
w, h: Word;
ID: DWord;
begin
pan := TPanel(gDrawPanelList.front());
if ((pan.tag and tagmask) = 0) then break;
- if doDraw then pan.Draw(doAmbient, ambColor);
+ if doDraw then r_Panel_Draw(pan, doAmbient, ambColor);
gDrawPanelList.popFront();
end;
end
begin
if (gState = STATE_MENU) then
begin
- if (g_ActiveWindow = nil) or (g_ActiveWindow.BackTexture = '') then DrawMenuBackground('MENU_BACKGROUND');
+ if (g_ActiveWindow = nil) or (g_ActiveWindow.BackTexture = '') then r_Game_DrawMenuBackground('MENU_BACKGROUND');
// F3 at menu will show game loading dialog
if e_KeyPressed(IK_F3) then g_Menu_Show_LoadMenu(true);
if (g_ActiveWindow <> nil) then
else
back := 'INTER';
- DrawMenuBackground(back);
+ r_Game_DrawMenuBackground(back);
DrawCustomStat();
begin
back := 'INTER';
- DrawMenuBackground(back);
+ r_Game_DrawMenuBackground(back);
DrawSingleStat();
if gState = STATE_ENDPIC then
begin
ID := DWORD(-1);
- if g_Texture_Get('TEXTURE_endpic', ID) then DrawMenuBackground('TEXTURE_endpic')
- else DrawMenuBackground(_lc[I_TEXTURE_ENDPIC]);
+ if g_Texture_Get('TEXTURE_endpic', ID) then r_Game_DrawMenuBackground('TEXTURE_endpic')
+ else r_Game_DrawMenuBackground(_lc[I_TEXTURE_ENDPIC]);
if g_ActiveWindow <> nil then
begin
// e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight);
// //e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
// end;
- DrawMenuBackground('MENU_BACKGROUND');
+ r_Game_DrawMenuBackground('MENU_BACKGROUND');
e_DarkenQuadWH(0, 0, gScreenWidth, gScreenHeight, 150);
g_Serverlist_Draw(slCurrent, slTable);
end;