Join us on Discord!
You can help CodeWalrus stay online by donating here.
Menu

Show posts

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.

Show posts Menu

Topics - gogogoluke

#1
Personally, I favor the LLoNBaD v1.1.

[spoiler]The Luke License of Not Being a c v1.1:
You must not sell this intellectual property or take credit for it, and you must credit the original creator. Otherwise have fun.[/spoiler]
#2
I was porting some code to my new HP Prime, but I ran into a problem. I cannot find an alternative to the code "B》dim(LZ)", as it produces the error "Invalid input". What is a good alternative to setting the size of a list (or matrix) from a variable?

Entire TI-BASIC code (For context, nobody port this for me):
[spoiler]C-1》C

Prompt B

B》dim (LZ)

B》dim (LPOKE)

Prompt B

If B=1

Then

Prompt B

Fill (B, LPOKE

Fill (1, LZ)

0》C

End

dim (LPOKE》B

While 1

Lbl 0

[[1,0,3,1][4,3,10,4] [15,10,5,0][12,11,15,10][20,11,10,8][17,16,17,4][20,15,20,19]]》[B]

C+1》C

If C=B+1

1》C

If LZ(C)=2

Then

iPart (rand×4》D

If D≠0

Then

1》LZ(C)

Disp "GET UP"

Disp C

End

Goto 0

End

Pause

ClrHome

0》H

If LPOKE(C)≤0

Goto 0

While H<B and B≤14

H+1》H

Disp LPOKE(H)

If B<7 and LZ(H)=2

Output(H,12,"F

End

0》H

While H<B-7 and B≤14 and B>7

H+1》H

Output(H,1,LPOKE(H)

If LZ(H)=2

Output(H,5,"F

End

Output(5,8,C

If B>7 and B≤14

B-7》H

While H<B

H+1》H

If LZ(H)=2

Output(H-B+7,12,"F

End

C》D

While D=C or LPOKE(D)≤0

Prompt D

End

ClrHome

If LZ(D)=1

Disp "STANDING"

If LZ(D)=2

Disp "FALLEN"

Pause

ClrHome

Disp "1:POKE"

Disp "2:JAB POKE

Disp "3:FOOT POKE"

Disp "4:POWER POKE"

Disp "5:SOLE POKE"

Disp "6:SHANK POKE"

Disp "7:FALCON POKE:

0》A

While A<7

0》H

A+1》A

While H<2

H+1》H

Output(A,11+2H,[B](A,H+2(LZ(D)-1))

End

End

Prompt E

iPart(rand*20+1》F

Disp F

0》G

If [B](E,2LZ(D))≥F

-1》G

If [B](E,2LZ(D)-1)≤F

1》G

If G=-1

Then

Disp "FALLEN"

2》LZ(C)

End

If G≤0

Goto 0

[[6,0][6,3][6,5][8,10][10,8][60,0][30,40]]》[B]

Disp "SUCCESS"

Disp "DAMAGE:"

iPart(rand*[B](E,1))+[B](E,2)+1》H

LPOKE(D)-H》LPOKE(D)

Disp H

Pause

Goto 0
[/spoiler]
Powered by EzPortal