ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/pclient
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.238 by elmex, Tue May 23 18:10:52 2006 UTC vs.
Revision 1.242 by root, Tue May 23 23:26:31 2006 UTC

… …
210 } 210 }
211 ); 211 );
212 212
213 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale"); 213 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
214 $table->add (1, $row++, new CFClient::UI::Slider 214 $table->add (1, $row++, new CFClient::UI::Slider
215 range => [$CFG->{map_scale}, 0.25, 2, 0.05, 0.05], 215 range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
216 tooltip => "Enlarge or shrink the displayed map", 216 tooltip => "Enlarge or shrink the displayed map",
217 connect_changed => sub { 217 connect_changed => sub {
218 my ($self, $value) = @_; 218 my ($self, $value) = @_;
219 $CFG->{map_scale} = $value; 219 $CFG->{map_scale} = 2 ** $value;
220 } 220 }
221 ); 221 );
222 222
223 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War"); 223 $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");
224 $table->add (1, $row++, new CFClient::UI::CheckBox 224 $table->add (1, $row++, new CFClient::UI::CheckBox
… …
425 425
426 $win 426 $win
427} 427}
428 428
429sub make_stats_window { 429sub make_stats_window {
430 my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats"; 430 my $tgw = new CFClient::UI::FancyFrame title => "Stats";
431 431
432 $tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox); 432 $tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
433 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1, 433 $vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,
434 can_hover => 1, can_events => 1, 434 can_hover => 1, can_events => 1,
435 tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server."); 435 tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");
… …
438 tooltip => "The map you are currently on (if supported by the server)."); 438 tooltip => "The map you are currently on (if supported by the server).");
439 439
440 $vb->add (my $hb = new CFClient::UI::HBox expand => 1); 440 $vb->add (my $hb = new CFClient::UI::HBox expand => 1);
441 $hb->add (my $tbl = new CFClient::UI::Table expand => 1); 441 $hb->add (my $tbl = new CFClient::UI::Table expand => 1);
442 442
443 my $black = [0, 0, 0]; 443 my $color2 = [1, 1, 0];
444 444
445 for ( 445 for (
446 [0, 0, st_str => "Str", 30, "<b>Physical Strength</b>, determines damage dealt with weapons, how much you can carry, and how often you can attack"], 446 [0, 0, st_str => "Str", 30, "<b>Physical Strength</b>, determines damage dealt with weapons, how much you can carry, and how often you can attack"],
447 [0, 1, st_dex => "Dex", 30, "<b>Dexterity</b>, your physical agility. Determines chance of being hit and affects armor class and speed"], 447 [0, 1, st_dex => "Dex", 30, "<b>Dexterity</b>, your physical agility. Determines chance of being hit and affects armor class and speed"],
448 [0, 2, st_con => "Con", 30, "<b>Constitution</b>, physical health and toughness. Determines how many healthpoints you can have"], 448 [0, 2, st_con => "Con", 30, "<b>Constitution</b>, physical health and toughness. Determines how many healthpoints you can have"],
… …
461 my ($col, $row, $id, $label, $template, $tooltip) = @$_; 461 my ($col, $row, $id, $label, $template, $tooltip) = @$_;
462 462
463 $tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label 463 $tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label
464 font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip); 464 font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);
465 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label 465 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label
466 font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $black, valign => 0, align => -1, text => $label, tooltip => $tooltip); 466 font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0, align => -1, text => $label, tooltip => $tooltip);
467 } 467 }
468 468
469 $hb->add (my $tbl2 = new CFClient::UI::Table expand => 1); 469 $hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
470 470
471 my $row = 0; 471 my $row = 0;
… …
867 } 867 }
868} 868}
869 869
870sub make_inventory_window { 870sub make_inventory_window {
871 my $invwin = new CFClient::UI::FancyFrame 871 my $invwin = new CFClient::UI::FancyFrame
872 user_w => $WIDTH * (4/5), user_h => $HEIGHT * (4/5), title => "Inventory"; 872 user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Inventory";
873 873
874 $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); 874 $invwin->add (my $hb = new CFClient::UI::HBox expand => 1);
875 875
876 $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1); 876 $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1);
877 $vb1->add (my $lbl = new CFClient::UI::Label); 877 $vb1->add (my $lbl = new CFClient::UI::Label);
… …
882 $vb2->add ($INVR_LBL = new CFClient::UI::Label); 882 $vb2->add ($INVR_LBL = new CFClient::UI::Label);
883 $INVR_LBL->set_text ("Floor"); 883 $INVR_LBL->set_text ("Floor");
884 $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1); 884 $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1);
885 885
886 $invwin 886 $invwin
887}
888
889sub make_help_window {
890 my $win = new CFClient::UI::FancyFrame
891 user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Documentation";
892
893 $win->add (my $vbox = new CFClient::UI::VBox);
894
895 $vbox->add (my $buttons = new CFClient::UI::HBox);
896 $vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8);
897
898 for (
899 [intro => "Introduction"],
900 [command_help => "Commands"],
901 [skill_help => "Skills"],
902 ) {
903 my ($pod, $label) = @$_;
904
905 $buttons->add (new CFClient::UI::Button
906 text => $label,
907 connect_activate => sub {
908 my $parser = new Pod::POM;
909 my $pom = $parser->parse_file (CFClient::find_rcfile "pod/$pod.pod");
910
911 $viewer->clear;
912
913 $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0])
914 for @{ CFClient::pod_to_pango_list $pom };
915 },
916 );
917 }
918
919 $viewer->add_paragraph ([1, 1, 0, 1], "<big>Use one of the buttons above to display a document.</big>");
920
921 $win
887} 922}
888 923
889sub sdl_init { 924sub sdl_init {
890 CFClient::SDL_Init 925 CFClient::SDL_Init
891 and die "SDL::Init failed!\n"; 926 and die "SDL::Init failed!\n";
… …
985 CFClient::write_cfg "$Crossfire::VARDIR/pclientrc"; 1020 CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
986 status "Configuration Saved"; 1021 status "Configuration Saved";
987 }, 1022 },
988 ); 1023 );
989 1024
1025 $BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => make_help_window,
1026 tooltip => "View Documentation");
1027
990 $BUTTONBAR->add (new CFClient::UI::Button 1028 $BUTTONBAR->add (new CFClient::UI::Button
991 text => "Quit", 1029 text => "Quit",
992 tooltip => "Terminates the program", 1030 tooltip => "Terminates the program",
993 connect_activate => sub { 1031 connect_activate => sub {
994 if ($CONN) { 1032 if ($CONN) {
995 open_quit_dialog 1033 open_quit_dialog;
996 } else { 1034 } else {
997 exit 1 1035 exit;
998 } 1036 }
999 }, 1037 },
1000 ); 1038 );
1001 1039
1002 $BUTTONBAR->show; 1040 $BUTTONBAR->show;
… …
1038 1076
1039sub audio_init { 1077sub audio_init {
1040 if ($CFG->{audio_enable}) { 1078 if ($CFG->{audio_enable}) {
1041 if (open my $fh, "<", CFClient::find_rcfile "sounds/config") { 1079 if (open my $fh, "<", CFClient::find_rcfile "sounds/config") {
1042 $SDL_MIXER = !CFClient::Mix_OpenAudio; 1080 $SDL_MIXER = !CFClient::Mix_OpenAudio;
1081
1082 unless ($SDL_MIXER) {
1083 status "Unable to open sound device: there will be no sound";
1084 return;
1085 }
1086
1043 CFClient::Mix_AllocateChannels 8; 1087 CFClient::Mix_AllocateChannels 8;
1044 CFClient::MixMusic::volume $CFG->{bgm_volume} * 128; 1088 CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;
1045 1089
1046 audio_music_finished; 1090 audio_music_finished;
1047 1091
… …
1201 1245
1202 $MAPWIDGET->add_command ("$cmd$arg", $text); 1246 $MAPWIDGET->add_command ("$cmd$arg", $text);
1203 } 1247 }
1204 } 1248 }
1205 1249
1250 $self->{noface} = new_from_file CFClient::Texture
1251 CFClient::find_rcfile "noface.png", minify => 1, mipmap => 1;
1252
1206 $self 1253 $self
1207} 1254}
1208 1255
1209sub conn::stats_update { 1256sub conn::stats_update {
1210 my ($self, $stats) = @_; 1257 my ($self, $stats) = @_;
… …
1406 1453
1407 my $id = $FACEMAP->get ($hash); 1454 my $id = $FACEMAP->get ($hash);
1408 1455
1409 unless ($id) { 1456 unless ($id) {
1410 # create new id for face 1457 # create new id for face
1411 # i love transactions 1458 # I love transactions
1412 for (1..100) { 1459 for (1..100) {
1413 my $txn = $CFClient::DB_ENV->txn_begin; 1460 my $txn = $CFClient::DB_ENV->txn_begin;
1414 my $status = $FACEMAP->db_get (id => $id, BerkeleyDB::DB_RMW); 1461 my $status = $FACEMAP->db_get (id => $id, BerkeleyDB::DB_RMW);
1415 if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND) { 1462 if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND) {
1416 $id++; 1463 $id = ($id || 16) + 1;
1417 if ($FACEMAP->put (id => $id) == 0 1464 if ($FACEMAP->put (id => $id) == 0
1418 && $FACEMAP->put ($hash => $id) == 0) { 1465 && $FACEMAP->put ($hash => $id) == 0) {
1419 $txn->txn_commit; 1466 $txn->txn_commit;
1420 1467
1421 goto gotid; 1468 goto gotid;
… …
1429 1476
1430gotid: 1477gotid:
1431 $face->{id} = $id; 1478 $face->{id} = $id;
1432 $MAP->set_face ($facenum => $id); 1479 $MAP->set_face ($facenum => $id);
1433 $self->{faceid}[$facenum] = $id;#d# 1480 $self->{faceid}[$facenum] = $id;#d#
1481
1434 $TILECACHE->get ($id) 1482 $TILECACHE->get ($id) || do {
1483 my $tex = $self->{noface};
1484 $MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
1485 undef
1486 };
1435} 1487}
1436 1488
1437sub conn::face_update { 1489sub conn::face_update {
1438 my ($self, $facenum, $face) = @_; 1490 my ($self, $facenum, $face) = @_;
1439 1491
… …
1628 return unless $CONN; 1680 return unless $CONN;
1629 1681
1630 $FLOORBOX->clear; 1682 $FLOORBOX->clear;
1631 $FLOORBOX->add (new CFClient::UI::Empty expand => 1); 1683 $FLOORBOX->add (new CFClient::UI::Empty expand => 1);
1632 1684
1633 my $count = 4; 1685 my $count = 7;
1634 for (@{ $CONN->{container}{0} }) { 1686 for (@{ $CONN->{container}{0} }) {
1635 if (--$count) { 1687 if (--$count) {
1636 $FLOORBOX->add (new CFClient::UI::InventoryItem item => $_); 1688 $FLOORBOX->add (new CFClient::UI::InventoryItem item => $_);
1637 } else { 1689 } else {
1638 $FLOORBOX->add (new CFClient::UI::Label text => "More..."); 1690 $FLOORBOX->add (new CFClient::UI::Label text => "More...");
… …
1862 1914
1863Event::loop; 1915Event::loop;
1864 1916
1865END { CFClient::SDL_Quit } 1917END { CFClient::SDL_Quit }
1866 1918
1919=head1 NAME
1920
1867=head1 pclient - Crossfire+ and Crossfire game client 1921pclient - A Crossfire+ and Crossfire game client
1868 1922
1869Pclient is a Crossfire+ and Crossfire game client. 1923=head1 SYNOPSIS
1870 1924
1871=head2 Features 1925Just run it - no commandline arguments are supported.
1872
1873=over 4
1874
1875=item Fullscreen Map
1876
1877PClient can uses a fullscreen map, which greatly enhances how much of the
1878game world you can see.
1879
1880=item Persistent Map Cache (Crossfire+ only)
1881
1882PClient can persistently cache all map data it received from the
1883server. This not only allows it to display an overview map, but also
1884ensures that once-explored areas will be available the next time you want
1885to explore more.
1886
1887=item Hardware acceleration
1888
1889Unlike most Crossfire clients, PClient take advantage of OpenGL hardware
1890acceleration. Most modern graphics cards have difficulties with 2D
1891acceleration, while 3D graphics is accelerated well.
1892
1893=item No arbitrary limits
1894
1895Unlike other Crossfire clients, pclient does not suffer from arbitrary
1896limits (like a fixed amount of face numbers). There are still limits, but
1897they are not arbitrarily low :)
1898
1899=back
1900 1926
1901=head1 USAGE 1927=head1 USAGE
1902 1928
1903=head2 The Map 1929Pclient utilises OpenGL for all UI elements and the game. It is supposed to be used
1904 1930fullscreen and interactively.
1905The map is always displayed in the background, behind all other windows and UI elements.
1906
1907#TODO# middle-click scrolls
1908#
1909# keys:
1910#
1911# a apply
1912# keypad moves, kp_5 applies ranged attack to self
1913
1914Starting to type enters the I<completion mode>. In that mode, you can type
1915abbreviations or commands and have them executed as soon as they match a
1916valid command. This is best explained by a few examples:
1917
1918Typing B<climb> will display a list of commands with I<climb> in their
1919name, such as I<ready_skill climbing> and I<use_skill climbing>.
1920
1921You can abbreviate commands by typing only the first character of every
1922word (or even characters within the word - the client will try to make
1923a good guess, as long as the characters are in order). For example,
1924typing I<iwor> will likely select I<invoke word of recall>, while I<ccfo>
1925will select I<cast create food>. Likewise, I<rscli> will likely select
1926I<ready_skill climbing> and I<usl> will give you I<use_skill levitation>.
1927
1928You can enter space and other text as arguemnt to the command. For
1929example, C<cfoo waybread> will expand to C<cast create food waybread>.
1930
1931=head2 The map overview
1932
1933#TODO#
1934
1935=head2 The Status area in the lower right corner
1936
1937#TODO#
1938
1939=head2 The I<Statistics>/I>Stats> window
1940
1941#TODO#
1942
1943=head1 FAQ
1944
1945=over 4
1946
1947=item The client is very sluggish and slow, what can I do about this?
1948
1949Most likely, you don't have accelerated OpenGL support. Try to find a
1950newer driver, or a driver from your hardware vendor, that features OpenGL
1951support.
1952
1953If this is not an option, the following Setup options reduce the load and
1954will likely make the client playable with sofwtare rendering (it will
1955still be slow, though):
1956
1957=over 4
1958
1959=item B<Video Mode> should be set as low as possible (e.g. 640x480)
1960
1961=item Enable B<Fast & Ugly> mode
1962
1963=item Disable B<Fog of War>
1964
1965=item Increase B<Map Scale>
1966
1967=back
1968
1969=back
1970 1931
1971=head1 AUTHOR 1932=head1 AUTHOR
1972 1933
1973Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org> 1934Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
1974 1935

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines