Xmas fireworks

[daydreamer]

Fixed point fireworks?

Code Select Expand

X dd screenwidth /2
Y dd screenheight
Height dd screenheight - centre
Xdelta dd
Ydelta dd
Xacc dd
Yacc dd 9.81
Init proc
Mov xdelta, rnd
Mov Xacc,rnd
Paint proc
Mov eax,x
Sal eax,16
Mov ebx,y
Sal ebx,16
Drawiconex fire icon,eax,ebx,xsize,ysize

Fireworks proc
Mov ecx,height
.If ecx ==0 call spawn ret
Mov eax,x
Mov ebx,y
Mov edx, xdelta
Mov edi,ydelta
Add eax,edx
Add ebx,edi
Add edx,Xacc
Add edi,Yacc
Mov x,eax
Mov y,ebx
Mov xdelta, edx
Mov ydelta, edi
Dec height ; countdown to when explode / spawn
.if height == 0 call spawn ret

Ret
Fireworks enpd



[daydreamer]

64 bit Fixed point fireworks
Code
X dq screenwidth /2
Y dq screenheight
Height dq screenheight - centre
Xdelta dq
Ydelta dq
Xacc dq
Yacc dq 9.81
Init proc
Mov xdelta, rnd
Mov Xacc,rnd
Paint proc
Mov rax,x
Sal rax,32
Mov rbx,y
Sal rbx,32
Drawiconex fire icon,rax,rbx,xsize,ysize

Fireworks proc
Mov ecx,height
.If ecx ==0 call spawn ret
Mov rax,x
Mov rbx,y
Mov rdx, xdelta
Mov rdi,ydelta
Adq rax,rdx
Adq rbx,rdi
Adq rdx,Xacc
Adq rdi,Yacc
Mov x,rax
Mov y,rbx
Mov xdelta, rdx
Mov ydelta, rdi
Dec height ; countdown to when explode / spawn
.if height == 0 call spawn ret

Ret
Fireworks enpd