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.
Messages - Batprime11
Pages: [1]
1
« on: September 03, 2022, 09:41:13 pm »
Sorry but I disagree. Omnimaga is still the oldest and the best platform to exchange programming experiences  .
Please do keep posting here!
Sure, but he doesn't upload the files here as much as the discord.
2
« on: August 29, 2022, 10:57:57 pm »
Join the discord. It's much more updated. The link is in his post.
3
« on: August 13, 2022, 08:03:33 pm »
Nice! Your songs are always great! And nice merch.
4
« on: August 06, 2022, 08:46:53 pm »
Sorry, I can't pull up my current file right now, because TokenIDE isn't working, but I commented the file up there.
.DINO
...
B=(In menus)Cursor location (In game)Dino location (/256)
Q=Random space between cacti (Offset from Z)
Z=Minimum space between cacti
...
#Icon(007E00FF00DF00FF00F000FE81F883F8C7FEFFFAFFF83FF00FE0066004400660)
40→Q→Z
Pic1DINO1→N
Goto MENU
...
8x8 sprite stacking routine I made
Takes 5 arguments: Width, height, X, Y, Pointer to start of sprite data.
...
prgmTILESPRT
Lbl TXXT
Text(20→B*256+3)
Text r₁
Text(6659)
Text r₂
Text(8195)
Text r₃
Return
Lbl PAUSE
For(35565)
End
Return
.First animation of the running dino
[0000000000004143]→Pic1DINO1
[7EFFDFFFFFF0FCE0]
[677F7F3F1F0C080C]
[E0F8E8C080C00000]
.Second animation of the running dino
[0000000000004143]→Pic1DINO2
[7EFFDFFFFFF0FCE0]
[677F7F3F1F080C00]
[E0F8E8C0C0C080C0]
.Cactus sprites
[001858D8D8DADBDB]→Pic1CACT1
[DB7E3C1818181818]
Lbl OPTN
ClrDraw
PAUSE()
TXXT("Min Dist","Min Offset","Back")
Text(40*256)
Text "Ducking coming soon!
IRect(3,20,32)
Text(20*256+33)
Text Z►Dec
Text(26*256+35)
Text Q►Dec
DispGraph
While 1
.If the cursor is at the right place and the left arrow key is pressed
If B=26 and getKey(2)
Text(26*256+35
.If the random distance is greater than 1, if so, decrease the random distance
Text max(Q-1,1)→Q►Dec
PAUSE()
End
If B=26 and getKey(3)
Text(26*256+35
Text min(Q+1,65534)→Q►Dec
PAUSE()
End
.If the minimum distance is greater than 1, if so, decrease the minimum distance
If B=20 and getKey(2)
Text(20*256+33)
Text max(Z-1,1)→Z►Dec
PAUSE()
End
If B=20 and getKey(3)
Text(20*256+33)
Text min(Z+1,65534)→Z►Dec
PAUSE()
End
.Go to the menu if [clear] or back is pressed
If getKey(15) or (B=32 and getKey(54))
Pause 400
Goto MENU
End
If getKey(4)
3Asm(E5)
IRect(,B,30,6)
Asm(E1)
IRect(,max(B-6,20)→B,30,6)
PAUSE()
End
If getKey(1)
3Asm(E5)
IRect(,B,30,6)
Asm(E1)
IRect(,min(B+6,32)→B,30,6)
PAUSE()
End
DispGraph
End
Lbl MENU
ClrDraw
Fix 5
RectI(0,16,*2+1,26)
RectI(1→D,17,31,24)
TXXT("PLAY!","OPTIONS","QUIT")
IRect(3,20,27,7)
While 1
If getKey(4)
3Asm(E5)
IRect(,B,27,7)
Asm(E1)
IRect(,max(B-6,20)→B,27,7)
D++
PAUSE()
End
If getKey(1)
3Asm(E5)
IRect(,B,27,7)
Asm(E1)
IRect(,min(B+6,32)→B,27,7)
D--
PAUSE()
End
DispGraph
.Quit if [clear] is pressed
If getKey(15)
Goto QQ
End
EndIf getKey(54)
.Checks cursor location for where to go
!If B-32
Lbl QQ
Fix 4
Return
End
!If B-26
Goto OPTN
End
Lbl MLOOP
ClrDraw
.I is a counter so I don't get bold cacti
1→I
.Dino location
47*256→B
.btw C=B/256
...
D=Velocity
E=Gravity strength
F=Dino animation counter
H=Cactus distance (rand^randomDistance+minimumDistance→H
...
15→F→D-2→E→H
.The screen scrolling seems to be smoother with this
#ExprOn
While 1
RectI(0,63,95,1)
RectI(31,23,65,1)
RectI(31,0,+1,22)
!If H--
.Create cactus on the cut top screen
Rect(90,0,+2,23)
.New cactus distance
rand^Q+Z→H
End
.Tests if the top screen's cactus has hit a certain part, if so, make a cactus. (btw pxl-Test(31,22))
If I++ and {22*12+L₆+3}ʳ[e]7
.Makes a cactus 1 tile wide and 2 tiles high
TS(,+1,88,47,Pic1CACT1)
.Makes it so that the cactus won't be bold
⁻3→I
End
Lbl JUMP
.If the dino isn't on the ground or the dino is jumping, apply acceleration
If C-47 or (D<<0)
D+E→D+B→B
End
.If the dino is under ground, take away all velocity, put the gravity back to normal, and put the dino on the ground
If C>47
-1→D
12→E
12032→B
.If the dino is on the ground, put the gravity back to normal
Else!If C-47
12→E
End
.If the dino is on the ground, and up is pressed, add an upwards force to the dino's position
If C≥47 and getKey(4)
⁻350→D
End
.If down is pressed, increase the gravity
If getKey(1)
50→E
End
.Animation changer
DS<(F,20)
.I realized this later and fixed it, I just forgot to update the code
If Pic1DINO1-N
Pic1DINO1→N
Else
Pic1DINO2→N
End
End
.Draw dino
2Asm(E5)
TS(,,-2,C,N)
DispGraph
Asm(E1)
.Undraw everything
TS(,,-2,C,N)
RectI(0,63,95,1)
RectI(31,23,65,1)
WRect(31,0,+1,21)
Horizontal-
B/256→C
EndIf pxl-Test(15,C+4) or pxl-Test(8,*2+C) or pxl-Test(4,C+16) or getKey(15)
Goto MENU
5
« on: July 31, 2022, 06:22:29 pm »
I have been working on a Chrome dino clone (chrome://dino) for a while now. Now I have optimized to the best of my capabilities  , and am wondering if there are any optimizations that I am missing. I will take anything, even if it is one byte smaller. I am optimizing for size mostly, but any speed optimizations would also be welcome. .DINO
#Icon(007E00FF00DF00FF00F000FE81F883F8C7FEFFFAFFF83FF00FE0066004400660)
41→Q→Z
Pic1DINO1→N
.ANIM 1
Goto MENU
prgmTILESPRT
Lbl TXXT
Text(20→B*256+3
Text r₁
Text(6659
Text r₂
Text(8195
Text r₃
Return
Lbl PAUSE
For(35565)
End
Return
[0000000000004143→Pic1DINO1
[7EFFDFFFFFF0FCE0
[677F7F3F1F0C080C
[E0F8E8C080C00000
.ANIM 2
[0000000000004143→Pic1DINO2
[7EFFDFFFFFF0FCE0
[677F7F3F1F080C00
[E0F8E8C0C0C080C0
.CACTUS
[001858D8D8DADBDB→Pic1CACT1
[DB7E3C1818181818
Lbl OPTN
ClrDraw
PAUSE()
TXXT("Min Dist","Min Offset","Back"
Text(40*256)
Text "Ducking coming soon!
IRect(3,20,32,6
Text(20*256+33
Text Z►Dec
Text(26*256+35
Text Q►Dec
DispGraph
While 1
If B=26 and getKey(2)
Text(26*256+35
Text max(Q-1,1)→Q►Dec
PAUSE()
End
If B=26 and getKey(3)
Text(26*256+35
Text min(Q+1,65534)→Q►Dec
PAUSE()
End
If B=20 and getKey(2)
Text(20*256+33
Text max(Z-1,1)→Z►Dec
PAUSE()
End
If B=20 and getKey(3)
Text(20*256+33
Text min(Z+1,65534)→Z►Dec
PAUSE()
End
If getKey(15) or (B=32 and getKey(54))
Pause 400
Goto MENU
End
If getKey(4)
3
Asm(E5
IRect(,B,30,6
Asm(E1
IRect(,max(B-6,20)→B,30,6
PAUSE()
End
If getKey(1)
3
Asm(E5
IRect(,B,30,6
Asm(E1
IRect(,min(B+6,32)→B,30,6
PAUSE()
End
DispGraph
End
Lbl MENU
ClrDraw
Fix 5
RectI(0,16,*2+1,26
RectI(1→D,17,31,24
TXXT("PLAY!","OPTIONS","QUIT")
IRect(3,20,27,7
While 1
If getKey(4)
3
Asm(E5
IRect(,B,27,7
Asm(E1
IRect(,max(B-6,20)→B,27,7
D++
PAUSE()
End
If getKey(1)
3
Asm(E5
IRect(,B,27,7
Asm(E1
IRect(,min(B+6,32)→B,27,7
D--
PAUSE()
End
DispGraph
If getKey(15)
Fix 4
Return
End
EndIf getKey(54)
!If B-32
Fix 4
Return
End
!If B-26
Goto OPTN
End
Lbl MLOOP
ClrDraw
196→I
47*256→C→B→A
15→F→D→J-2→E→H
#ExprOn
While 1
RectI(0,63,95,1
RectI(31,23,65,1
RectI(31,0,+1,22
!If H--
Rect(90,0,+2,23
rand^Q+Z→H
End
If I++ and {22*12+L₆+3}ʳ[e]7
TS(,+1,88,47,Pic1CACT1
⁻3→I
End
Lbl JUMP
If C-47 or (D<<0)
D+E→D+B→B
End
If C>47
-1→D
12→E
12032→B
Else!If C-47
12→E
End
If C≥47 and getKey(4)
⁻350→D
End
If getKey(1)
50→E
End
DS<(F,20)
If Pic1DINO1=N
Pic1DINO2→N
Else
Pic1DINO1→N
End
End
2
Asm(E5
TS(,,-2,C,N)
DispGraph
Asm(E1
TS(,,-2,C,N)
RectI(0,63,95,1)
RectI(31,23,65,1)
WRect(31,0,+1,21)
Horizontal-
B/256→C
EndIf pxl-Test(15,C+4) or pxl-Test(8,*2+C) or pxl-Test(4,C+16) or getKey(15)
Goto MENU
6
« on: November 20, 2021, 07:26:26 am »
Could you add support for TASM commands? It seems like that's the only program for calculator programming people with bother writing tutorials about! By the way Great Program!!  
Pages: [1]
|
Show Posts