… | |
… | |
34 | |
34 | |
35 | # so heal her |
35 | # so heal her |
36 | my $spell = cf::object::new "spell_heal"; |
36 | my $spell = cf::object::new "spell_heal"; |
37 | |
37 | |
38 | $spell->set_hp (0); |
38 | $spell->set_hp (0); |
39 | $spell->set_dam (0); # normal hp heal (none to aovid message) |
39 | $spell->set_dam (0); # normal hp heal (none to avoid message) |
40 | $spell->set_food (999); # fill food |
40 | $spell->set_food (999); # fill food |
41 | $spell->set_last_sp (9999); # fill sp |
41 | $spell->set_last_sp (9999); # fill sp |
42 | $spell->set_last_grace (9999); # fill gr |
42 | $spell->set_last_grace (9999); # fill gr |
43 | $spell->set_attacktype (cf::AT_CONFUSION | cf::AT_POISON | cf::AT_BLIND | cf::AT_DISEASE); |
43 | $spell->set_attacktype (cf::AT_CONFUSION | cf::AT_POISON | cf::AT_BLIND | cf::AT_DISEASE); |
44 | |
44 | |