… | |
… | |
3 | use strict; |
3 | use strict; |
4 | |
4 | |
5 | use Crossfire::Client; |
5 | use Crossfire::Client; |
6 | use Crossfire::Protocol; |
6 | use Crossfire::Protocol; |
7 | |
7 | |
|
|
8 | use Client::Util; |
|
|
9 | |
8 | package Crossfire::Client; # uh, yeah |
10 | package Crossfire::Client; # uh, yeah |
9 | |
11 | |
10 | use strict; |
12 | use strict; |
|
|
13 | |
|
|
14 | our $CFG; |
|
|
15 | our $VERSION = '0.1'; |
11 | |
16 | |
12 | use SDL; |
17 | use SDL; |
13 | use SDL::App; |
18 | use SDL::App; |
14 | use SDL::Event; |
19 | use SDL::Event; |
15 | use SDL::Surface; |
20 | use SDL::Surface; |
… | |
… | |
190 | |
195 | |
191 | ############################################################################# |
196 | ############################################################################# |
192 | |
197 | |
193 | use Event; |
198 | use Event; |
194 | |
199 | |
|
|
200 | Client::Util::read_cfg "$Crossfire::VARDIR/pclient"; |
|
|
201 | |
195 | glinit; |
202 | glinit; |
196 | |
203 | |
197 | $conn = new conn |
204 | $conn = new conn |
198 | host => "cf.schmorp.de", |
205 | host => "cf.schmorp.de", |
199 | port => 13327; |
206 | port => 13327; |
… | |
… | |
204 | } |
211 | } |
205 | }); |
212 | }); |
206 | |
213 | |
207 | Event::loop; |
214 | Event::loop; |
208 | |
215 | |
209 | |
|
|