Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - astrosteve

Pages: [1]
1
Programs / I started work on an RPG yesterday, 6/13. Any comments on my early build?
« on: June 14, 2018, 07:48:49 pm »
A quick introduction from me: I'm 43 and fooled around with Basic starting around 1984. It lasted until about 1995 or so, when I switched to C. I first programmed in VIC-20 Basic and eventually moved to an early version of QuickBASIC. (version 3.5, I think?) before eventually moving onto 4 then 4.5.  I never made anything too complex in Basic; just really simple games I could bash out in an hour or so.  I spent maybe 3-4 hours on my biggest game. More complex development happened in C. But I've always wanted to make a game that looked like it was from 1986-1987 or so. Real text heavy, few to no graphics. Lots of calculations going on under the hood.

So this is entirely text based. A few notes: I'm eventually going to use a custom window size, so I've made no attempt whatsoever to format the text. It looks awful and I know it. I've worked on it today and yesterday and it's about 375 lines. You can walk between three rooms, pick up a weapon and attack a skeleton. The attack routine is super buggy and no one can die. I just want to get the most basic systems in at this point, even if they're buggy. It's a fairly boring thing to play right now, what with the unkillable monsters.

I'm open to any suggestions. This is the most complex thing I've ever developed in Basic and I'm a bit overwhelmed right now.

