Subject: Legend of Beryl Reichardt

From: Owen Brand <[email-masked]>
Date: Fri, 5 Feb 2010 13:03:33 -0500

RT from atariage.  This is a short little demo (un-optimized) to see  
the new characters in my future game project "The Legend of Beryl  
Reichardt," an RPG that I have put on the back burner while I finish  
up "Honeycomb.". Anyway, all this is is a screen with some of the  
graphics I've done for the game.... Cool font!!!
Hello all, this is the game I've been messing with for a while... over  
a year now. Anyway, it's a CRPG that will be created in a hybrid of XB  
and Assembly languages. I will attempt to draw all the gamescreens in  
assembly to optimize speed between each screen. This shouldnt prove  
too difficult, i dont imagine.... It is my first real attempt at  
coding in assembly.  Paste it into Classic99 to see what I'm working  
with. Thanks to "sometimes" for the font!!! =)

100 CALL CLEAR :: CALL SCREEN(2)
110 CALL CHAR 
(96,"000000FFFF81818181818181FFFF0000000000FFFF81818181818181FFFF0000")
120 REM **CHARDEF**
130 GOSUB 270
140 P=1 :: Q=2
150 FOR LOOP=1 TO 2
160 FOR I=1 TO 31 STEP 2 :: CALL HCHAR(P,I,96) :: NEXT I :: FOR I=2 TO  
32 STEP 2 :: CALL HCHAR(P,I,98) :: NEXT I
170 FOR I=1 TO 31 STEP 2 :: CALL HCHAR(Q,I,97) :: NEXT I :: FOR I=2 TO  
32 STEP 2 :: CALL HCHAR(Q,I,99) :: NEXT I
180 P=P+22 :: Q=Q+22 :: NEXT LOOP
190 DISPLAY AT(3,:"THE LEGEND OF";" BERYL REICHARDT";
200 DISPLAY AT(20,4):"CHARACTER DEFINITIONS";
210 CALL SPRITE(#1,100,2,50,60) :: CALL SPRITE(#2,104,2,50,90) :: CALL  
SPRITE(#3,108,2,50,120)
220 CALL SPRITE(#4,112,2,50,150) :: CALL SPRITE(#5,116,2,80,75) ::  
CALL SPRITE(#6,120,2,80,105)
230 CALL SPRITE(#7,124,2,80,125) :: CALL SPRITE(#8,128,2,110,60) ::  
CALL SPRITE(#9,132,2,110,90) :: CALL SPRITE(#10,136,2,110,120)
240 CALL SPRITE(#11,140,2,110,150)
250 CALL MAGNIFY(3):: CALL SCREEN(9)
260 GOTO 260
270 REM CHARACTER DEFINITIONS
280 CALL CHAR 
(48,"003C4E4E4E4E4E3C003C1C1C1C1C1C1C007C0E0E3C70707E007C0E0E3C0E0E7C")
290 CALL CHAR 
(52,"001C3C5C5C5C7E1C007E70707C0E0E7C003E70707C72723C007E0E0E1C383838")
300 CALL CHAR(56,"003C4E4E3C4E4E3C003C4E4E3E0E0E3C00000000000000000")
310 CALL CHAR 
(64,"0000000000000000007C8E8E8EFE8E8E00FCE2E2FCE2E2FC007EE0E0E0E0E07E")
320 CALL CHAR 
(68,"00FCE2E2E2E2E2FC00FCE0E0FCE0E0FE00FEE0E0FCE0E0E0007EE0E0EEEEEE7E")
330 CALL CHAR 
(72,"008E8E8EFE8E8E8E0038383838383838001C1C1C1C1C1CF800E6ECF8F0F8ECE6")
340 CALL CHAR 
(76,"00E0E0E0E0E0E0FE00DCAEAEAEAE8E8E00E2F2EAE6E2E2E2007C8E8E8E8EFE7C")
350 CALL CHAR 
(80,"00FCE2E2E2FCE0E0007C8E8E8E9E8C7A00FCE2E2E2FCE4E2007EE0E07C0E0EFC")
360 CALL CHAR 
(84,"00FE383838383838008E8E8E8E8E8E7C008E8E8E8E5C3810008EAEAEAEAEAE5C")
370 CALL CHAR(88,"008E8E5E3C5E8E8E008E8E8E7C38383800FE0E1E3C78F0FE0")
380 REM KEY
390 CALL CHAR 
(100,"386C444747446C380000000000000000000000FCFC1414000000000000000000")
400 REM SPIDER
410 CALL CHAR 
(104,"0040700F057F47070A1264080808000000020EF0A0FEE2E05048261010100000")
420 REM PENDANT
430 CALL CHAR 
(108,"1F20404020101C020100010303010000FC02010102041C204080C06060C08000")
440 REM FLYING
450 CALL CHAR 
(112,"273D07FFFFDBD9D9D1C183070F0A0A08E4BCE0FFFFDB9B9B8B83C1E0F0505010")
460 REM GOBLET
470 CALL CHAR 
(116,"00003F3F3F1F0F07010101010103070F0000FCFCFCF8F0E08080808080C0E0F0")
480 REM HERO
490 CALL CHAR 
(120,"0001030707070301FFDF8BD9DBFB722E0484C4E4E4E4CE84FCE4C080C0C04070")
500 REM DUDE
510 CALL CHAR 
(124,"0C12090705070701112F11010204041C304890E0A0E0E08088F4888040202038")
520 REM SWORD1
530 CALL CHAR 
(128,"000000000000102143271E0C1422C1C003070E1C3870E0C08000000040800000")
540 REM DUDECAPE
550 CALL CHAR 
(132,"0C062177251709050709112141E21538306084EEA4E890A0E09088848247A81C")
560 REM DWARF
570 CALL CHAR 
(136,"1F171D1F01070B132363070810103838D15FD5C484FCC4C4C4C0E01008081C1C")
580 REM POTION
590 CALL CHAR 
(140,"000704070101010101030E081810307F00E020E08080808080C0701018080CFE")
600 RETURN
Owen Brand
Opry99er.com

---

From: "kabldb" <[email-masked]>
Date: Sat, 06 Feb 2010 08:47:16 -0000

Looks like a little copy and paste devil.

;-)

---

From: mark wills <[email-masked]>
Date: Sat, 6 Feb 2010 01:13:20 -0800 (PST)

Yeah. I like the graphics. They have a nice retro feel ;-)

>
>From: kabldb <[email-masked]>
>To: [email-masked]
>Sent: Sat, 6 February, 2010 9:47:16
>Subject: [TI994A] Re: Legend of Beryl Reichardt
>
> >
>
>
>
>
>  >
>>      
> 
>>--- In TI994A@yahoogroups. com, Owen Brand <owenbrand@. ..> wrote:
>>>
>>> up "Honeycomb." . Anyway, all this is is a screen with some of the 
>>> (96,"000000FFFF8181 8181818181FFFF00 00000000FFFF8181 8181818181FFFF00 00")
>>> 120 REM **CHARDEF**
>>> 130 GOSUB 270
>>> 140 P=1 :: Q=2
>>> 150 FOR LOOP=1 TO 2
>>> 200 DISPLAY AT(20,4):"CHARACTER DEFINITIONS" ;
>>> 210 CALL SPRITE(#1,100, 2,50,60) :: CALL SPRITE(#2,104, 2,50,90) :: CALL 
>>> SPRITE(#3,108, 2,50,120)
>>> 220 CALL SPRITE(#4,112, 2,50,150) :: CALL SPRITE(#5,116, 2,80,75) :: 
>>> CALL SPRITE(#6,120, 2,80,105)
>>> 230 CALL SPRITE(#7,124, 2,80,125) :: CALL SPRITE(#8,128, 2,110,60) :: 
>>> CALL SPRITE(#9,132, 2,110,90) :: CALL SPRITE(#10,136, 2,110,120)
>>> 240 CALL SPRITE(#11,140, 2,110,150)
>>> (48,"003C4E4E4E4E4E 3C003C1C1C1C1C1C 1C007C0E0E3C7070 7E007C0E0E3C0E0E 7C")
>>> 290 CALL CHAR 
>>> (52,"001C3C5C5C5C7E 1C007E70707C0E0E 7C003E70707C7272 3C007E0E0E1C3838 38")
>>> 300 CALL CHAR(56,"003C4E4E3C 4E4E3C003C4E4E3E 0E0E3C0000000000 0000000")
>>> 310 CALL CHAR 
>>> (64,"00000000000000 00007C8E8E8EFE8E 8E00FCE2E2FCE2E2 FC007EE0E0E0E0E0 7E")
>>> 320 CALL CHAR 
>>> (68,"00FCE2E2E2E2E2 FC00FCE0E0FCE0E0 FE00FEE0E0FCE0E0 E0007EE0E0EEEEEE 7E")
>>> 330 CALL CHAR 
>>> (72,"008E8E8EFE8E8E 8E00383838383838 38001C1C1C1C1C1C F800E6ECF8F0F8EC E6")
>>> 340 CALL CHAR 
>>> (76,"00E0E0E0E0E0E0 FE00DCAEAEAEAE8E 8E00E2F2EAE6E2E2 E2007C8E8E8E8EFE 7C")
>>> 350 CALL CHAR 
>>> (80,"00FCE2E2E2FCE0 E0007C8E8E8E9E8C 7A00FCE2E2E2FCE4 E2007EE0E07C0E0E FC")
>>> 360 CALL CHAR 
>>> (84,"00FE3838383838 38008E8E8E8E8E8E 7C008E8E8E8E5C38 10008EAEAEAEAEAE 5C")
>>> 370 CALL CHAR(88,"008E8E5E3C 5E8E8E008E8E8E7C 38383800FE0E1E3C 78F0FE0")
>>> 380 REM KEY
>>> 390 CALL CHAR 
>>> (100,"386C444747446 C380000000000000 000000000FCFC141 4000000000000000 000")
>>> 400 REM SPIDER
>>> 410 CALL CHAR 
>>> (104,"0040700F057F4 7070A12640808080 00000020EF0A0FEE 2E05048261010100 000")
>>> 420 REM PENDANT
>>> 430 CALL CHAR 
>>> (108,"1F20404020101 C020100010303010 000FC02010102041 C204080C06060C08 000")
>>> 440 REM FLYING
>>> 450 CALL CHAR 
>>> (112,"273D07FFFFDBD 9D9D1C183070F0A0 A08E4BCE0FFFFDB9 B9B8B83C1E0F0505 010")
>>> 460 REM GOBLET
>>> 470 CALL CHAR 
>>> (116,"00003F3F3F1F0 F070101010101030 70F0000FCFCFCF8F 0E08080808080C0E 0F0")
>>> 480 REM HERO
>>> 490 CALL CHAR 
>>> (120,"0001030707070 301FFDF8BD9DBFB7 22E0484C4E4E4E4C E84FCE4C080C0C04 070")
>>> 500 REM DUDE
>>> 510 CALL CHAR 
>>> (124,"0C12090705070 701112F110102040 41C304890E0A0E0E 08088F4888040202 038")
>>> 520 REM SWORD1
>>> 530 CALL CHAR 
>>> (128,"0000000000001 02143271E0C1422C 1C003070E1C3870E 0C08000000040800 000")
>>> 540 REM DUDECAPE
>>> 550 CALL CHAR 
>>> (132,"0C06217725170 9050709112141E21 538306084EEA4E89 0A0E09088848247A 81C")
>>> 560 REM DWARF
>>> 570 CALL CHAR 
>>> (136,"1F171D1F01070 B132363070810103 838D15FD5C484FCC 4C4C4C0E01008081 C1C")
>>> 580 REM POTION
>>> 590 CALL CHAR 
>>> (140,"0007040701010 10101030E0818103 07F00E020E080808 08080C0701018080 CFE")
>>> 600 RETURN
>>> Owen Brand
>>> Opry99er.com
>>>
>
>
>

---

From: Owen Brand <[email-masked]>
Date: Sat, 6 Feb 2010 08:49:23 -0500

Thanks!!  It really is going to feel a bit like Tunnels of Doom meets  
"Faxanadu"... The AMAZING AMAZING AMAZING RPG for NES.  Nobody gives  
this game the credit it deserves, and as far as "favorite games all  
time", this is probably #1.  Graphics are fun, but the mathematical  
scoring engine to keep track of a vast number of variables will be a  
mother to create!!!

Owen Brand
Opry99er.com