What is it you are trying to achieve?
To get back to the dungeon menu after the fight with the Thief.
What is the problem you are having?
After you win the battle with the thief, it clears the screen and shows the EXP and GOLD you earned and just freezes there.
Describe what you have tried to solve this problem
I tried making an exit and made the battle a procedure, but after the battle it just won't jump back.
Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
| Turing: |
RPG Test
% Variables
var HP_P, ATK_P, DEF_P, SPD_P, EXP_P, LV, place, GOLD : int := 0
var HP_E, ATK_E, DEF_E, SPD_E, HP_C, HP_D, DAMAGE_E : int := 0
var name, class_P, choice, name_E : string
var Mission_Accepted_Den, Mission_Accepted_Den_Completed : boolean := false
% Procedures
procedure player_stats
HP_P := Rand.Int (50, 100)
ATK_P := Rand.Int (10, 50)
DEF_P := Rand.Int (10, 50)
SPD_P := Rand.Int (10, 50)
%Max is 250
end player_stats
procedure enemy_stats
HP_E := Rand.Int (50, 100)
ATK_E := Rand.Int (10, 50)
DEF_E := Rand.Int (10, 50)
SPD_E := Rand.Int (10, 50)
%Max is 250
end enemy_stats
procedure show_stats
put "Name: ", name : 7
put "Class: Lv.", LV, " ", class_P : 7
put "ATK: ", ATK_P, " ", "DEF: ", DEF_P, " ", "SPD: ", SPD_P
put "EXP : ", EXP_P
end show_stats
procedure show_stats_Battle
put "Name: ", name : 7
put "Class: Lv.", LV, " ", class_P : 7
put "HP: ", HP_C, "/", HP_P
put "ATK: ", ATK_P, " ", "DEF: ", DEF_P, " ", "SPD: ", SPD_P
put "EXP : ", EXP_P
end show_stats_Battle
procedure show_stats_E
put "Name: ", name_E : 7
put "HP: ", HP_E
put "ATK: ", ATK_E, " ", "DEF: ", DEF_E, " ", "SPD: ", SPD_E
end show_stats_E
procedure INN
put "You decide that a quick rest would do wonders, so you " ..
put "enter the nearby INN."
put " Your current HP is ", HP_C, "/", HP_P
put "Do you wish to rest here? (y/n): " ..
loop
get choice
if choice = "y" then
if HP_C = HP_P then
put "You don't need to rest."
delay (1000)
exit
elsif HP_C not= HP_P then
put "You have ", GOLD, " GOLD"
if GOLD >= 5 then
put "Do you wish to recover you HP? (It'll cost you 5 GOLD) (y/n): " ..
loop
get choice
if choice = "y" then
GOLD - = 5
HP_D := 0
put "You rested up a bit."
exit
elsif choice = "n" then
exit
else
put "Please enter a valid entry."
end if
end loop
end if
exit
end if
elsif choice = "n" then
exit
end if
end loop
end INN
procedure battle_normal
%Battle
enemy_stats
loop
cls
HP_C := HP_P - HP_D
show_stats_Battle
put ""
show_stats_E
put ""
put ""
loop
put "What will you do? (ATTACK/DEFEND/RUN): " ..
get choice
if choice = "ATTACK" then
DAMAGE_E := (ATK_P * 10) div 8
HP_E - = DAMAGE_E
HP_D := (ATK_E * 10) div 8
exit
end if
end loop
if HP_E <= 0 then
cls
put "YOU HAVE WON THE FIGHT!"
delay (500)
var gold_earned : int := Rand.Int (10, 50)
GOLD + = gold_earned
put "YOU HAVE EARNED ", gold_earned, " GOLD"
delay (500)
var exp_earned : int := Rand.Int (50, 150)
put "YOU HAVE EARNED ", exp_earned, " EXP"
EXP_P + = exp_earned
delay (1000)
exit
end if
end loop
end battle_normal
% Part One ~Intro~
put "You walk into the guild and walk up to the nearest bartender. \"Hello\" you say to the man. He looks over at you and nods. You feel out of place here but you know that " ..
put "this is a nessasary place to be if you want to be stronger. \"I would like to sign up as a adventurer.\" You tell the bartender, he put's a peice of paper in front of " ..
put "you, \" Fill this out... oh and make sure you spell it EXACTLY like it says. \" he then grumbes somthing."
put ""
put "You read the peice of paper."
put ""
% Name Entry
put "What is your name? (First Name ONLY): " ..
get name
player_stats
% Class Entry
put ""
put "What Class are you? (FIGHTER or DEFENDER): " ..
loop
get class_P
if class_P = "FIGHTER" then
ATK_P + = 1
if ATK_P >= 50 then
ATK_P := 50
end if
exit
elsif class_P = "DEFENDER" then
DEF_P + = 1
if DEF_P >= 50 then
DEF_P := 50
end if
exit
else
put "Please enter a valid entry."
end if
end loop
LV + = 1
cls
% Part Two ~Den of Theives~
loop
cls
HP_C := HP_P - HP_D
show_stats
put "Where do you want to go? (Enter Number): "
put ""
put "1. ADVENTURERS GUILD "
put "2. INN "
if Mission_Accepted_Den = true and Mission_Accepted_Den_Completed = false then
put "3. DEN OF THEIVES"
end if
loop
get place
if place = 1 then
cls
% DEN OF THEIVES MISSION
put "You go into the ADVENTURERS GUILD to see if you could find a easy job to start with."
put "After much thought you think that the DEN OF THEIVES is your best bet."
put "Do you accept the mission? (y/n): " ..
loop
get choice
if choice = "y" then
Mission_Accepted_Den := true
exit
elsif choice = "n" then
exit
else
put "Please enter a vaild entry."
end if
end loop
% END OF DEN OF THEIVES
exit
elsif place = 2 then
cls
INN
exit
elsif place = 3 and Mission_Accepted_Den = true and Mission_Accepted_Den_Completed = false then
var FLOOR1, FLOOR2, FLOOR3 : boolean := false
loop
cls
put "You enter the DEN OF THEIVES and look around aimlessly, the den is held in a mystical space."
put ""
put "Where do you go? (Enter Number): "
put "1. First Floor"
if FLOOR2 = true then
put "2. Secound Floor"
elsif FLOOR3 = true then
put "3. Boss Floor"
end if
get place
if place = 1 then
put "You go up to the first floor."
delay (500)
put " You encounter a THIEF!"
name_E := "THIEF"
battle_normal
exit
elsif place = 2 and FLOOR2 = true then
elsif place = 3 and FLOOR3 = true then
else
put "Please enter a vaild entry."
end if
exit
end loop
end if
end loop
end loop
|
Please specify what version of Turing you are using
Turing 4.1.1 |
