What i need, better enemy attack codes, better magic codes or even better a much better layout and set of codes.
'NOTE CLEAR UP THIS AND ADD COLOUR DAMMIT
HitPoints = 300000
MaxHitPoints = 300000
MagicPoints = 1000000
MaxMagicPoints = 1000000
Strength = 100
Defense = 70
Experience = 0
Gold = 0
Level = 1
Weapon$ = "Ultima Blade"
Spell$(1) = "Fire"
Spell$(2) = "Cure"
Spell$(10) = "Death"
EnemyName$ = "IST SLIME MASTER!!" ' the enemy stats based on
EnemyHP = 5000 ' what number was chosen.
EnemyStrength = 150 ' Feel free to experiment by
EnemyDefense = 200
' changing these stats around
CLS ' Again, a good way to read
' input from the keyboard.
PRINT "(A)ttack " ' Print the user's options on
PRINT "(F)ire " ' the screen.
PRINT "(C)ure"
PRINT "(D)eath"
PRINT "(S)tatus"
'
DO
Choice$ = LCASE$(INPUT$(1))
IF Choice$ = "a" THEN
' Below is a simple equation which will create a random attack
' strength based in part on the player's Strength.
attack = ((INT(RND * 3) + 2) * Strength) - ((INT(RND * 3) + 2) * EnemyDefense)
PRINT "You attack the "; EnemyName$; " with your "; Weapon$; " and do"; attack; "damage!"
EnemyHP = EnemyHP - attack ' This will decrease the
' enemy's HP by the amount of
ELSEIF EnemyHP <1> 0 THEN
PRINT EnemyName$; " throws his goo at you and does"; attack; "damage!"
HitPoints = HitPoints - attack ' This will decrease the
' player's HP by the amount of
' the enemy's attack.
ELSE
PRINT EnemyName$; " did no damage!"' If the enemy's attack is
' less than 1 then no damage
' will be taken from the
' player.
END IF
IF HitPoints < 1 THEN ' This IF block checks to see if the
' player has no hit points left and
' exits the LOOP if so.
PRINT "HAVE"
done = 1
ELSEIF Choice$ = "c" THEN magicheal = 200
HitPoints = HitPoints + magicheal
PRINT " YOu have casted "; Spell$(2); " you healed "; magicheal; ""
MagicPoints = MagicPoints - 100
ELSEIF EnemyHP <1> 0 THEN
PRINT EnemyName$; " casts his ultimate DARK GOO BEAM and does"; attack; "damage!"
HitPoints = HitPoints - attack ' This will decrease the
' player's HP by the amount of
END IF ' the enemy's attack.
ELSE
PRINT EnemyName$; " did no damage!"' If the enemy's attack is
' less than 1 then no damage
' will be taken from the
' player.
END IF
IF HitPoints < 1 THEN ' This IF block checks to see if the
' player has no hit points left and
' exits the LOOP if so.
PRINT "muahaha"
done = 1
ELSEIF Choice$ = "s" THEN PRINT " Player STATUS: HP="; HitPoints; ""; MaxHitPoints; ",MP="; MagicPoints; "/"; MaxMagicPoints; "'"
PRINT "STR= "; Strength; ", DEF="; Defense; ""
PRINT " YOur enemy status"
END IF
IF done = 1 THEN SLEEP
LOOP UNTIL done = 1