Code: QB64: [Select]
  1. ' Steve's RPG-like thing.
  2. ' Written in 2018.
  3. ' Version 0.1-dev (pre-alpha)
  4.  
  5. ' Short term to do: figure out what's wrong with attack:, Add npc inventory, recognize death condition for npc, stop respawning npc every time player enters a room.
  6. ' Longer term goals: Get the non-weapon slots working. Show inventory. exchange weapons between slots. drop items.
  7.  
  8. OPTION _EXPLICIT ' Force variable declaration
  9.  
  12. DIM phrase AS STRING
  13. DIM object AS STRING ' For the parser, it's whatever is after the first word.
  14. DIM answer AS STRING
  15. DIM cmderror AS INTEGER ' This is for parse. cmdeerror set to 1 when a command successfully executes.
  16. DIM doneroom AS INTEGER
  17. DIM croom AS INTEGER ' the next room number to create
  18. DIM exitc AS INTEGER ' Exit code.
  19. DIM player AS playertype
  20. DIM WeaponTable(5) AS weapon ' Weapons in the game.
  21. DIM NPCTable(5) AS npc
  22. DIM pcinv AS inventory
  23. DIM curroom AS room ' Room player is currently in.
  24. DIM curnpc AS playertype ' Room NPC is currently in.
  25. DIM gameworld(5) AS room
  26.  
  27. doneroom = 0
  28. cmderror = 0
  29.  
  30. GOSUB roomsetup: ' Create starting room, intialize other rooms.
  31. GOSUB weapongen: ' Create the weapon table!
  32. GOSUB npcgen: ' Create the npc table!
  33. GOSUB playergen: ' Player Generation routine
  34. croom = 1 'starts in room 1.
  35. GOSUB setroom: ' Set initial room properties.
  36.  
  37. Main: ' Main loop
  38.  
  39. IF doneroom = 1 THEN GOSUB setroom:
  40.  
  42. PRINT RTRIM$(curroom.shortd)
  43. PRINT RTRIM$(curroom.longd)
  44. IF curroom.npc <> 0 THEN PRINT "There is a "; RTRIM$(NPCTable(curroom.npc).name); " here."
  45. IF curroom.weapon <> 0 THEN PRINT "A "; RTRIM$(WeaponTable(curroom.weapon).name); " is here."
  46.  
  47.  
  48. PRINT "Exits:"
  49. IF curroom.north <> 0 THEN PRINT "North"
  50. IF curroom.south <> 0 THEN PRINT "South"
  51. IF curroom.east <> 0 THEN PRINT "East"
  52. IF curroom.west <> 0 THEN PRINT "West"
  53.  
  54.  
  56.     INPUT "What do you do? ", res
  57.     GOSUB parse:
  58.     IF cmderror = 0 THEN PRINT "Invalid Command." ' This isn't working but it's to minor of a thing for me to dwell on at this stage.
  59. LOOP WHILE doneroom <> 1
  60.  
  61. GOTO Main: ' Shut up. I know.
  62.  
  64.  
  65.  
  66. parse:
  67. phrase = "null"
  68. object = "null"
  69. IF INSTR(res, " ") THEN
  70.     phrase = LEFT$(res, INSTR(res, " ") - 1)
  71.     object = MID$(res, INSTR(res, " ") + 1)
  73. IF phrase = "null" THEN ' If phrase wasn't changed from null, that means the command is only one word. Set the word to be processed.
  74.     phrase = res
  76. phrase = LCASE$(phrase) ' Set it to be lowercase to avoid parsing issues.
  77. IF object <> "null" THEN object = LCASE$(object) ' Only set to lowercase if it isn't null. ie, if an object was part of the command.
  78.  
  79. ' This will be replaced with a SELECT CASE eventually.
  80. IF phrase = "attack" THEN cmderror = 1: GOSUB attack:
  81. IF phrase = "dance" THEN cmderror = 1: GOSUB dance:
  82. IF phrase = "help" THEN cmderror = 1: GOSUB help:
  83. IF phrase = "look" THEN cmderror = 1: GOSUB look:
  84. IF phrase = "get" THEN cmderror = 1: GOSUB pickup:
  85. IF phrase = "xyzzy" THEN cmderror = 1: PRINT "Seriously? I don't think so."
  86. IF phrase = "quit" OR phrase = "exit" THEN cmderror = 1: GOSUB quit:
  87. IF phrase = "north" OR phrase = "n" THEN cmderror = 1: GOSUB roomchange:
  88. IF phrase = "south" OR phrase = "s" THEN cmderror = 1: GOSUB roomchange:
  89. IF phrase = "east" OR phrase = "e" THEN cmderror = 1: GOSUB roomchange:
  90. IF phrase = "west" OR phrase = "w" THEN cmderror = 1: GOSUB roomchange: ' I feel like there must be a better way to do this.
  91.  
  93.  
  94. attack: ' Attacking isn't balanced and needs extensive work, but the very basic framework of a round is in place.
  95. ' npc in room 3 seems to have too many HP. Attack is buggy and weird in general.
  96. DIM pcinit AS INTEGER ' Initiative for player
  97. DIM npcinit AS INTEGER ' NPC's initiative. May change one of those names, they're real easy to confuse or mess up.
  98. DIM turn AS INTEGER ' turn = 1 means player goes next, turn = 0 means npc goes next.
  99. DIM attack AS INTEGER ' Attack role. Used for player & npc
  100. DIM defense AS INTEGER ' Defense role. Also used for player & pc
  101. DIM damage AS INTEGER
  102.  
  103. IF curroom.npc = 0 THEN
  104.     PRINT "There is nothing here to attack."
  105.     RETURN
  107. IF curroom.npc <> 0 THEN
  108.  
  109.     pcinit = INT(RND * 18) + 1
  110.     npcinit = INT(RND * 18) + 1
  111.     PRINT "Entering fight mode."
  112.     PRINT "Your Initiative: "; pcinit; " npc's Initiative: "; npcinit
  113.  
  114.  
  115.     IF pcinit > npcinit THEN turn = 1
  116.     IF pcinit < npcinit THEN turn = 0
  117.  
  118.     FightLoop: ' Main fight loop. It's true turn based right now with no auto attack. npcs currently cannot initiate combat.
  119.     IF turn = 1 THEN ' This is always the players' turn
  120.         attack = rolldice%(1, 20)
  121.         ' There'll eventually me modifiers based on class/race
  122.         defense = rolldice%(1, 20)
  123.         ' Just d20 vs d20 now. Higher number wins.
  124.         IF attack > defense THEN
  125.             damage = rolldice%(WeaponTable(pcinv.weapon1).dice, WeaponTable(pcinv.weapon1).sides)
  126.             curnpc.hp = curnpc.hp - damage
  127.         END IF
  128.         IF attack < defense THEN
  129.             damage = 0
  130.             curnpc.hp = curnpc.hp - damage ' Done this way because there may evemtually be modifiers that add damage even if hit misses.
  131.         END IF
  132.         PRINT RTRIM$(curnpc.name); " took "; damage; " and has "; curnpc.hp; " left."
  133.         IF pcinit > npcinit THEN turn = 0 ' pcinit being higher means player went first. If it's lower, it means player is going second and doesn't need to trigger npc's turn.
  134.     END IF
  135.     IF turn = 0 THEN ' npc's turn
  136.         attack = rolldice%(1, 20)
  137.         ' There'll eventually me modifiers based on class/race
  138.         defense = rolldice%(1, 20)
  139.         ' Just d20 vs d20 now. Higher number wins.
  140.         IF attack > defense THEN
  141.             damage = rolldice%(WeaponTable(pcinv.weapon1).dice, WeaponTable(pcinv.weapon1).sides) ' Uses player's weapon for now.
  142.             player.hp = player.hp - damage ' Player damage
  143.         END IF
  144.         IF attack < defense THEN
  145.             damage = 0
  146.             player.hp = player.hp - damage ' Player damage
  147.         END IF
  148.         PRINT "You've taken "; damage; " to your hitpoints! You now have "; player.hp; " left."
  149.         IF pcinit < npcinit THEN turn = 1: GOTO FightLoop: ' I can't figure out how to do this without using goto.
  150.     END IF
  152.  
  153.  
  155.  
  156. dance:
  157. PRINT "You do that weird pointy dance people in leisure suits did in the 70s. Is this really becoming of an adventurer such as yourself?"
  159.  
  160. help:
  161. PRINT "Game in Development. Move with standard cardinal directions. Do not, under any circmstances, attempt to dance. Quit or Exit to quit."
  162. cmderror = 1
  164.  
  165. look:
  166. PRINT curroom.longd
  167. cmderror = 1
  169.  
  170. quit:
  171. INPUT "Are you sure? (y/N) ", answer
  172. IF LCASE$(answer) = "y" OR LCASE$(answer) = "yes" THEN END
  174.  
  175.  
  176. TYPE playertype
  177.     name AS STRING * 25
  178.     str AS INTEGER ' Strength.
  179.     dur AS INTEGER ' Durability, aka basis of hitpoints
  180.     hp AS INTEGER ' hit points
  182.  
  183. TYPE inventory
  184.     weapon1 AS INTEGER ' Corresponds to the WeaponTable entry.
  185.     weapon2 AS INTEGER
  186.     slot1 AS INTEGER ' Eventually there'll be a General Inventory table, not implemented yet.
  187.     slot2 AS INTEGER
  188.     slot3 AS INTEGER
  190.  
  191. TYPE weapon
  192.     name AS STRING * 20
  193.     sides AS INTEGER ' number of sides of damage dice. d4, d6, etc.
  194.     dice AS INTEGER ' number of dice.
  195.     desc AS STRING * 20 ' not used yet, but maybe some kind of descriptive name, such as "gleaming"
  197.  
  198. TYPE npc ' This is totally cosmetic. I'll figure out better stuff to put here later.
  199.     name AS STRING * 25 ' Race name. eg, hobgoblin, kobold, dragon, etc.
  200.     str AS INTEGER ' Strength.
  201.     dur AS INTEGER ' Durability, aka basis of hitpoints
  202.     hp AS INTEGER ' hit points
  204.  
  205. TYPE room
  206.     roomid AS INTEGER ' used for moving
  207.     shortd AS STRING * 30 ' short desc
  208.     longd AS STRING * 180 ' long desc
  209.     npc AS INTEGER ' Right now it supports 1 NPC per room. The number references the NPC Table. Will expand this in the future.
  210.     weapon AS INTEGER ' Game currently supports one weapon and one item in each room.
  211.     item AS INTEGER ' Item table not implemented yet.
  212.     north AS INTEGER ' Leads to this room number.
  213.     south AS INTEGER
  214.     east AS INTEGER
  215.     west AS INTEGER
  217.  
  218.  
  219. playergen:
  220. ' INPUT "What is your name? ", player.name
  221. player.str = rolldice%(3, 6)
  222. player.dur = rolldice%(3, 6)
  223. player.hp = rolldice%(1, 10) ' Roll 1d10
  224. PRINT "Your stats are -"
  225. PRINT "Strength: "; player.str; " Stamina: "; player.dur; " Hitpoints: "; player.hp
  226. pcinv.weapon1 = 2 ' Starting weapon is a short sword.
  227. PRINT "Press a key to start playing."
  229.     _LIMIT 5 ' Don't need it eating up all the CPU.
  233.  
  234. weapongen:
  235. ' I really want this to be a Constant so it can't be modified accidentally, but that doesn't seem possible.
  236.  
  237. WeaponTable(1).name = "Long Sword"
  238. WeaponTable(1).sides = 8
  239. WeaponTable(1).dice = 1
  240.  
  241. WeaponTable(2).name = "Short Sword"
  242. WeaponTable(2).sides = 6
  243. WeaponTable(2).dice = 1
  244.  
  245. WeaponTable(3).name = "Mace"
  246. WeaponTable(3).sides = 4
  247. WeaponTable(3).dice = 1
  248.  
  249. WeaponTable(4).name = "Dagger"
  250. WeaponTable(4).sides = 3
  251. WeaponTable(4).dice = 1
  252.  
  253. WeaponTable(5).name = "Lance"
  254. WeaponTable(5).sides = 6
  255. WeaponTable(5).dice = 2
  257.  
  258. npcgen: ' These numbers are all made up and are changing at some point.
  259. NPCTable(1).name = "Kobold"
  260. NPCTable(1).str = rolldice%(3, 6) ' 3d6 is standard ability roll
  261. NPCTable(1).dur = rolldice%(3, 6) ' 3d6
  262. NPCTable(1).hp = rolldice%(1, 6) ' 1d6 for HP
  263.  
  264.  
  265. NPCTable(2).name = "Hobgoblin"
  266. NPCTable(4).str = rolldice%(3, 6) ' 3d6 is standard ability roll
  267. NPCTable(4).dur = rolldice%(3, 6) ' 3d6
  268. NPCTable(4).hp = rolldice%(1, 6) ' 1d6
  269.  
  270. NPCTable(3).name = "Orc"
  271. NPCTable(4).str = rolldice%(3, 6) ' 3d6 is standard ability roll
  272. NPCTable(4).dur = rolldice%(3, 6) ' 3d6
  273. NPCTable(4).hp = rolldice%(1, 6) ' 1d6
  274.  
  275. NPCTable(4).name = "Skeleton"
  276. NPCTable(4).str = rolldice%(3, 6) ' 3d6 is standard ability roll
  277. NPCTable(4).dur = rolldice%(3, 6) ' 3d6
  278. NPCTable(4).hp = rolldice%(1, 6) ' 1d6
  279.  
  280. NPCTable(5).name = "Gold Dragon"
  281. NPCTable(4).str = rolldice%(3, 6) + 2 ' Dragon gets 3d6 + 2
  282. NPCTable(4).dur = rolldice%(3, 6) + 2
  283. NPCTable(4).hp = rolldice%(4, 8) + 5 ' 4d8+5 because dragons be strong.
  284.  
  286.  
  287. createnpc: ' Sets up NPCs based off NPCTable.
  288.  
  289. curnpc.name = NPCTable(curroom.npc).name
  290. curnpc.hp = NPCTable(curroom.npc).hp
  291. curnpc.dur = NPCTable(curroom.npc).dur
  292. curnpc.str = NPCTable(curroom.npc).str
  293.  
  295.  
  296. roomsetup:
  297.  
  298. gameworld(1).roomid = 1 ' Starting room. You always start in 1.
  299. gameworld(1).shortd = "The start of a dungeon of fear"
  300. gameworld(1).longd = "You see bones strewn about. This is surely the entrance to somewhere pretty horrible."
  301. gameworld(1).south = 2
  302. gameworld(1).west = 3
  303.  
  304. gameworld(2).roomid = 2
  305. gameworld(2).shortd = "Another room of roominess"
  306. gameworld(2).longd = "It's pretty scary here. You see a boogie woogie skeleton in the corner."
  307. gameworld(2).npc = 4 ' Skeleton
  308. gameworld(2).north = 1
  309.  
  310. gameworld(3).roomid = 3
  311. gameworld(3).shortd = "The Armory"
  312. gameworld(3).longd = "You stand in an old forgotten armory. Most the weapons look old and unusuable. This place hasn't been properly tended to in decades, if not centuries."
  313. gameworld(3).weapon = 5
  314. gameworld(3).east = 1
  315.  
  317.  
  318. setroom:
  319. curroom.roomid = gameworld(croom).roomid
  320. curroom.shortd = gameworld(croom).shortd
  321. curroom.longd = gameworld(croom).longd
  322. curroom.npc = gameworld(croom).npc
  323. curroom.weapon = gameworld(croom).weapon
  324. curroom.item = gameworld(croom).item
  325. curroom.north = gameworld(croom).north
  326. curroom.south = gameworld(croom).south
  327. curroom.east = gameworld(croom).east
  328. curroom.west = gameworld(croom).west
  329. IF curroom.npc <> 0 THEN GOSUB createnpc: ' Bring the room's npc, if any, into existence. Drawback is npc respawns every time you enter room. Will fix that later.
  330. doneroom = 0
  332.  
  333. roomchange:
  334. doneroom = 0 ' Make sure it's set to 0, which effectively means you can't exit.
  335. IF LEFT$(phrase, 1) = "n" AND curroom.north <> 0 THEN croom = curroom.north: doneroom = 1 ' Done this way as the parser accepts either "north" or "n" to move.
  336. IF LEFT$(phrase, 1) = "s" AND curroom.south <> 0 THEN croom = curroom.south: doneroom = 1
  337. IF LEFT$(phrase, 1) = "e" AND curroom.east <> 0 THEN croom = curroom.east: doneroom = 1
  338. IF LEFT$(phrase, 1) = "w" AND curroom.west <> 0 THEN croom = curroom.west: doneroom = 1
  339. IF doneroom <> 1 THEN PRINT "You cannot go that way."
  341.  
  342. pickup:
  343. IF curroom.weapon = 0 AND curroom.item = 0 THEN PRINT "There is nothing here to get."
  344.  
  345. IF curroom.weapon <> 0 THEN
  346.     IF object = RTRIM$(LCASE$(WeaponTable(curroom.weapon).name)) THEN ' Such ugly code. make it all lower case and cut the extra spaces off so it (potentially) matches object.
  347.         IF pcinv.weapon1 AND pcinv.weapon2 <> 0 THEN
  348.             PRINT "You have no room for the "; RTRIM$(WeaponTable(curroom.weapon).name)
  349.             RETURN
  350.         END IF
  351.         IF pcinv.weapon1 = 0 THEN
  352.             pcinv.weapon1 = curroom.weapon
  353.             PRINT "You have placed the "; RTRIM$(WeaponTable(curroom.weapon).name); " in slot 1."
  354.             RETURN
  355.         END IF
  356.         IF pcinv.weapon1 <> 0 AND pcinv.weapon2 = 0 THEN
  357.             pcinv.weapon2 = curroom.weapon
  358.             PRINT "You have placed the "; RTRIM$(WeaponTable(curroom.weapon).name); " in slot 2."
  359.         END IF
  360.     ELSE PRINT "There is no "; object; " here to pick up."
  361.     END IF
  364.  
  365. FUNCTION rolldice% (dice%, sides%)
  366.     DIM counter AS INTEGER
  367.     DIM total(dice%) AS INTEGER
  368.  
  369.     FOR counter = 1 TO dice%
  370.         total(counter) = INT(RND * sides%) + 1
  371.     NEXT counter
  372.     ' total should now contain an array of all dice rolls. Now we add them up.
  373.  
  374.     FOR counter = 1 TO dice%
  375.         rolldice% = rolldice% + total(counter)
  376.     NEXT counter
  377.     ' I feel like there's probably a much better way of doing this.
  378.  
  380.  

