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.9 by root, Fri Apr 7 13:53:38 2006 UTC vs.
Revision 1.12 by elmex, Fri Apr 7 16:29:19 2006 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2 2
3use strict; 3use strict;
4 4
5use Crossfire;
5use Crossfire::Client; 6use Crossfire::Client;
6use Crossfire::Protocol; 7use Crossfire::Protocol;
7 8
9use Client::Util;
10
8package Crossfire::Client; # uh, yeah 11package Crossfire::Client; # uh, yeah
9 12
10use strict; 13use strict;
14
15our $CFG;
16our $VERSION = '0.1';
11 17
12use SDL; 18use SDL;
13use SDL::App; 19use SDL::App;
14use SDL::Event; 20use SDL::Event;
15use SDL::Surface; 21use SDL::Surface;
… …
190 196
191############################################################################# 197#############################################################################
192 198
193use Event; 199use Event;
194 200
201Client::Util::read_cfg "$Crossfire::VARDIR/pclientrc";
202
203
204if ($ARGV[0] eq 'config') {
205 Client::Util::run_config_dialog;
206}
207
195glinit; 208glinit;
196 209
197$conn = new conn 210$conn = new conn
198 host => "cf.schmorp.de", 211 host => "cf.schmorp.de",
199 port => 13327; 212 port => 13327;
… …
204 } 217 }
205}); 218});
206 219
207Event::loop; 220Event::loop;
208 221
209

Diff Legend

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