Author Topic: Inferno: Valani's Promise- A new RPG project  (Read 23810 times)

0 Members and 1 Guest are viewing this topic.

Offline Binder News

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 785
  • Rating: +46/-3
  • Zombie of Tomorrow
    • View Profile
Re: Inferno: Valani's Promise- A new RPG project
« Reply #60 on: March 22, 2011, 12:36:16 am »
Yay! Back in action! :) It's 1am. I'm rambling. But seriously, good to see this revived.
Spoiler For userbars:







Hacker-in-training!   Z80 Assembly Programmer     Axe Programmer
C++ H4X0R             Java Coder                           I <3 Python!

Perdidisti ludum     Cerebrum non habes

"We are humans first, no matter what."
"Fame is a vapor, popularity an accident, and riches take wings. Only one thing endures, and that is character."
Spoiler For Test Results:





Offline Freyaday

  • The One And Only Serial Time Killing Catboy-Capoeirista-Ballerino
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1970
  • Rating: +128/-15
  • I put on my robe and pixel hat...
    • View Profile
Re: Inferno: Valani's Promise- A new RPG project
« Reply #61 on: March 22, 2011, 11:26:09 am »
Cool story.
In other news, Frey continues kicking unprecedented levels of ass.
Proud member of LF#N--Lolis For #9678B6 Names


I'm a performer at heart; I stole it last week.
My Artwork!

Offline c.sprinkle

  • LV5 Advanced (Next: 300)
  • *****
  • Posts: 221
  • Rating: +23/-1
  • There ain't no rest for the wicked? True indeed.
    • View Profile
    • The Corread on NationStates.
Re: Inferno: Valani's Promise- A new RPG project
« Reply #62 on: March 22, 2011, 05:21:42 pm »
Of course, you get rusty after a break that long. :P I'm working on it now.

