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.239 by elmex, Tue May 23 20:00:55 2006 UTC vs.
Revision 1.241 by root, Tue May 23 23:14:46 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;
… …
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} 887}
888 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
922}
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";
892} 927}
893 928
… …
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
… …
1193 my $cmd = $1; 1237 my $cmd = $1;
1194 my @args = split /\|/, $2; 1238 my @args = split /\|/, $2;
1195 @args = (".*") unless @args; 1239 @args = (".*") unless @args;
1196 1240
1197 my $text = CFClient::pod_to_pango $head2->content; 1241 my $text = CFClient::pod_to_pango $head2->content;
1242 my @par = CFClient::pod_to_pango_list $head2->content; use Data::Dumper; warn Dumper \@par;#d#
1198 1243
1199 for my $arg (@args) { 1244 for my $arg (@args) {
1200 $arg = $arg eq ".*" ? "" : " $arg"; 1245 $arg = $arg eq ".*" ? "" : " $arg";
1201 1246
1202 $MAPWIDGET->add_command ("$cmd$arg", $text); 1247 $MAPWIDGET->add_command ("$cmd$arg", $text);
1203 } 1248 }
1204 } 1249 }
1250
1251 $self->{noface} = new_from_file CFClient::Texture
1252 CFClient::find_rcfile "noface.png", minify => 1, mipmap => 1;
1205 1253
1206 $self 1254 $self
1207} 1255}
1208 1256
1209sub conn::stats_update { 1257sub conn::stats_update {
… …
1406 1454
1407 my $id = $FACEMAP->get ($hash); 1455 my $id = $FACEMAP->get ($hash);
1408 1456
1409 unless ($id) { 1457 unless ($id) {
1410 # create new id for face 1458 # create new id for face
1411 # i love transactions 1459 # I love transactions
1412 for (1..100) { 1460 for (1..100) {
1413 my $txn = $CFClient::DB_ENV->txn_begin; 1461 my $txn = $CFClient::DB_ENV->txn_begin;
1414 my $status = $FACEMAP->db_get (id => $id, BerkeleyDB::DB_RMW); 1462 my $status = $FACEMAP->db_get (id => $id, BerkeleyDB::DB_RMW);
1415 if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND) { 1463 if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND) {
1416 $id++; 1464 $id = ($id || 16) + 1;
1417 if ($FACEMAP->put (id => $id) == 0 1465 if ($FACEMAP->put (id => $id) == 0
1418 && $FACEMAP->put ($hash => $id) == 0) { 1466 && $FACEMAP->put ($hash => $id) == 0) {
1419 $txn->txn_commit; 1467 $txn->txn_commit;
1420 1468
1421 goto gotid; 1469 goto gotid;
… …
1429 1477
1430gotid: 1478gotid:
1431 $face->{id} = $id; 1479 $face->{id} = $id;
1432 $MAP->set_face ($facenum => $id); 1480 $MAP->set_face ($facenum => $id);
1433 $self->{faceid}[$facenum] = $id;#d# 1481 $self->{faceid}[$facenum] = $id;#d#
1482
1434 $TILECACHE->get ($id) 1483 $TILECACHE->get ($id) || do {
1484 my $tex = $self->{noface};
1485 $MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
1486 undef
1487 };
1435} 1488}
1436 1489
1437sub conn::face_update { 1490sub conn::face_update {
1438 my ($self, $facenum, $face) = @_; 1491 my ($self, $facenum, $face) = @_;
1439 1492
… …
1862 1915
1863Event::loop; 1916Event::loop;
1864 1917
1865END { CFClient::SDL_Quit } 1918END { CFClient::SDL_Quit }
1866 1919
1920=head1 NAME
1921
1867=head1 pclient - Crossfire+ and Crossfire game client 1922pclient - A Crossfire+ and Crossfire game client
1868 1923
1869Pclient is a Crossfire+ and Crossfire game client. 1924=head1 SYNOPSIS
1870 1925
1871=head2 Features 1926Just 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 1927
1901=head1 USAGE 1928=head1 USAGE
1902 1929
1903=head2 The Map 1930Pclient utilises OpenGL for all UI elements and the game. It is supposed to be used
1904 1931fullscreen 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 1932
1971=head1 AUTHOR 1933=head1 AUTHOR
1972 1934
1973Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org> 1935Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
1974 1936

Diff Legend

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