daily pastebin goal
40%
SHARE
TWEET

Untitled

a guest Sep 15th, 2017 165 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. ;dank souls
  3. ;John Hallman
  4. ;9/12/2017
  5.  
  6.  
  7.  
  8. .start
  9.  
  10. SeedRnd MilliSecs()
  11.  
  12.  
  13. ; Intro
  14. Print "--------------------------------------------------"
  15. Print "Welcome to dank souls: the text based combat game!"
  16.  
  17. Delay 2000
  18.  
  19. Print "You have 100 stamina and you have to kill a target"
  20.  
  21. Delay 2000
  22.  
  23. Print "The target has 130hp and each hit does atleast one damage"
  24.  
  25. Delay 2000
  26.  
  27. Print "Be careful to not run out of stamina! and the target can block!"
  28.  
  29. Delay 2000
  30.  
  31. Print "you can also rest 30 times if you start to run low on stamina"
  32.  
  33. Delay 2000
  34.  
  35. Print "however the target and you heal for 10hp on rest"
  36.  
  37. Delay 2000
  38.  
  39. Print "if you use more or less stamina than you have, then you will be defeated and the game will automatically end"
  40.  
  41. Delay 2000
  42.  
  43. Print "remember a boss will come at the end.. so use rests wisely"
  44.  
  45. Delay 2000
  46. Print "---------------------------------------------------"
  47. ; Intro end
  48.  
  49. targethealth% = 130;target hp
  50.  
  51. stam%= 100  ; stamina
  52.  
  53. rest%=30 ; rest
  54.  
  55. playerhealth% = 100 ;player hp
  56.  
  57. bosshealth% = 500;boss hp
  58.  
  59.  
  60.  
  61. Print "---------------------------------------"
  62. Print "you have " + stam% + " stamina"
  63. Delay 250
  64. Print "the target has " + targethealth% + " hp"  ; live stats
  65. Delay 250
  66. Print "you have " + rest% + " rests left"
  67. Delay 250
  68. Print "you have " + playerhealth% + " hp"
  69.  
  70.  
  71.  
  72. Repeat
  73. If playerhealth% = 0 Then
  74. Print "you have been defeated"
  75. Delay 250
  76. Goto endprompt
  77. EndIf
  78.  
  79.  
  80. If playerhealth% < 0 Then
  81. Print "you have been defeated"
  82. Delay 250
  83. Goto endprompt
  84. EndIf
  85.  
  86. Print "---------------------------------------"
  87. shell%=Input$("how much stamina would you like to use? ") ;how much stamina you want to use
  88.  
  89. If shell% = 0 Then
  90. Print "you skipped your turn"
  91. Delay 250
  92. Goto skip
  93. EndIf
  94.  
  95. If shell% < 0 Then
  96.     Print "sorry you do not have that amount of stamina"
  97.     Delay 2000
  98.     Print "you became exsausted and got killed"
  99.     Delay 2000
  100.     Print "game over"
  101.     Goto endprompt                                          ;out of stamina
  102.     EndIf
  103.    
  104. If shell% > stam% Then
  105.     Print "sorry you do not have that amount of stamina"
  106.     Delay 2000
  107.     Print "you became exsausted and got killed"
  108.     Delay 2000
  109.     Print "game over"
  110.     Goto endprompt
  111.     EndIf
  112.  
  113. roll%=Rand(1,stam%)
  114.  
  115. If shell% >= roll% Then Print "You hit the target" targethealth%=targethealth%- Rand (1,shell%) Else Print "the target blocked"  ;hit Or miss prompt
  116.            
  117.    
  118.    
  119.    
  120. .skip  
  121.     Print "-------------------------------------"                                                                                      
  122.     Print "the target has " + targethealth% + " hp left"
  123.     Delay 250
  124.  
  125.  
  126.  
  127.     stam% = stam% - shell%
  128.    
  129.     Print "you have " + stam% + " Stamina Left"   ; live stats
  130.     Delay 250
  131.     Print "you have " + rest% + " rest(s) left"
  132.     Delay 250
  133.     Print "-------------------------------------"
  134.  
  135.    
  136.  
  137.  
  138. Delay 2000
  139.  
  140. If targethealth%<=0 Then
  141.     Print "You have killed the target"
  142.     Delay 2000
  143.     Print "congratulations!"   ; win message
  144.     Delay 2000
  145.     Goto endprompt1
  146.     EndIf
  147. If rest%=0 Then
  148.  
  149. If stam%<=0 Then
  150.     Print "You have run out of stamina"
  151.     Delay 2000
  152.     Print "game over"   ;loss message
  153.     Delay 2000
  154.     Goto endprompt
  155. EndIf  
  156. EndIf
  157.  
  158. hostileroll%=Rand(1,100)
  159.  
  160. If targethealth% > 0 Then
  161. Print "the target is now about to attack"
  162. Delay 2000
  163. If hostileroll% > 30 Then Print "The target hit you!" playerhealth%=playerhealth% - Rand (1,30) Else Print "the target missed" 
  164.  
  165.     Print "--------------------------------"
  166.     Print "you have " + playerhealth% + " hp left"    ;target attack you feature
  167.     Print "--------------------------------"
  168.     Delay 2000
  169. If playerhealth% > 0 Then
  170. If rest% >0 Then
  171.    
  172.     reload$=Input$("would you like to rest? ")
  173.             If reload$= "yes" Then
  174.             targethealth%=targethealth% + 10                 ; Rest feature
  175.             stam%=stam% + (100-stam%)
  176.             Print "you now are full on stamina"
  177.             Print "the target now has " + targethealth% + " health"
  178.             rest%=rest%-1
  179.             playerhealth%=playerhealth% + 10
  180.             Print "you now have " + playerhealth% + " health"
  181.             EndIf
  182.         If reload$= "no" Then
  183.         Print "ok you still have " + stam% + " stamina left"
  184. EndIf  
  185. EndIf
  186. EndIf
  187. EndIf
  188. Forever
  189.  
  190.  
  191. Repeat
  192. .endprompt1
  193. Print "-------------------------------------------------"
  194. Print "Get ready for the boss fight"
  195.  
  196. Delay 5000
  197.  
  198. Print "You have 100 stamina and you have to kill the boss"
  199.  
  200. Delay 2000
  201.  
  202. Print "The boss has 500hp and each hit does atleast one damage"
  203.  
  204. Delay 2000
  205.  
  206. Print "Also if the boss health is below 20hp it will heal itself for 50hp"
  207.  
  208. Delay 2000
  209.  
  210. Print "however the target heals for 30hp and you heal for 30hp on rest"
  211.  
  212. Delay 2000
  213.  
  214. Print "if you use more or less stamina than you have, then you will be defeated and the game will automatically end"
  215.  
  216. Delay 2000
  217. Print "---------------------------------------------------"
  218.  
  219.  
  220.  
  221. Print "---------------------------------------"
  222. Print "you have " + stam% + " stamina"
  223. Delay 250
  224. Print "the boss has " + bosshealth% + " hp"  ; live stats
  225. Delay 250
  226. Print "you have " + rest% + " rests left"
  227. Delay 250
  228. Print "you have " + playerhealth% + " hp"
  229.  
  230. Repeat
  231. If playerhealth% < 0 Then
  232. Print "you have been defeated"
  233.  
  234. Delay 250
  235.  
  236. Goto endprompt
  237. EndIf                                                   ;death
  238. If playerhealth% = 0 Then
  239. Print "you have been defeated"
  240. Delay 250
  241. Goto endprompt
  242. EndIf
  243.  
  244.  
  245. Print "---------------------------------------"
  246. shell%=Input$("how much stamina would you like to use? ") ;how much stamina you want to use
  247. If shell%= 0 Then
  248.     Print "you skipped your turn"
  249.     Delay 250
  250.     Goto skip1
  251.     EndIf
  252. If shell% < 0 Then
  253.     Print "sorry you do not have that amount of stamina"
  254.     Delay 2000
  255.     Print "you became exsausted and got killed"
  256.     Delay 2000
  257.     Print "game over"
  258.     Goto endprompt                                  ;stam
  259.     EndIf
  260.    
  261. If shell% > stam% Then
  262.     Print "sorry you do not have that amount of stamina"
  263.     Delay 2000
  264.     Print "you became exsausted and got killed"
  265.     Delay 2000
  266.     Print "game over"
  267.     Goto endprompt
  268.     EndIf
  269.  
  270. roll%=Rand(2,stam%)
  271. Delay 250
  272. If shell% >= roll% Then Print "You hit the target" bosshealth%=bosshealth%- Rand (1,shell%) Else Print "the target blocked"  ;hit Or miss prompt
  273.            
  274.    
  275.    
  276.     .skip1
  277.    
  278.     Print "-------------------------------------"                                                                                      
  279.     Print "the boss has " + bosshealth% + " hp left"
  280.     Delay 250
  281.  
  282.  
  283.  
  284.     stam% = stam% - shell%
  285.    
  286.     Print "you have " + stam% + " Stamina Left"   ; live stats
  287.     Delay 250
  288.     Print "you have " + rest% + " rest(s) left"
  289.     Delay 250
  290.     Print "you have " + playerhealth% + " hp left"
  291.     Print "-------------------------------------"
  292.  
  293.        
  294.  
  295.  
  296. Delay 2000
  297.  
  298. If bosshealth%<=0 Then
  299.     Print "You have killed the boss"
  300.     Delay 2000
  301.     Print "congratulations!"   ; win message
  302.     Delay 2000
  303.     Goto endprompt
  304.     EndIf
  305. If rest%=0 Then
  306.  
  307. If stam%<=0 Then
  308.     Print "You have run out of stamina"
  309.     Delay 2000
  310.     Print "game over"   ;loss message
  311.     Delay 2000
  312.     Goto endprompt
  313.      
  314. EndIf
  315. EndIf
  316. hostileroll%=Rand(1,100)
  317.  
  318.  
  319.  
  320. If bosshealth% > 0 Then
  321.     If bosshealth% < 20 Then
  322.     Print "the boss heals itself for 50hp"                      ;boss heal
  323.  
  324.     bosshealth%=bosshealth%+50
  325.     Delay 250
  326.     Print "the boss now has " + bosshealth% + " hp"
  327. EndIf
  328.  
  329. Delay 250
  330. Print "the target is now about to attack"
  331. Delay 250
  332. If hostileroll% > 30 Then Print "The target hit you!" playerhealth%=playerhealth% - Rand (1,70) Else Print "the target missed" 
  333.  
  334.     Print "--------------------------------"
  335.     Print "you have " + playerhealth% + " hp left"    ;target attack you feature
  336.     Print "--------------------------------"
  337.     Delay 2000
  338.    
  339. If playerhealth% >0 Then    
  340. If rest% >0 Then
  341.  
  342.    
  343.     reload$=Input$("would you like to rest? ")
  344.             If reload$= "yes" Then
  345.             bosshealth%=bosshealth% + 30                 ; Rest feature
  346.             stam%=stam% + (100-stam%)
  347.             Print "you now are full on stamina"
  348.             Print "the target now has " + bosshealth% + " health"
  349.             rest%=rest%-1
  350.             playerhealth%=playerhealth% + 30
  351.             Print "you now have " + playerhealth% + " health"
  352.             EndIf
  353.         If reload$= "no" Then
  354.         Print "ok you still have " + stam% + " stamina left"
  355.     EndIf
  356.         EndIf
  357. EndIf      
  358. EndIf
  359. Forever
  360. .endprompt
  361.  
  362.  
  363.  
  364.  
  365. If bosshealth% <= 0 Then
  366. If rest% > 5 Then
  367.  
  368. Print "you beat the high score"
  369.  
  370. Delay 250
  371. EndIf
  372. EndIf
  373.  
  374. theend$=Input$("would you like to play again? ") ;replay prompt
  375.  
  376.  
  377.  
  378. If theend$= "yes" Then
  379. Goto start
  380. Else If theend$= "no" Then
  381. End
  382. EndIf
  383. Forever
  384.  
  385.  
  386. .bottomtext
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top