… | |
… | |
507 | $mods .= "+" if $mods ne ''; |
507 | $mods .= "+" if $mods ne ''; |
508 | |
508 | |
509 | return $mods . CFClient::SDL_GetKeyName ($sym); |
509 | return $mods . CFClient::SDL_GetKeyName ($sym); |
510 | } |
510 | } |
511 | |
511 | |
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; |
512 | 1; |
554 | |
513 | |
555 | =back |
514 | =back |
556 | |
515 | |
557 | =head1 AUTHOR |
516 | =head1 AUTHOR |