… | |
… | |
689 | font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip); |
689 | font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip); |
690 | $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label |
690 | $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label |
691 | font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0, align => -1, text => $label, tooltip => $tooltip); |
691 | font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0, align => -1, text => $label, tooltip => $tooltip); |
692 | } |
692 | } |
693 | |
693 | |
694 | $hb->add (my $tbl2 = new CFClient::UI::Table expand => 1); |
694 | $vb->add (my $tbl2 = new CFClient::UI::Table expand => 1); |
695 | |
695 | |
696 | my $row = 0; |
696 | my $row = 0; |
697 | my $col = 0; |
697 | my $col = 0; |
698 | |
698 | |
699 | my %resist_names = ( |
699 | my %resist_names = ( |
|
|
700 | slow => ["Slow", |
700 | slow => "<b>Slow</b> (slows you down when you are hit by the spell. Monsters will have an opportunity to come near you faster and hit you more often.)", |
701 | "<b>Slow</b> (slows you down when you are hit by the spell. Monsters will have an opportunity to come near you faster and hit you more often.)"], |
|
|
702 | holyw => ["Holy Word", |
701 | holyw => "<b>Holy Word</b> (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)", |
703 | "<b>Holy Word</b> (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)"], |
|
|
704 | conf => ["Confusion", |
702 | conf => "<b>Confusion</b> (If you are hit by confusion you will move into random directions, and likely into monsters.)", |
705 | "<b>Confusion</b> (If you are hit by confusion you will move into random directions, and likely into monsters.)"], |
|
|
706 | fire => ["Fire", |
703 | fire => "<b>Fire</b> (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)", |
707 | "<b>Fire</b> (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)"], |
|
|
708 | depl => ["Depletion", |
704 | depl => "<b>Depletion</b> (some monsters and other effects can cause stats depletion)", |
709 | "<b>Depletion</b> (some monsters and other effects can cause stats depletion)"], |
|
|
710 | magic => ["Magic", |
705 | magic => "<b>Magic</b> (resistance to magic spells like magic missile or similar)", |
711 | "<b>Magic</b> (resistance to magic spells like magic missile or similar)"], |
|
|
712 | drain => ["Draining", |
706 | drain => "<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)", |
713 | "<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)"], |
|
|
714 | acid => ["Acid", |
707 | acid => "<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)", |
715 | "<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)"], |
|
|
716 | pois => ["Poison", |
708 | pois => "<b>Poison</b> (resistance to getting poisoned)", |
717 | "<b>Poison</b> (resistance to getting poisoned)"], |
|
|
718 | para => ["Paralysation", |
709 | para => "<b>Paralysation</b> (this resistance affects the chance you get paralysed)", |
719 | "<b>Paralysation</b> (this resistance affects the chance you get paralysed)"], |
|
|
720 | deat => ["Death", |
710 | deat => "<b>Death</b> (resistance against death spells)", |
721 | "<b>Death</b> (resistance against death spells)"], |
|
|
722 | phys => ["Physical", |
711 | phys => "<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat. The value displayed here is also displayed in the 'Arm' field on the left.)", |
723 | "<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat. The value displayed here is also displayed in the 'Arm' field on the left.)"], |
|
|
724 | blind => ["Blind", |
712 | blind => "<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)", |
725 | "<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)"], |
|
|
726 | fear => ["Fear", |
713 | fear => "<b>Fear</b> (this attack will drive you away from monsters who cast this and hit you successfully, being resistant to this helps a lot when fighting those monsters)", |
727 | "<b>Fear</b> (this attack will drive you away from monsters who cast this and hit you successfully, being resistant to this helps a lot when fighting those monsters)"], |
|
|
728 | tund => ["Turn undead", |
714 | tund => "<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead...", |
729 | "<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead..."], |
|
|
730 | elec => ["Electricity", |
715 | elec => "<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)", |
731 | "<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)"], |
|
|
732 | cold => ["Cold", |
716 | cold => "<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)", |
733 | "<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"], |
|
|
734 | ghit => ["Ghost hit", |
717 | ghit => "<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)", |
735 | "<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"], |
718 | ); |
736 | ); |
719 | for (qw/slow holyw conf fire depl magic |
737 | for (qw/slow holyw conf fire depl magic |
720 | drain acid pois para deat phys |
738 | drain acid pois para deat phys |
721 | blind fear tund elec cold ghit/) |
739 | blind fear tund elec cold ghit/) |
722 | { |
740 | { |
… | |
… | |
727 | template => "-100%", |
745 | template => "-100%", |
728 | align => +1, |
746 | align => +1, |
729 | valign => 0, |
747 | valign => 0, |
730 | can_events => 1, |
748 | can_events => 1, |
731 | can_hover => 1, |
749 | can_hover => 1, |
732 | tooltip => $resist_names{$_}, |
750 | tooltip => $resist_names{$_}->[1], |
733 | ); |
751 | ); |
734 | $tbl2->add ($col + 1, $row, new CFClient::UI::Image |
752 | $tbl2->add ($col + 1, $row, new CFClient::UI::Image |
735 | font => $FONT_FIXED, |
753 | font => $FONT_FIXED, |
736 | can_hover => 1, |
754 | can_hover => 1, |
737 | can_events => 1, |
755 | can_events => 1, |
738 | path => "ui/resist/resist_$_.png", |
756 | path => "ui/resist/resist_$_.png", |
739 | tooltip => $resist_names{$_}, |
757 | tooltip => $resist_names{$_}->[1], |
|
|
758 | ); |
|
|
759 | $tbl2->add ($col + 2, $row, new CFClient::UI::Label |
|
|
760 | text => $resist_names{$_}->[0], |
|
|
761 | font => $FONT_FIXED, |
|
|
762 | can_hover => 1, |
|
|
763 | can_events => 1, |
|
|
764 | tooltip => $resist_names{$_}->[1], |
740 | ); |
765 | ); |
741 | |
766 | |
742 | $row++; |
767 | $row++; |
743 | if ($row % 6 == 0) { |
768 | if ($row % 6 == 0) { |
744 | $col += 2; |
769 | $col += 3; |
745 | $row = 0; |
770 | $row = 0; |
746 | } |
771 | } |
747 | } |
772 | } |
748 | |
773 | |
749 | $vb->add (my $tbl3 = new CFClient::UI::Table expand => 1); |
|
|
750 | $STATWIDS->{"_skill_tbl"} = $tbl3; |
|
|
751 | |
|
|
752 | update_stats_window ({}); |
774 | update_stats_window ({}); |
753 | |
775 | |
754 | $vb |
776 | $vb |
|
|
777 | } |
|
|
778 | |
|
|
779 | sub skill_window { |
|
|
780 | my ($self) = @_; |
|
|
781 | $STATWIDS->{"_skill_tbl"} = new CFClient::UI::Table expand => 1; |
755 | } |
782 | } |
756 | |
783 | |
757 | sub formsep($) { |
784 | sub formsep($) { |
758 | scalar reverse join ",", unpack "(A3)*", reverse $_[0] * 1 |
785 | scalar reverse join ",", unpack "(A3)*", reverse $_[0] * 1 |
759 | } |
786 | } |
… | |
… | |
1352 | debug => 1, |
1379 | debug => 1, |
1353 | filter => (new CFClient::UI::ScrolledWindow expand => 1, scroll_y => 1), |
1380 | filter => (new CFClient::UI::ScrolledWindow expand => 1, scroll_y => 1), |
1354 | ; |
1381 | ; |
1355 | |
1382 | |
1356 | $ntb->add ( |
1383 | $ntb->add ( |
1357 | "Stats & Skills" => $STATS_PAGE = stats_window, |
1384 | "Stats" => $STATS_PAGE = stats_window, |
1358 | "Shows statistics and skill window, where all your Stats, Resistances and Skills are shown." |
1385 | "Shows statistics, where all your Stats and Resistances are shown." |
|
|
1386 | ); |
|
|
1387 | $ntb->add ( |
|
|
1388 | "Skills" => $STATS_PAGE = skill_window, |
|
|
1389 | "Shows all your Skills." |
1359 | ); |
1390 | ); |
1360 | $ntb->add ( |
1391 | $ntb->add ( |
1361 | Spellbook => $SPELL_PAGE = new CFClient::UI::SpellList, |
1392 | Spellbook => $SPELL_PAGE = new CFClient::UI::SpellList, |
1362 | "Displays all spells you have and lets you edit keyboard shortcuts for them." |
1393 | "Displays all spells you have and lets you edit keyboard shortcuts for them." |
1363 | ); |
1394 | ); |