Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: xra7en on July 22, 2018, 12:00:16 pm

Title: L.O.R.D. Oldie but goodie color text format
Post by: xra7en on July 22, 2018, 12:00:16 pm
Wasn't sure where to share this at, so trying here first (mods of course will move it)

If you are not familiar with L.O.R.D. this will NOT make any sense LOL, However for the rest of the BBS population, some of you might find this useful. It is a scaled down version of Seth's color code system for text 80x25 (can be used in other text windows), that I use heavily, and recently added a "center" function based on it. Feel free to modify, and/or change at will.

TODO:
Keep in mind I have a pascal version of this for writing doors, that is much more detailed, however, the following source is really all that I use.

Live game (not a plug) I used it in here (https://ra7en.itch.io/secret-sub)


Easiest way to reuse this, is with a '$INCLUDE "lord.bi" (or whatever name you want to use)

Code: QB64: [Select]
  1. SUB LWRITE (TXT AS STRING)
  2.     '======================================================
  3.     '--- THIS IS A POPULAR COLOR ROUTINE BASED ON THE
  4.     '--- SETH ABLE L.O.R.D. BBS GAME COLOR FORMATTING
  5.     '=====================================================
  6.     COLOR 7 ' DEFAULT COLOR
  7.     FOR I = 1 TO LEN(TXT$)
  8.  
  9.  
  10.         ' CHECK FOR A COLOR CHANGE
  11.         IF MID$(TXT, I, 1) = "`" THEN
  12.             I = I + 1
  13.             SELECT CASE MID$(TXT, I, 1)
  14.                 CASE "0": COLOR 10
  15.                 CASE "1": COLOR 1
  16.                 CASE "2": COLOR 2
  17.                 CASE "3": COLOR 3
  18.                 CASE "4": COLOR 4
  19.                 CASE "5": COLOR 5
  20.                 CASE "6": COLOR 6
  21.                 CASE "7": COLOR 7
  22.                 CASE "8": COLOR 8
  23.                 CASE "9": COLOR 9
  24.                 CASE "!": COLOR 11
  25.                 CASE "@": COLOR 12
  26.                 CASE "#": COLOR 13
  27.                 CASE "$": COLOR 14
  28.                 CASE "%": COLOR 15
  29.             END SELECT
  30.             I = I + 1
  31.  
  32.         END IF
  33.         PRINT MID$(TXT, I, 1);
  34.     NEXT
  35.     PRINT ;
  37.  
  38.  
  39. SUB LWRITELN (TXT AS STRING)
  40.     LWRITE (TXT)
  41.     PRINT
  43.  
  44. FUNCTION TAG_COUNT (TXT AS STRING)
  45.     ' RETURNS THE NUMBER OF TAGS IN A STRING
  46.     DIM TCNT AS INTEGER
  47.     TCNT = 0
  48.     FOR I = 1 TO LEN(TXT)
  49.         IF MID$(TXT, I, 1) = "`" THEN TCNT = TCNT + 1
  50.     NEXT
  51.     TAG_COUNT = TCNT * 2-1 ' *2 BECAUES YOU HAVE TO ACCOUNT FOR THE MARKER AND THE TAG ID
  52.  
  53.  
  55.  
  56.  
  57. SUB CENTER (TXT AS STRING)
  58.     DIM TXT_LEN AS INTEGER
  59.  
  60.     TXT_LEN = LEN(TXT) - TAG_COUNT(TXT)
  61.     TXT_LEN = 40 - INT(TXT_LEN / 2)
  62.     LOCATE CSRLIN, TXT_LEN
  63.     LWRITE (TXT)
  64.  
  66.  

As with all my programming source (php, javascript, etc..) I like to KISS it.
Title: Re: L.O.R.D. Oldie but goodie color text format
Post by: johnno56 on July 22, 2018, 11:06:24 pm
I don't know how many times I've keyed in Seabattle into different machines.... Cool game... Looks even better in colour!!

J
Title: Re: L.O.R.D. Oldie but goodie color text format
Post by: xra7en on July 24, 2018, 06:42:09 am
Quote from: johnno56 on July 22, 2018, 11:06:24 pm
I don't know how many times I've keyed in Seabattle into different machines.... Cool game... Looks even better in colour!!

J

thanks!
Min wasn't sea battle, mine was always star-trek LOL.

Im working on a 3D space game using Star-trek as the backdrop. Almost same mechanics, added "celestial bodies" to mine, these will turn out crafting materials that when crafted together will make a completely new matter, this will be coupled with a "forbidden stone"(drop % .01) that, once assembled will wipe out an entity running the galaxy. Until then, this entity ports to different quadrants of space, spawning small enemies that players will eventually need to find (up to 10 per quadrant), when not fighting them, these little enemies will start attacking celestial bodies and planets(bases?) until they are destroyed. If players end up in the same quad at the entity, the ship will be destroyed (ya, game not easy one)
/whew - LOL
I put a pretty nice color scheme on it (IceEdit) seems to look good. Yup all text.  And the one reason I use QB64 is only because it can do full screen on win7. I prefer pascal, but for some reason they have not implemented a FS feature. (win10 put it back in with the alt-enter).

Anyways.. thats my new game I might finish LOL
Title: Re: L.O.R.D. Oldie but goodie color text format
Post by: johnno56 on July 24, 2018, 10:32:08 am
Star Trek as well. Guilty!! Made a graphical version, based on an old basic256 program, but before that, keyed in from David Ahl's book (which I still have!!! - Of course it's getting too old so I use an ebook...)

3D? Now THAT is a challenge! You must let me know when you're done!
Title: Re: L.O.R.D. Oldie but goodie color text format
Post by: xra7en on July 24, 2018, 11:42:57 am
will do. I have all three of david Ahal (my bibles) books - well the main BASIC books.

My first computer was a timex sinclair LOL, then bypassed the comador and went to the CoCo II, & III
 
Even today I write some browser based game based off those books, it is a great way to break yourself into learning a language. :-)
Title: Re: L.O.R.D. Oldie but goodie color text format
Post by: johnno56 on July 26, 2018, 04:33:52 pm
I have a LOT of "Basic" ebooks... Great source of ideas... can be mongrels to convert... but great ideas...

I need coffee...
Text Only | Text with Attachments