Skip to content

Commit

Permalink
moved Pry_Door to doors.h - #61
Browse files Browse the repository at this point in the history
  • Loading branch information
@burner1024
burner1024 committed Jan 11, 2021
1 parent 655a6ee commit ec2f32e
Show file tree
Hide file tree
Showing 45 changed files with 68 additions and 2,860 deletions.
65 changes: 0 additions & 65 deletions scripts_src/arroyo/aicavdor.ssl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1374,72 +1374,7 @@ procedure Lock_Door begin
end


/***************************************************************************
This procedure is used should the player try to pry the door open using a
crowbar or some similar instrument.
***************************************************************************/

procedure Pry_Door begin
variable Stat_Roll;

Stat_Roll:=do_check(source_obj,STAT_st,Crowbar_Bonus);

if (is_success(Stat_Roll)) then begin
set_local_var(LVAR_Locked, STATE_INACTIVE);
obj_unlock(self_obj);

if (source_obj == dude_obj) then begin
display_msg(mstr(176));
end

else begin
display_msg(mstr(181));
end
end

else if (is_critical(Stat_Roll)) then begin
critter_dmg(source_obj,Crowbar_Strain,(DMG_normal_dam BWOR DMG_BYPASS_ARMOR));

if (source_obj == dude_obj) then begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(177));
end
else begin
display_msg(mstr(178)+Crowbar_Strain+mstr(179));
end
end

else begin
if (is_male(source_obj)) then begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(182));
end
else begin
display_msg(mstr(183)+Crowbar_Strain+mstr(184));
end
end

else begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(186));
end
else begin
display_msg(mstr(187)+Crowbar_Strain+mstr(188));
end
end
end
end

else begin
if (source_obj == dude_obj) then begin
display_msg(mstr(180));
end

else begin
display_msg(mstr(185));
end
end
end


/**************************************************************************************
Expand Down
65 changes: 0 additions & 65 deletions scripts_src/arroyo/ailkbox.ssl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1375,72 +1375,7 @@ procedure Lock_Door begin
end


/***************************************************************************
This procedure is used should the player try to pry the door open using a
crowbar or some similar instrument.
***************************************************************************/

procedure Pry_Door begin
variable Stat_Roll;

Stat_Roll:=do_check(source_obj,STAT_st,Crowbar_Bonus);

if (is_success(Stat_Roll)) then begin
set_local_var(LVAR_Locked, STATE_INACTIVE);
obj_unlock(self_obj);

if (source_obj == dude_obj) then begin
display_msg(mstr(176));
end

else begin
display_msg(mstr(181));
end
end

else if (is_critical(Stat_Roll)) then begin
critter_dmg(source_obj,Crowbar_Strain,(DMG_normal_dam BWOR DMG_BYPASS_ARMOR));

if (source_obj == dude_obj) then begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(177));
end
else begin
display_msg(mstr(178)+Crowbar_Strain+mstr(179));
end
end

else begin
if (is_male(source_obj)) then begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(182));
end
else begin
display_msg(mstr(183)+Crowbar_Strain+mstr(184));
end
end

else begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(186));
end
else begin
display_msg(mstr(187)+Crowbar_Strain+mstr(188));
end
end
end
end

else begin
if (source_obj == dude_obj) then begin
display_msg(mstr(180));
end

else begin
display_msg(mstr(185));
end
end
end


/**************************************************************************************
Expand Down
65 changes: 0 additions & 65 deletions scripts_src/arroyo/aitemdor.ssl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1420,72 +1420,7 @@ procedure Lock_Door begin
end


/***************************************************************************
This procedure is used should the player try to pry the door open using a
crowbar or some similar instrument.
***************************************************************************/

procedure Pry_Door begin
variable Stat_Roll;

Stat_Roll:=do_check(source_obj,STAT_st,Crowbar_Bonus);

if (is_success(Stat_Roll)) then begin
set_local_var(LVAR_Locked, STATE_INACTIVE);
obj_unlock(self_obj);

if (source_obj == dude_obj) then begin
display_msg(mstr(176));
end