SCREW THIS!!! My code is really messed up. If anybody would be willing to take a look at it I would be greatly indebted. My engine is messed up.
CODE:
Spoiler For Spoiler:
.IVP Inferno: Valani's Promise
DiagnosticOff
ClrHome
ClrDraw
ClrDraw r
"vIVPmap01"→Str1
[FF83878F8F9FBFFFFFFFBF9F878381FFB5FF7BDEFF6DFFB65F80A629419610EB]→Pic0
[FFFFFFFFFFFFFFFF0000000000000000]→Pic00
.Up Down Right Left
[183C3C183C5A2424182424183C5A24240C1A120C1E0C0A123058483078305048]→Pic1
[A5A55A242418243C→Pic3
GetCalc(Str1,140)→V
Data(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,0,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)→V
0→C
ref(0,0,95,63) r
For(A,0,7
For(B,0,23
If {V+C}=1
Pt-Off(B*8,A*8,Pic0
Pt-Off(B*8,A*8,Pic0+8) r
End
If {V+C}=2
Pt-Off(B*8,A*8,Pic0+16
Pt-Off(B*8,A*8,Pic0+24) r
End
If {V+C}=3
Pt-Off(B*8,A*8,Pic3
End
C+1→C
End
End
8→A
24→B


0→O→θ→Z

.Main loop
Repeat getKey(15)
sub(DS
If getKey(2)
If (pxl-Test(A-1,B)+pxl-Test(A-1,B+7)=0
Pt-Off(A,B,Pic00+8
24→O
A-1→A
If A=1
Z-1→Z
sub(RD
A+1→A
sub(DS
End
End
End
If getKey(3)
If (pxl-Test(A+8,B)+pxl-Test(A+8,B+7)=0
Pt-Off(A,B,Pic00+8
A+1→A
16→O
If A=87
Z+1→Z
sub(RD
A-1→A
sub(DS
End
End
End
If getKey(4)
If (pxl-Test(A,B-1)+pxl-Test(A+7,B-1)=0
Pt-Off(A,B,Pic00+8
0→O
B-1→B
If B=1
θ-1→θ
sub(RD
B+1→B
sub(DS
End
End
End
If getKey(1)
If (pxl-Test(A,B+8)+pxl-Test(A+7,B+8)=0
Pt-Off(A,B,Pic00+8
8→O
B+1→B
If B=55
θ+1→θ
sub(RD
B-1→B
sub(DS
End
End
End
End
ClrDraw
ClrDraw
ClrHome
DelVar Str1
Return

Lbl DS
Pt-Off(A,B,Pic1+O
DispGraph r r
Return

Lbl RD
For(Q,0,7
For(R,0,23
{Q*24+R+Z+θ+V}→I
Pt-Off(A,B,Pic1+O
Pt-Off(R*8,Q*8,Pic00) r
Pt-Off(R*8,Q*8,Pic00+8
If I=1
Pt-Off(R*8,Q*8,Pic0
Pt-Off(R*8,Q*8,Pic0+8) r
End
If I=2
Pt-Off(R*8,Q*8,Pic0+16
Pt-Off(R*8,Q*8,Pic0+24) r
End
If I=3
Pt-Off(R*8,Q*8,Pic3
End
End
DispGraph r r
End
« Last Edit: March 28, 2011, 05:53:44 pm by c.sprinkle »

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Inferno: Valani's Promise- A new RPG project
« Reply #63 on: March 22, 2011, 06:22:55 pm »
I don't see anything except that you have a DispGraph at the DS Subroutine...  is that supposed to be DispGraph{r}{r}?

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline c.sprinkle

  • LV5 Advanced (Next: 300)
  • *****
  • Posts: 221
  • Rating: +23/-1
  • There ain't no rest for the wicked? True indeed.
    • View Profile
    • The Corread on NationStates.
Re: Inferno: Valani's Promise- A new RPG project
« Reply #64 on: March 22, 2011, 06:26:57 pm »
Fixed the fifi. The code is syntactically correct, but it corrupts when I move.

Ashbad

  • Guest
Re: Inferno: Valani's Promise- A new RPG project
« Reply #65 on: March 22, 2011, 07:33:04 pm »
I'm extremely happy this is back again!  Now we have a full house on the forums again -- we have c.sprinkle!  I don't what other people think, but I can say on my part that the forums were lonely without you.  Glad you're back!  hope you stay for a good long while, if not forever ;D

Offline c.sprinkle

  • LV5 Advanced (Next: 300)
  • *****
  • Posts: 221
  • Rating: +23/-1
  • There ain't no rest for the wicked? True indeed.
    • View Profile
    • The Corread on NationStates.
Re: Inferno: Valani's Promise- A new RPG project
« Reply #66 on: March 23, 2011, 05:16:16 pm »
Thanks, Ashbad.

Here's the source that sort of works (it's slow and the grayscale while scrolling is crappy):
Spoiler For Spoiler:
.IVP Inferno: Valani's Promise
DiagnosticOff
identity(FFFFFFFFC553EF53C5B7FFFFC003FFFFFFEFFDA7FBD3F72FAF97DFDBAFFDFFFF)
ClrHome
ClrDraw
ClrDraw r
"vIVPmap01"→Str1
[FF83878F8F9FBFFFFFFFBF9F878381FFB5FF7BDEFF6DFFB65F80A629419610EB]→Pic0
[FFFFFFFFFFFFFFFF0000000000000000]→Pic00
.Up Down Right Left
[183C3C183C5A2424182424183C5A24240C1A120C1E0C0A123058483078305048]→Pic1
[A5A55A242418243C→Pic3
GetCalc(Str1,140)→V
ΔList(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,0,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)→V
0→C
ref(0,0,96,64) r
For(A,0,7
For(B,0,23
If {V+C}=1
Pt-Off(B*8,A*8,Pic0
Pt-Off(B*8,A*8,Pic0+8) r
End
If {V+C}=2
Pt-Off(B*8,A*8,Pic0+16
Pt-Off(B*8,A*8,Pic0+24) r
End
If {V+C}=3
Pt-Off(B*8,A*8,Pic3
End
C+1→C
End
End
8→A→O
24→B


0→θ→Z

.Main loop
Repeat getKey(15)
sub(DS
If getKey(2)
If (pxl-Test(A-1,B)+pxl-Test(A-1,B+7)=0
Pt-Off(A,B,Pic00+8
24→O
A-1→A
If A=7
Z-1→Z
sub(RD
A+1→A
sub(DS
End
End
End
If getKey(3)
If (pxl-Test(A+8,B)+pxl-Test(A+8,B+7)=0
Pt-Off(A,B,Pic00+8
A+1→A
16→O
If A=81
Z+1→Z
sub(RD
A-1→A
sub(DS
End
End
End
If getKey(4)
If (pxl-Test(A,B-1)+pxl-Test(A+7,B-1)=0
Pt-Off(A,B,Pic00+8
0→O
B-1→B
If B=7
θ-1→θ
sub(RD
B+1→B
sub(DS
End
End
End
If getKey(1)
If (pxl-Test(A,B+8)+pxl-Test(A+7,B+8)=0
Pt-Off(A,B,Pic00+8
8→O
B+1→B
If B=49
θ+1→θ
sub(RD
B-1→B
sub(DS
End
End
End
End
ClrDraw
ClrDraw r
ClrHome
DelVar Str1
Return

Lbl DS
Pt-Off(A,B,Pic1+O
DispGraph r r
Return

Lbl RD
Full
ref(0,0,96,64) r
ClrDraw
For(Q,0,15
For(R,0,23
{Q*24+R+V}→I
R*8-Z→G
Q*8-θ→H
!If I
Pt-Off(G,H,Pic00+8
End
If I=1
Pt-Off(G,H,Pic0
Pt-Off(G,H,Pic0+8) r
End
If I=2
Pt-Off(G,H,Pic0+16
Pt-Off(G,H,Pic0+24) r
End
If I=3
Pt-Off(G,H,Pic3
End
End
End
Normal
« Last Edit: March 29, 2011, 04:53:13 pm by c.sprinkle »

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Inferno: Valani's Promise- A new RPG project
« Reply #67 on: March 26, 2011, 02:58:48 am »
I'm extremely happy this is back again!  Now we have a full house on the forums again -- we have c.sprinkle!  I don't what other people think, but I can say on my part that the forums were lonely without you.  Glad you're back!  hope you stay for a good long while, if not forever ;D
We still need MRide back and Jmaster/Insorak to post again, but yeah I agree it was weird without c.sprinkle on :(. Also good luck on the game.

Ashbad

  • Guest
Re: Inferno: Valani's Promise- A new RPG project
« Reply #68 on: March 28, 2011, 01:16:22 pm »
any new news? ;D

Offline c.sprinkle

  • LV5 Advanced (Next: 300)
  • *****
  • Posts: 221
  • Rating: +23/-1
  • There ain't no rest for the wicked? True indeed.
    • View Profile
    • The Corread on NationStates.
Re: Inferno: Valani's Promise- A new RPG project
« Reply #69 on: March 28, 2011, 05:31:23 pm »
You bet!  :D ;)

The program is attached. I can't make screenshots, though, so I hope someone can help me with that.
Updates:
   Maps are now 8x32 for better scrolling
   2-pxl at a time smoothscroll graphics
   Updated engines

More to come!

P.S.- I really need a screenshot.

Ashbad

  • Guest
Re: Inferno: Valani's Promise- A new RPG project
« Reply #70 on: March 28, 2011, 05:42:37 pm »
sorry for double post, I'll promptly delete my older post in a second ;)

Anyways, screenie attached -- looks nice!  The grayscale is way off though -- but I think it may just be because it's going too fast for the emulator -- what does it look like on hardware?

To tell the truth, it could just be my emu, for some reason it looked like that in TaNF as well -- even though it's not flickery at all.  I'm sure that it's just the emu -- and if not, just throw in a Pause 7 in there somewhere ;)

Great update :D
« Last Edit: March 28, 2011, 05:43:25 pm by Ashbad »

Offline c.sprinkle

  • LV5 Advanced (Next: 300)
  • *****
  • Posts: 221
  • Rating: +23/-1
  • There ain't no rest for the wicked? True indeed.
    • View Profile
    • The Corread on NationStates.
Re: Inferno: Valani's Promise- A new RPG project
« Reply #71 on: March 28, 2011, 05:51:26 pm »
Try this. Set the emu faster too, if possible. If it still looks bad, just look at it on hardware.

Ashbad

  • Guest
Re: Inferno: Valani's Promise- A new RPG project
« Reply #72 on: March 28, 2011, 05:57:06 pm »
^-^ perfect on emu now -- you can change it back now if you want, I just thought people should see it's that it's really fast, not really slow -- and that's why the grayscale doesn't look good on emu.  On HW however, it actually looks quite good :)

Offline c.sprinkle

  • LV5 Advanced (Next: 300)
  • *****
  • Posts: 221
  • Rating: +23/-1
  • There ain't no rest for the wicked? True indeed.
    • View Profile
    • The Corread on NationStates.
Re: Inferno: Valani's Promise- A new RPG project
« Reply #73 on: March 28, 2011, 06:02:45 pm »
I also made an I:VP map editor so I don't have to plug in hundreds of 0s and 1s. It is somewhat glitchy, so be careful. It's BASIC though, so there shouldn't be permanent harm. Your cursor location is not shown. I'm making an Axe one now, though. Upload in about 15-20 minutes?

Ashbad

  • Guest
Re: Inferno: Valani's Promise- A new RPG project
« Reply #74 on: March 28, 2011, 06:04:32 pm »
sure!  unfortunately, I can't make any more screenies -- I was kicked off of the computer that wabbit works on :P