mirror of
https://github.com/sfall-team/sfall.git
synced 2026-07-27 16:52:34 -07:00
171 lines
7.3 KiB
Plaintext
171 lines
7.3 KiB
Plaintext
procedure start;
|
|
|
|
//nuka cola effects
|
|
//extra traits, lowered stats
|
|
|
|
#define dude_level (get_pc_stat(1))
|
|
|
|
//Traits
|
|
#define LowGravity "Low gravity"
|
|
#define Ironwall "Ironwall"
|
|
#define Swift "Swift"
|
|
#define RapidLearner "Rapid learner"
|
|
#define JackOfTrades "Jack of all trades"
|
|
#define DiligentLearner "Diligent learner"
|
|
#define CautiousPickpocket "Cautious pickpocket"
|
|
#define BrazenThief "Brazen thief"
|
|
#define PerfectAim "Perfect aim"
|
|
#define PatheticAim "Pathetic aim"
|
|
#define VileBreath "Vile breath"
|
|
#define NightPerson "Night person"
|
|
#define AnimalFriend "Animal friend"
|
|
|
|
//Perks
|
|
|
|
procedure setup_perk_dialog begin
|
|
set_perkbox_title("Choose a trait");
|
|
hide_real_perks;
|
|
perk_add_mode(1);
|
|
set_selectable_perk(LowGravity, 1, 46, "You've always found that the lightest touch has been enough to send your opponents flying. Unfortunately, the same applies to your opponents attacks against you, too.");
|
|
//set_selectable_perk(Ironwall, 1, 171, "You stand where you like, and even a rocket to the face isn't going to move you. Heck, even _you_ sometimes find it difficult to move you.");
|
|
//set_selectable_perk(Swift, 1, 19, "You can move a little faster than those around you, but you lack a little of the reflexes required to use your excessive speed.");
|
|
set_selectable_perk(RapidLearner, 1, 4, "Although you don't have the natural gifts held by others, you make up for it by being able to make much better use of your day to day experiences.");
|
|
set_selectable_perk(JackOfTrades, 1, 4, "Although you seem to be able to succeed in anything you put your mind too, you lack the concentration to master any one ability.");
|
|
set_selectable_perk(DiligentLearner, 1, 4, "You might take a little longer than most to fully grasp a lesson, but you usually manage to pick up a few extra ticks that no one else would have noticed.");
|
|
//set_selectable_perk(CautiousPickpocket, 1, 156, "You have a cautious personality that harms your chances of pulling of a theft. Perhaps with practise, that weakness could be turned into a strength.");
|
|
//set_selectable_perk(BrazenThief, 1, 112, "Your lack of reflexes has never harmed your skill as a thief; your approach to theft is to simply take whatever you like no matter who's watching. You find it helps if you look like you have a right to be somewhere.");
|
|
//set_selectable_perk(PerfectAim, 1, 86, "You don't make stupid mistakes with your weapon; if an opportunity presents itself, you will not miss. Your increased focus on harming your opponents obviously hurts your abilities to dodge, however.");
|
|
set_selectable_perk(PatheticAim, 1, 129, "No matter how hard you aim, you just can't seem to hit anything. On the other hand, no matter how long you stand around doing nothing, nobody seems to be able to hit you either.");
|
|
if(get_pc_base_stat(3) > 2) then begin
|
|
set_selectable_perk(VileBreath, 1, 129, "You are afflicted by a serious case of oral misodor. People tend to avoid your company, but your ability to dazzle your foes with a single exhalation gives you a head start in combat.");
|
|
end
|
|
/*if(get_pc_base_stat(3)>1 and get_pc_base_stat(6)>1 and get_pc_base_stat(3)<10) and get_pc_base_stat(6)<10) then begin
|
|
set_selectable_perk(AnimalFriend, 1, 1, "You are a pet lover. When your four-legged friends are nearby, you flourish and anything you put your mind to sorts itself out just easily. Without a pet's company you're a little grumpy and hapeless, though.");
|
|
end
|
|
if(get_pc_base_stat(1)>1 and get_pc_base_stat(4)>1 and get_pc_base_stat(1)<10) and get_pc_base_stat(4)<10) then begin
|
|
set_selectable_perk(AnimalFriend, 1, 1, "As a night-time person, you are more awake when the sun goes down. Your Intelligence and Perception are improved at night, but dulled during the day.");
|
|
end*/
|
|
end
|
|
|
|
procedure apply_traits_repeat begin
|
|
if(has_fake_trait(LowGravity)) then begin
|
|
set_attacker_knockback(dude_obj, 1, 3.0);
|
|
set_target_knockback(dude_obj, 1, 3.0);
|
|
end
|
|
/*if(has_fake_trait(Ironwall)) then begin
|
|
set_target_knockback(dude_obj, 0, 0);
|
|
end*/
|
|
if(has_fake_trait(RapidLearner)) then begin
|
|
set_xp_mod(200);
|
|
end
|
|
if(has_fake_trait(LowGravity)) then begin
|
|
set_attacker_knockback(dude_obj, 1, 3.0);
|
|
set_target_knockback(dude_obj, 1, 3.0);
|
|
end
|
|
if(has_fake_trait(JackOfTrades)) then begin
|
|
set_critter_skill_mod(dude_obj, 100);
|
|
end
|
|
if(has_fake_trait(DiligentLearner)) then begin
|
|
set_xp_mod(90);
|
|
set_perk_level_mod(6);
|
|
end
|
|
/*if(has_fake_trait(CautiousPickpocket)) then begin
|
|
set_pickpocket_mod(has_skill(dude_obj, 10) / 2);
|
|
end
|
|
if(has_fake_trait(BrazenThief)) then begin
|
|
set_pickpocket_mod(80);
|
|
end
|
|
if(has_fake_trait(PerfectAim)) then begin
|
|
set_hit_chance_mod(100);
|
|
end*/
|
|
if(has_fake_trait(PatheticAim)) then begin
|
|
set_base_hit_chance_mod(50, -5);
|
|
end
|
|
end
|
|
|
|
procedure apply_traits begin
|
|
if(has_fake_trait(Ironwall)) then begin
|
|
set_pc_extra_stat(8, get_pc_extra_stat(8) - 1);
|
|
critter_add_trait(dude_obj, 0, 104, 1);
|
|
end
|
|
/*if(has_fake_trait(Swift)) then begin
|
|
set_pc_extra_stat(8, get_pc_extra_stat(8) + 1);
|
|
set_pc_extra_stat(13, get_pc_extra_stat(13) - get_pc_base_stat(13) );
|
|
end*/
|
|
if(has_fake_trait(RapidLearner)) then begin
|
|
set_pc_base_stat(0, get_pc_base_stat(0) - 1);
|
|
set_pc_base_stat(1, get_pc_base_stat(1) - 1);
|
|
set_pc_base_stat(2, get_pc_base_stat(2) - 1);
|
|
set_pc_base_stat(3, get_pc_base_stat(3) - 1);
|
|
set_pc_base_stat(4, get_pc_base_stat(4) - 1);
|
|
set_pc_base_stat(5, get_pc_base_stat(5) - 1);
|
|
set_pc_base_stat(6, get_pc_base_stat(6) - 1);
|
|
end
|
|
if(has_fake_trait(JackOfTrades)) then begin
|
|
critter_mod_skill(dude_obj, 00, 10);
|
|
critter_mod_skill(dude_obj, 01, 10);
|
|
critter_mod_skill(dude_obj, 02, 10);
|
|
critter_mod_skill(dude_obj, 03, 10);
|
|
critter_mod_skill(dude_obj, 04, 10);
|
|
critter_mod_skill(dude_obj, 05, 10);
|
|
critter_mod_skill(dude_obj, 06, 10);
|
|
critter_mod_skill(dude_obj, 07, 10);
|
|
critter_mod_skill(dude_obj, 08, 10);
|
|
critter_mod_skill(dude_obj, 09, 10);
|
|
critter_mod_skill(dude_obj, 10, 10);
|
|
critter_mod_skill(dude_obj, 11, 10);
|
|
critter_mod_skill(dude_obj, 12, 10);
|
|
critter_mod_skill(dude_obj, 13, 10);
|
|
critter_mod_skill(dude_obj, 14, 10);
|
|
critter_mod_skill(dude_obj, 15, 10);
|
|
critter_mod_skill(dude_obj, 16, 10);
|
|
critter_mod_skill(dude_obj, 17, 10);
|
|
end
|
|
/*if(has_fake_trait(BrazenThief)) then begin
|
|
critter_mod_skill(dude_obj, 10, get_pc_base_stat(3)*3);
|
|
end*/
|
|
if(has_fake_trait(VileBreath)) then begin
|
|
set_pc_base_stat(3, get_pc_base_stat(3) - 2);
|
|
set_pc_base_stat(13, get_pc_base_stat(13) + 15);
|
|
end
|
|
end
|
|
|
|
procedure start begin
|
|
variable mode;
|
|
if (game_loaded) then begin
|
|
mode:=get_sfall_global_int("ts_trt00");
|
|
if(mode==-1) then begin
|
|
return;
|
|
end else if(mode==0) then begin
|
|
if(dude_level>1) then begin
|
|
display_msg("Error: Extra trait mod works for new games only");
|
|
set_sfall_global("ts_trt00", -1);
|
|
return;
|
|
end
|
|
display_msg("Visit the character screen before your first level up to pick your new trait");
|
|
set_perk_owed(1);
|
|
set_global_script_repeat(100);
|
|
call setup_perk_dialog;
|
|
end else begin
|
|
call apply_traits_repeat;
|
|
end
|
|
end else begin
|
|
if(dude_level>1) then begin
|
|
clear_selectable_perks;
|
|
set_perk_owed(get_perk_owed - 1);
|
|
set_global_script_repeat(0);
|
|
set_sfall_global("ts_trt00", 1);
|
|
return;
|
|
end
|
|
if(get_perk_owed>0) then begin
|
|
return;
|
|
end
|
|
clear_selectable_perks;
|
|
set_global_script_repeat(0);
|
|
set_sfall_global("ts_trt00", 1);
|
|
call apply_traits;
|
|
call apply_traits_repeat;
|
|
end
|
|
end
|
|
|