Author Topic: Trio and Niko  (Read 131995 times)

0 Members and 1 Guest are viewing this topic.

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: Trio and Niko: Falling
« Reply #435 on: March 19, 2011, 11:45:59 am »
Another revival! This is great. I hope you finish it :)

Does everyone have spring break this week or something?




Ashbad

  • Guest
Re: Trio and Niko: Falling
« Reply #436 on: March 19, 2011, 11:47:17 am »
I don't have one for quite a while ;) I just suddenly had the urge to go back to this :D

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Trio and Niko: Falling
« Reply #437 on: March 19, 2011, 02:45:08 pm »
I really hope you do, this is looking great.

Ashbad

  • Guest
Re: Trio and Niko: Falling
« Reply #438 on: March 19, 2011, 03:26:53 pm »
thanks scout ;)

also, this will take more than Friday to make a new press release unlike pyyrix, no idea when I'll be ready.  I have so much done that you guys can't see, yet I can't post it yet :(

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: Trio and Niko: Falling
« Reply #439 on: March 19, 2011, 03:35:11 pm »
thanks scout ;)

also, this will take more than Friday to make a new press release unlike pyyrix, no idea when I'll be ready.  I have so much done that you guys can't see, yet I can't post it yet :(

Awesome :D




Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Trio and Niko: Falling
« Reply #440 on: March 19, 2011, 03:51:20 pm »
thanks scout ;)

also, this will take more than Friday to make a new press release unlike pyyrix, no idea when I'll be ready.  I have so much done that you guys can't see, yet I can't post it yet :(

I will want the two sources so I can compare :)

Ashbad

  • Guest
Re: Trio and Niko: Falling
« Reply #441 on: March 20, 2011, 10:15:26 am »
like the two source codes?

I doubt you'll actually understand anything.  I actually jump around all over the place in the program, so you'll take five minutes back and forth just to see all the enemy code.  But, it's fast like hell ;)  45 FPS with 3 enemies and 2 items on screen, and practivally no flicker at these times.  I bet even the boss fights will be over 55 FPS.
« Last Edit: March 20, 2011, 11:36:13 am by Ashbad »

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Trio and Niko: Falling
« Reply #442 on: March 20, 2011, 10:55:22 am »
like the two source codes?

I doubt you'll actually understand anything.  I barely do anymore.  I actually jump around all over the place in the program, so you'll take five minutes back and forth just to see all the enemy code.  But, it's fast like hell ;)  45 FPS with 3 enemies and 2 items on screen, and practivally no flicker at these times.  I bet even the boss fights will be over 55 FPS.

I may not get all of it, but I still want to compare them :D

Ashbad

  • Guest
