TheGameCreators - CodeBase - AD&D 1st Edition Combat Engine(ment for rpg engines)

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 24th Nov 2005 22:13

Modified: 1st Jan 1970 01:00

Author: x1b

Summary

Piece of code used in my WIP to emulate the AD&D 1st Ed Attack Matrix. Credit to: x1b and LIT

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

randomize timer()

rem constants

#constant pc  =0

#constant npc =1

rem arrays

dim HP(1)

dim AC(1)

dim Initiative(1)

start:

player_initiative =0

HP(pc)  =10

AC(pc)  =10

npc_initiative    =0

HP(npc) =10

AC(npc) =10

gosub Initiative

gosub Combat

if HP(pc) <= 0

print ""

print "NPC Has Slain you.."

exit

endif

if HP(npc) <= 0

print ""

print "You have slain NPC!"

exit

endif

loop

print ""

print " Combat Over... "

wait key

cls

goto start

Initiative:

player_initiative = rnd(5)+1

npc_initiative = rnd(5)+1

return

Combat:

player_attacked =0

npc_attacked    =0

Attack = rnd(19)+1

if player_initiative = npc_initiative

print "Initiative is a tie!  Rerolling.."

else

if player_initiative > npc_initiative

player_attacked =1

print "YOU Won Initiative!"

gosub _playerwins

else

npc_attacked =1

print "NPC Won Initiative!"

gosub _npcwins

endif

return

_playerwins:

Attack =rnd(19)+1

if Attack >= AC(npc)

Damage = rnd(9)+1

HP(npc) = HP(npc) - Damage

print "You Attack NPC and HIT! with a roll of "; Attack ;" doing "; Damage ;" points of damage!"

else

print "You Attack NPC and MISS! With a roll of "; Attack ;"!"

endif

if npc_attacked =0

if HP(npc) > 0

npc_attacked =1

gosub _npcwins

endif

return

_npcwins:

Attack = rnd(19)+1

if Attack >=  AC(pc)

Damage =rnd(9)+1

HP(pc) =HP(pc) -Damage

print "NPC Attacks YOU And HITS! With a roll of "; Attack ;" doing "; Damage ;" points of damage!"

else

print "NPC Attacks YOU And MISSES! With a roll of "; Attack ;"!"

endif

if player_attacked =0

if HP(pc) > 0

player_attacked =1

gosub _playerwins

endif

return

Download

Please login to download

Comments

No comments yet.

Author Name:	x1b
CodeBase Entries:	3

CodeBase - AD&amp;D 1st Edition Combat Engine(ment for rpg engines)

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

CodeBase - AD&D 1st Edition Combat Engine(ment for rpg engines)