… | |
… | |
831 | |
831 | |
832 | sub make_inventory_window { |
832 | sub make_inventory_window { |
833 | my $invwin = new CFClient::UI::FancyFrame |
833 | my $invwin = new CFClient::UI::FancyFrame |
834 | user_w => $WIDTH * (4/5), user_h => $HEIGHT * (4/5), title => "Inventory"; |
834 | user_w => $WIDTH * (4/5), user_h => $HEIGHT * (4/5), title => "Inventory"; |
835 | |
835 | |
836 | $invwin->add (my $hb = new CFClient::UI::HBox); |
836 | $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); |
837 | |
837 | |
838 | $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1); |
838 | $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1); |
839 | $vb1->add (my $lbl = new CFClient::UI::Label); |
839 | $vb1->add (my $lbl = new CFClient::UI::Label); |
840 | $lbl->set_text ("Player"); |
840 | $lbl->set_text ("Player"); |
841 | $vb1->add ($INV = new CFClient::UI::Inventory expand => 1); |
841 | $vb1->add ($INV = new CFClient::UI::Inventory expand => 1); |
… | |
… | |
861 | ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] }; |
861 | ($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] }; |
862 | $FULLSCREEN = $CFG->{fullscreen}; |
862 | $FULLSCREEN = $CFG->{fullscreen}; |
863 | $FAST = $CFG->{fast}; |
863 | $FAST = $CFG->{fast}; |
864 | |
864 | |
865 | CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN |
865 | CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN |
866 | or die "SDL_SetVideoMode failed!\n"; |
866 | or die "SDL_SetVideoMode failed: " . (CFClient::SDL_GetError) . "\n"; |
867 | |
867 | |
868 | $SDL_ACTIVE = 1; |
868 | $SDL_ACTIVE = 1; |
869 | $LAST_REFRESH = time - 0.01; |
869 | $LAST_REFRESH = time - 0.01; |
870 | |
870 | |
871 | CFClient::gl_init; |
871 | CFClient::gl_init; |
… | |
… | |
1617 | sdl_mode => 0, |
1617 | sdl_mode => 0, |
1618 | width => 640, |
1618 | width => 640, |
1619 | height => 480, |
1619 | height => 480, |
1620 | fullscreen => 0, |
1620 | fullscreen => 0, |
1621 | fast => 0, |
1621 | fast => 0, |
1622 | map_scale => 0.5, |
1622 | map_scale => 1, |
1623 | fow_enable => 1, |
1623 | fow_enable => 1, |
1624 | fow_intensity => 0.45, |
1624 | fow_intensity => 0.45, |
1625 | fow_smooth => 0, |
1625 | fow_smooth => 0, |
1626 | gui_fontsize => 1, |
1626 | gui_fontsize => 1, |
1627 | log_fontsize => 1, |
1627 | log_fontsize => 1, |