Author Topic: The Blue Platform  (Read 111875 times)

0 Members and 1 Guest are viewing this topic.

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
The Blue Platform
« on: May 11, 2009, 11:15:17 pm »
ok, this was part of the topic "Side Project #2: DUNGEON" until now. Basically this is a Platform game engine of a sorts. it currently has powerups, items, enemies, rope/monkeybars, spikes, health, and magic. It uses dual layer text sprites for the map. It runs moderately fast on a TI-83+.

Currently in the attachments: screenies of the game in action, and the current files

current code
Code: [Select]
main engine::

:Text(‾1,0,0,sub(Str1,1,15
:Text(‾1,8,0,sub(Str1,16,15
:Text(‾1,16,0,sub(Str1,31,15
:Text(‾1,24,0,sub(Str1,46,15
:Text(‾1,32,0,sub(Str1,61,15
:Text(‾1,40,0,sub(Str1,76,15
:Text(‾1,48,0,sub(Str1,91,15
:Text(‾1,56,0,sub(Str1,106,15
:StorePic 2
:Text(‾1,0,0,sub(Str2,1,15
:Text(‾1,8,0,sub(Str2,16,15
:Text(‾1,16,0,sub(Str2,31,15
:Text(‾1,24,0,sub(Str2,46,15
:Text(‾1,32,0,sub(Str2,61,15
:Text(‾1,40,0,sub(Str2,76,15
:Text(‾1,48,0,sub(Str2,91,15
:Text(‾1,56,0,sub(Str2,106,15
:RecallPic 2
:L1(3→B:L1(4→A
:L1(1→G
:L1(2→H
:L1(5→S
:L1(6→T
:L2(1→Z
:L2(2→Y
:L2(3→X
:DelVar M
:DelVar JText(‾1,0,90,H
:If S:Then
:Text(‾1,24,90,"!
:End
:If G=3:Then
:Text(‾1,16,90,"
:End
:If T:Then
:Text(‾1,32,90,"
:End
:While A≠1 and A≠9 and B≠0 and B≠16 and H
:If E:Then
:E-1→E
:If not(E
:Then
:Text(‾1,8,90,"
:End:End
:A→C
:B→D
:Text(‾1,8A-8,6B-6,"Ω
:If M
:Then
:2→M
:Text(‾1,8A-8,6B-6,"Î
:End
:getKey→K
:If K:Then
:B+(K=26)-(K=24→B
:If B≠D
:Then
:If B and B≠16 and ""=sub(Str1,15A-14+B-1,1
:Then
:D→B
:End
:End
:End
:If A≠1 and A≠9
:Then
:If not(J) and ""≠sub(Str1,15(A+1)-15+B,1) and ""≠sub(Str1,15(A-1)-15+B,1
:Then
:A+1→A
:Else
:If S and K=21:Then
:prgmZAT
:End
:If T and K=31:Then
:prgmZSH
:End
:J+G(K=25 and not(J→J
:End
:If J:Then
:If ""≠sub(Str1,15(A-1)-15+B,1
:Then
:A-1→A
:End
:J-1→J
:End
:If (A≠C or B≠D) and B and B≠16
:Then
:Text(‾1,8A-8,6B-6,"Ω
:Text(‾1,8C-8,6D-6,"
:If ""=sub(Str1,15C-15+B,1
:Then
:Text(‾1,8C-8,6D-6,"
:End
:If 2=M
:Then
:Text(‾1,8C-8,6D-6,"Î
:DelVar M
:End
:End
:If " "≠sub(Str1,15A-15+B,1
:Then
:prgmZIT
:End:End
:If Z:Then
:prgmZEN
:End:End
:G→L1(1
:H→L1(2
:A→L1(3
:B→L1(4
:S→L1(5

special tiles (prgmZIT)

:If "o"=sub(Str1,15A-15+B,1
:Then
:1→T
:sub(Str1,15A-15+B,length(Str1)-15A-14+B→Str3
:sub(Str2,1,15A-16+B)+" "+Str3→Str1
:Else
:If "!"=sub(Str1,15A-15+B,1
:Then
:1→S
:sub(Str1,15A-14+B,length(Str1)-(15A-14+B→Str3
:sub(Str1,1,15A-16+B)+" "+Str3→Str1
:Text(‾1,24,90,"!
:Else
:If "Δ"=sub(Str1,15A-14+B-1,1
:Then
:H+3→H
:If 9<H
:Then
:9→H
:End
:sub(Str1,15A-14+B,length(Str1)-(15A-14+B→Str3
:sub(Str1,1,15A-16+B)+" "+Str3→Str1
:Text(‾1,0,90,H
:Text(‾1,8,90,"┼
:3→E
:Else
:If ""=sub(Str1,15A-14+B-1,1
:Then
:Text(‾1,16,90,"
:sub(Str1,15A-14+B,length(Str1)-15A-14+B→Str3
:sub(Str1,1,15A-14+B-2)+" "+Str3→Str1
:3→G
:Else
:If "Î"=sub(Str1,15A-14+B-1,1
:Then
:Text(‾1,0,90,H
:H-1→H
:1→M
:End
:End
:End
:End

sword animation (prgmZAT)

:15A-15+B→S
:Text(‾1,8A-8,6B,"-
:Text(‾1,8A-16,6B-6,"/
:Text(‾1,8A-8,6B,sub(Str1,S+1,1
:StorePic 2
:Text(‾1,8A-8,6B,sub(Str2,S+1,1
:RecallPic 2
:Text(‾1,8A-16,6B-6,"!
:Text(‾1,8A-16,6B,sub(Str1,S-14,1
:StorePic 2
:Text(‾1,8A-16,6B,sub(Str2,S-14,1
:RecallPic 2
:Text(‾1,8A-16,6B-12,"
:Text(‾1,8A-16,6B-6,sub(Str1,S-15,1
:StorePic 2
:Text(‾1,8-16,6B-6,sub(Str2,S-15,1
:RecallPic 2
:Text(‾1,8A-8,6B-12,"-
:Text(‾1,8A-16,6B-12,sub(Str1,S-16,1
:StorePic 2
:Text(‾1,8A-16,6B-12,sub(Str2,S-16,1
:RecallPic 2
:Text(‾1,8A-8,6B-12,sub(Str1,15A-16+B,1
:StorePic 2
:Text(‾1,8A-8,6B-12,sub(Str2,15A-16+B,1
:RecallPic 2
:1→S
:If (A=Y and (B-1=X or B+1=X)) or (A-1=Y and (B-1=X or B=X or B+1=X
:Then
:DelVar Z
:End

magic animation (prgmZSH)

:H+2(X=B or X=B+1 or X=B-1→H
:A-1→T
:If H>9:Then
:9→H
:End
:Text(‾1,8T-8,6B-6,"O
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"o
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"o
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"∙
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,sub(Str1,15T-15+B,1
:StorePic 2
:Text(‾1,8T-8,6B-6,sub(Str2,15T-15+B,1
:RecallPic 2


enemy movement and action handler (prgmZEN)

:H+2(X=B or X=B+1 or X=B-1→H
:A-1→T
:If H>9:Then
:9→H
:End
:Text(‾1,8T-8,6B-6,"O
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"o
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"o
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"∙
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,sub(Str1,15T-15+B,1
:StorePic 2
:Text(‾1,8T-8,6B-6,sub(Str2,15T-15+B,1
:RecallPic 2
please give me your optimizations :)

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Platform Game Engine
« Reply #1 on: May 12, 2009, 06:42:58 pm »
ok I'm uploading the edited version, and I fixed the error with the falling off the bottom thing.
/e

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55941
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Platform Game Engine
« Reply #2 on: May 12, 2009, 11:04:58 pm »
Cool I'll check this one soon. How many levels does this one have? I know the other only had 2
Dream of Omnimaga

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Platform Game Engine
« Reply #3 on: May 13, 2009, 10:58:51 am »
three I think, but I don't know if I could get the third to work right (just play around with prgmPLATFORM if it doesn't)
/e

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Platform Game Engine
« Reply #4 on: May 15, 2009, 09:37:00 pm »
ok, I've played around with the programs a bit and I've gotten rid of a few errors, I'm also trying to make it more programmer friendly for switching levels by giving a map coordinates thing (L3) so every time you go off the map it will change the list vars accordingly. I'm also going to add a little bit of code at the end to make it easier to figure out where the char comes on in the new map (0->15 and 16->1 etc) but it will still take in manual lists. I'm going to add some more maps when I get this finished
/e

Offline trevmeister66

  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1009
  • Rating: +14/-5
    • View Profile
Re: Platform Game Engine
« Reply #5 on: May 15, 2009, 10:40:44 pm »
sweet, good to see some progress.
Projects:    nameless RPG: 1.0%  |  Reverse Snake v1.5: 100%  |  Secret Project: 5%  |  DUNGEON: 70%

My MW2 Blog <-- Please visit :)

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55941
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Platform Game Engine
« Reply #6 on: May 15, 2009, 11:12:32 pm »
Nice to see updates still ^^
Dream of Omnimaga

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Platform Game Engine
« Reply #7 on: May 16, 2009, 12:53:03 pm »
it's kind of hard to work on it, I can't seem to resist the call of Illusiat 12 :)
/e

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55941
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Platform Game Engine
« Reply #8 on: May 16, 2009, 06:35:27 pm »
Hehe I know the feeling, altough I am a bit surprised considering Illusiat 12 plot is so simple and the game is friggin hard (altough not as much as Illusiat 6 in hard mode or Illusiat 7)
Dream of Omnimaga

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Platform Game Engine
« Reply #9 on: May 16, 2009, 06:43:30 pm »
well the first 3 chapters were easy, but IV is really hard, and I don't mind the simple plot, the epic battles make up for it
/e

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Platform Game Engine
« Reply #10 on: May 16, 2009, 07:59:22 pm »
ok, I have finished with the map coordinates and such, now I'm going to work on some rooms and such, and maybe even add some new items and magic. I'm still having some problems with keeping the game running fast with enemies on the screen though.
I've also included the new version
/e

Offline Drak

  • LV4 Regular (Next: 200)
  • ****
  • Posts: 118
  • Rating: +2/-16
  • The color of choice for winners.
    • View Profile
Re: Platform Game Engine
« Reply #11 on: May 16, 2009, 10:35:18 pm »
needs lists included, wont run without it.

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Platform Game Engine
« Reply #12 on: May 16, 2009, 10:42:27 pm »
sorry about that, I'll fix that up
« Last Edit: May 16, 2009, 10:46:15 pm by Eeems »
/e

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55941
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Platform Game Engine
« Reply #13 on: May 17, 2009, 12:43:45 pm »
mhmm nice I'll check out
Dream of Omnimaga

Offline trevmeister66

  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1009
  • Rating: +14/-5
    • View Profile
Re: Platform Game Engine
« Reply #14 on: May 17, 2009, 12:58:36 pm »
Hmm I'll check it out too. I haven't tested what you've added yet, so it'll be good to see what you've done.

ummm... error?

you have something messed up with your room switching.
« Last Edit: May 17, 2009, 01:32:32 pm by trevmeister66 »
Projects:    nameless RPG: 1.0%  |  Reverse Snake v1.5: 100%  |  Secret Project: 5%  |  DUNGEON: 70%

My MW2 Blog <-- Please visit :)