« previous next »
Pages: [1]   Go Down

Author Topic: Procedural Generation (to be integrated into ASCII Terrain Engine)  (Read 1135 times)

0 Members and 1 Guest are viewing this topic.

Offline Virtusoroca

  • Newbie
  • Posts: 24
    • View Profile
Procedural Generation (to be integrated into ASCII Terrain Engine)
« on: May 31, 2020, 09:15:07 pm »
Still rough but usabe
1. Run code
2. Select theme (UserDefined, BayArea, Archipelago, Swamp, Icelands, Barren, AlienPlanet)
3. Loop trough results and Save the selected Terrain (in the CSV file will be included the terrain block properties)
4. Open CSV file with Editor Module (select StructureMode to see block properties): https://www.qb64.org/forum/index.php?topic=2608.0
5. Load CSV (from Generator or Editor) in ATE MainModule and play (current version not compatible yet): https://www.qb64.org/forum/index.php?topic=2547.0
6. Modify variables as you like and run again

Code: QB64: [Select]
  1. 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  2. 'º ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ      ASCII TERRAIN ENGINE     ÛÛßßÛÛ ÛÛßßÛÛ º
  3. 'º ÛÛ     Û     ÛÛ   ® Generator Module v1.0 ¯   ÛÛ ÞÛÛ ÛÛÛÛÛ  º
  4. 'º ÛÛ  Û  Û  Û  ÛÛ   (to be integreated in ATE)  ÛÛÜÞÛÛ ÛÛÜÜÛÛ º
  5. 'º    Û  Û  Û        Still rough but usable      ßß          º
  6. 'º ÛÛ  Û  Û  Û  ÛÛ          ------------         ÛÛßßßß ÛÛ  ÛÛ º
  7. 'º ÛÛ  Û     Û  ÛÛ  By Virtusoroca-Brazil, 2020  ÛÛßßÛÛ ÛÛÜÜÛÛ º
  8. 'º ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ          Made in QB64         ÛÛÜÜÛÛ     ÛÛ º
  9. 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  10. '================================================================= 1.    SYSTEM SETTINGS
  13. ScreenX = 800: ScreenY = 1200
  14. CharX = 50: CharY = 100
  15. 'FontSize = 16
  16. SCREEN _NEWIMAGE(ScreenY, ScreenX, 256)
  17. '================================================================= 2.    SUBPROCEDURES DECLARATIONS
  18. DECLARE SUB PrintMenu
  19. DECLARE SUB Reload (ScreenX, ScreenY, CharX, CharY)
  20. DECLARE SUB ProceduralGeneration (CharX, CharY, MoundAscii$, MoundFColor, MoundBColor, PlainAscii$, PlainFColor, PlainBColor, WaterAscii$, WaterFColor, WaterBColor, MoundChance, MoundBoldness, WaterLevel)
  21. '================================================================= 3.    VARIABLES DECLARATION
  22. DIM SHARED KeyPress AS STRING
  23. TYPE Map
  24.     x AS INTEGER
  25.     y AS INTEGER
  26.     sum AS INTEGER
  27.     num AS INTEGER
  28.     ascii AS STRING
  29.     block AS INTEGER
  30.     fcolor AS INTEGER
  31.     bcolor AS INTEGER
  32.     check AS INTEGER
  34. REDIM SHARED Tile(1, 1) AS Map
  35. '================================================================= 4.    MAIN PROCEDURE
  37.     PrintMenu
  38.     Reload ScreenX, ScreenY, CharX, CharY
  39.     ProceduralGeneration CharX, CharY, MoundAscii$, MoundFColor, MoundBColor, PlainAscii$, PlainFColor, PlainBColor, WaterAscii$, WaterFColor, WaterBColor, MoundChance, MoundBoldness, WaterLevel
  40.     KeyPress = UCASE$(INKEY$)
  41.     SELECT CASE KeyPress
  42.         '========================================================= 4.1.  UserDefined
  43.         CASE CHR$(0) + CHR$(59)
  44.             MoundAscii$ = "²": MoundFColor = 6: MoundBColor = 7
  45.             PlainAscii$ = "Û": PlainFColor = 2: PlainBColor = 0
  46.             WaterAscii$ = "Û": WaterFColor = 3: WaterBColor = 0
  47.             MoundChance = 0: MoundBoldness = 55: WaterLevel = 1
  48.             '===================================================== 4.2.  BayArea
  49.         CASE CHR$(0) + CHR$(60)
  50.             MoundAscii$ = "²": MoundFColor = 2: MoundBColor = 7
  51.             PlainAscii$ = "Û": PlainFColor = 2: PlainBColor = 0
  52.             WaterAscii$ = "Û": WaterFColor = 3: WaterBColor = 0
  53.             MoundChance = 0: MoundBoldness = 55: WaterLevel = 1
  54.             '===================================================== 4.3.  Archipelago
  55.         CASE CHR$(0) + CHR$(61)
  56.             MoundAscii$ = "^": MoundFColor = 6: MoundBColor = 2
  57.             PlainAscii$ = "Û": PlainFColor = 2: PlainBColor = 0
  58.             WaterAscii$ = "Û": WaterFColor = 3: WaterBColor = 0
  59.             MoundChance = 0: MoundBoldness = 35: WaterLevel = 2
  60.             '===================================================== 4.4.  Swamp
  61.         CASE CHR$(0) + CHR$(62)
  62.             MoundAscii$ = "°": MoundFColor = 2: MoundBColor = 0
  63.             PlainAscii$ = "°": PlainFColor = 6: PlainBColor = 0
  64.             WaterAscii$ = "°": WaterFColor = 6: WaterBColor = 3
  65.             MoundChance = 10: MoundBoldness = 25: WaterLevel = 2
  66.             '===================================================== 4.5.  Icelands
  67.         CASE CHR$(0) + CHR$(63)
  68.             MoundAscii$ = "^": MoundFColor = 29: MoundBColor = 27
  69.             PlainAscii$ = "Û": PlainFColor = 27: PlainBColor = 0
  70.             WaterAscii$ = "Û": WaterFColor = 11: WaterBColor = 0
  71.             MoundChance = 30: MoundBoldness = 0: WaterLevel = 1
  72.             '===================================================== 4.6.  Barren
  73.         CASE CHR$(0) + CHR$(64)
  74.             MoundAscii$ = " ": MoundFColor = 14: MoundBColor = 6
  75.             PlainAscii$ = ".": PlainFColor = 14: PlainBColor = 6
  76.             WaterAscii$ = "": WaterFColor = 14: WaterBColor = 6
  77.             MoundChance = 5: MoundBoldness = 45: WaterLevel = 2
  78.             '===================================================== 4.7.  AlienPlanet
  79.         CASE CHR$(0) + CHR$(65)
  80.             MoundAscii$ = " ": MoundFColor = 21: MoundBColor = 18
  81.             PlainAscii$ = "^": PlainFColor = 0: PlainBColor = 18
  82.             WaterAscii$ = "°": WaterFColor = 18: WaterBColor = 5
  83.             MoundChance = 5: MoundBoldness = 45: WaterLevel = 5
  84.             '=====================================================
  85.             'CASE "-": FontSize = FontSize - 1
  86.             'CASE "+": FontSize = FontSize + 1
  87.         CASE "S"
  88.             SaveImageFile CharX, CharY
  89.     END SELECT
  90.     '=============================================================
  91. LOOP UNTIL KeyPress = "Q"
  92. '================================================================= 5.   SUBROUTINES
  93. '================================================================= 5.1. PrintMenu
  94. SUB PrintMenu
  95.     FOR MenuColumnX = 1 TO 50
  96.         LOCATE MenuColumnX, 101: COLOR 7, 0: PRINT "º";
  97.     NEXT
  98.     LOCATE 1, 103: PRINT "SELECT OPTION"
  99.     LOCATE 3, 103: PRINT "F1 = UserCustomized"
  100.     LOCATE 4, 103: PRINT "F2 = BayArea"
  101.     LOCATE 5, 103: PRINT "F3 = Archipelago"
  102.     LOCATE 6, 103: PRINT "F4 = Swamp"
  103.     LOCATE 7, 103: PRINT "F5 = Icelands"
  104.     LOCATE 8, 103: PRINT "F6 = Barren"
  105.     LOCATE 9, 103: PRINT "F7 = AlienPlanet"
  106.     LOCATE 11, 103: PRINT "S  = SaveFile"
  108. '================================================================= 5.2. Reload
  109. SUB Reload (ScreenX, ScreenY, CharX, CharY)
  110.     '    font& = _LOADFONT("PerfectDOSVGA437Win.ttf", FontSize, "monospace")
  111.     '    _FONT font&
  112.     '    CharX = INT(ScreenX / _FONTHEIGHT)
  113.     '    CharY = INT(ScreenY / _FONTWIDTH)
  114.     REDIM Tile(CharX, CharY) AS Map
  115.     FOR X = 1 TO CharX
  116.         FOR Y = 1 TO CharY
  117.             Tile(X, Y).block = 0
  118.             Tile(X, Y).check = 0
  119.             Tile(X, Y).num = 0
  120.             Tile(X, Y).sum = 0
  121.             Tile(X, Y).x = X
  122.             Tile(X, Y).y = Y
  123.         NEXT
  124.     NEXT
  126. '================================================================= 5.3. ProceduralGeneration
  127. SUB ProceduralGeneration (CharX, CharY, MoundAscii$, MoundFColor, MoundBColor, PlainAscii$, PlainFColor, PlainBColor, WaterAscii$, WaterFColor, WaterBColor, MoundChance, MoundBoldness, WaterLevel)
  128.     '============================================================= 5.3.1. MoundChance
  129.     FOR X = 1 TO CharX
  130.         FOR Y = 1 TO CharY
  131.             Char = INT(RND * 100)
  132.             IF Char >= 0 AND Char <= MoundChance THEN
  133.                 Tile(X, Y).ascii = MoundAscii$: Tile(X, Y).fcolor = MoundFColor: Tile(X, Y).bcolor = MoundBColor
  134.                 Tile(X, Y).num = 1
  135.                 Tile(X, Y).check = 1
  136.                 LOCATE X, Y: COLOR Tile(X, Y).fcolor, Tile(X, Y).bcolor: PRINT Tile(X, Y).ascii;
  137.             END IF
  138.         NEXT
  139.     NEXT
  140.     '============================================================= 5.3.2. MoundBoldness
  141.     FOR X = 1 TO CharX - 1
  142.         FOR Y = 1 TO CharY - 1
  143.             IF Tile(X, Y).check = 0 THEN
  144.                 Char = INT(RND * 100)
  145.                 IF Char >= 0 AND Char <= MoundBoldness THEN
  146.                     FOR Z = -1 TO 1
  147.                         Tile(X, Y).sum = Tile(X, Y).sum + Tile(X - 1, Y - 1).num
  148.                         Tile(X, Y).sum = Tile(X, Y).sum + Tile(X - 1, Y + 0).num
  149.                         Tile(X, Y).sum = Tile(X, Y).sum + Tile(X - 1, Y + 1).num
  150.                         Tile(X, Y).sum = Tile(X, Y).sum + Tile(X + 0, Y - 1).num
  151.                         Tile(X, Y).sum = Tile(X, Y).sum + Tile(X + 0, Y + 1).num
  152.                         Tile(X, Y).sum = Tile(X, Y).sum + Tile(X + 1, Y - 1).num
  153.                         Tile(X, Y).sum = Tile(X, Y).sum + Tile(X + 1, Y + 0).num
  154.                         Tile(X, Y).sum = Tile(X, Y).sum + Tile(X + 1, Y + 1).num
  155.                     NEXT
  156.                 END IF
  157.                 IF Tile(X, Y).sum >= 1 THEN '===================== Higher the sum restrictions for MoundBoldness, higher the WaterLevel
  158.                     Tile(X, Y).ascii = MoundAscii$: Tile(X, Y).fcolor = MoundFColor: Tile(X, Y).bcolor = MoundBColor
  159.                     Tile(X, Y).num = 1
  160.                     Tile(X, Y).check = 2
  161.                     LOCATE X, Y: COLOR Tile(X, Y).fcolor, Tile(X, Y).bcolor: PRINT Tile(X, Y).ascii;
  162.                 END IF
  163.             END IF
  164.         NEXT
  165.     NEXT
  166.     '============================================================= 5.3.3. Plains (surrounding Mounds)
  167.     FOR X = 1 TO CharX - 1
  168.         FOR Y = 1 TO CharY - 1
  169.             IF Tile(X, Y).check = 0 THEN
  170.                 Tile(X, Y).sum = Tile(X, Y).sum + Tile(X - 1, Y - 1).num
  171.                 Tile(X, Y).sum = Tile(X, Y).sum + Tile(X - 1, Y + 0).num
  172.                 Tile(X, Y).sum = Tile(X, Y).sum + Tile(X - 1, Y + 1).num
  173.                 Tile(X, Y).sum = Tile(X, Y).sum + Tile(X + 0, Y - 1).num
  174.                 Tile(X, Y).sum = Tile(X, Y).sum + Tile(X + 0, Y + 1).num
  175.                 Tile(X, Y).sum = Tile(X, Y).sum + Tile(X + 1, Y - 1).num
  176.                 Tile(X, Y).sum = Tile(X, Y).sum + Tile(X + 1, Y + 0).num
  177.                 Tile(X, Y).sum = Tile(X, Y).sum + Tile(X + 1, Y + 1).num
  178.                 IF Tile(X, Y).sum >= WaterLevel THEN
  179.                     Tile(X, Y).ascii = PlainAscii$: Tile(X, Y).fcolor = PlainFColor: Tile(X, Y).bcolor = PlainBColor
  180.                     Tile(X, Y).check = 3
  181.                     LOCATE X, Y: COLOR Tile(X, Y).fcolor, Tile(X, Y).bcolor: PRINT Tile(X, Y).ascii;
  182.                 END IF
  183.             END IF
  184.         NEXT
  185.     NEXT
  186.     '============================================================= 5.3.4. Water (fill the rest in) [for WaterLevel see MoundBoldness)
  187.     FOR X = 1 TO CharX
  188.         FOR Y = 1 TO CharY
  189.             IF Tile(X, Y).check = 0 THEN
  190.                 Tile(X, Y).ascii = WaterAscii$: Tile(X, Y).fcolor = WaterFColor: Tile(X, Y).bcolor = WaterBColor: Tile(X, Y).block = 1
  191.                 LOCATE X, Y: COLOR Tile(X, Y).fcolor, Tile(X, Y).bcolor: PRINT Tile(X, Y).ascii;
  192.             END IF
  193.         NEXT
  194.     NEXT
  195.     SLEEP
  197. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 5.4. SaveImageFile
  198. SUB SaveImageFile (CharX, CharY)
  199.     LOCATE 12, 103: COLOR 7, 0: INPUT "SaveFile: ", FileName$
  200.     OPEN FileName$ FOR OUTPUT AS #1
  201.     FOR A = 1 TO CharX
  202.         FOR B = 1 TO CharY
  203.             WRITE #1, Tile(A, B).x, Tile(A, B).y, Tile(A, B).fcolor, Tile(A, B).bcolor, ASC(Tile(A, B).ascii), Tile(A, B).block
  204.         NEXT
  205.     NEXT
  206.     CLOSE #1
  207.     SLEEP
  209. '================================================================= 6. END OF PROGRAM
  210.  
