| … | |
… | |
| 25 | |
25 | |
| 26 | use Carp (); |
26 | use Carp (); |
| 27 | use AnyEvent (); |
27 | use AnyEvent (); |
| 28 | use BerkeleyDB; |
28 | use BerkeleyDB; |
| 29 | use Pod::POM (); |
29 | use Pod::POM (); |
|
|
30 | use Scalar::Util (); |
| 30 | use Storable (); # finally |
31 | use Storable (); # finally |
| 31 | |
32 | |
| 32 | package CFClient::PodToPango; |
33 | package CFClient::PodToPango; |
| 33 | |
34 | |
| 34 | use base Pod::POM::View::Text; |
35 | use base Pod::POM::View::Text; |
| … | |
… | |
| 51 | } |
52 | } |
| 52 | |
53 | |
| 53 | sub view_item { |
54 | sub view_item { |
| 54 | ("\t" x ($indent / 4)) |
55 | ("\t" x ($indent / 4)) |
| 55 | . $_[1]->title->present ($_[0]) |
56 | . $_[1]->title->present ($_[0]) |
| 56 | . "\n" |
57 | . "\n\n" |
| 57 | . $_[1]->content->present ($_[0]) |
58 | . $_[1]->content->present ($_[0]) |
| 58 | } |
59 | } |
| 59 | |
60 | |
| 60 | sub view_verbatim { |
61 | sub view_verbatim { |
| 61 | (join "", |
62 | (join "", |
| … | |
… | |
| 298 | |
299 | |
| 299 | } |
300 | } |
| 300 | |
301 | |
| 301 | sub update_widgets { |
302 | sub update_widgets { |
| 302 | my ($self) = @_; |
303 | my ($self) = @_; |
|
|
304 | |
|
|
305 | # necessary to avoid cyclic references |
|
|
306 | Scalar::Util::weaken $self; |
| 303 | |
307 | |
| 304 | my $button_cb = sub { |
308 | my $button_cb = sub { |
| 305 | my (undef, $ev, $x, $y) = @_; |
309 | my (undef, $ev, $x, $y) = @_; |
| 306 | |
310 | |
| 307 | my $targ = $::CONN->{player}{tag}; |
311 | my $targ = $::CONN->{player}{tag}; |
| … | |
… | |
| 507 | $mods .= "+" if $mods ne ''; |
511 | $mods .= "+" if $mods ne ''; |
| 508 | |
512 | |
| 509 | return $mods . CFClient::SDL_GetKeyName ($sym); |
513 | return $mods . CFClient::SDL_GetKeyName ($sym); |
| 510 | } |
514 | } |
| 511 | |
515 | |
| 512 | package CFClient::Pickup; |
|
|
| 513 | # some pickup constants |
|
|
| 514 | sub PU_NOTHING { 0x00000000 } |
|
|
| 515 | |
|
|
| 516 | sub PU_DEBUG { 0x10000000 } |
|
|
| 517 | sub PU_INHIBIT { 0x20000000 } |
|
|
| 518 | sub PU_STOP { 0x40000000 } |
|
|
| 519 | sub PU_NEWMODE { 0x80000000 } |
|
|
| 520 | |
|
|
| 521 | sub PU_RATIO { 0x0000000F } |
|
|
| 522 | |
|
|
| 523 | sub PU_FOOD { 0x00000010 } |
|
|
| 524 | sub PU_DRINK { 0x00000020 } |
|
|
| 525 | sub PU_VALUABLES { 0x00000040 } |
|
|
| 526 | sub PU_BOW { 0x00000080 } |
|
|
| 527 | |
|
|
| 528 | sub PU_ARROW { 0x00000100 } |
|
|
| 529 | sub PU_HELMET { 0x00000200 } |
|
|
| 530 | sub PU_SHIELD { 0x00000400 } |
|
|
| 531 | sub PU_ARMOUR { 0x00000800 } |
|
|
| 532 | |
|
|
| 533 | sub PU_BOOTS { 0x00001000 } |
|
|
| 534 | sub PU_GLOVES { 0x00002000 } |
|
|
| 535 | sub PU_CLOAK { 0x00004000 } |
|
|
| 536 | sub PU_KEY { 0x00008000 } |
|
|
| 537 | |
|
|
| 538 | sub PU_MISSILEWEAPON { 0x00010000 } |
|
|
| 539 | sub PU_ALLWEAPON { 0x00020000 } |
|
|
| 540 | sub PU_MAGICAL { 0x00040000 } |
|
|
| 541 | sub PU_POTION { 0x00080000 } |
|
|
| 542 | |
|
|
| 543 | sub PU_SPELLBOOK { 0x00100000 } |
|
|
| 544 | sub PU_SKILLSCROLL { 0x00200000 } |
|
|
| 545 | sub PU_READABLES { 0x00400000 } |
|
|
| 546 | sub PU_MAGIC_DEVICE { 0x00800000 } |
|
|
| 547 | |
|
|
| 548 | sub PU_NOT_CURSED { 0x01000000 } |
|
|
| 549 | |
|
|
| 550 | sub PU_JEWELS { 0x02000000 } |
|
|
| 551 | |
|
|
| 552 | |
|
|
| 553 | 1; |
516 | 1; |
| 554 | |
517 | |
| 555 | =back |
518 | =back |
| 556 | |
519 | |
| 557 | =head1 AUTHOR |
520 | =head1 AUTHOR |
