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.14 by elmex, Fri Apr 7 16:36:44 2006 UTC vs.
Revision 1.15 by elmex, Fri Apr 7 17:18:22 2006 UTC

15use Crossfire; 15use Crossfire;
16use Crossfire::Client; 16use Crossfire::Client;
17use Crossfire::Protocol; 17use Crossfire::Protocol;
18 18
19use Client::Util; 19use Client::Util;
20use Client::Widget;
20 21
21our $VERSION = '0.1'; 22our $VERSION = '0.1';
22 23
23our $CFG; 24our $CFG;
24our $CONN; 25our $CONN;
123 }, 124 },
124 SDL_VIDEOEXPOSE() => sub { 125 SDL_VIDEOEXPOSE() => sub {
125 refresh; 126 refresh;
126 }, 127 },
127 SDL_KEYDOWN() => sub { 128 SDL_KEYDOWN() => sub {
129# Client::Widget::feed_sdl_key_down_event ($SDL_EV);
128 }, 130 },
129 SDL_KEYUP() => sub { 131 SDL_KEYUP() => sub {
132# Client::Widget::feed_sdl_key_up_event ($SDL_EV);
130 }, 133 },
131 SDL_MOUSEMOTION() => sub { 134 SDL_MOUSEMOTION() => sub {
132 warn "sdl motion\n";#d# 135 warn "sdl motion\n";#d#
133 }, 136 },
134 SDL_MOUSEBUTTONDOWN() => sub { 137 SDL_MOUSEBUTTONDOWN() => sub {
138# Client::Widget::feed_sdl_button_down_event ($SDL_EV);
135 }, 139 },
136 SDL_MOUSEBUTTONUP() => sub { 140 SDL_MOUSEBUTTONUP() => sub {
141# Client::Widget::feed_sdl_button_up_event ($SDL_EV);
137 }, 142 },
138 SDL_ACTIVEEVENT() => sub { 143 SDL_ACTIVEEVENT() => sub {
139 warn "active\n";#d# 144 warn "active\n";#d#
140 }, 145 },
141); 146);
204 host => "crossfire.schmorp.de", 209 host => "crossfire.schmorp.de",
205 port => 13327, 210 port => 13327,
206}; 211};
207 212
208Client::Util::run_config_dialog 213Client::Util::run_config_dialog
209 login => sub { print "Login $_[0] with $_[1]\n" }, 214 login => sub { start_game },
210 logout => sub { print "Logout" }; 215 logout => sub { stop_game },
211 216
212main Gtk2; 217main Gtk2;
213

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines