ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/lib/cf.pm
(Generate patch)

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.323 by root, Sat Jul 28 12:02:58 2007 UTC vs.
Revision 1.331 by root, Mon Aug 13 13:10:01 2007 UTC

… …
1370 $self->{deny_save} = 1; 1370 $self->{deny_save} = 1;
1371 1371
1372 $cf::PLAYER{$login} = $self; 1372 $cf::PLAYER{$login} = $self;
1373 1373
1374 $self 1374 $self
1375}
1376
1377=item $player->send_msg ($channel, $msg, $color, [extra...])
1378
1379=cut
1380
1381sub send_msg {
1382 my $ns = shift->ns
1383 or return;
1384 $ns->send_msg (@_);
1375} 1385}
1376 1386
1377=item $pl->quit_character 1387=item $pl->quit_character
1378 1388
1379Nukes the player without looking back. If logged in, the connection will 1389Nukes the player without looking back. If logged in, the connection will
… …
1921 $self->set_darkness_map; 1931 $self->set_darkness_map;
1922 Coro::cede; 1932 Coro::cede;
1923 $self->activate; 1933 $self->activate;
1924 } 1934 }
1925 1935
1936 $self->{last_save} = $cf::RUNTIME;
1937 $self->last_access ($cf::RUNTIME);
1938
1926 $self->in_memory (cf::MAP_IN_MEMORY); 1939 $self->in_memory (cf::MAP_IN_MEMORY);
1927 } 1940 }
1928 1941
1929 $self->post_load; 1942 $self->post_load;
1930} 1943}
… …
2238 } else { 2251 } else {
2239 $msg = $npc->name . " says: $msg" if $npc; 2252 $msg = $npc->name . " says: $msg" if $npc;
2240 $self->message ($msg, $flags); 2253 $self->message ($msg, $flags);
2241 } 2254 }
2242 } 2255 }
2256}
2257
2258=item $object->send_msg ($channel, $msg, $color, [extra...])
2259
2260=cut
2261
2262sub cf::object::send_msg {
2263 my $pl = shift->contr
2264 or return;
2265 $pl->send_msg (@_);
2243} 2266}
2244 2267
2245=item $player_object->may ("access") 2268=item $player_object->may ("access")
2246 2269
2247Returns wether the given player is authorized to access resource "access" 2270Returns wether the given player is authorized to access resource "access"
… …
2547 || s/<fg name=\"([^"]+)\">([^<]*)<\/fg>/[color=$1]${2}[\/color]/; 2570 || s/<fg name=\"([^"]+)\">([^<]*)<\/fg>/[color=$1]${2}[\/color]/;
2548 } 2571 }
2549 2572
2550 $color &= cf::NDI_COLOR_MASK; 2573 $color &= cf::NDI_COLOR_MASK;
2551 2574
2575 utf8::encode $msg;
2576
2552 if (0 && $msg =~ /\[/) { 2577 if (0 && $msg =~ /\[/) {
2578 # COMMAND/INFO
2553 $self->send_packet ("drawextinfo $color 4 0 $msg") 2579 $self->send_packet ("drawextinfo $color 10 8 $msg")
2554 } else { 2580 } else {
2555 $msg =~ s/\[\/?(?:b|i|u|fixed|color)[^\]]*\]//g; 2581 $msg =~ s/\[\/?(?:b|i|u|fixed|color)[^\]]*\]//g;
2556 $self->send_packet ("drawinfo $color $msg") 2582 $self->send_packet ("drawinfo $color $msg")
2557 } 2583 }
2558 } 2584 }
… …
2705our $safe = new Safe "safe"; 2731our $safe = new Safe "safe";
2706our $safe_hole = new Safe::Hole; 2732our $safe_hole = new Safe::Hole;
2707 2733
2708$SIG{FPE} = 'IGNORE'; 2734$SIG{FPE} = 'IGNORE';
2709 2735
2710$safe->permit_only (Opcode::opset qw(:base_core :base_mem :base_orig :base_math sort time)); 2736$safe->permit_only (Opcode::opset qw(
2737 :base_core :base_mem :base_orig :base_math
2738 grepstart grepwhile mapstart mapwhile
2739 sort time
2740));
2711 2741
2712# here we export the classes and methods available to script code 2742# here we export the classes and methods available to script code
2713 2743
2714=pod 2744=pod
2715 2745
2716The following functions and methods are available within a safe environment: 2746The following functions and methods are available within a safe environment:
2717 2747
2718 cf::object 2748 cf::object
2719 contr pay_amount pay_player map x y force_find force_add 2749 contr pay_amount pay_player map x y force_find force_add
2720 insert remove 2750 insert remove name archname title slaying race
2721 2751
2722 cf::object::player 2752 cf::object::player
2723 player 2753 player
2724 2754
2725 cf::player 2755 cf::player
… …
2730 2760
2731=cut 2761=cut
2732 2762
2733for ( 2763for (
2734 ["cf::object" => qw(contr pay_amount pay_player map force_find force_add x y 2764 ["cf::object" => qw(contr pay_amount pay_player map force_find force_add x y
2735 insert remove)], 2765 insert remove inv name archname title slaying race)],
2736 ["cf::object::player" => qw(player)], 2766 ["cf::object::player" => qw(player)],
2737 ["cf::player" => qw(peaceful)], 2767 ["cf::player" => qw(peaceful)],
2738 ["cf::map" => qw(trigger)], 2768 ["cf::map" => qw(trigger)],
2739) { 2769) {
2740 no strict 'refs'; 2770 no strict 'refs';
… …
2906 for (0 .. SOUND_CAST_SPELL_0 - 1) { 2936 for (0 .. SOUND_CAST_SPELL_0 - 1) {
2907 my $sound = $soundconf->{compat}[$_] 2937 my $sound = $soundconf->{compat}[$_]
2908 or next; 2938 or next;
2909 2939
2910 my $face = cf::face::find "sound/$sound->[1]"; 2940 my $face = cf::face::find "sound/$sound->[1]";
2911
2912 cf::sound::set $sound->[0] => $face; 2941 cf::sound::set $sound->[0] => $face;
2913 cf::sound::old_sound_index $_, $face; # gcfclient-compat 2942 cf::sound::old_sound_index $_, $face; # gcfclient-compat
2914 } 2943 }
2915 2944
2945 while (my ($k, $v) = each %{$soundconf->{event}}) {
2946 my $face = cf::face::find "sound/$v";
2947 cf::sound::set $k => $face;
2916 #TODO 2948 }
2917 } 2949 }
2918 } 2950 }
2919 2951
2920 1 2952 1
2921} 2953}

Diff Legend

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