;dank souls
;John Hallman
;9/12/2017



.start

SeedRnd MilliSecs()


; Intro
Print "--------------------------------------------------"
Print "Welcome to dank souls: the text based combat game!"

Delay 2000

Print "You have 100 stamina and you have to kill a target"

Delay 2000

Print "The target has 130hp and each hit does atleast one damage"

Delay 2000

Print "Be careful to not run out of stamina! and the target can block!"

Delay 2000

Print "you can also rest 30 times if you start to run low on stamina"

Delay 2000

Print "however the target and you heal for 10hp on rest"

Delay 2000

Print "if you use more or less stamina than you have, then you will be defeated and the game will automatically end"

Delay 2000

Print "remember a boss will come at the end.. so use rests wisely"

Delay 2000
Print "---------------------------------------------------"
; Intro end

targethealth% = 130;target hp

stam%= 100  ; stamina

rest%=30 ; rest

playerhealth% = 100 ;player hp

bosshealth% = 500;boss hp



Print "---------------------------------------"
Print "you have " + stam% + " stamina"
Delay 250
Print "the target has " + targethealth% + " hp"  ; live stats
Delay 250
Print "you have " + rest% + " rests left"
Delay 250
Print "you have " + playerhealth% + " hp"



Repeat
If playerhealth% = 0 Then
Print "you have been defeated"
Delay 250
Goto endprompt
EndIf


If playerhealth% < 0 Then
Print "you have been defeated"
Delay 250
Goto endprompt
EndIf

Print "---------------------------------------"
shell%=Input$("how much stamina would you like to use? ") ;how much stamina you want to use

If shell% = 0 Then
Print "you skipped your turn"
Delay 250
Goto skip
EndIf

If shell% < 0 Then
    Print "sorry you do not have that amount of stamina"
    Delay 2000
    Print "you became exsausted and got killed"
    Delay 2000
    Print "game over"
    Goto endprompt                                          ;out of stamina
    EndIf

If shell% > stam% Then
    Print "sorry you do not have that amount of stamina"
    Delay 2000
    Print "you became exsausted and got killed"
    Delay 2000
    Print "game over"
    Goto endprompt
    EndIf

roll%=Rand(1,stam%)

If shell% >= roll% Then Print "You hit the target" targethealth%=targethealth%- Rand (1,shell%) Else Print "the target blocked"  ;hit Or miss prompt




.skip
    Print "-------------------------------------"
    Print "the target has " + targethealth% + " hp left"
    Delay 250



    stam% = stam% - shell%

    Print "you have " + stam% + " Stamina Left"   ; live stats
    Delay 250
    Print "you have " + rest% + " rest(s) left"
    Delay 250
    Print "-------------------------------------"




Delay 2000

If targethealth%<=0 Then
    Print "You have killed the target"
    Delay 2000
    Print "congratulations!"   ; win message
    Delay 2000
    Goto endprompt1
    EndIf
If rest%=0 Then

If stam%<=0 Then
    Print "You have run out of stamina"
    Delay 2000
    Print "game over"   ;loss message
    Delay 2000
    Goto endprompt
EndIf
EndIf

hostileroll%=Rand(1,100)

If targethealth% > 0 Then
Print "the target is now about to attack"
Delay 2000
If hostileroll% > 30 Then Print "The target hit you!" playerhealth%=playerhealth% - Rand (1,30) Else Print "the target missed"

    Print "--------------------------------"
    Print "you have " + playerhealth% + " hp left"    ;target attack you feature
    Print "--------------------------------"
    Delay 2000
If playerhealth% > 0 Then
If rest% >0 Then

    reload$=Input$("would you like to rest? ")
            If reload$= "yes" Then
            targethealth%=targethealth% + 10                 ; Rest feature
            stam%=stam% + (100-stam%)
            Print "you now are full on stamina"
            Print "the target now has " + targethealth% + " health"
            rest%=rest%-1
            playerhealth%=playerhealth% + 10
            Print "you now have " + playerhealth% + " health"
            EndIf
        If reload$= "no" Then
        Print "ok you still have " + stam% + " stamina left"
EndIf
EndIf
EndIf
EndIf
Forever


Repeat
.endprompt1
Print "-------------------------------------------------"
Print "Get ready for the boss fight"

Delay 5000

Print "You have 100 stamina and you have to kill the boss"

