« previous next »
Pages: 1 2 [3] 4 5   Go Down

Author Topic: Fall  (Read 26933 times)

0 Members and 1 Guest are viewing this topic.

Offline ztrumpet

  • The Rarely Active One
  • CoT Emeritus
  • LV13 Extreme Addict (Next: 9001)
  • *
  • Posts: 5712
  • Rating: +364/-4
  • If you see this, send me a PM. Just for fun.
    • View Profile
Re: Fall
« Reply #30 on: December 11, 2009, 07:50:54 am »
Looks nice! I'm glad you are still coding without your calc.
Logged

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Fall
« 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....
Logged
/e

Offline jsj795

  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1105
  • Rating: +84/-3
    • View Profile
Re: Fall
« 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
Logged


Spoiler For funny life mathematics:
1. ROMANCE MATHEMATICS
Smart man + smart woman = romance
Smart man + dumb woman = affair
Dumb man + smart woman = marriage
Dumb man + dumb woman = pregnancy
2. OFFICE ARITHMETIC
Smart boss + smart employee = profit
Smart boss + dumb employee = production
Dumb boss + smart employee = promotion
Dumb boss + dumb employee = overtime
3. SHOPPING MATH
A man will pay $2 for a $1 item he needs.
A woman will pay $1 for a $2 item that she doesn't need.
4. GENERAL EQUATIONS & STATISTICS
A woman worries about the future until she gets a husband.
A man never worries about the future until he gets a wife.
A successful man is one who makes more money than his wife can spend.
A successful woman is one who can find such a man.
5. HAPPINESS
To be happy with a man, you must understand him a lot and love him a little.
To be happy with a woman, you must love her a lot and not try to understand her at all.
6. LONGEVITY
Married men live longer than single men do, but married men are a lot more willing to die.
7. PROPENSITY TO CHANGE
A woman marries a man expecting he will change, but he doesn't.
A man marries a woman expecting that she won't change, and she does.
8. DISCUSSION TECHNIQUE
A woman has the last word in any argument.
Anything a man says after that is the beginning of a new argument.

Girls = Time * Money (Girls are a combination of time and money)
Time = Money (Time is money)
Girls = Money squared (So, girls are money squared)
Money = sqrt(Evil) (Money is also the root of all evil)
Girls = sqrt(Evil) squared (So, girls are the root of all evil squared)
Girls = Evil (Thus, girls are evil)
*Girls=Evil credit goes to Compynerd255*

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Fall
« 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.
Logged
/e

Offline jsj795

  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1105
  • Rating: +84/-3
    • View Profile
Re: Fall
« 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
Logged


Spoiler For funny life mathematics:
1. ROMANCE MATHEMATICS
Smart man + smart woman = romance
Smart man + dumb woman = affair
Dumb man + smart woman = marriage
Dumb man + dumb woman = pregnancy
2. OFFICE ARITHMETIC
Smart boss + smart employee = profit
Smart boss + dumb employee = production
Dumb boss + smart employee = promotion
Dumb boss + dumb employee = overtime
3. SHOPPING MATH
A man will pay $2 for a $1 item he needs.
A woman will pay $1 for a $2 item that she doesn't need.
4. GENERAL EQUATIONS & STATISTICS
A woman worries about the future until she gets a husband.
A man never worries about the future until he gets a wife.
A successful man is one who makes more money than his wife can spend.
A successful woman is one who can find such a man.
5. HAPPINESS
To be happy with a man, you must understand him a lot and love him a little.
To be happy with a woman, you must love her a lot and not try to understand her at all.
6. LONGEVITY
Married men live longer than single men do, but married men are a lot more willing to die.
7. PROPENSITY TO CHANGE
A woman marries a man expecting he will change, but he doesn't.
A man marries a woman expecting that she won't change, and she does.
8. DISCUSSION TECHNIQUE
A woman has the last word in any argument.
Anything a man says after that is the beginning of a new argument.

Girls = Time * Money (Girls are a combination of time and money)
Time = Money (Time is money)
Girls = Money squared (So, girls are money squared)
Money = sqrt(Evil) (Money is also the root of all evil)
Girls = sqrt(Evil) squared (So, girls are the root of all evil squared)
Girls = Evil (Thus, girls are evil)
*Girls=Evil credit goes to Compynerd255*

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Fall
« 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.
Logged
/e

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Fall
« 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 * :P
« Last Edit: December 14, 2009, 05:55:41 pm by Eeems »
Logged
/e

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55942
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Fall
« 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?
« Last Edit: December 14, 2009, 09:16:07 pm by DJ Omnimaga »
Logged
Now active at https://discord.gg/cuZcfcF (CodeWalrus server)

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Fall
« 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 :)
Logged
/e

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55942
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Fall
« 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
Logged
Now active at https://discord.gg/cuZcfcF (CodeWalrus server)

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Fall
« 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)
Logged
/e

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55942
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Fall
« 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
« Last Edit: December 14, 2009, 09:42:06 pm by DJ Omnimaga »
Logged
Now active at https://discord.gg/cuZcfcF (CodeWalrus server)

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Fall
« 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...
Logged
/e

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55942
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Fall
« 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
:3→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...
« Last Edit: December 14, 2009, 10:03:51 pm by DJ Omnimaga »
Logged
Now active at https://discord.gg/cuZcfcF (CodeWalrus server)

Offline Eeems

  • Mr. Dictator
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6265
  • Rating: +318/-36
  • little oof
    • View Profile
    • Eeems
Re: Fall
« Reply #44 on: December 14, 2009, 10:15:49 pm »
Thanks! I'll look through it
lol, you saw that did you? :p
Logged
/e
Pages: 1 2 [3] 4 5   Go Up
« previous next »