Author Topic: Silly things you did as a noob (Read 19686 times)

shmibs · « **Reply #30 on:** July 17, 2010, 03:40:03 pm »

my first serious prog was an incredibly massive, ye cannot get ye flask style text based adventure with an obcene number of goto's and lbl's. it was structured something like this:

lbl a
clrhome
disp "room introductory text here (i.e. "you find yourself standing in a barren field"
input str1
check here if str1="go n","go s" etc...
goto lbl depending on which command was typed
call err prgm ("no hablo stupid" or another err command randomly displayed
lbls for in room actions (i.e. get ye flask
goto a
lbl prgm (for move between room commands(i.e. go n

in this way i ended up having a game that was 100+k with seperate programs for every single room (i used zarchive for swapping which set was in RAM) that had more err mem's than even a nub has excuses for. i still really liked how it turned out, though, and it made me sad when my brother clrd my memory while screwing around with stuff

EDIT: i did the all on one line thing too because (i think, but i tested this forever ago and havent looked into it) lbl goto statements only check the beginnings and ends of lines and so it only has to search 6 or 8 spots in the program instead of twice for every line, speeding things up so you can get that memory error much more quickly

. the habit stuck and i got so used to reading it that way that now i have trouble understanding clean-cut coding(my problems with short term memory also probably apply here; i have to have as much code on the tiny screen as possible or i'll forget where i am

Eeems · « **Reply #31 on:** July 17, 2010, 03:49:51 pm »

I had the same issue with typing out the commands, but I figured it out pretty quick. I also made tonns of memory leaks...
I remember I made a few changes to someones program and uploaded it to ticalc

I did at least tell people what I had changed it from...hmm, speaking of which, how do you delete files on ticalc? I've been meaning to get rid of it for a long while....

FinaleTI · « **Reply #32 on:** July 17, 2010, 05:16:37 pm »

You made this: http://www.ticalc.org/archives/files/fileinfo/412/41215.html

It makes me so sad. I was such a noob, all the different areas have their own copies of the RPG Starter Kit (Meaning their own map set, movement engine and event program). This could have easily been astronomically smaller. It also might have helped if I'd actually beaten FF4 before I tried to make a sequel.

miotatsu · « **Reply #33 on:** July 17, 2010, 05:47:36 pm »

my first program:

Code: [Select]

::"FIREWORKS
:getKey
:ClrHome
:4→X
:8→Y
:4→Z
:Lbl A
:Output(1,1,"::::FIREWORK::::"
:Output(2,5,"{-}{-}{-}{-}{-}{-}{-}{-}"
:Output(4,5,"EXPLODE!"
:Output(5,5,"QUIT"
:Output(8,1,"................"
:Output(Z,4,"["
:Output(Z,13,"]"
:While 1
:getKey→B
:While B=0
:getKey→B
:End
:If B=25
:Goto UP
:If B=34
:Goto DN
:If B=105
:Goto EN
:If B=45
:Goto X
:If B≠25 or 34 or 105 or 45
:Goto A
:Lbl UP
:Output(Z,4," "
:Output(Z,13," "
:Z-1→Z
:If Z=3
:5→Z
:Goto A
:Lbl DN
:Output(Z,4," "
:Output(Z,13," "
:Z+1→Z
:If Z=6
:4→Z
:Goto A
:Lbl EN
:If Z=4
:Goto EX
:If Z=5
:Goto X
:End
:Lbl EX
:ClrHome
:For(A,0,100
:Output(X,Y,"{box}
:End
:8→V
:Lbl PI
:getKey
:Output(8,V,"π"
:While 1
:getKey→B
:While B=0
:getKey→B
:End
:If B=24
:Goto LT
:If B=26
:Goto RT
:If B=105
:Goto ST
:If B≠24 or 35 or 105
:Goto PI
:End
:Lbl LT
:Output(8,V," "
:V-1→V
:If V=1
:2→V
:Goto PI
:End
:Lbl RT
:Output(8,V," "
:V+1→V
:If V=16
:15→V
:Goto PI
:End
:Lbl ST
:If V=8
:Goto BO
:If V≠8
:For(A,0,20
:Output(7,V,"º
:End
:For(A,0,20
:Output(6,V,"º
:Output(7,V," 
:End
:For(A,0,20
:Output(5,V,"º
:Output(6,V," 
:End
:For(A,0,20
:Output(4,V,"º
:Output(5,V," 
:End
:For(A,0,20
:Output(3,V,"º
:Output(4,V," 
:End
:For(A,0,20
:Output(2,V,"º
:Output(3,V," 
:End
:For(A,0,20
:Output(1,V,"º
:Output(2,V," 
:End
:For(A,0,20
:Output(1,V," 
:End
:ClrHome
:Output(1,1,"
:Return
:Lbl BO
:For(A,0,20
:Output(7,8,"º
:End
:For(A,0,20
:Output(6,8,"º
:Output(7,8," 
:End
:For(A,0,20
:Output(5,8,"º
:Output(6,8," 
:End
:For(A,0,5
:Output(5,8," 
:Output(4,8," 
:Output(3,7,"*
:Output(5,9,"*
:Output(5,7,"*
:Output(3,9,"*
:End
:ClrHome
:For(A,0,5
:Output(8,V,"π
:Output(2,6,"*
:Output(6,10,"*
:Output(6,6,"*
:Output(2,10,"*
:Output(1,8,"*
:Output(4,5,"*
:Output(4,11,"*
:End
:ClrHome
:For(A,0,5
:Output(8,V,"π
:Output(3,5,"*
:Output(7,9,"*
:Output(7,7,"*
:Output(1,9,"*
:Output(2,7,"*
:Output(5,4,"*
:Output(5,12,"*
:End
:ClrHome
:For(A,0,5
:Output(8,V,"π
:Output(4,7,"*
:Output(8,8,"*
:Output(8,6,"*
:Output(2,10,"*
:Output(3,8,"*
:Output(6,5,"*
:Output(6,11,"*
:End
:ClrHome
:For(A,0,5
:Output(8,V,"π
:Output(5,8,"*
:Output(3,9,"*
:Output(4,9,"*
:Output(7,4,"*
:Output(7,6,"*
:End
:ClrHome
:For(A,0,5
:Output(8,V,"π
:Output(6,9,"*
:Output(4,8,"*
:Output(5,10,"*
:Output(8,3,"*
:Output(8,9,"*
:End
:ClrHome
:For(A,0,5
:Output(8,V,"π
:Output(7,8,"*
:Output(5,9,"*
:Output(6,9,"*
:End
:ClrHome
:For(A,0,5
:Output(8,V,"π
:Output(8,9,"*
:Output(6,8,"*
:Output(7,10,"*
:End
:ClrHome
:For(A,0,5
:Output(8,V,"π
:Output(7,9,"*
:Output(8,11,"*
:End
:ClrHome
:For(A,0,9
:Output(8,V,"π
:Output(8,8,"*
:End
:For(A,0,10
:Output(8,8," 
:End
:Return
:Lbl X
:ClrHome
:Output(1,1,"
:
Generated by SourceCoder (http://sc.cemetech.net)
© 2005-2010 Cemetech (http://www.cemetech.net)

DJ Omnimaga · « **Reply #34 on:** July 18, 2010, 12:06:12 am »

Quote from: FinaleTI on July 17, 2010, 05:16:37 pm

You made this: http://www.ticalc.org/archives/files/fileinfo/412/41215.html

It makes me so sad. I was such a noob, all the different areas have their own copies of the RPG Starter Kit (Meaning their own map set, movement engine and event program). This could have easily been astronomically smaller. It also might have helped if I'd actually beaten FF4 before I tried to make a sequel.

Mhmm I have been actually meaning to try this back then. For some reasons, I never did, though. I might give it a try at one point anyway, though, just out of curiosity.

quasi_Phthalo · « **Reply #35 on:** July 18, 2010, 03:20:26 pm »

I once wrote a game that had to make the whole screen black as a background everytime it started up, like this:

Code: [Select]

For(A,1,95)
For(B,1,63)
Pxl-On(B,A)
End
End

that took FOREVER
then i discovered you could just tinker with the window settings and use Line( 63 times. Much faster!

EDIT: (note that I also used to use closing parentheses

shmibs · « **Reply #36 on:** July 18, 2010, 03:24:17 pm »

/\or you can just use the Horizontal command/\

quasi_Phthalo · « **Reply #37 on:** July 18, 2010, 03:29:20 pm »

Quote from: shmibs on July 18, 2010, 03:24:17 pm

/\or you can just use the Horizontal command/\

dang, i'm still a noob!

Snake X · « **Reply #38 on:** July 18, 2010, 04:43:00 pm »

I just used for loops for line coordinate variables, it will fill up in maybe a second at most.

when I was a noob, I didn't know what the Garbage collect was... yeah.....

Silver Shadow · « **Reply #39 on:** July 18, 2010, 05:29:56 pm »

Congratz for that Garbage Collect!

Netham45 · « **Reply #40 on:** July 18, 2010, 05:37:02 pm »

I wrote a 17k program that inverted the screen.

Still on ticalc, if anyone wants to find it.

DJ Omnimaga · « **Reply #41 on:** July 18, 2010, 07:54:26 pm »

The funny thing, though, is that it's the fastest TI-BASIC program that does that on ticalc

As for Garbage Collect, it used to scare me before. The first time it appeared, I thought if I said Yes it would clear my entire memory.

They should have called it Reorganize Memory like when the Francais APP is installed...

miotatsu · « **Reply #42 on:** July 18, 2010, 08:03:39 pm »

easiest full black screen in basic:
1. draw a full black screen
2. store it in a pic
3. recall the pic
4.

5. PROFIT!

DJ Omnimaga · « **Reply #43 on:** July 18, 2010, 08:26:31 pm »

Then you wasted 767 bytes of RAM (and an entire pic)

Deep Toaster · « **Reply #44 on:** July 18, 2010, 09:57:24 pm »

Quote from: Netham45 on July 18, 2010, 05:37:02 pm

I wrote a 17k program that inverted the screen.

Still on ticalc, if anyone wants to find it.

Can't find it

What's your ticalc name?

Found Kerm's version of Shade(, though

Author Topic: Silly things you did as a noob (Read 19686 times)

shmibs

Re: Silly things you did as a noob

Eeems

Re: Silly things you did as a noob

FinaleTI

Re: Silly things you did as a noob

miotatsu

Re: Silly things you did as a noob

DJ Omnimaga

Re: Silly things you did as a noob

quasi_Phthalo

Re: Silly things you did as a noob

shmibs

Re: Silly things you did as a noob

quasi_Phthalo

Re: Silly things you did as a noob

Snake X

Re: Silly things you did as a noob

Silver Shadow

Re: Silly things you did as a noob

Netham45

Re: Silly things you did as a noob

DJ Omnimaga

Re: Silly things you did as a noob

miotatsu

Re: Silly things you did as a noob

DJ Omnimaga

Re: Silly things you did as a noob

Deep Toaster

Re: Silly things you did as a noob