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.142 by root, Wed Apr 19 07:30:33 2006 UTC vs.
Revision 1.143 by root, Wed Apr 19 08:05:07 2006 UTC

800 or return; 800 or return;
801 801
802 my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]} 802 my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]}
803 or return; 803 or return;
804 804
805 $SDL_MIXER->play_channel (-1, $chunk, 0, -1); 805 $SDL_MIXER->play_channel (-1, $chunk);
806 warn "sound $x,$y,$soundnum,$type\n";#d# 806# warn "sound $x,$y,$soundnum,$type\n";#d#
807} 807}
808 808
809sub conn::query { 809sub conn::query {
810 my ($self, $flags, $prompt) = @_; 810 my ($self, $flags, $prompt) = @_;
811 811
812 #TODO 812 #TODO, display dialog with relevant information
813 warn "<<<<QUERY:$flags:$prompt>>>\n";#d# 813 warn "<<<<QUERY:$flags:$prompt>>>\n";#d#
814} 814}
815 815
816sub conn::drawinfo { 816sub conn::drawinfo {
817 my ($self, $color, $text) = @_; 817 my ($self, $color, $text) = @_;
831 [0.99, 0.77, 0.26], 831 [0.99, 0.77, 0.26],
832 [0.74, 0.65, 0.41], 832 [0.74, 0.65, 0.41],
833 ); 833 );
834 834
835 $LOGVIEW->add_paragraph ($color[$color], $text); 835 $LOGVIEW->add_paragraph ($color[$color], $text);
836}
837
838sub conn::addspell {
839 my ($self, $spell) = @_;
840
841# $MAPWIDGET->add_abbrev ("invoke spell $spell->{name}",
836} 842}
837 843
838%SDL_CB = ( 844%SDL_CB = (
839 SDL_QUIT() => sub { 845 SDL_QUIT() => sub {
840 Event::unloop -1; 846 Event::unloop -1;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines