Omnimaga: The Coders Of Tomorrow
Welcome, Guest. Please login or register.
 
Omnimaga: The Coders Of Tomorrow
24 May, 2013, 09:27:27 *
Welcome, Guest. Please login or register.

Login with username, password and session length
 
   home   news downloads projects tutorials misc forums rules new posts irc about Login Register  
+-OmnomIRC

You must Register, be logged in and have at least 40 posts to use this shout-box! If it still doesn't show up afterward, it might be that OmnomIRC is disabled for your group or under maintenance.

Note: You can also use an IRC client like mIRC, X-Chat or Mibbit to connect to an EFnet server and #omnimaga.

Pages: 1 ... 3 4 [5] 6 7   Go Down
  Print  
Author Topic: Inferno: Valani's Promise- A new RPG project -  (Read 6191 times) Bookmark and Share
0 Members and 1 Guest are viewing this topic.
Binder News
LV8 Addict (Next: 1000)
********
Offline Offline

Gender: Male
Last Login: 13 May, 2013, 22:50:58
Date Registered: 26 October, 2010, 22:05:05
Location: In a pit on an island somewhere in the Atlantic.
Posts: 779


Total Post Ratings: +43

View Profile
« Reply #60 on: 22 March, 2011, 06:36:16 »
0

Yay! Back in action! Smiley It's 1am. I'm rambling. But seriously, good to see this revived.
Logged

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:




Freyaday
The One And Only Serial Time Killing Catboy-Loli-Ballerino
LV10 31337 u53r (Next: 2000)
**********
Offline Offline

Gender: Male
Last Login: Today at 06:10:46
Date Registered: 24 February, 2011, 17:10:56
Location: ¿¿¿
Posts: 1890


Total Post Ratings: +110

View Profile WWW
« Reply #61 on: 22 March, 2011, 17:26:09 »
0

Cool story.
Logged

In other news, Frey continues kicking unprecedented levels of ass.
Proud member of LF#N--Lolis For #9678B6 Names


