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.37 by root, Sat Apr 8 22:25:37 2006 UTC vs.
Revision 1.46 by elmex, Sun Apr 9 17:39:56 2006 UTC

… …
30 30
31our $WIDTH; 31our $WIDTH;
32our $HEIGHT; 32our $HEIGHT;
33our $FULLSCREEN; 33our $FULLSCREEN;
34 34
35our $UIFONT; 35our $FONTSIZE;
36 36
37our $SDL_TIMER; 37our $SDL_TIMER;
38our $SDL_APP; 38our $SDL_APP;
39our $SDL_EV = new SDL::Event; 39our $SDL_EV = new SDL::Event;
40our %SDL_CB; 40our %SDL_CB;
41 41
42our @GL_INIT; # hooks called on every gl init 42our @GL_INIT; # hooks called on every gl init
43 43
44our $ALT_ENTER_MESSAGE; 44our $ALT_ENTER_MESSAGE;
45 45
46our $TOPLEVEL;
47
46our $tw; # Test widget #d# 48our $tw; # Test widget #d#
49
50my $last_refresh;
47 51
48sub init_screen { 52sub init_screen {
49 $SDL_APP = new SDL::App 53 $SDL_APP = new SDL::App
50 -flags => SDL_ANYFORMAT | SDL_HWSURFACE, 54 -flags => SDL_ANYFORMAT | SDL_HWSURFACE,
51 -title => "Crossfire+ Client", 55 -title => "Crossfire+ Client",
… …
57 -blue_size => 8, 61 -blue_size => 8,
58 -double_buffer => 1, 62 -double_buffer => 1,
59 -fullscreen => $FULLSCREEN, 63 -fullscreen => $FULLSCREEN,
60 -resizeable => 0; 64 -resizeable => 0;
61 65
66 $last_refresh = SDL::GetTicks;
67
62 %GL_EXT = map +($_ => 1), split /\s+/, Crossfire::Client::gl_extensions; 68 %GL_EXT = map +($_ => 1), split /\s+/, Crossfire::Client::gl_extensions;
63 69
64 $GL_EXT{GL_ARB_texture_non_power_of_two} 70 $GL_EXT{GL_ARB_texture_non_power_of_two}
65 or warn "WARNING: non-power-of-two opengl extension required"; 71 or warn "WARNING: non-power-of-two opengl extension required";
66 72
67 $UIFONT = SDL::TTFOpenFont Crossfire::Client::find_rcfile "uifont.ttf", $HEIGHT / 40 73 $FONTSIZE = int $HEIGHT / 50;
68 or die "TTFOpenFont: $!";
69 74
70 $ALT_ENTER_MESSAGE = new Crossfire::Client::Widget::Label 0, $HEIGHT - $HEIGHT / 40, 10, $UIFONT, "Alt-Enter toggles fullscreen mode"; 75 $ALT_ENTER_MESSAGE = new Crossfire::Client::Widget::Label
76 0, $FONTSIZE, $HEIGHT - $FONTSIZE, $FONTSIZE,
77 "Use <b>Alt-Enter</b> to toggle fullscreen mode";
71 $ALT_ENTER_MESSAGE->move (0, $HEIGHT - ($ALT_ENTER_MESSAGE->size_request)[1]); 78 $ALT_ENTER_MESSAGE->move (0, $HEIGHT - ($ALT_ENTER_MESSAGE->size_request)[1]);
72 $ALT_ENTER_MESSAGE->activate; 79 $TOPLEVEL->add ($ALT_ENTER_MESSAGE);
73 80
74 # Test code #d# 81 # Test code #d#
82 unless ($tw) { # haha...
83 $tw = new Crossfire::Client::Widget::Animator;
84 my $lbl1 = new Crossfire::Client::Widget::Label
85 0, 0, 10, $FONTSIZE, "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!";
86 my $lbl2 = new Crossfire::Client::Widget::Label
87 0, 0, 10, $FONTSIZE, "LBL2";
88
89 my $vb = new Crossfire::Client::Widget::VBox;
75 my $frm = new Crossfire::Client::Widget::Frame; 90 my $f = new Crossfire::Client::Widget::FancyFrame;
76 $tw = new Crossfire::Client::Widget::Window; 91 my $f2 = new Crossfire::Client::Widget::FancyFrame;
77 $frm->add (new Crossfire::Client::Widget::Label 0, 0, 10, $UIFONT, "Foo in the garden!"); 92 $f->add ($lbl1);
93 $f2->add ($lbl2);
94 $vb->add ($f);
95 $vb->add ($f2, 1);
96
78 $tw->add ($frm); 97 $tw->add ($vb);
98 $tw->w (400);
99 $tw->h (300);
100 $tw->move ($WIDTH - 200, 0);
101 $tw->moveto (0, 0);
102 $TOPLEVEL->add ($tw);
79 103
80 $tw->move (0, $HEIGHT - 120); 104# $f->move ($WIDTH - 200, 0);
81 $tw->activate; 105# $TOPLEVEL->add ($f);
82 # Test code end #d# 106 }
83 107
84 glClearColor 0, 0, 0, 0; 108 glClearColor 0, 0, 0, 0;
85 109
86 glEnable GL_TEXTURE_2D; 110 glEnable GL_TEXTURE_2D;
87 glEnable GL_COLOR_MATERIAL; 111 glEnable GL_COLOR_MATERIAL;
… …
112 user => $CFG->{user}, 136 user => $CFG->{user},
113 pass => $CFG->{password}, 137 pass => $CFG->{password},
114 mapw => 50, 138 mapw => 50,
115 maph => 37, 139 maph => 37,
116 ; 140 ;
141
142 Crossfire::Client::lowdelay fileno $CONN->{fh};
117} 143}
118 144
119sub stop_game { 145sub stop_game {
120 remove Glib::Source $SDL_TIMER; 146 remove Glib::Source $SDL_TIMER;
121 147
… …
127sub force_refresh { 153sub force_refresh {
128 glViewport 0, 0, $WIDTH, $HEIGHT; 154 glViewport 0, 0, $WIDTH, $HEIGHT;
129 155
130 glMatrixMode GL_PROJECTION; 156 glMatrixMode GL_PROJECTION;
131 glLoadIdentity; 157 glLoadIdentity;
132 glOrtho 0, $WIDTH, $HEIGHT, 0, -100 , 100; 158 glOrtho 0, $WIDTH, $HEIGHT, 0, -6000 , 6000;
133 glMatrixMode GL_MODELVIEW; 159 glMatrixMode GL_MODELVIEW;
134 160
135 glClear GL_COLOR_BUFFER_BIT; 161 glClear GL_COLOR_BUFFER_BIT;
136 162
137 $_->draw for @Crossfire::Client::Widget::ACTIVE_WIDGETS; 163 $TOPLEVEL->draw;
138 164
139 SDL::GLSwapBuffers; 165 SDL::GLSwapBuffers;
140} 166}
167
168my %ANIMATE;
141 169
142my $refresh_handler; 170my $refresh_handler;
143 171
144sub refresh { 172sub refresh {
145 $refresh_handler ||= add Glib::Idle sub { 173 $refresh_handler ||= add Glib::Idle sub {
174 my $next_refresh = SDL::GetTicks;
175 my $interval = ($next_refresh - $last_refresh) * 0.001;
176 $last_refresh = $next_refresh;
177
146 force_refresh; 178 force_refresh;
179 $_->animate ($interval) for grep $_, values %ANIMATE;
180
181 if (%ANIMATE) {
182 1
183 } else {
147 undef $refresh_handler; 184 undef $refresh_handler;
185 0
148 0 186 }
149 }; 187 };
188}
189
190sub animation_start {
191 my ($widget) = @_;
192 $ANIMATE{$widget} = $widget;
193 Scalar::Util::weaken $ANIMATE{$widget};
194
195 refresh;
196}
197
198sub animation_stop {
199 my ($widget) = @_;
200 delete $ANIMATE{$widget};
150} 201}
151 202
152%SDL_CB = ( 203%SDL_CB = (
153 SDL_QUIT() => sub { 204 SDL_QUIT() => sub {
154 main_quit Gtk2; 205 main_quit Gtk2;
… …
193} 244}
194 245
195sub conn::map_scroll { 246sub conn::map_scroll {
196 my ($self, $dx, $dy) = @_; 247 my ($self, $dx, $dy) = @_;
197 248
198 refresh; 249# refresh;
199} 250}
200 251
201sub conn::map_clear { 252sub conn::map_clear {
202 my ($self) = @_; 253 my ($self) = @_;
203 254
204 refresh; 255# refresh;
205} 256}
206 257
207sub conn::face_find { 258sub conn::face_find {
208 my ($self, $face) = @_; 259 my ($self, $face) = @_;
209 260
… …
317 368
318 369
319############################################################################# 370#############################################################################
320 371
321SDL::Init SDL_INIT_EVERYTHING; 372SDL::Init SDL_INIT_EVERYTHING;
322SDL::TTFInit; 373
374$TOPLEVEL = Crossfire::Client::Widget::Toplevel->new;
323 375
324my $mapwidget = Crossfire::Client::Widget::MapWidget->new; 376my $mapwidget = Crossfire::Client::Widget::MapWidget->new;
325 377
326$mapwidget->activate; 378$TOPLEVEL->add ($mapwidget);
327$mapwidget->focus_in; 379$mapwidget->focus_in;
328 380
329Crossfire::Client::read_cfg "$Crossfire::VARDIR/pclientrc"; 381Crossfire::Client::read_cfg "$Crossfire::VARDIR/pclientrc";
330 382
331$CFG ||= { 383$CFG ||= {
… …
334 fullscreen => 0, 386 fullscreen => 0,
335 host => "crossfire.schmorp.de", 387 host => "crossfire.schmorp.de",
336 port => 13327, 388 port => 13327,
337}; 389};
338 390
391Crossfire::Client::set_font Crossfire::Client::find_rcfile "uifont.ttf";
392
339$FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } || {}; 393$FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } || {};
340 394
341run_config_dialog 395run_config_dialog
342 login => sub { start_game }, 396 login => sub { start_game },
343 logout => sub { stop_game }; 397 logout => sub { stop_game };

Diff Legend

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