* ATE_generator_v1.bas (Filesize: 10.67 KB, Downloads: 146)
UserDefined.jpg
* UserDefined.jpg (Filesize: 456.53 KB, Dimensions: 1212x834, Views: 238)
Archipelago.jpg
* Archipelago.jpg (Filesize: 118.86 KB, Dimensions: 1218x840, Views: 220)
BayArrea.jpg
* BayArrea.jpg (Filesize: 303.08 KB, Dimensions: 1218x836, Views: 236)
Barren.jpg
* Barren.jpg (Filesize: 267.31 KB, Dimensions: 1210x837, Views: 221)
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Procedural Generation (to be integrated into ASCII Terrain Engine)
« Reply #1 on: May 31, 2020, 09:59:36 pm »
Looks really cool! Reminds me of the 1980's when there were games like this where you control your little ASCII character around the map and get gold and stuff. There was a funny one once, I think from a TRS-80 magazine which was about getting your cattle and it would say, "The cow broke loose!" :)
Logged

Offline Virtusoroca

  • Newbie
  • Posts: 24
    • View Profile
Re: Procedural Generation (to be integrated into ASCII Terrain Engine)
« Reply #2 on: May 31, 2020, 10:08:48 pm »
Glad you liked it @SierraKen! Exactly what im going for here. Those retro RPGs. Rogue, Nethack, Dwarf Fortress, but not so complex. My procedural generation experiment is much simplier than those too. I belive we have one of those retro RPGs here in the forum. "Crashlanded" if im not mistaken. Didnt played it yet but looks nice.
Logged
Pages: [1]   Go Up
« previous next »