• Profile Info
  • Summary
  • Show Stats
  • Show Posts...
    • Messages
    • Topics
    • Attachments

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

3438

Axe / Re: Collision Detection in Axe?

« on: April 07, 2011, 07:09:17 am »

I did that to save space

3439

Axe / Re: Collision Detection in Axe?

« on: April 06, 2011, 08:25:44 pm »

Well, I still couldn't figure out where to put collision detection
So imma post mah code here hoping someone can help me...
I deleted mah cd try because it didnt work XP

Spoiler For ASHMUP:

Code: (ASHMUP) [Select]

:.MSLUGSKY
:prgmASHMUPD
:prgmASHMUPI
:Repeat getKey(15)
:C+1→C
:prgmASHMUPK
:prgmASHMUPM
:ClrDraw
:prgmASHMUPB
:
:If F
:rand^3→G
:End
:
:If rand<4096
:sub(PE,88,rand^8*8,rand^2+1,0
:End
:
:If B
:For(I,1,B
:Pt-On({I*4+L4-2→J},G-1+{J+1},8*D+Pic0)
:End
:End
:
:If L
:For(I,1,L
:If {{I*4+L1-4→J}-{J+2}→{J}}≤0
:Goto RM
:End
:If {{J+1}+{J+3}→{J+1}}≥64
:Lbl RM
:sub(RE,I-1→I
:End
:End
:End
:Pt-Change(X,Y,GDB0
:sub(DA
:DispGraph
:sub(DA
:End
:prgmASHMUPR

Spoiler For ASHMUPB:

Code: [Select]

:..BG
:Pt-Change(‾3*C+96,5,Pic1
:Pt-Change(‾3*C+96+8,5,Pic1+8
:Pt-Change(‾3*C+130,15,Pic1
:Pt-Change(‾3*C+130+8,15,Pic1+8
:Pt-Change(‾3*C+180,38,Pic1
:Pt-Change(‾3*C+180+8,38,Pic1+8
:Pt-Change(‾3*C+70,35,Pic1
:Pt-Change(‾3*C+70+8,35,Pic1+8
:Pt-Change(‾3*C+5,42,Pic1
:Pt-Change(‾3*C+5+8,42,Pic1+8
:

Spoiler For ASHMUPD:

Code: [Select]

:..DATA
:[000004181FFC8000→GDB0
:[00003C0000000000→Pic0
:[0000FF0000000000
:[00FFA1FF00000000
:[FFFFFFFFFFFFFFFF
:[0036498080493600→Pic1
:[006C920101926C00
:[0070ADE39D7E0000→Pic3
:[F82070AFCE7050F8


Spoiler For ASHMUPI:

Code: [Select]

:..INIT
:44→X
:40→Y
:0→B→D→G→L
:15→E
:3→H


Spoiler For ASHMUPK:

Code: [Select]

:..KEYS
:If getKey(1) and (Y≠56
:Y+2→Y
:End
:If getKey(2) and (X≠0
:X-2→X
:End
:If getKey(3) and (X≠88
:X+2→X
:End
:If getKey(4) and (Y≠0
:Y-2→Y
:End
:If getKey(54)
:!If C^E
:sub(ASB,D+1,H,X+1,Y+2)
:End
:End
:If getKey(34)
:15→E
:0→D
:0→F
:3→H
:End
:If getKey(26)
:6→E
:1→D
:1→F
:4→H
:End
:If getKey(18)
:25→E
:2→D
:0→F
:4→H
:End
:If getKey(35)
:1→E
:3→D
:0→F
:8→H
:End

Spoiler For ASHMUPM:

Code: [Select]

:..MOVEMENT
:If B
:For(I,1,B
:If {{I*4+L4-2→J}+{J-1}→{J}}>127
:sub(RSB,I-1→I)
:End
:End
:End

Spoiler For ASHMUPR:

Code: [Select]

:..ROUTINES
:Lbl ASB
:If B<80
:r4→{r3→{r2→{r1→{B+1→B*4+L4-4}+1}+1}+1}
:End
:Return
:Lbl RSB
:conj(r1*4+L4+4,-4,B-1→B-r1*4+1)
:Return
:Lbl DA
:If L
:For(I,1,L
:Pt-Change({I*4+L1-4→J},{J+1},Pic3
:End
:End
:Return
:Lbl PE
:If L<176
:r4→{r3→{r2→{r1→{L+1→L*4+L1-4}+1}+1}+1}
:End
:Return
:Lbl RE
:conj(r1*4+L1+4,-4,L-1→L-r1*4+1)
:Return

Maybe Screenie too jic.

3443

Humour and Jokes / Re: Engrish

« on: April 06, 2011, 06:02:30 pm »

the phrase "I am god" never change
I think it's kinda hard to find a sentence that will keep the same shape.

EDIT: this is funny

Spoiler For Yeongjin is korean so he is cool.:

Yeongjin oil

3444

TI Z80 / Re: Axe GUI Library

« on: April 06, 2011, 11:16:43 am »

Looks pretty good!
Looks like DCS7 cursor thingy

3447

Computer Projects and Ideas / Re: Kodu Game Lab Games

« on: April 06, 2011, 07:10:29 am »

Well, im not officially working on it so...
well, sorry adamac if it bothered you.

3448

Art / Re: What I look like

« on: April 06, 2011, 07:06:49 am »