else begin
display_msg(mstr(181));
end
end

else if (is_critical(Stat_Roll)) then begin
critter_dmg(source_obj,Crowbar_Strain,(DMG_normal_dam BWOR DMG_BYPASS_ARMOR));

if (source_obj == dude_obj) then begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(177));
end
else begin
display_msg(mstr(178)+Crowbar_Strain+mstr(179));
end
end

else begin
if (is_male(source_obj)) then begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(182));
end
else begin
display_msg(mstr(183)+Crowbar_Strain+mstr(184));
end
end

else begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(186));
end
else begin
display_msg(mstr(187)+Crowbar_Strain+mstr(188));
end
end
end
end

else begin
if (source_obj == dude_obj) then begin
display_msg(mstr(180));
end

else begin
display_msg(mstr(185));
end
end
end


/**************************************************************************************
Expand Down
65 changes: 0 additions & 65 deletions scripts_src/arroyo/ascrldr.ssl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1323,72 +1323,7 @@ procedure Lock_Door begin
end


/***************************************************************************
This procedure is used should the player try to pry the door open using a
crowbar or some similar instrument.
***************************************************************************/

procedure Pry_Door begin
variable Stat_Roll;

Stat_Roll:=do_check(source_obj,STAT_st,Crowbar_Bonus);

if (is_success(Stat_Roll)) then begin
set_local_var(LVAR_Locked, STATE_INACTIVE);
obj_unlock(self_obj);

if (source_obj == dude_obj) then begin
display_msg(mstr(176));
end

else begin
display_msg(mstr(181));
end
end

else if (is_critical(Stat_Roll)) then begin
critter_dmg(source_obj,Crowbar_Strain,(DMG_normal_dam BWOR DMG_BYPASS_ARMOR));

if (source_obj == dude_obj) then begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(177));
end
else begin
display_msg(mstr(178)+Crowbar_Strain+mstr(179));
end
end

else begin
if (is_male(source_obj)) then begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(182));
end
else begin
display_msg(mstr(183)+Crowbar_Strain+mstr(184));
end
end

else begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(186));
end
else begin
display_msg(mstr(187)+Crowbar_Strain+mstr(188));
end
end
end
end

else begin
if (source_obj == dude_obj) then begin
display_msg(mstr(180));
end

else begin
display_msg(mstr(185));
end
end
end


/**************************************************************************************
Expand Down
65 changes: 0 additions & 65 deletions scripts_src/base/eslkdor.ssl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1323,72 +1323,7 @@ procedure Lock_Door begin
end


/***************************************************************************
This procedure is used should the player try to pry the door open using a
crowbar or some similar instrument.
***************************************************************************/

procedure Pry_Door begin
variable Stat_Roll;

Stat_Roll:=do_check(source_obj,STAT_st,Crowbar_Bonus);

if (is_success(Stat_Roll)) then begin
set_local_var(LVAR_Locked, STATE_INACTIVE);
obj_unlock(self_obj);

if (source_obj == dude_obj) then begin
display_msg(mstr(176));
end

else begin
display_msg(mstr(181));
end
end

else if (is_critical(Stat_Roll)) then begin
critter_dmg(source_obj,Crowbar_Strain,(DMG_normal_dam BWOR DMG_BYPASS_ARMOR));

if (source_obj == dude_obj) then begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(177));
end
else begin
display_msg(mstr(178)+Crowbar_Strain+mstr(179));
end
end

else begin
if (is_male(source_obj)) then begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(182));
end
else begin
display_msg(mstr(183)+Crowbar_Strain+mstr(184));
end
end

else begin
if (Crowbar_Strain == 1) then begin
display_msg(mstr(186));
end
else begin
display_msg(mstr(187)+Crowbar_Strain+mstr(188));
end
end
end
end

else begin
if (source_obj == dude_obj) then begin
display_msg(mstr(180));
end

else begin
display_msg(mstr(185));
end
end
end


/**************************************************************************************
Expand Down
Loading

0 comments on commit ec2f32e

Please sign in to comment.