ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/cfplus
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.120 by root, Sun Oct 1 14:48:51 2006 UTC vs.
Revision 1.133 by root, Sun Dec 3 01:03:49 2006 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2
3my $startup_done = sub { };
4
5# do splash-screen thingy on win32
6BEGIN {
7 if (%PAR::LibCache && $^O eq "MSWin32") {
8 while (my ($filename, $zip) = each %PAR::LibCache) {
9 $zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp");
10 }
11
12 require Win32::GUI::SplashScreen;
13
14 Win32::GUI::SplashScreen::Show (
15 -file => "$ENV{PAR_TEMP}/SPLASH.bmp",
16 );
17
18 $startup_done = sub {
19 Win32::GUI::SplashScreen::Done (1);
20 };
21 }
22}
2 23
3use strict; 24use strict;
4use utf8; 25use utf8;
26
27use Carp 'verbose';
5 28
6# do things only needed for single-binary version (par) 29# do things only needed for single-binary version (par)
7BEGIN { 30BEGIN {
8 if (%PAR::LibCache) { 31 if (%PAR::LibCache) {
9 @INC = grep ref, @INC; # weed out all paths except pars loader refs 32 @INC = grep ref, @INC; # weed out all paths except pars loader refs
10 33
11 while (my ($filename, $zip) = each %PAR::LibCache) { 34 while (my ($filename, $zip) = each %PAR::LibCache) {
12 for ($zip->memberNames) { 35 for ($zip->memberNames) {
13 next unless /^\/root\/(.*)/; 36 next unless /^root\/(.*)/;
14 $zip->extractMember ($_, "$ENV{PAR_TEMP}/$1") 37 $zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")
15 unless -e "$ENV{PAR_TEMP}/$1"; 38 unless -e "$ENV{PAR_TEMP}/$1";
16 } 39 }
17 } 40 }
18 41
… …
45$SIG{QUIT} = sub { Carp::cluck "QUIT" }; 68$SIG{QUIT} = sub { Carp::cluck "QUIT" };
46$SIG{PIPE} = 'IGNORE'; 69$SIG{PIPE} = 'IGNORE';
47 70
48$Event::Eval = 0; 71$Event::Eval = 0;
49$Event::DIED = sub { 72$Event::DIED = sub {
50 # TODO: display dialog box or so 73 CFPlus::fatal Carp::longmess $_[1]
51 Carp::cluck $_[1];#d#TODO: remove when stable
52 return;#d#
53 CFPlus::fatal ($_[1]);
54}; 74};
55
56our $VERSION = '0.9';
57 75
58my $MAX_FPS = 60; 76my $MAX_FPS = 60;
59my $MIN_FPS = 5; # unused as of yet 77my $MIN_FPS = 5; # unused as of yet
60 78
61our $META_SERVER = "crossfire.real-time.com:13326"; 79our $META_SERVER = "http://metaserver.schmorp.de/current.json";
62 80
63our $LAST_REFRESH; 81our $LAST_REFRESH;
64our $NOW; 82our $NOW;
65 83
66our $CFG; 84our $CFG;
… …
104 122
105our $INVENTORY_PAGE; 123our $INVENTORY_PAGE;
106our $STATS_PAGE; 124our $STATS_PAGE;
107our $SKILL_PAGE; 125our $SKILL_PAGE;
108our $SPELL_PAGE; 126our $SPELL_PAGE;
127our $SPELL_LIST;
109 128
110our $HELP_WINDOW; 129our $HELP_WINDOW;
111our $MESSAGE_WINDOW; 130our $MESSAGE_WINDOW;
112our $FLOORBOX; 131our $FLOORBOX;
113our $GAUGES; 132our $GAUGES;
… …
137 $STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]); 156 $STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
138} 157}
139 158
140sub debug { 159sub debug {
141 $DEBUG_STATUS->set_text ($_[0]); 160 $DEBUG_STATUS->set_text ($_[0]);
161}
162
163sub message {
164 my ($para) = @_;
165
166 my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
167
168 $para->{markup} = "<span foreground='#ffffff'>$time</span> $para->{markup}";
169
170 $LOGVIEW->add_paragraph ($para);
171 $LOGVIEW->scroll_to_bottom;
142} 172}
143 173
144sub destroy_query_dialog { 174sub destroy_query_dialog {
145 (delete $_[0]{query_dialog})->destroy 175 (delete $_[0]{query_dialog})->destroy
146 if $_[0]{query_dialog}; 176 if $_[0]{query_dialog};
… …
351 381
352 my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; 382 my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
353 383
354 my ($host, $port) = split /:/, $PROFILE->{host}; 384 my ($host, $port) = split /:/, $PROFILE->{host};
355 385
356 $MAP = new CFPlus::Map $mapsize, $mapsize; 386 $MAP = new CFPlus::Map;
357 387
358 $CONN = eval { 388 $CONN = eval {
359 new CFPlus::Protocol 389 new CFPlus::Protocol
360 host => $host, 390 host => $host,
361 port => $port || 13327, 391 port => $port || 13327,
362 user => $PROFILE->{user}, 392 user => $PROFILE->{user},
363 pass => $PROFILE->{password}, 393 pass => $PROFILE->{password},
364 mapw => $mapsize, 394 mapw => $mapsize,
365 maph => $mapsize, 395 maph => $mapsize,
366 396
367 client => "cfplus $VERSION $] $^O", 397 client => "cfplus $CFPlus::VERSION $] $^O",
368 398
369 map_widget => $MAPWIDGET, 399 map_widget => $MAPWIDGET,
370 logview => $LOGVIEW, 400 logview => $LOGVIEW,
371 statusbox => $STATUSBOX, 401 statusbox => $STATUSBOX,
372 map => $MAP, 402 map => $MAP,
… …
399sub stop_game { 429sub stop_game {
400 $LOGIN_BUTTON->set_text ("Login"); 430 $LOGIN_BUTTON->set_text ("Login");
401 $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); 431 $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
402 $SETUP_DIALOG->show; 432 $SETUP_DIALOG->show;
403 $PL_WINDOW->hide; 433 $PL_WINDOW->hide;
404 $SPELL_PAGE->clear_spells; 434 $SPELL_LIST->clear_spells;
405 435
406 return unless $CONN; 436 return unless $CONN;
407 437
408 status "connection closed"; 438 status "connection closed";
409 439
410 destroy_query_dialog $CONN; 440 destroy_query_dialog $CONN;
411 $CONN->destroy; 441 $CONN->destroy;
412 $CONN = 0; # false, does not autovivify 442 $CONN = 0; # false, does not autovivify
413 443
414 undef $MAP; 444 undef $MAP;
415 undef $PROFILE;
416} 445}
417 446
418sub graphics_setup { 447sub graphics_setup {
419 my $vbox = new CFPlus::UI::VBox; 448 my $vbox = new CFPlus::UI::VBox;
420 449
… …
637 $table->add (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 }); 666 $table->add (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });
638 $table->add (0, 2, new CFPlus::UI::Label text => "Show FPS"); 667 $table->add (0, 2, new CFPlus::UI::Label text => "Show FPS");
639 $table->add (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 }); 668 $table->add (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
640 $table->add (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips"); 669 $table->add (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");
641 $table->add (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 }); 670 $table->add (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
671 $table->add (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { die "violator" } );
642 672
643 my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05); 673 my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);
644 674
645 for my $x (0..2) { 675 for my $x (0..2) {
646 for my $y (0 .. 2) { 676 for my $y (0 .. 2) {
… …
828 858
829 my $table = $METASERVER->{table}; 859 my $table = $METASERVER->{table};
830 $table->clear; 860 $table->clear;
831 $table->add (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list..."); 861 $table->add (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
832 862
833 my $buf; 863 my $ok = 0;
834 864
835 my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0; 865 CFPlus::background {
866 my $ua = CFPlus::lwp_useragent;
836 867
837 unless ($fh) { 868 CFPlus::background_msg CFPlus::from_json +(CFPlus::lwp_check $ua->get ($META_SERVER))->decoded_content;
838 $label->set_text ("unable to contact metaserver: $!"); 869 } sub {
839 return; 870 my ($msg) = @_;
840 } 871 if ($msg) {
841
842 Event->io (fd => $fh, poll => 'r', cb => sub {
843 my $res = sysread $fh, $buf, 8192, length $buf;
844
845 if (!defined $res) {
846 $_[0]->w->cancel;
847 $label->set_text ("error while retrieving server list: $!");
848 } elsif ($res == 0) {
849 $_[0]->w->cancel;
850 status "server list retrieved";
851
852 utf8::decode $buf if utf8::valid $buf;
853
854 $table->clear; 872 $table->clear;
855 873
856 my @tip = ( 874 my @tip = (
857 "The current number of users logged in on the server.", 875 "The current number of users logged in on the server.",
858 "The hostname of the server.", 876 "The hostname of the server.",
… …
868 for 0 .. $#col; 886 for 0 .. $#col;
869 887
870 my @align = qw(1 0 1 1 -1); 888 my @align = qw(1 0 1 1 -1);
871 889
872 my $y = 0; 890 my $y = 0;
873 for my $m (sort { $b->[3] <=> $a->[3] } map [split /\|/], split /\015?\012/, $buf) { 891 for my $m (
892 sort {
893 $b->{version} <=> $a->{version}
894 or $b->{users} <=> $a->{users}
895 }
896 @{ $msg->{servers} }
897 ) {
874 my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) = @$m; 898 my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) =
899 @$m{qw(ip age hostname users version description ibytes obytes uptime)};
875 900
876 for ($desc) { 901 for ($desc) {
877 s/<br>/\n/gi; 902 s/<br>/\n/gi;
878 s/<li>/\n· /gi; 903 s/<li>/\n· /gi;
879 s/<.*?>//sgi; 904 s/<.*?>//sgi;
880 s/&/&amp;/g; 905 s/&amp;/&/g;
881 s/</&lt;/g; 906 s/&lt;/</g;
882 s/>/&gt;/g; 907 s/&gt;/>/g;
883 } 908 }
884 909
885 $uptime = sprintf "%dd %02d:%02d:%02d", 910 $uptime = sprintf "%dd %02d:%02d:%02d",
886 (int $m->[8] / 86400), 911 (int $uptime / 86400),
887 (int $m->[8] / 3600) % 24, 912 (int $uptime / 3600) % 24,
888 (int $m->[8] / 60) % 60, 913 (int $uptime / 60) % 60,
889 $m->[8] % 60; 914 $uptime % 60;
890 915
891 $m = [$users, $host, $uptime, $version, $desc]; 916 $m = [$users, $host, $uptime, $version, $desc];
892 917
893 $y++; 918 $y++;
894 919
… …
904 ), 929 ),
905 (new CFPlus::UI::Empty expand => 1), 930 (new CFPlus::UI::Empty expand => 1),
906 ]); 931 ]);
907 932
908 $table->add ($_, $y, new CFPlus::UI::Label 933 $table->add ($_, $y, new CFPlus::UI::Label
934 max_w => $::WIDTH * 0.4,
909 ellipsise => 0, 935 ellipsise => 0,
910 align => $align[$_], 936 align => $align[$_],
911 text => $m->[$_], 937 text => $m->[$_],
912 tooltip => $tip[$_], 938 tooltip => $tip[$_],
939 fg => ($m->[3] =~ /\+$/ ? [1, 1, 1] : [.7, .7, .7]),
913 can_hover => 1, 940 can_hover => 1,
914 can_events => 1, 941 can_events => 1,
915 fontsize => 0.8) 942 fontsize => 0.8)
916 for 0 .. $#$m; 943 for 0 .. $#$m;
917 } 944 }
945 } else {
946 $ok or $label->set_text ("error while contacting metaserver");
918 } 947 }
919 }); 948 };
949
920} 950}
921 951
922sub metaserver_dialog { 952sub metaserver_dialog {
923 my $vbox = new CFPlus::UI::VBox; 953 my $vbox = new CFPlus::UI::VBox;
924 my $table = new CFPlus::UI::Table; 954 my $table = new CFPlus::UI::Table;
… …
928 title => "Server List", 958 title => "Server List",
929 name => 'metaserver_dialog', 959 name => 'metaserver_dialog',
930 x => 'center', 960 x => 'center',
931 y => 'center', 961 y => 'center',
932 z => 3, 962 z => 3,
963 force_w => $::WIDTH * 0.9,
933 force_h => $::HEIGHT * 0.4, 964 force_h => $::HEIGHT * 0.7,
934 child => $vbox, 965 child => $vbox,
935 has_close_button => 1, 966 has_close_button => 1,
936 table => $table, 967 table => $table,
937 on_visibility_change => sub { 968 on_visibility_change => sub {
938 update_metaserver ($_[0]) if $_[1]; 969 update_metaserver ($_[0]) if $_[1];
… …
1058 $table->add (1, 13, my $saycmd = new CFPlus::UI::CheckBox 1089 $table->add (1, 13, my $saycmd = new CFPlus::UI::CheckBox
1059 state => $CFG->{show_tips}, 1090 state => $CFG->{show_tips},
1060 tooltip => "Show the <b>Tip of the day</b> window at startup?", 1091 tooltip => "Show the <b>Tip of the day</b> window at startup?",
1061 on_changed => sub { 1092 on_changed => sub {
1062 my ($self, $value) = @_; 1093 my ($self, $value) = @_;
1063 $CFG->{shop_tips} = $value; 1094 $CFG->{show_tips} = $value;
1064 0 1095 0
1065 } 1096 }
1066 ); 1097 );
1067 1098
1068 $vbox->add (new CFPlus::UI::FancyFrame 1099 $vbox->add (new CFPlus::UI::FancyFrame
… …
1159 ["Boots" => PICKUP_BOOTS], 1190 ["Boots" => PICKUP_BOOTS],
1160 ["Gloves" => PICKUP_GLOVES], 1191 ["Gloves" => PICKUP_GLOVES],
1161 ["Cloaks" => PICKUP_CLOAK], 1192 ["Cloaks" => PICKUP_CLOAK],
1162 ], 1193 ],
1163 1194
1164 ["Readables", 2, 2, 1195 ["Readables", 2, 0,
1165 ["Spellbooks" => PICKUP_SPELLBOOK], 1196 ["Spellbooks" => PICKUP_SPELLBOOK],
1166 ["Skillscrolls" => PICKUP_SKILLSCROLL], 1197 ["Skillscrolls" => PICKUP_SKILLSCROLL],
1167 ["Normal Books/Scrolls" => PICKUP_READABLES], 1198 ["Normal Books/Scrolls" => PICKUP_READABLES],
1168 ], 1199 ],
1169 ["Misc", 2, 7, 1200 ["Misc", 2, 5,
1170 ["Food" => PICKUP_FOOD], 1201 ["Food" => PICKUP_FOOD],
1171 ["Drinks" => PICKUP_DRINK], 1202 ["Drinks" => PICKUP_DRINK],
1172 ["Valuables (Money, Gems)" => PICKUP_VALUABLES], 1203 ["Valuables (Money, Gems)" => PICKUP_VALUABLES],
1173 ["Keys" => PICKUP_KEY], 1204 ["Keys" => PICKUP_KEY],
1174 ["Magical Items" => PICKUP_MAGICAL], 1205 ["Magical Items" => PICKUP_MAGICAL],
1175 ["Potions" => PICKUP_POTION], 1206 ["Potions" => PICKUP_POTION],
1176 ["Magic Devices" => PICKUP_MAGIC_DEVICE], 1207 ["Magic Devices" => PICKUP_MAGIC_DEVICE],
1177 ["Ignore cursed" => PICKUP_NOT_CURSED], 1208 ["Ignore cursed" => PICKUP_NOT_CURSED],
1178 ["Jewelery" => PICKUP_JEWELS], 1209 ["Jewelery" => PICKUP_JEWELS],
1210 ["Flesh" => PICKUP_FLESH],
1179 ], 1211 ],
1180 ["Weight/Value ratio", 2, 17] 1212 ["Weight/Value ratio", 2, 17]
1181 ) 1213 )
1182 { 1214 {
1183 my ($title, $x, $y, @bits) = @$_; 1215 my ($title, $x, $y, @bits) = @$_;
… …
1233 $table 1265 $table
1234} 1266}
1235 1267
1236my %SORT_ORDER = ( 1268my %SORT_ORDER = (
1237 type => undef, 1269 type => undef,
1238 mtime => sub { sort { 1270 mtime => sub {
1271 my $NOW = time;
1272 sort {
1273 my $atime = $a->{mtime} - $NOW; $atime = $atime < 5 * 60 ? int $atime / 60 : 6;
1274 my $btime = $b->{mtime} - $NOW; $btime = $btime < 5 * 60 ? int $btime / 60 : 6;
1275
1239 ($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED) 1276 ($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED)
1240 or $b->{mtime} <=> $a->{mtime} 1277 or $btime <=> $atime
1241 or $a->{type} <=> $b->{type} 1278 or $a->{type} <=> $b->{type}
1279 } @_
1242 } @_ }, 1280 },
1243 weight => sub { sort { 1281 weight => sub { sort {
1244 $a->{weight} * ($a->{nrof} || 1) <=> $b->{weight} * ($b->{nrof} || 1) 1282 $a->{weight} * ($a->{nrof} || 1) <=> $b->{weight} * ($b->{nrof} || 1)
1245 or $a->{type} <=> $b->{type} 1283 or $a->{type} <=> $b->{type}
1246 } @_ }, 1284 } @_ },
1247); 1285);
… …
1272 #TODO# update to weigh/maxweight 1310 #TODO# update to weigh/maxweight
1273 $hb1->add ($STATWIDS->{i_weight} = new CFPlus::UI::Label align => -1); 1311 $hb1->add ($STATWIDS->{i_weight} = new CFPlus::UI::Label align => -1);
1274 1312
1275 $vb1->add (my $sw1 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1); 1313 $vb1->add (my $sw1 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1276 $sw1->add ($INV = new CFPlus::UI::Inventory); 1314 $sw1->add ($INV = new CFPlus::UI::Inventory);
1315 $INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});
1277 1316
1278 $hb->add (my $vb2 = new CFPlus::UI::VBox); 1317 $hb->add (my $vb2 = new CFPlus::UI::VBox);
1279 1318
1280 $vb2->add ($INV_RIGHT_HB = new CFPlus::UI::HBox); 1319 $vb2->add ($INV_RIGHT_HB = new CFPlus::UI::HBox);
1281 1320
… …
1321 $ntb->add ( 1360 $ntb->add (
1322 "Skills (F3)" => $SKILL_PAGE = skill_window, 1361 "Skills (F3)" => $SKILL_PAGE = skill_window,
1323 "Shows all your Skills." 1362 "Shows all your Skills."
1324 ); 1363 );
1325 1364
1326 my $spellsw = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1); 1365 my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);
1327 $spellsw->add ($SPELL_PAGE = new CFPlus::UI::SpellList); 1366 $spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);
1328 $ntb->add ( 1367 $ntb->add (
1329 "Spellbook (F4)" => $spellsw, 1368 "Spellbook (F4)" => $spellsw,
1330 "Displays all spells you have and lets you edit keyboard shortcuts for them." 1369 "Displays all spells you have and lets you edit keyboard shortcuts for them."
1331 ); 1370 );
1332 $ntb->add ( 1371 $ntb->add (
… …
1883 CFPlus::Mix_AllocateChannels 8; 1922 CFPlus::Mix_AllocateChannels 8;
1884 CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128; 1923 CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128;
1885 1924
1886 audio_music_finished; 1925 audio_music_finished;
1887 1926
1927 local $_;
1888 while (<$fh>) { 1928 while (<$fh>) {
1889 next if /^\s*#/; 1929 next if /^\s*#/;
1890 next if /^\s*$/; 1930 next if /^\s*$/;
1891 1931
1892 my ($file, $volume, $event) = split /\s+/, $_, 3; 1932 my ($file, $volume, $event) = split /\s+/, $_, 3;
… …
2026 log_fontsize => 0.7, 2066 log_fontsize => 0.7,
2027 gauge_fontsize => 1, 2067 gauge_fontsize => 1,
2028 gauge_size => 0.35, 2068 gauge_size => 0.35,
2029 stat_fontsize => 0.7, 2069 stat_fontsize => 0.7,
2030 mapsize => 100, 2070 mapsize => 100,
2031 say_command => 'say', 2071 say_command => 'chat',
2032 audio_enable => 1, 2072 audio_enable => 1,
2033 bgm_enable => 1, 2073 bgm_enable => 1,
2034 bgm_volume => 0.25, 2074 bgm_volume => 0.25,
2035 face_prefetch => 0, 2075 face_prefetch => 0,
2036 output_sync => 1, 2076 output_sync => 1,
… …
2090# } 2130# }
2091# my $t2 = Time::HiRes::time; 2131# my $t2 = Time::HiRes::time;
2092# warn $t2-$t1; 2132# warn $t2-$t1;
2093# } 2133# }
2094 2134
2135 $startup_done->();
2136
2095 video_init; 2137 video_init;
2096 audio_init; 2138 audio_init;
2097} 2139}
2098 2140
2099show_tip_of_the_day if $CFG->{show_tips}; 2141show_tip_of_the_day if $CFG->{show_tips};
2100
2101use Data::Dumper; warn Dumper [CFPlus::win32_proxy_info()];#d#
2102 2142
2103Event::loop; 2143Event::loop;
2104#CFPlus::SDL_Quit; 2144#CFPlus::SDL_Quit;
2105#CFPlus::_exit 0; 2145#CFPlus::_exit 0;
2106 2146

Diff Legend

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