Delay 2000

Print "The boss has 500hp and each hit does atleast one damage"

Delay 2000

Print "Also if the boss health is below 20hp it will heal itself for 50hp"

Delay 2000

Print "however the target heals for 30hp and you heal for 30hp on rest"

Delay 2000

Print "if you use more or less stamina than you have, then you will be defeated and the game will automatically end"

Delay 2000
Print "---------------------------------------------------"



Print "---------------------------------------"
Print "you have " + stam% + " stamina"
Delay 250
Print "the boss has " + bosshealth% + " hp"  ; live stats
Delay 250
Print "you have " + rest% + " rests left"
Delay 250
Print "you have " + playerhealth% + " hp"

Repeat
If playerhealth% < 0 Then
Print "you have been defeated"

Delay 250

Goto endprompt
EndIf                                                   ;death
If playerhealth% = 0 Then
Print "you have been defeated"
Delay 250
Goto endprompt
EndIf


Print "---------------------------------------"
shell%=Input$("how much stamina would you like to use? ") ;how much stamina you want to use
If shell%= 0 Then
    Print "you skipped your turn"
    Delay 250
    Goto skip1
    EndIf
If shell% < 0 Then
    Print "sorry you do not have that amount of stamina"
    Delay 2000
    Print "you became exsausted and got killed"
    Delay 2000
    Print "game over"
    Goto endprompt                                  ;stam
    EndIf

If shell% > stam% Then
    Print "sorry you do not have that amount of stamina"
    Delay 2000
    Print "you became exsausted and got killed"
    Delay 2000
    Print "game over"
    Goto endprompt
    EndIf

roll%=Rand(2,stam%)
Delay 250
If shell% >= roll% Then Print "You hit the target" bosshealth%=bosshealth%- Rand (1,shell%) Else Print "the target blocked"  ;hit Or miss prompt



    .skip1

    Print "-------------------------------------"
    Print "the boss has " + bosshealth% + " hp left"
    Delay 250



    stam% = stam% - shell%

    Print "you have " + stam% + " Stamina Left"   ; live stats
    Delay 250
    Print "you have " + rest% + " rest(s) left"
    Delay 250
    Print "you have " + playerhealth% + " hp left"
    Print "-------------------------------------"




Delay 2000

If bosshealth%<=0 Then
    Print "You have killed the boss"
    Delay 2000
    Print "congratulations!"   ; win message
    Delay 2000
    Goto endprompt
    EndIf
If rest%=0 Then

If stam%<=0 Then
    Print "You have run out of stamina"
    Delay 2000
    Print "game over"   ;loss message
    Delay 2000
    Goto endprompt

EndIf
EndIf
hostileroll%=Rand(1,100)



If bosshealth% > 0 Then
    If bosshealth% < 20 Then
    Print "the boss heals itself for 50hp"                      ;boss heal

    bosshealth%=bosshealth%+50
    Delay 250
    Print "the boss now has " + bosshealth% + " hp"
EndIf

Delay 250
Print "the target is now about to attack"
Delay 250
If hostileroll% > 30 Then Print "The target hit you!" playerhealth%=playerhealth% - Rand (1,70) Else Print "the target missed"

    Print "--------------------------------"
    Print "you have " + playerhealth% + " hp left"    ;target attack you feature
    Print "--------------------------------"
    Delay 2000

If playerhealth% >0 Then
If rest% >0 Then


    reload$=Input$("would you like to rest? ")
            If reload$= "yes" Then
            bosshealth%=bosshealth% + 30                 ; Rest feature
            stam%=stam% + (100-stam%)
            Print "you now are full on stamina"
            Print "the target now has " + bosshealth% + " health"
            rest%=rest%-1
            playerhealth%=playerhealth% + 30
            Print "you now have " + playerhealth% + " health"
            EndIf
        If reload$= "no" Then
        Print "ok you still have " + stam% + " stamina left"
    EndIf
        EndIf
EndIf
EndIf
Forever
.endprompt




If bosshealth% <= 0 Then
If rest% > 5 Then

Print "you beat the high score"

Delay 250
EndIf
EndIf

theend$=Input$("would you like to play again? ") ;replay prompt



If theend$= "yes" Then
Goto start
Else If theend$= "no" Then
End
EndIf
Forever


.bottomtext