Coming up with my own system here (very very basic framework at the moment without types). Feel free to run it and let me know what you think.
Graphics 800,600,0,2
SeedRnd MilliSecs()
level = 11
strength = 22
stamina = 18
dmg = 11
dly = 1400
playerhp = 100
elevel = 7
estrength = 22
estamina = 18
edmg = 11
edly = 1000
enemyhp = 100
Locate 0,60
While Not KeyHit(1)
If enemyhp =< 0
Text 10,200, "You won! Press a key to start a new battle or ESC to quit"
WaitKey()
enemyhp = 100
playerhp = 100
Else If playerhp =< 0
Text 10,200, "Enemy won! Press a key to start a new battle or ESC to quit"
WaitKey()
playerhp = 100
enemyhp = 100
EndIf
If timer + dly < MilliSecs()
dice = Rnd(1,5)
damage = Ceil((strength * stamina * dmg) * dice * level / 10000)
enemyhp = enemyhp - damage
timer = MilliSecs()
Else If etimer + edly < MilliSecs()
edice = Rnd(1,5)
edamage = Ceil((estrength * estamina * edmg) * edice * elevel / 10000)
playerhp = playerhp - edamage
etimer = MilliSecs()
EndIf
Cls
Text 10,10,"Your HP: "
Color 255,0,0
Rect 100,10,playerhp,16
Color 255,255,255
Text 10,30,"Enemy HP: "
Color 255,0,0
Rect 100,30,enemyhp,16
Color 255,255,255
Text 10,80, "You hit the enemy for "+damage+" points of damage!"
Text 10,100, "Enemy HP: "+enemyhp
Text 10,140, "Enemy hits you for "+edamage+" points of damage!"
Text 10,160, "Your HP: "+playerhp
Wend
End