Author Topic: Fall (Read 31085 times)

ztrumpet · « **Reply #30 on:** December 11, 2009, 07:50:54 am »

Looks nice! I'm glad you are still coding without your calc.

Eeems · « **Reply #31 on:** December 11, 2009, 10:04:12 am »

Thanks! Well I am using a calc, but it's my school calc, which my mom takes away when I get home....

jsj795 · « **Reply #32 on:** December 11, 2009, 10:06:07 am »

I was trying to code endless falldown, but it was really slow...
I almost succeeded in eliminating impossible map, but then it wasn't 100% perfect.
I used this method:
I check the tile right above of the next line (eg: last line-> <b>O</b>OOOOO OOOOO OO O
and if there is something, 3/4 of time will be filled and 1/4 of time will be blank
and if there is blank space there, 3/4 of time will be blank and 1/4 of time will be filled, etc.

It gave me a map that will usually be possible for about 20~30 rows or even more, but then sometimes it wasn't.

So I'm trying a new method that will make the map first (like what you did) but also checks to make sure that there is a winning path

Eeems · « **Reply #33 on:** December 11, 2009, 10:19:04 am »

Ah cool, that's a good idea actually. How slow was it could I see some code I might be able to speed it up.
Well I can't wait to see your random map maker.

jsj795 · « **Reply #34 on:** December 11, 2009, 01:24:26 pm »

Haha I'm having a major slump in trying to code the random map maker...
And the code for endless goes like this:

Code: [Select]

:2->R
:Repeat not(Y
:"_space_->Str3
:DelVar M
:Repeat M=16
:Output(O,P,"_space_
:Output(Y,X,"*
:16Y-16+X->_theta_
:getKey->K
:If Y!=8
:Y+(Str2!=sub(Str1,_theta_+16,1->Y
:16Y-16+X->_theta_
:If K=24 and X>1
:X-(Str2!=sub(Str1,_theta_-1,1->X
:If K=26 and X<16
:X+(Str2!=sub(Str1,_theta_+1,1->X
:M+1->M
:sub(Str1,112+M,1
:If Ans=Str2
:Then
:Str3+sub(Str2+"_space_"+Str2+Str2+"_space_"+Str2+Str2+Str2,RandInt(1,R),1->Str3
:Else
:Str3+sub("_space_"+Str2+"_2space_"+Str2+"_3space_",RandInt(1,R),1->Str3
:End
:End
:R+int(R<8 and sub(M->R
:Y-1->Y
:O-1->O
:sub(Str1,17,112)+sub(Str3,2,16->Str1
:End

I didn't put jumping sequence in, because I actually deleted the program to get a fresh start on random map generator.
Anyways, the jumping sequence was buggy too.

Hope this helps

Eeems · « **Reply #35 on:** December 11, 2009, 06:17:39 pm »

Hmm, well a few ways to speed it up is to get rid of those horribly slow if statements and switching to boolians...like in my code.
I'll have to take a closer look later to see if I can find more ways to speed it up.

Eeems · « **Reply #36 on:** December 14, 2009, 05:54:28 pm »

ok I was able to get on a computer without my mom around with my calc, so here is the most recent copy of Fall
it has 4 methods of making a random map
2 included levels
updated the gameplay so that it will refresh the spot to whatever symbol you are on instead of just putting a space
also if you go over a * you win, and your character is a theta now instead of a *

DJ Omnimaga · « **Reply #37 on:** December 14, 2009, 08:59:43 pm »

nice I'll try to give this a try eventually. Feel free to upload in archives if you want

EDIT: Idk if I am doing something wrong but no matter what I input, it exits after doing the loading and just says "Done"

could u include instructions?

Eeems · « **Reply #38 on:** December 14, 2009, 09:23:58 pm »

Really? Hmm screenshot?
It should work, but I might have miscounted the amount of End statements...sure I'll include instructions next time.
I'll upload it to the archives when I make my first level pack. Then people can make their levels as they want

oh and could someone make a screenshots of the first two levels

DJ Omnimaga · « **Reply #39 on:** December 14, 2009, 09:30:04 pm »

idk, maybe I'M just doing something wrong. This is why i am asking help on what i need to input

Eeems · « **Reply #40 on:** December 14, 2009, 09:33:58 pm »

Well when you get to the menu just input the number to select the option and the press enter (it's using input if you didn't already gigure it out)

DJ Omnimaga · « **Reply #41 on:** December 14, 2009, 09:39:40 pm »

well you still didnt said what number i needed to type, for example for Method, but i figured 1 through 4 did something. Here's screenshot:

EDIT: fixed typo

Eeems · « **Reply #42 on:** December 14, 2009, 09:53:00 pm »

You were right, that looks like I misplaced a End statement...could you sourcecode my program for me? I'm on my iPod...and it's easier on here to see program flow with it...

DJ Omnimaga · « **Reply #43 on:** December 14, 2009, 09:56:39 pm »

Quote from: BASIC Code

:ClrHome
:"OOOO
:Ans+Ans+Ans+Ans→Str1
:For(B,8,1,‾1)
:Output(B,10,"*
:rand10
:Output(B,1,Str1
:End
:For(A,0,2)
:Output(4+A,6,"
:End
:Output(5,6," FALL
:getKey
:Repeat getKey
:randInt(1,3,5
:Output(8,2,"<PRESS A KEY>
:randInt(1,3,5
:Output(8,2,Str1
:End
:Repeat not(I
:ClrHome
:Disp "0=QUIT","1=RAND","2=LVLS
:Input ":",I
:If I=1
:Then
:Input "METHOD: ",A
:Input "ROWS: ",L
:"O→Str1
:ClrHome
:If A=1:Then
:For(A,1,16L)
:Output(1,1,int(((A+1)/(16L))100
:Str1+sub(" O ",randInt(1,3),1→Str1
:End
:End
:If A=2
:Then
:For(A,1,L)
:Output(1,1,int(((A-1)/L)100
:randInt(1,3,16→L[size=8]1[/size]
:For(B,1,16)
:Output(2,1,int((B/16)100
:Str1+sub(" O ",L[size=8]1[/size](B),1→Str1
:End
:ClrHome
:End
:sub(Str1,2,length(Str1)-1→Str1
:End
:If A=3:Then
:randInt(1,2,16→L[size=8]2[/size]
:L[size=8]2[/size]→L[size=8]1[/size]
:For(A,1,L)
:Output(1,1,int(((A-1)/L)100
:For(B,1,16)
:Output(2,1,int((B/16)100
:If 1=L[size=8]2[/size](B
:Then
:If 2≠randInt(1,3
:Then
:1→L[size=8]1[/size](B
:Else
:2→L[size=8]1[/size](B
:End
:Else
:If 2=randInt(1,2
:Then
:2→L[size=8]1[/size](B
:Else
:1→L[size=8]1[/size](B
:End
:End
:Str1+sub(" O",L[size=8]1[/size](B),1→Str1
:End
:Output(2,2,"
:L[size=8]1[/size]→L[size=8]2[/size]
:End
:sub(Str1,2,length(Str1)-1→Str1
:End
:If A=4
:Then
:If L>63
:Then
:Pause "ERROR
:"
:Ans+Ans
:Ans+Ans+Ans+Ans
:Ans+Ans+Ans+Ans+Ans
:Ans+Ans→Str1
:Else
:ClrDraw
:For(A,1,L)
:For(B,1,16)
:Str1+sub(" OO ",randInt(1,6)+randInt(1,6),1→Str1
:If "O"=sub(Str1,length(Str1),1
:Then
:Pxl-On(A-1,B-1
:End:End
:End
:End
:If I=2
:Then
:1→A
:ClrHome
:Disp "LEVEL?
:Repeat K=105
:Output(2,1,A
:Repeat K
:getKey→K
:End
:A-(K=34 and A≠1)+(K=25→A
:Output(2,1,"
:End
:prgmLVL
:End
:If I=1 or I=2
:Then
:1→θ
:4→X
→Y
:20→R
:int(length(Str1)/16)-6→L
:Repeat θ=L or not(Y) or "*"=sub(Str1,Z,1
:Output(1,1,sub(Str1,16θ-15,128
:DelVar M
:Repeat K=34 or M=int(R) or "*"=sub(Str1,Z,1
:getKey→K
:Output(Y,X,sub(Str1,16(Y+θ-2)+X,1
:If θ≠L-1
:Then
:16(θ+Y-1)-16+X→Z
:J-(J≠0)+2(K=25 and not(J) and "O"=sub(Str1,Z+16,1→J
:Output(1,15+(int(R)-M<10),int(R-M
:If int(R-M)<10
:Then
:Output(1,15,"∙
:End
:Y+(not(J) and Y≠8 and "O"≠sub(Str1,Z+16,1))-(J and Y≠1 and "O"≠sub(Str1,Z-16,1→Y
:If Y=8 and "O"≠sub(Str1,Z+16,1
:Then
:int(R)-1→M
:End
:End
:M+1→M
:16(θ+Y-1)-16+X→Z
:X+(K=26 and "O"≠sub(Str1,Z+1,1) and X≠16)-(K=24 and X≠1 and "O"≠sub(Str1,Z-1,1→X
:Output(Y,X,"θ
:rand10
:End
:Y-1→Y
:R-.5(3≠int(R→R
:θ+(θ≠L→θ
:End
:ClrHome
:If not(Y
:Then
:Output(1,3,"YOU LOSE
:Else
:Output(1,3,"YOU WIN
:End
:End
:Pause
:End
Generated by SourceCoder, © 2005 Cemetech

Quote from: BASIC Code

:If A=1
:"O//////////////OO//////////////OO/////////OOOOOOOOOOOOOO/+OTOTOOOTTTTOO/++OTOTOOOTTTTOO+++OTOTOOOTTTTOO+++OTOTOOOOOOOOOOO+OOOOOOO+T+T+T+T+T+T+TOOOOOOOOOOOOOOOTOO+T+T+T+T+T+T+TOO+T+T+T+T+T+T+TOO+OOOOOOOOOOOOOOO+OOOOOOOOOOOOOOO++++++++++++++OO++++++++++++++OO++++++++++++++OOLOBSTERRETSBOLOOOOOOOO OOOOOOOO O O OO O O OO O O OO O O OO O O OO O O OO O O OOOOOOOOO O OO O O OO O OOOOOOOOO O O OO OOOOOOOOOOOOOOO OO
OOOOOOOOOOOOOOOOO→Str1

:If A=2
:"////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////O//////////////OOO////////////OOOOO//////////OOOOOOO////////OOOOOOOOO//////OOOOOOOOOOO////OOOOOOOOOOOOO//OOOOOOOOOOOOOO/ OOOOOOOOOOOOOO OOOOOOOOOOOOO OOOOOOOOOOO OOOOOOOOOO OOOOOOOOOO OOOOOOOO OOOOOOOO O OOOOOOOO O OOOOOOOO O OOOOOOO O OOOOOO O OOOOOO
O OOOOOOOOOO OOOOOOOOOO OOOOOOOOOO OOOOOOOOOO OOOOOOOOOO O O OOOOOOOOOOO O O OOOOOOOOOO O O OOOOOOOOOOO O O OOOOOOOOOOO OOOOOOOOOOO OOOOOOOOOOOOOOO O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O OO O O O O O O O O O O O O OO O O O O O O O O O O O O OOO OOOO OOOOOOOOOOOOOOO OOOOOOOOOOOOOOO OOOOOOOOOOOOOOO OOOOOOOOOOOOOOO OOOOOOOOOOOOOOO OOOOOOOOOOOOOOO OOOOOOOOOOOOOOO OOOOOOOOOOOOOOO OOOOOOOOOOOOOOO OOOOOOOOOOOOO→Str1

:
Generated by SourceCoder, © 2005 Cemetech

EDIT: mhmm, nethams...

Eeems · « **Reply #44 on:** December 14, 2009, 10:15:49 pm »

Thanks! I'll look through it
lol, you saw that did you? :p

Author Topic: Fall (Read 31085 times)

ztrumpet

Re: Fall

Eeems

Re: Fall

jsj795

Re: Fall

Eeems

Re: Fall

jsj795

Re: Fall

Eeems

Re: Fall

Eeems

Re: Fall

DJ Omnimaga

Re: Fall

Eeems

Re: Fall

DJ Omnimaga

Re: Fall

Eeems

Re: Fall

DJ Omnimaga

Re: Fall

Eeems

Re: Fall

DJ Omnimaga

Re: Fall

Eeems

Re: Fall