Re: Trio and Niko: Falling
« Reply #443 on: March 20, 2011, 11:26:38 am »
Code: (SCARPG.8xp) [Select]
:.TaNF
:"prgmTITLE"[00]Asm(E7EF7C4E
:Full
:FnOff
:Fix 5
:Fix 2
:GetCalc("vA",768)
:GetCalc("vB",768)
:
:
:.ITEMS
:{L1}+300→A
:0→{A}
:Fill(A,7
:
:.ENEMY STATS
:conj(θ+168,{L1}+400,24
:
:
:.SLOWTIMER
:0→{{L1}+216}{^r}
:.CUR SPELL
:0→N
:.HEALTH/MAGIC   /STRENGTH XP
:0→{{L1}+10}{^r}
:50→{{L1}+12}{^r}
:100→{{L1}+14}{^r}
:500→{{L1}+16}{^r}
:
:.SWORD DIR
:0→{{L1}+214}
:.STRENGTH
:1→S
:.DMG FLASH
:0→{{L1}+212}
:.BLOCKMOVE
:0→{{L1}+210}
:.MONOMODE
:0→{{L2}}
:.HEALTH/MHP
:5→{{L1}}
:5→{{L1}+1}
:.MAGIC/MMP
:5→{{L1}+2}
:5→{{L1}+3}
:.X, Y, AND DIR
:8→X
:8→Y
:2→D
:
:
:.STEP ANI STATS
:0→{{L1}+200}→{{L1}+202}
:.SWORD SWING/SPIN STATS
:0→{{L1}+204}→{{L1}+206}
:.WEP COOLDOWN
:0→{{L1}+208}
:
:.ROOM NUM
:0→{{L1}+500}
:
:sub(STM
:
:
:Repeat getKey(15)
:
:If getKey(0)
:If {{L1}+206}=0 or ({{L1}+208}≠0)
:If getKey(2)
:3→D
:ElseIf getKey(3)
:1→D
:ElseIf getKey(4)
:0→D
:ElseIf getKey(1)
:2→D
:End
:End
:End
:
:conj(U,{L6},768
:conj(V,{L3},768
:
:If {{L1}+204}
:sub(SWD
:ElseIf {{L1}+206}>0 and ({{L1}+204}=0 and ({{L1}+208}=0))
:sub(SPN
:End
:
:
:
:If getKey(54) and ({{L1}+206}=0)
:sub(SWD
:End
:
:X/8→F
:Y/8→G
:(G*12+F-1*2+θ+1)→I
:(G*12+F+1*2+θ+1)→J
:(G-1*12+F*2+θ+1)→K
:(G+1*12+F*2+θ+1)→L
:
:If getKey(0)
:Normal
:If getKey(48)
:Full
:sub(MG
:End
:Normal
:If getKey(55)
:Full
:sub(XP
:ElseIf getKey(40)
:Full
:sub(MAG
:End
:Full
:
:
:
:
:If {{L1}+204}=0 or ({{L1}+208}>0)
:If getKey(2) and (X>0)
:If ((Y^8)≠0) and ({I}=0 and ({I+24}=0))
:X-1→X
:ElseIf Y^8=0 and ({I}=0)
:X-1→X
:ElseIf X^8>0 and (({I}≠0) or ({I+24}≠0))
:X-1→X
:End
:
:ElseIf getKey(3) and (X<88)
:If Y^8≠0 and ({J}=0) and ({J+24}=0)
:X+1→X
:ElseIf Y^8=0 and ({J}=0)
:X+1→X
:End
:End
:X/8→F
:Y/8→G
:
:If getKey(4) and (Y>0)
:If X^8≠0 and ({K}=0) and ({K+2}=0)
:Y-1→Y
:ElseIf X^8=0 and ({K}=0)
:Y-1→Y
:ElseIf Y^8>0 and (({K}≠0) or ({K+2}≠0))
:Y-1→Y
:End
:ElseIf getKey(1) and (Y<48)
:If X^8≠0 and ({L}=0) and ({L+2}=0)
:Y+1→Y
:ElseIf X^8=0 and ({L}=0)
:Y+1→Y
:End
:End
:If getKey(2) or (getKey(3) or (getKey(1) or (getKey(4))))
:If {{L1}+202}<6
:0→{{L1}+200}
:{{L1}+202}+1→{{L1}+202}
:ElseIf {{L1}+202}<12
:1→{{L1}+200}
:{{L1}+202}+1→{{L1}+202}
:ElseIf {{L1}+202}≥12
:0→{{L1}+202}→{{L1}+200}
:End
:End
:End
:If getKey(2) and ({I}=2 and ({I-2}=0))
:{{L1}+210}+1→{{L1}+210}
:ElseIf getKey(3) and ({J}=2 and ({J+2}=0))
:{{L1}+210}+1→{{L1}+210}
:ElseIf getKey(4) and ({K}=2 and ({K-24}=0))
:{{L1}+210}+1→{{L1}+210}
:ElseIf getKey(1) and ({L}=2 and ({K+24}=0))
:{{L1}+210}+1→{{L1}+210}
:End
:D→{{L1}+211}
:If {{L1}+210}≥35
:!If {{L1}+211}
:If {K}=2
:0→{K-1}{^r}
:2→{K-25}
:2→{K-24}
:End
:Else!If {{L1}+211}-1
:If {J}=2
:0→{J-1}{^r}
:2→{J+1}
:2→{J+2}
:End
:Else!If {{L1}+211}-2
:If {L}=2
:0→{L-1}{^r}
:2→{L+23}
:2→{L+24}
:End
:Else!If {{L1}+211}-3
:If {I}=2
:0→{I-1}{^r}
:2→{I-3}
:2→{I-2}
:End
:End
:0→{{L1}+210}{^r}
:sub(STM
:End
:
:
:If X≥84
:8→X
:{{L1}+500}+1→{{L1}+500}
:sub(STM
:ElseIf X≤4
:80→X
:{{L1}+500}-1→{{L1}+500}
:sub(STM
:ElseIf Y≤4
:40→Y
:{{L1}+500}-8→{{L1}+500}
:sub(STM
:ElseIf Y≥44
:8→Y
:{{L1}+500}+8→{{L1}+500}
:sub(STM
:End
:
:
:End
:
:!If {I+1}-3
:!If {{L1}+212}
:sub(DMG,2
:End:End
:
:
:Return!If {{L1}}
:
:
:
:If {{L1}+216}{^r}
:{{L1}+216}{^r}-1→{{L1}+216}{^r}
:End
:
:sub(ENE
:sub(ITM
:sub(DPL
:sub(HUD
:
:
:
:If {{L2}}=2
:Normal
:DispGraph{^r}
:Full
:ElseIf {{L2}}
:DispGraph
:Else
:Normal
:DispGraph{^r}{^r}
:Full
:ClrDraw
:ClrDraw{^r}
:End
:End
:DelVar "vA"
:DelVar "vB"
:DelVar "vT1"
:Return
:
:
:
:
:
:
:
:
:
:Lbl MG
:Return!If N
:...
:QUAKE
:...
:If N=1 and ({{L1}+2}≥2)
:sub(DMP,2
:sub(ENE
:Normal
:DispGraph{^r}{^r}
:For(A,0,50
:Horizontal -
:Horizontal +{^r}
:DispGraph{^r}{^r}
:End
:Full
:For(A,0,2
:If {A*8+{L1}+400}
:A*8+{L1}+403→B
:{B}-1→{B}
:!If {B}
:0→{B-3}
:End
:End
:End
:...
:SLOW
:...
:ElseIf N=2 and ({{L1}+2}≥10)
:!If {{L1}+216}{^r}
:sub(DMP,10
:1024→{{L1}+216}{^r}
:sub(ENE
:Normal
:For(A,0,20
:DrawInv
:DispGraph{^r}{^r}
:DrawInv {^r}
:DispGraph{^r}{^r}
:DrawInv
:DispGraph{^r}{^r}
:DrawInv {^r}
:DispGraph{^r}{^r}
:End
:Full
:End
:...
:ERUPTION
:...
:ElseIf N=3 and ({{L1}+2}>25)
:sub(DMP,25
:For(A,0,2
:A*8+{L1}+403→B
:If {B}>10
:{B}-10→{B}
:Else
:0→{B-3}
:End
:End
:Normal
:For(A,0,25
:DrawInv
:Horizontal +
:Horizontal -{^r}
:DispGraph{^r}{^r}
:DrawInv {^r}
:Horizontal -
:Horizontal +{^r}
:DispGraph{^r}{^r}
:End
:Full
:...
:SHIMMER
:...
:ElseIf N=4 and ({{L1}+2}≥40)
:sub(DMP,40
:255→{{L1}+212}
:Normal
:255→{{L6}}
:For(A,0,25
:Fill({L6},767
:DispGraph{^r}{^r}
:End
:Full
:...
:MOROSE
:...
:ElseIf N=5 and ({{L1}+2}≥75)
:sub(DMP,75
:For(A,0,167
:If {A+θ}=2
:0→{A+θ}
:End
:End
:Normal
:For(A,0,15
:A*4→B
:rref(0,B,96,2
:rref(0,B+2,96,2){^r}
:DispGraph{^r}{^r}
:End
:Full
:...
:SPELL
:...
:ElseIf N=6 and ({{L1}+2}≥125)
:sub(DMP,125
:sub(ENE
:ClrDraw{^r}
:Normal
:For(A,0,25
:DispGraph{^r}{^r}
:End
:StorePic
:ClrDraw
:For(A,0,25
:DispGraph{^r}{^r}
:End
:ClrDraw{^r}
:For(A,0,10
:DispGraph{^r}{^r}
:End
:Full
:For(A,0,83
:!If {A*2+θ+1}-3
:0→{A*2+θ+1}
:End:End
:For(A,0,2
:A*8+{L1}+400→B
:{B}-1→{B}
:If {B+3}≥25
:{B+3}-25→{B+3}
:Else
:0→{B}
:End
:End
:...
:HOLY
:...
:ElseIf N=7 and ({{L1}+2}≥250)
:sub(DMP,250
:{{L1}+1}→{{L1}}
:For(A,0,2
:A*8+{L1}+400→B
:If {B}≤3
:0→{B}
:End:End
:Normal
:For(A,0,128
:rref(rand^96,rand^64,rand^20,rand^20
:expr({L3},{L6},768
:DispGraph{^r}{^r}
:End
:Full
:
:End
:
:sub(STM
:Return
:
:
:
:
:
:Lbl DMP
:If {r1}≤{{L1}+2}
:{{L1}+2}-{r1}→{{L1}+2}
:Else
:0→{{L1}+2}
:End
:Return
:
:
:
:
:Lbl MAG
:ClrDraw{^r}
:ref(8,0,64,64
:rref(9,1,62,62
:StorePic
:0→C
:DispGraph
:Normal
:Pause 200
:Repeat getKey(56)
:ClrDraw
:RecallPic
:Text(10,2,"MP: ",{{L1}+2}►Dec," / ",{{L1}+3}►Dec
:Text(15,12,"Quake - 2"
:Text(15,19,"Slow - 10"
:Text(15,26,"Eruption - 25"
:Text(15,33,"Shimmer - 40"
:Text(15,40,"Morose - 75"
:Text(15,47,"Spell - 125"
:Text(15,54,"Holy - 250"
:Pt-On(10,C*7+12,[0040A09090A04000]
:If getKey(4) and (C>0)
:C-1→C
:ElseIf getKey(1) and (C<6)
:C+1→C
:End
:
:If getKey(54)
:C+1→N
:ref(9,1,62,62
:rref(9,1,62,62
:DispGraph
:Pause 200
:Goto 003
:End
:
:
:DispGraph
:End
:Lbl 003
:Full
:sub(STM
:Return
:
:
:
:
:
:
:
:Lbl XP
:ClrDraw{^r}
:ref(16,8,64,48
:rref(17,9,62,46
:StorePic
:DispGraph
:Normal
:Pause 200
:0→C
:Repeat getKey(56)
:ClrDraw
:RecallPic
:Text(18,10,"EXP.:",{{L1}+10}{^r}►Dec
:Text(23,20,"HP needs: ",{{L1}+12}{^r}►Dec
:Text(23,28,"MP needs: ",{{L1}+14}{^r}►Dec
:Text(23,36,"STR needs: ",{{L1}+16}{^r}►Dec
:Text(18,48,"H: ",{{L1}+1}►Dec," M: ",{{L1}+3}►Dec," S: ",S►Dec
:Pt-On(18,C*8+20,[0040A09090A04000]
:If getKey(1) and (C<2)
:C+1→C
:ElseIf getKey(4) and (C>0)
:C-1→C
:End
:If getKey(54)
:!If C
:If {{L1}+10}{^r}≥{{L1}+12}{^r}
:{{L1}+10}{^r}-{{L1}+12}{^r}→{{L1}+10}{^r}
:{{L1}+1}+2→{{L1}+1}
:If {{L1}+1}>200
:{-}1→{{L1}+12}{^r}
:ElseIf {{L1}+1}>100
:50000→{{L1}+12}{^r}
:Else
:{{L1}+12}{^r}+({{L1}+1}-5*10)→{{L1}+12}{^r}
:End
:End
:Else!If C-1
:If {{L1}+10}{^r}≥{{L1}+14}{^r}
:{{L1}+10}{^r}-{{L1}+14}{^r}→{{L1}+10}{^r}
:{{L1}+3}+3→{{L1}+3}
:If {{L1}+3}>150
:{-}1→{{L1}+14}{^r}
:ElseIf {{L1}+3}>75
:48500→{{L1}+14}{^r}
:Else
:{{L1}+14}{^r}+({{L1}+3}-5*20)→{{L1}+14}{^r}
:End
:End
:Else!If C-2
:If {{L1}+10}{^r}≥{{L1}+16}{^r}
:{{L1}+10}{^r}-{{L1}+16}{^r}→{{L1}+10}{^r}
:S+1→S
:If S>50
:{-}1→{{L1}+16}{^r}
:ElseIf S>25
:25000→{{L1}+16}{^r}
:Else
:{{L1}+16}{^r}+500→{{L1}+16}{^r}
:End
:End
:End
:
:End
:DispGraph
:End
:Full
:sub(STM
:Return
:
:
:
:
:
:.SLIME
:[00003C46BFFFFF7E00003C7AE5A5817E003C465EBFBFFF7E003C7A62E5E5817E]→Str6
:.DARKSLIME
:[00003C46BFFFFF7E00003C7EFFFFFF7E003C465EBFBFFF7E003C7E7EFFFFFF7E]
:.SUPER SLIME
:[00000018245E7E3C000000183C62423C000018242C5E7E3C0000183C3C62423C]
:
:
:
:
:Lbl ENE
:{L1}+400→B
:For(A,0,2
:(A*8+B)→H
:If {H}=1 or ({H}=2) or ({H}=3)
:!If {H+7}
:!If {H+6}
:rand^4→{H+5}
:0→C
:{H+1}/8→F
:{H+2}/8→G
:!If {H+5}
:!If {G-1*12+F*2+θ+1}
:1→C
:End
:Else!If {H+5}-1
:!If {G*12+F+1*2+θ+1}
:1→C
:End
:Else!If {H+5}-2
:!If {G+1*12+F*2+θ+1}
:1→C
:End
:Else
:!If {G*12+F-1*2+θ+1}
:1→C
:End
:End
:If C
:8→{H+6}
:End
:Else
:!If {H+5}
:{H+2}-1→{H+2}
:Else!If {H+5}-1
:{H+1}+1→{H+1}
:Else!If {H+5}-2
:{H+2}+1→{H+2}
:Else
:{H+1}-1→{H+1}
:End
:{H+6}-1→{H+6}
:!If {H}-1
:8→{H+7}
:Else!If {H}-2
:5→{H+7}
:Else
:2→{H+7}
:End
:
:If ({{L1}+216}{^r})
:{H+7}*2→{H+7}
:End
:
:End
:Else
:{H+7}-1→{H+7}
:End
:If X≥{H+1}
:If X≤({H+1}+8)
:If Y≥{H+2}
:If Y≤({H+2}+8)
:!If {{L1}+212}
:!If {H}-1
:sub(DMG,1
:Else!If {H}-2
:sub(DMG,2
:Else
:sub(DMG,rand^2+3
:End
:End:End:End:End:End
:If {{L1}+204} or {{L1}+206}
:!If {H+4}
:sub(DEN
:End
:End
:If {H+4}
:{H+4}-1→{H+4}
:End
:If {H+4}
:If rand^2
:Plot1{H+1},{H+2}+8,({H}-1*32)+({H+6}/4*16)+Str6
:End
:Else
:Plot1{H+1},{H+2}+8,({H}-1*32)+({H+6}/4*16)+Str6
:End
:End
:
:
:
:End
:Return
:
:
:
:
:
:
:
:
:
:
:
:
:Lbl DEN
:0→M
:{H+3}→{{L5}}
:!If {{L1}+214}
:If {H+1}≥X and ({H+1}≤(X+8))
:If {H+2}≥(Y-16) and ({H+2}≤Y)
:1→M
:End:End
:Else!If {{L1}+214}-1
:If {H+1}≥(X+8) and ({H+1}≤(X+16))
:If {H+2}≥(Y-16) and ({H+2}≤(Y-8))
:1→M
:End:End
:Else!If {{L1}+214}-2
:If {H+1}≥(X+8) and ({H+1}≤(X+16))
:If {H+2}≥Y and ({H+2}≤(Y+8))
:1→M
:End:End
:Else!If {{L1}+214}-3
:If {H+1}≥(X+8) and ({H+1}≤(X+16))
:If {H+2}≥(Y+8) and ({H+2}≤(Y+16))
:1→M
:End:End
:Else!If {{L1}+214}-4
:If {H+1}≥X and ({H+1}≤(X+8))
:If {H+2}≥(Y+8) and ({H+2}≤(Y+16))
:1→M
:End:End
:Else!If {{L1}+214}-5
:If {H+1}≥(X-16) and ({H+1}≤(X-8))
:If {H+2}≥(Y+8) and ({H+2}≤(Y+16))
:1→M
:End:End
:Else!If {{L1}+214}-6
:If {H+1}≥(X-16) and ({H+1}≤(X-8))
:If {H+2}≥Y and ({H+2}≤(Y+8))
:1→M
:End:End
:Else
:If {H+1}≥(X-16) and ({H+1}≤(X))
:If {H+2}≥(Y-16) and ({H+2}≤(Y))
:1→M
:End:End
:End
:If M
:If S≤{H+3}:{H+3}-S→{H+3}:Else:0→{H+3}:End
:End
:!If {H+3}
:!If {H}-1
:sub(EXP,1
:Else!If {H}-2
:sub(EXP,2
:Else!If {H}-3
:sub(EXP,5
:End
:If (rand^64)=63
:4→{{L1}+300}
:{H+1}→{{L1}+301}
:{H+2}→{{L1}+302}
:Else!If rand^8-7
:!If {{L1}+300}
:1→{{L1}+300}
:{H+1}→{{L1}+301}
:{H+2}→{{L1}+302}
:{H}→{{L1}+303}
:Else!If {{L1}+304}
:1→{{L1}+304}
:{H+1}→{{L1}+305}
:{H+2}→{{L1}+306}
:{H}→{{L1}+307}
:End
:Else!If rand^8-6
:!If {{L1}+300}
:2→{{L1}+300}
:{H+1}→{{L1}+301}
:{H+2}→{{L1}+302}
:{H}→{{L1}+303}
:Else!If {{L1}+304}
:2→{{L1}+304}
:{H+1}→{{L1}+305}
:{H+2}→{{L1}+306}
:{H}→{{L1}+307}
:End
:End
:0→{H}
:End
:If {{L5}}>{H+3}
:50→{H+4}
:End
:Return
:
:
:
:Lbl EXP
:If ({{L1}+10}{^r}+{r1})<{-}1 and ({-}1-{r1}≥{{L1}+10}{^r})
:{{L1}+10}{^r}+{r1}→{{L1}+10}{^r}
:Else
:{-}1→{{L1}+10}{^r}
:End
:Return
:
:
:
:[003E62404E623E003E7FFFFEFFFF7F3E001818243C424200183C3C7E7EFFE742000024245A42420000247E7EFFFFE742007E407878407E007EFFFEFCFCFEFF7E000000324C0000000000327FFE4C00000018244242241800183C7EE7E77E3C18004242242418180042E7E77E7E3C3C18007E407878407E007EFFFEFCFCFEFF7E007844447844460078FCFEFEFCFEEF46]→Str11
:
:Lbl DMG
:100→{{L1}+212}
:If {r1}≤{{L1}}
:{{L1}}-{r1}→{{L1}}
:Else
:0→{{L1}}
:End
:!If {{L1}}
:0→{{L1}+212}
:For(A,0,15
:ClrDraw
:ref(X-6,Y+8,20,8
:ref(X,Y+2,8,20
:ref(X-3,Y+5,14,14
:DrawInv
:A^4→D
:sub(DPL
:DispGraph
:Pause 500
:End
:ClrDraw
:ref(X-6,Y+8,20,8
:ref(X,Y+2,8,20
:ref(X-3,Y+5,14,14
:DrawInv
:4→D
:sub(DPL
:DispGraph
:Pause 1000
:For(A,0,3
:Plot1A*8+8,8,A*16+Str11
:Pause 1500
:DispGraph
:End
:Plot144,8,Str11+64
:Pause 1500
:DispGraph
:For(A,5,8
:Plot1A*8+16,8,A*16+Str11
:Pause 1500
:DispGraph
:End
:Pause 5000
:End
:Return
:
:
:
:
:
:
:
:
:
:
:.UP
:[3C7E7EFEC37E4AFC3C7E7EFEFF7E7EFC]→Str1
:[3C7E7EFEC37E523F3C7E7EFEFF7E7E3F]
:.RIGHT
:[3C7E7A623C38243E3C7E7E7E3C3C3C3E]
:[3C7E72E2BC7C526E3C7E7EFEFC7C7E6E]
:.DOWN
:[3C7E66C2BD7E523F3C7E7EFEFF7E7E3F]
:[3C7E6643BD7E4AFC3C7E7E7FFF7E7EFC]
:.LEFT
:[3C7E5E463C1C247C3C7E7E7E3C3C3C7C]
:[3C7E4E463D3E4A763C7E7E7E3F3E7E76]
:.STILL
:[3C7E6642E7BD7EE73C7E7E7EFFFF7EE7]
:
:
:
:Lbl DPL
:If {{L1}+212}
:{{L1}+212}-1→{{L1}+212}
:If rand^2
:Plot1X,Y+8,D*32+Str1+({{L1}+200}*16)
:End
:Else
:Plot1X,Y+8,D*32+Str1+({{L1}+200}*16)
:End
:Return
:
:[00183C6E7E3C180000182452463C1800]→Str5
:[003C18182C5E7E3C3C7E3C3C76E7EF7E]
:[60F0F0701A0F0602F09898FA7F1D0F07]
:[384C3844BEBEFE7C3874387CEAD2AA7C]
:
:
:Lbl ITM
:For(A,0,1
: If {A*4+{L1}+300}
:  If ((X≥({A*4+{L1}+301}-8)) and (X≤({A*4+{L1}+301}+8))) and ((Y≥({A*4+{L1}+302}-8)) and (Y≤({A*4+{L1}+302}+8)))
:    !If {A*4+{L1}+300}-1
:     {{L1}}+{A*4+{L1}+303}→{{L1}}
:     If {{L1}}>{{L1}+1}
:      {{L1}+1}→{{L1}}
:     End
:Else!If {A*4+{L1}+300}-3
:{{L1}+6}+1→{{L1}+6}
:Else!If {A*4+{L1}+300}-4
:sub(EXP,50+(450*(rand^8=7))+(9950*(rand^64=63))
:    ElseIf {A*4+{L1}+300}=2
:     {{L1}+2}+{A*4+{L1}+303}→{{L1}+2}
:      If {{L1}+2}>{{L1}+3}
:       {{L1}+3}→{{L1}+2}
:      End
:     End
:0→{A*4+{L1}+300}
:    Return
:End
:Plot1{A*4+{L1}+301},{A*4+{L1}+302}+8,{A*4+{L1}+300}-1*16+Str5
:End
:End
:Return
:
:
:
:[0306A6E6A6A6A60305AAEAAAAAAA0A05C0606060606060C0A0505050505050A000808080808080008000808080800080]→Str41
:[030686868686E603058A8A8A8AEAEA05]
:[03050A94E850F0D8010103060C18387C]
:[18381C3C1C3E7C7E3C6C36663663C6C318665AA7AF5E7E18186E5EADF57A66187E993C5A46BFFF7E8166A57E7AC1C37E3C7EE7C3C3E77E3C5AA55AA5A55AA55A387C6C1C38300030043E360E1C1800186699BB666E99BB6666BBC54A52A3DD663838FEFE383838381C1C7F7F1C1C1C1C]→Str000
:
:
:
:
:
:Lbl STM
:
:GetCalc("vTILES")→C
:
:If GetCalc("vT1")
:DelVar "vT1"
:End
:GetCalc("vT1",202)→θ
:
:GetCalc("vMAP",{Y1})
:conj({{L1}+500}*202+{Y1},θ,202
:
:
:ClrDraw
:ClrDraw{^r}
:For(B,0,6
:For(A,0,11
:Pt-On(A*8,B*8+8,({B*12+A*2+θ}*16)+C
:Pt-On(A*8,B*8+8,({B*12+A*2+θ}*16+8)+C){^r}
:End
:End
:Pt-On(2,0,Str41+48
:Pt-On(2,0,Str41+56){^r}
:Pt-On(23,0,Str41+16
:Pt-On(23,0,Str41+24){^r}
:Pt-On(35,0,Str41
:Pt-On(35,0,Str41+8){^r}
:Pt-On(57,0,Str41+16
:Pt-On(57,0,Str41+24){^r}
:Pt-On(63,0,Str41+32
:Pt-On(63,0,Str41+40){^r}
:If N
:Pt-On(65,0,N-1*16+Str000
:Pt-On(65,0,N-1*16+8+Str000){^r}
:End
:
:Pt-On(74,0,Str41+32
:Pt-On(74,0,Str41+40){^r}
:Pt-On(78,0,Str41+64
:Pt-On(78,0,Str41+72){^r}
:Text(87,0,S►Dec
:If GetCalc("vA")
:DelVar "vA"
:End
:If GetCalc("vB")
:DelVar "vB"
:End
:GetCalc("vA",768)→U
:GetCalc("vB",768)→V
:conj({L6},U,768
:conj({L3},V,768
:
:GetCalc("vT1")→θ
:
:Return
:
:
:
:
:
:
:
:
:Lbl HUD
:ref(9,2,{{L1}}*16/{{L1}+1},4
:ref(42,2,{{L1}+2}*16/{{L1}+3},4
:Return
:
:.SWORD1
:[1028282828287C381038383838387C3800060A1428D060A02056AE5C38F060A00040FEC1FE4000000040FEFFFE400000A060D028140A0600A46AF53A1C0E06001C3E1414141414081C3E1C1C1C1C1C0805060B142850600005060F1C3A756A040000027F837F02000000027FFF7F020000605028140B0605006070385CAF5625]→Str2
:
:Lbl SWD
:If {{L1}+208}
: {{L1}+208}-1→{{L1}+208}
: 1→{{L1}+204}
:  !If {{L1}+208}
:   0→{{L1}+204}
:  End
:  Return
: End
: {{L1}+204}+1→{{L1}+204}
:If {{L1}+204}≥45 and (getKey(54)=0)
:0→{{L1}+200}
:20→{{L1}+208}
:Return
:  ElseIf {{L1}+204}>0 and ({{L1}+204}<16)
:   !If D
:7→{{L1}+214}
:    Plot1X-7,Y+1,Str2+112
:   Else!If D-1
:1→{{L1}+214}
:    Plot1X+7,Y+1,Str2+16
:   Else!If D-2
:3→{{L1}+214}
:    Plot1X+7,Y+15,Str2+48
:   Else!If D-3
:5→{{L1}+214}
:    Plot1X-7,Y+15,Str2+80
:   End
:   0→{{L1}+200}
:   {{L1}+204}+1→{{L1}+204}
:  Else
:If {{L1}+204}>200 and (getKey(54))
:0→{{L1}+204}+1→{{L1}+206}
:Return
:End
:
:!If D
:0→{{L1}+214}
:Plot1X,Y,Str2
:Else!If D-1
:2→{{L1}+214}
:Plot1X+7,Y+8,Str2+32
:Else!If D-2
:4→{{L1}+214}
:Plot1X,Y+16,Str2+64
:Else!If D-3
:6→{{L1}+214}
:Plot1X-7,Y+8,Str2+96
:End
:{{L1}+204}+2→{{L1}+204}
:1→{{L1}+200}
:End
:Return
:
:
:
:Lbl SPN
:0→{{L1}+204}
:If getKey(54) and ({{L1}+206}≤2)
:rand^3→R
:R+1→R
:!If D
:0→{{L1}+214}
:If R=1 or (R=3)
:Pt-On(X,Y,Str2+8
:End
:If R≥2
:Pt-On(X,Y,Str2+8){^r}
:End
:Else!If D-1
:2→{{L1}+214}
:If R=1 or (R=3)
:Pt-On(X+7,Y+8,Str2+40
:End
:If R≥2
:Pt-On(X+7,Y+8,Str2+40){^r}
:End
:Else!If D-2
:4→{{L1}+214}
:If R=1 or (R=3)
:Pt-On(X,Y+16,Str2+72
:End
:If R≥2
:Pt-On(X,Y+16,Str2+72){^r}
:End
:Else!If D-3
:6→{{L1}+214}
:If R=1 or (R=3)
:Pt-On(X-7,Y+8,Str2+104
:End
:If R≥2
:Pt-On(X-7,Y+8,Str2+104){^r}
:End
:End
:Return
:End
:
:If {{L1}+206}<5 and ({{L1}+206}>0)
:0→D→{{L1}+214}
:Plot1X,Y,Str2
:ElseIf {{L1}+206}<10
:1→{{L1}+214}→D
:Plot1X+7,Y+1,Str2+16
:ElseIf {{L1}+206}<15
:2→{{L1}+214}
:1→D
:Plot1X+8,Y+8,Str2+32
:ElseIf {{L1}+206}<20
:3→{{L1}+214}
:2→D
:Plot1X+7,Y+15,Str2+48
:ElseIf {{L1}+206}<25
:2→D
:4→{{L1}+214}
:Plot1X,Y+16,Str2+64
:ElseIf {{L1}+206}<30
:5→{{L1}+214}
:3→D
:Plot1X-7,Y+15,Str2+80
:ElseIf {{L1}+206}<35
:6→{{L1}+214}
:3→D
:Plot1X-7,Y+8,Str2+96
:ElseIf {{L1}+206}<40
:7→{{L1}+214}
:0→D
:Plot1X-7,Y+1,Str2+112
:ElseIf {{L1}+206}<45
:0→{{L1}+214}
:0→D
:Plot1X,Y,Str2
:End
:
:{{L1}+206}+1→{{L1}+206}
:If {{L1}+206}≥45
:0→{{L1}+206}
:End
:Return

Code: (SCTITLE.8xp) [Select]
:.TITLE
:Lbl 3
:64→A
:0→C
:sub(A
:FnOff
:Fix 3
:
:!If Full
:ClrHome
:Disp "NEED A TI-83+ SE",{i},"OR HIGHER..."
:End
:
:Fix 5
:[00648A8A8A8A640000CEA4A4A4A4A40000EC4A4A4A4AEA0000AEA8ACA8A8EE00]→Str3
:[00CEA8ACA8A8AE0000888888A8A850000044AA8AEEAA6A000053AAAB8A8A8B000080000000008000]→Str4
:[00607EFFFF7E600060FEFFC1C1FFFE60]→Str5
:
:Repeat getKey(15)
:Pause 6
:
:A+1→A
:!If A-255
:64→A:End
:
:conj(U,{L6},768
:conj(V,{L3},768
:
:If getKey(0)
:If getKey(10)
:DrawInv {^r}
:conj({L3},V,768
:End
:If getKey(48)
:If getKey(4) and (M>0)
:M-1→M
:ElseIf getKey(1) and (M<23)
:M+1→M
:End
:End
:If getKey(1)
:1→C
:ElseIf getKey(4)
:0→C
:End:End
:
:Plot146,C*8+47,Str5
:
:
:Pxl-Off(80,3
:Pxl-Off(30,9){^r}
:Pxl-Off(2,30
:Pxl-Off(2,30){^r}
:Pxl-Off(61,22
:
:
:!If A/64
:Pxl-Off(5,5
:Pxl-Off(5,5){^r}
:Pxl-Off(85,45
:Pt-Off(89,25,[FFBFFFFFFFFFFFFF]
:Pt-Off(45,3,[DFDF27DFDFFFFFFF]
:
:
:Else!If A/64-1
:Pxl-Off(5,5
:Pxl-Off(85,45){^r}
:Pt-Off(40,32,[FFBFFFFFFFFFFFFF]
:Pt-Off(45,3,[FFAFDFAFFFFFFFFF]
:
:
:Else!If A/64-2
:Pxl-Off(5,5){^r}
:Pt-Off(40,32,[BF1FBFFFFFFFFFFF]
:Pt-Off(89,25,[FFBFFFFFFFFFFFFF]
:Pt-Off(45,3,[FFFFDFFFFFFFFFFF]
:
:Else
:Pxl-Off(5,5
:Pxl-Off(85,45){^r}
:Pt-Off(40,32,[FFBFFFFFFFFFFFFF]
:Pt-Off(89,25,[BF1FBFFFFFFFFFFF]
:Pt-Off(45,3,[DFDF27DFDFFFFFFF]
:
:End
:
:
:!If (M+8/8)-1
:Normal
:DispGraph{^r}{^r}
:Full
:Else!If (M+8/8)-2
:Normal
:DispGraph{^r}
:Full
:Else
:DispGraph
:End
:If getKey(54)
:Goto 1
:End
:End
:Fix 2
:Return
:
:Lbl 1
:!If C
:!If GetCalc("vTaNFsave",{Y1})
:!If GetCalc("vTaNFsave")
:ClrDraw
:DrawInv
:StorePic
:DispGraph
:While getKey(54)
:End
:Pause 1500
:Text(5,5,"No save-state file has been"
:Text(5,11,"detected.  Would you like"
:Text(5,17,"to start a new game?"
:StorePic
:DispGraph
:Pause 1500
:0→D
:Repeat getKey(54)
:RecallPic
:Text(20,30,"Yes"
:Text(20,38,"No"
:If getKey(4)
:0→D
:ElseIf getKey(1)
:1→D
:End
:Pt-Off(12,D*8+30,[FFF7E3E1E1E3F7FF]
:
:If getKey(54)
:While getKey(54)
:End
:!If D
:Goto 2
:Else
:Goto 3
:End
:End
:
:DispGraphClrDraw
:End
:Fix 2
:End:End
:
:
:Else
:Lbl 2
:
:
:
:End
:
:DelVar "vA"
:DelVar "vB"
:Return
:
:
:
:
:
:
:.DATA:
:
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]→Str1
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFFFFFFFFFFFFFFFFFFFFFFFFF1E3FF]
:[FFFFFFFFFFF7FFFFFFEE1DFFF073FFFE]
:[E657FFFFFFE805FFFDFFFFFEF2F7FFFF]
:[FFF61BFFFD827C88F4953FFFFFF9E7FF]
:[FDD9BAA6F6D2DFFFFFFE1FFFF8927C28]
:[E6853FFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFCFFFFFFFFFFFFFFFFFFFFFFFD7FFF]
:[FFFFFFFFFFFFFFFFFFFDFFFFFFFFFFFF]
:[FFFFFFFFFFFCFFFFFFFFFFFFFFFFFFFF]
:[FFFC9FF01E3EFF7FC1CE607FFFFCFFF7]
:[FC3CFE7FF7CCEF3FFFFDFFF7FD3DFE7F]
:[EF8CDFFFFFFD7FE07B39FC7FCFAD9FFF]
:[FFFDFFCFE739FCFFDF2D98FFFFFDBFCF]
:[E03BFDFFBE63BCFFFFFCFFDFDF37FBFF]
:[3EF39CFFFFFDFFDF9F30180E0EF381FF]
:[FFFC7FFFFFFFFFFFFFFFFFFFFFFDFFFF]
:[FFFFFFFFFFFFFFFFFFFD7FFFFFFFFFFF]
:[FFFFFFFFFFFD7FFFFFFFFFFFFFFFFFFF]
:[FFFC7FFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFFFFFFFFFFFFFFFFFDFFFFFFFFFFFF]
:[FFFFFFFFFFFB3FFFFFFFFFFFFFFFFFFF]
:[F887CAD7FFFFFFFFFFFFFFFFE5AEFF7F]
:[FFFFFFFFFFFFFFFFF1FFDFFFFFFFFFFF]
:[E07FFFFFFFF7FBFFFFFFFFFF000FFFFF]
:[FFF807FFFFFFFFFC0003FFFFFFF8C7FF]
:[FFFFFFFC0003FFFFFFF8C7FFFFFFFFF8]
:[0001FFFF000844000000000000000000]
:[00084400000000000000000000104400]
:[0000000000000000001045F9CF00FC00]
:[00000000166043FFFFFFFF39FC000000]
:[FFF041FFFFFFFFFFFE0F9400FFF04159]
:[59595BFFFFFFFE8F6560431595B73559]
:[5BFFFFFFDCD042F3736AEB3736B2B7FF]
:[56A0412EAEA92AEAEA6E6D65CDA04392]
:[92B2B2B129D5D4DCBAD042BB7B6E6E6F]
:[959593AB4AB0436AEACDD5D6B3736CA4]
:[ED204352B2B252516EAE9EDEAB604166]
:[6E6F6F6A529292BA52604315D5D55D59]
:[7B7B752596D042F2525292972AEA5656]
:[56A0432F6F6CB4B2D494CDCDCDA04395]
:[5D5AB2B125A5BABABAD042BA92966E6F]
:[95954A4A4AB0416CB4B5D5D6B373EDED]
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]→Str2
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:[FFF003FFFFFFFFFFFFFFFFFFFFEE1DFF]
:[FFFFFFFFFFFFFFFFFFF143FFFFFFFFFF]
:[FFFFFFFFFFF393FFFFFFFFFFFFFFFFFF]
:[FFE845FFFFFFFFFFFFFFFFFFFFF61BFF]
:[FFFFFFFFFFFFFFFFFFF9E7FFFFFFFFFF]
:[FFFFFFFFFFFC0FFFFFFFFFFFFFFFFFFF]
:[FFFF0FFFFFFFFFFFFFFFFFFFFFFF8FFF]
:[FFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFF]
:[FFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFF]
:[FFFF6FFFE7DF3F9FFE739F9FFFFF0FF9]
:[FFDF3F9FF8F333CFFFFE0FF9FEDE7F9F]
:[F3F327FFFFFE8FFF9CDE7F9FF3D267FF]
:[FFFE0FF3F9DE7F3FE7D2673FFFFE4FF3]
:[FFDCFE7FCF9CCF3FFFFF0FE7E7D9FCFF]
:[CF3CE73FFFFE0FE7E7DFE7F3F3D9FCFF]
:[FFFF8FFFFFFFFFFFFFFFFFFFFFFF0FFF]
:[FFFFFFFFFFFFFFFFFFFE8FFFFFFFFFFF]
:[FFFFFFFFFFFE8FFFFFFFFFFFFFFFFFFF]
:[FFFF8FFFFFFFFFFFFFFFFFFFFFFF0FFF]
:[FFFFFFFFFFFFFFFFFFFE0FFFFFFFFFFF]
:[FFFFFFFFFFFCC7FFFFFFFFFFFFFFFFFF]
:[F778352BFFFFFFFFFFFFFFFFFA510081]
:[FFFFFFFFE07FFFFFFE002003FFFFFFFF]
:[000FFFFFFFF807FFFFFFFFFC0003FFFF]
:[FFFFFFFFFFFFFFF80001FFFFFFFF2FFF]
:[FFFFFFF80001FFFFFFFD27FFFFFFFFF0]
:[0000FFFFFFF9B7FFFFFFFFFFFFFFFFFF]
:[FFFB37FFFFFFFFFFFFFFFFFFFFF137FF]
:[FFFFFFFFFFFFFFFFFFF3A7FFFFFFFFFF]
:[FFFFFFFFFFF2B20638FF03FFFFFFFFFF]
:[E992AE00000000C603FFFFFF0003B626]
:[2626240001F06BFF9893B0E26240C226]
:[240001700301A10C0C0100C0C04C4800]
:[8903B85010145501018180983053A005]
:[454C4C4C560203034020A04080818180]
:[22626C04150AB084041202004C0C1151]
:[024BB42C4C48A8AA901000201093B611]
:[8180101505456101A493A4E202008086]
:[00808A4A4901A508A8AD2520C4048989]
:[8903A05010124A4929293030305B3000]
:[80844C4C52524040402B344525218180]
:[22621515150B32824A4A02004C0C0202]
:
:Lbl A
:If GetCalc("vA")
:DelVar "vA"
:End
:If GetCalc("vB")
:DelVar "vB"
:End
:GetCalc("vA",768)→U
:GetCalc("vB",768)→V
:conj(Str1,U,768
:conj(Str2,V,768
:conj(U,{L6},768
:conj(V,{L3},768
:ref(54,46,37,18
:ref(54,46,37,18){^r}
:rref(55,47,35,16
:rref(55,47,35,16){^r}
:
:For(A,0,3
:Pt-On(A*8+56,47,A*8+Str3
:End
:For(A,0,4
:Pt-On(A*8+56,55,A*8+Str4
:End
:
:
:conj({L6},U,768
:conj({L3},V,768
:Return

That's the code for the programs ARPG (the main one) and TITLE (the title sub program)
Though one day TITLE will be on page two of ARPG ^-^

they're also attached ;)

enjoy!

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: Trio and Niko: Falling
« Reply #444 on: March 21, 2011, 01:26:41 am »
Another revival! This is great. I hope you finish it :)

Does everyone have spring break this week or something?
I hope not everyone leaves during their spring breaks like last year. X.x

But I'm so happy to see this revived.

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: Trio and Niko: Falling
« Reply #445 on: March 21, 2011, 05:20:30 pm »
Yikes! That's a lot of code.
(Hi Ashbad)

Ashbad

  • Guest
Re: Trio and Niko: Falling
« Reply #446 on: March 22, 2011, 09:15:42 pm »
hey c.sprinkle!  nice to see you back ;)

yeah, it's big bundle of code indeed.  ;D

I have around 144 tiles ATM, but since I CAN have up to 256, why wouldn't I take advantage of that and make ~112 more?  I think I'll make some that would add character to certain maps -- such as graveyard, underwater, inside caves and caverns, etc. themed tiles.

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Trio and Niko: Falling
« Reply #447 on: March 23, 2011, 10:40:39 am »
Woah Ashbad, that's a lot of code to cut, nice!

Offline AngelFish

  • Is this my custom title?
  • Administrator
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3242
  • Rating: +270/-27
  • I'm a Fishbot
    • View Profile
Re: Trio and Niko: Falling
« Reply #448 on: March 23, 2011, 11:03:19 am »
* Qwerty.55 is disappointed not to see 1500 byte menu screen graphics  :P
∂²Ψ    -(2m(V(x)-E)Ψ
---  = -------------
∂x²        ℏ²Ψ

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Trio and Niko: Falling
« Reply #449 on: March 23, 2011, 12:01:41 pm »
* Qwerty.55 is disappointed not to see 1500 byte menu screen graphics  :P

Is it bigger or smaller? :P