2
QB64 Discussion / Re: Programming in basic for the first time in 20 years.. need some help.
« on: June 13, 2018, 12:18:19 pm »
.... I got the arguments for MID$ backwards? What the. I tested it the way it was and it seemed to work. Well, now I'm embarrassed. But thank you for the help!

The loop is an interesting idea. I wasn't particularly happy with the For/Next because I had to manually end it, which just looks ugly.  I'll probably use your suggestion. Thanks again!

3
QB64 Discussion / Programming in basic for the first time in 20 years.. need some help.
« on: June 13, 2018, 11:46:56 am »
Hi, everyone. I hope this is the right place to post for code help.

I recently have been trying to program a bit. I used to do it a lot in the 90s and 80s, but totally stopped. I've been programming mostly in C since the mid 90s when I do anything, but I recently decided to go back to my childhood and try Basic again. I found out about QB64 a few days ago on Twitter , tried it out and here I am.

I'm a text based sort of coder, I don't really like doing stuff with graphics. Remembering a fun project I did in C about 10 years ago where I wrote a parser for a text based game, I decided to try something similar in basic and immediately got stuck. The first step I did is isolate the command word (as I call it) and process that. But it's not working well. The program is super short at this point so I'm including the entire thing here:

Code: QB64: [Select]
  1. res$ = "This is a test."
  2. rescount = LEN(res$)
  3.  
  4. FOR solved = 1 TO rescount
  5.     IF MID$(res$, 1, solved) = CHR$(32) THEN phrase$ = MID$(res$, 1, solved): solved = rescount - 1
  6. NEXT solved
  7.  
  8. PRINT phrase$; " is the word."
  9.  

The output of this program should be "This is the word." The only thing I ever get out of it is " is the word." The IF statement in the For loop doesn't work as best I can tell. I don't think my condition is bad, as if I replace the If statement with  PRINT MID$(res$, 1, solved) it prints out res$ incremented by one character each loop, which is what should happen. As best I can tell after a surprisingly large amount of troubleshooting is that it never recognizes a space and the IF condition is never met, despite spaces being in the string.

Why the heck doesn't this work? I've been staring at that code for the past half hour and can't figure out the problem.

Also, as an aside, is there a way to set it to require variable declaration? This project will probably eventually be several hundred lines of code and I'd prefer to not be able to create new variables by accident.

Pages: [1]