Beware the Bitulator! ,.,./`My Artwork!
c.sprinkle
LV5 Advanced (Next: 300)
*****
Offline Offline

Gender: Male
Last Login: 09 May, 2013, 02:16:25
Date Registered: 10 December, 2010, 18:29:40
Location: -7 Inika Square, Teniana, Star Island
Posts: 225


Topic starter
Total Post Ratings: +22

View Profile WWW
« Reply #62 on: 22 March, 2011, 23:21:42 »
+1

Of course, you get rusty after a break that long. Tongue 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 Hidden:
.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: 28 March, 2011, 23:53:44 by c.sprinkle » Logged

yunhua98
You won't this read sentence right.
LV11 Super Veteran (Next: 3000)
***********
Offline Offline

Gender: Male
Last Login: 14 May, 2012, 03:06:37
Date Registered: 26 May, 2010, 22:58:45
Location: Somewhere in Deep Space.
Posts: 2717


Total Post Ratings: +199

View Profile
« Reply #63 on: 23 March, 2011, 00:22:55 »
0

I don't see anything except that you have a DispGraph at the DS Subroutine...  is that supposed to be DispGraph{r}{r}?
Logged


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

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

c.sprinkle
LV5 Advanced (Next: 300)
*****
Offline Offline

Gender: Male
Last Login: 09 May, 2013, 02:16:25
Date Registered: 10 December, 2010, 18:29:40
Location: -7 Inika Square, Teniana, Star Island
Posts: 225


Topic starter
Total Post Ratings: +22

View Profile WWW
« Reply #64 on: 23 March, 2011, 00:26:57 »
0

Fixed the fifi. The code is syntactically correct, but it corrupts when I move.
Logged

Ashbad
Guest
« Reply #65 on: 23 March, 2011, 01:33:04 »
0

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 Grin
Logged
c.sprinkle
LV5 Advanced (Next: 300)
*****
Offline Offline

Gender: Male
Last Login: 09 May, 2013, 02:16:25
Date Registered: 10 December, 2010, 18:29:40
Location: -7 Inika Square, Teniana, Star Island
Posts: 225


Topic starter
Total Post Ratings: +22

View Profile WWW
« Reply #66 on: 23 March, 2011, 23:16:16 »
0

Thanks, Ashbad.

Here's the source that sort of works (it's slow and the grayscale while scrolling is crappy):
Spoiler for Hidden:
.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: 29 March, 2011, 22:53:13 by c.sprinkle » Logged

DJ Omnimaga
Retired Omnimaga founder (Site issues must be PM'ed to Netham45, Eeems, Shmibs, Deep Thought and AngelFish, not me.)
Editor
LV15 Omnimagician (Next: --)
*
Offline Offline

Gender: Male
Last Login: Today at 08:21:29
Date Registered: 25 August, 2008, 07:00:21
Location: Québec (Canada)
Posts: 50232


Total Post Ratings: +2615

View Profile WWW
« Reply #67 on: 26 March, 2011, 08:58:48 »
0

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 Grin
We still need MRide back and Jmaster/Insorak to post again, but yeah I agree it was weird without c.sprinkle on Sad. Also good luck on the game.
Logged

Retired 83+ coder, Omnimaga/TIMGUL founder. Now doing power metal music (formerly did electronica)

Follow me on Bandcamp|Facebook|Reverbnation|Youtube|Twitter|Myspace
Ashbad
Guest
« Reply #68 on: 28 March, 2011, 19:16:22 »
0

any new news? Grin
Logged
c.sprinkle
LV5 Advanced (Next: 300)
*****
Offline Offline

Gender: Male
Last Login: 09 May, 2013, 02:16:25
Date Registered: 10 December, 2010, 18:29:40
Location: -7 Inika Square, Teniana, Star Island
Posts: 225


Topic starter
Total Post Ratings: +22

View Profile WWW
« Reply #69 on: 28 March, 2011, 23:31:23 »
+1

You bet!  Cheesy Wink

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.

* IVP TI-84 Plus Silver Edition.8xp (2.01 KB - downloaded 31 times.)
Logged

Ashbad
Guest
« Reply #70 on: 28 March, 2011, 23:42:37 »
0

sorry for double post, I'll promptly delete my older post in a second Wink

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 Wink

Great update Cheesy


* IVPawesomescreenie001.gif (2866.87 KB, 192x128 - viewed 77 times.)
« Last Edit: 28 March, 2011, 23:43:25 by Ashbad » Logged
c.sprinkle
LV5 Advanced (Next: 300)
*****
Offline Offline

Gender: Male
Last Login: 09 May, 2013, 02:16:25
Date Registered: 10 December, 2010, 18:29:40
Location: -7 Inika Square, Teniana, Star Island
Posts: 225


Topic starter
Total Post Ratings: +22

View Profile WWW
« Reply #71 on: 28 March, 2011, 23:51:26 »
+1

Try this. Set the emu faster too, if possible. If it still looks bad, just look at it on hardware.

* IVP TI-84 Plus Silver Edition 1.8xp (2.02 KB - downloaded 30 times.)
Logged

Ashbad
Guest
« Reply #72 on: 28 March, 2011, 23:57:06 »
0

Azn 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 Smiley


* IVPawesomescreenie002.gif (239.9 KB, 192x128 - viewed 408 times.)
Logged
c.sprinkle
LV5 Advanced (Next: 300)
*****
Offline Offline

Gender: Male
Last Login: 09 May, 2013, 02:16:25
Date Registered: 10 December, 2010, 18:29:40
Location: -7 Inika Square, Teniana, Star Island
Posts: 225


Topic starter
Total Post Ratings: +22

View Profile WWW
« Reply #73 on: 29 March, 2011, 00:02:45 »
0

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?

* IVPMAPGN TI-84 Plus Silver Edition.8xp (0.28 KB - downloaded 20 times.)
Logged

Ashbad
Guest
« Reply #74 on: 29 March, 2011, 00:04:32 »
0

sure!  unfortunately, I can't make any more screenies -- I was kicked off of the computer that wabbit works on Tongue
Logged
Pages: 1 ... 3 4 [5] 6 7   Go Up
  Print  
 
Jump to:  

Powered by EzPortal
Powered by MySQL Powered by SMF 1.1.18 | SMF © 2013, Simple Machines Powered by PHP
Page created in 0.298 seconds with 30 queries.
Skin by DJ Omnimaga edited from SMF default theme with the help of tr1p1ea.
All programs, games and songs avaliable on this website are property of their respective owners.
Best viewed in Opera, Firefox, Chrome and Safari with a resolution of 1024x768 or above.