Post by Ranger1800 on Jun 24, 2004 21:26:33 GMT -5
Hi, it's me Branden again back with another question. I've been working on an RPg for a couple days now and i need a simple battle engine to hold the the users attention, and heres the code for my Rpg: i need to know how to code and put a battle engine in this game so if anyone could help me that would be greatly appreciated!!! ;D
' Text Rpg
dim level, Hp, Mp, Xp, playerx, monsterx, monstery, bladex, bladey, Magic1, MagicOnscreen, magicx, magicy
dim Ac, Dex, bladeOnScreen, playerOnScreen, i, LevelAlertOnScreen, SkillAlertOnscreen, Sk, Enemylife, EnemyAttack, hit
level = 1
Hp = 10
Mp = 5
Xp = 0
Sk = 1
hit = 3
playerx = 19
monsterx = 40
monstery = 20
bladeOnScreen = false
LevelAlertOnScreen = false
SkillAlertOnscreen = false
MagicOnscreen = false
TextMode (Text_Buffered)
while true
if ScanKeyDown (Vk_Left) and playerx > 0 then
playerx = playerx - 1
endif
if ScanKeyDown (Vk_Right) and playerx < 37 then
playerx = playerx + 1
endif
monsterx = monsterx + 1
if monsterx > 37 then
monsterx = 0
monstery = rnd () % 22 + 1
endif
if bladeOnScreen then
bladey = bladey - 1
if bladey < 1 then
bladeOnScreen = false
endif
else
if ScanKeyDown (Vk_Space) then
bladeOnScreen = true
bladey = 22
bladex = playerx + 1
endif
endif
cls
color (255, 255, 255)
locate 0, 0: print "Hp=" + Hp
locate 10, 0: print "Mp=" + Mp
locate 20, 0: print "Xp=" + Xp
locate 30, 0: print "level=" + level
locate 40, 1: print " Sk=" + Sk
color (255, 50, 50)
locate monsterx, monstery: print "^M^"
color (150, 150, 150)
locate playerx, 23: print ">_<"
if bladeOnScreen then
color (255, 255, 50)
locate bladex, bladey: print "~"
endif
if MagicOnScreen then
color (255, 255, 50)
locate magicx, magicy: print "*"
endif
if bladeOnScreen and bladey = monstery and bladex >= monsterx and bladex <= monsterx + 2 then
color (255, 255, 100)
for i = 1 to 10
locate monsterx, monstery: print "///"
DrawText ()
sleep (50)
locate monsterx, monstery: print "\\\"
DrawText ()
sleep (50)
next
bladeOnScreen = false
monsterx = 0
monstery = rnd () % 22 + 1
Xp = Xp + 15
sleep (1000)
endif
if MagicOnScreen and magicy = monstery and magicx >= monsterx and magicx <= monsterx + 2 then
color (255, 255, 100)
for i = 1 to 10
locate monsterx, monstery: print "///"
DrawText ()
sleep (50)
locate monsterx, monstery: print "\\\"
DrawText ()
sleep (50)
next
MagicOnScreen = false
monsterx = 0
monstery = rnd () % 22 + 1
Xp = Xp + 20
sleep (1000)
endif
if Xp = 500 and level = 1 then
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
LevelAlertOnScreen = false
endif
if level = 2 and Hp = 10 and Mp = 5 then
Hp = Hp + 5
Mp = Mp + 3
endif
if Xp = 1000 and level = 2 then
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
LevelAlertOnScreen = false
endif
if level = 3 and Hp = 15 and Mp = 8 then
Hp = Hp + 6
Mp = Mp + 4
endif
if Xp = 1800 and level = 3 then
LevelAlertOnscreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
endif
if level = 4 and Hp = 21 and Mp = 12 then
Hp = Hp + 7
Mp = Mp + 5
endif
if Xp = 3100 and level = 4 then
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
endif
if level = 5 and Hp = 21 and Mp = 12 then
Hp = Hp + 8
Mp = Mp + 6
endif
if Xp = 3900 and level = 5 then
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
endif
if level = 6 and Hp = 21 and Mp = 12 then
Hp = Hp + 9
Mp = Mp + 7
endif
if Xp = 4895 and level = 6 then
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
endif
if level = 7 and Hp = 30 and Mp = 19 then
Hp = Hp + 10
Mp = Mp + 7
endif
if Xp = 6625 and level = 7
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
endif
if level = 8 and Hp = 40 and Mp = 26 then
Hp = Hp + 11
Mp = Mp + 8
endif
if ScanKeyDown (Vk_Control) then
MagicOnScreen = true
Magicy = 22
Magicx = playerx + 1
endif
if MagicOnScreen then
magicy = magicy - 1
if magicy < 1 then
MagicOnScreen = false
endif
endif
DrawText ()
sleep (75)
wend
thanks
-Branden
' Text Rpg
dim level, Hp, Mp, Xp, playerx, monsterx, monstery, bladex, bladey, Magic1, MagicOnscreen, magicx, magicy
dim Ac, Dex, bladeOnScreen, playerOnScreen, i, LevelAlertOnScreen, SkillAlertOnscreen, Sk, Enemylife, EnemyAttack, hit
level = 1
Hp = 10
Mp = 5
Xp = 0
Sk = 1
hit = 3
playerx = 19
monsterx = 40
monstery = 20
bladeOnScreen = false
LevelAlertOnScreen = false
SkillAlertOnscreen = false
MagicOnscreen = false
TextMode (Text_Buffered)
while true
if ScanKeyDown (Vk_Left) and playerx > 0 then
playerx = playerx - 1
endif
if ScanKeyDown (Vk_Right) and playerx < 37 then
playerx = playerx + 1
endif
monsterx = monsterx + 1
if monsterx > 37 then
monsterx = 0
monstery = rnd () % 22 + 1
endif
if bladeOnScreen then
bladey = bladey - 1
if bladey < 1 then
bladeOnScreen = false
endif
else
if ScanKeyDown (Vk_Space) then
bladeOnScreen = true
bladey = 22
bladex = playerx + 1
endif
endif
cls
color (255, 255, 255)
locate 0, 0: print "Hp=" + Hp
locate 10, 0: print "Mp=" + Mp
locate 20, 0: print "Xp=" + Xp
locate 30, 0: print "level=" + level
locate 40, 1: print " Sk=" + Sk
color (255, 50, 50)
locate monsterx, monstery: print "^M^"
color (150, 150, 150)
locate playerx, 23: print ">_<"
if bladeOnScreen then
color (255, 255, 50)
locate bladex, bladey: print "~"
endif
if MagicOnScreen then
color (255, 255, 50)
locate magicx, magicy: print "*"
endif
if bladeOnScreen and bladey = monstery and bladex >= monsterx and bladex <= monsterx + 2 then
color (255, 255, 100)
for i = 1 to 10
locate monsterx, monstery: print "///"
DrawText ()
sleep (50)
locate monsterx, monstery: print "\\\"
DrawText ()
sleep (50)
next
bladeOnScreen = false
monsterx = 0
monstery = rnd () % 22 + 1
Xp = Xp + 15
sleep (1000)
endif
if MagicOnScreen and magicy = monstery and magicx >= monsterx and magicx <= monsterx + 2 then
color (255, 255, 100)
for i = 1 to 10
locate monsterx, monstery: print "///"
DrawText ()
sleep (50)
locate monsterx, monstery: print "\\\"
DrawText ()
sleep (50)
next
MagicOnScreen = false
monsterx = 0
monstery = rnd () % 22 + 1
Xp = Xp + 20
sleep (1000)
endif
if Xp = 500 and level = 1 then
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
LevelAlertOnScreen = false
endif
if level = 2 and Hp = 10 and Mp = 5 then
Hp = Hp + 5
Mp = Mp + 3
endif
if Xp = 1000 and level = 2 then
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
LevelAlertOnScreen = false
endif
if level = 3 and Hp = 15 and Mp = 8 then
Hp = Hp + 6
Mp = Mp + 4
endif
if Xp = 1800 and level = 3 then
LevelAlertOnscreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
endif
if level = 4 and Hp = 21 and Mp = 12 then
Hp = Hp + 7
Mp = Mp + 5
endif
if Xp = 3100 and level = 4 then
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
endif
if level = 5 and Hp = 21 and Mp = 12 then
Hp = Hp + 8
Mp = Mp + 6
endif
if Xp = 3900 and level = 5 then
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
endif
if level = 6 and Hp = 21 and Mp = 12 then
Hp = Hp + 9
Mp = Mp + 7
endif
if Xp = 4895 and level = 6 then
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
endif
if level = 7 and Hp = 30 and Mp = 19 then
Hp = Hp + 10
Mp = Mp + 7
endif
if Xp = 6625 and level = 7
LevelAlertOnScreen = true
print "Level Up!!!"
level = level + 1
sleep (1000)
endif
if level = 8 and Hp = 40 and Mp = 26 then
Hp = Hp + 11
Mp = Mp + 8
endif
if ScanKeyDown (Vk_Control) then
MagicOnScreen = true
Magicy = 22
Magicx = playerx + 1
endif
if MagicOnScreen then
magicy = magicy - 1
if magicy < 1 then
MagicOnScreen = false
endif
endif
DrawText ()
sleep (75)
wend
thanks
-Branden