I was able to get a somewhat turn-based game going just by placing this:
status = 0
to just above the if statement it's in ending up with this in the players_turn subroutine:
status=0
if status=0
Battle$=""
print ""
Print "You are facing the enemy what do you do?"
Print "A: Shoot the gun?: Does " ,Perception," Damage+",Pistol2
Print "Current Weapon: " ,Pistol$
input ">>",Battle$
Full:
Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, May 29, 2012
Rem ***** Main Source File *****
// I AM LOOKING FOR A WAY TO CREATE A TURN BASED RPG
//Here is the problem
Do
gosub players_turn
gosub Enemys_turn
loop
//It doesn't allow the player to stop and make a decision to move
//This is the player turn in the game
Players_turn:
//These are the stats and the equipment the player has it's vital to the gameplay
Perception=4
Pistol2=3
Pistol$="Pistol: 3 Damage"
status=0
if status=0
Battle$=""
print ""
Print "You are facing the enemy what do you do?"
Print "A: Shoot the gun?: Does " ,Perception," Damage+",Pistol2
Print "Current Weapon: " ,Pistol$
input ">>",Battle$
// The problem her is that the statuses lock the other player's ability to go another turn.
// But it is important to have them so that the player doesn't have to face their turn constantly and so that they can make a decision.
if Battle$="A" and status=0
status=1
endif
if Battle$="a" and status=0
status=1
endif
endif
if Battle$<>"A" and Battle$<>"a"
print "Invalid, please try again."
endif
// Return is used to go to the computer's turn.
return
//This is the computer's turn to attack the other player. It is important I have this.
Enemys_turn:
ZombieHealth=10
// The Zombie has health and it loses health depending on the stats of your character and the weapon you have on your character
Shot= ZombieHealth -Pistol2 -Perception
number=rnd(100)+3
if number>0 and number<71
print "You shot the enemy."
print Shot, " Health is left"
else
print "You missed."
endif
// Return is used to go back to the player. YOUR turn.
return
