Denial

Posted: **Mon Apr 16, 2007 8:47 am**

Macbeth: It is called pedagogisk in Swedish too, so not so much of a foreign word as you might think. Actually, a whole lot of adjectives ending in -ic can be translated straight off with -isk and perhaps different spelling.

Posted: **Mon Apr 16, 2007 12:58 pm**

carlsson wrote:Macbeth: It is called pedagogisk in Swedish too, so not so much of a foreign word as you might think. Actually, a whole lot of adjectives ending in -ic can be translated straight off with -isk and perhaps different spelling.

Okay, not as impressive as I first thought, but still

Posted: **Mon Apr 16, 2007 3:47 pm**

Ok, first stage done. Now one can move the cannon. I'm not sure if that is an improvement or not. I must consider how to improve the collission detection routine; either through a small ML routine or use custom characters. Yes, I think there is a way to speed up the game by using custom characters.

Posted: **Mon Apr 16, 2007 8:31 pm**

I feel like I would rather use any "innovative" ideas I come up with to apply to this program in my own game ideas... If I come up with a really good song, for example, I'd rather save it and put it in my own game, not a remix of Duane's.

Posted: **Tue Apr 17, 2007 12:19 am**

It just struck me how all those magical trigonometry functions may come handy in the super advanced remix version of Killer Comet.

Posted: **Tue Feb 28, 2023 4:37 am**

Hello,

after a lot of years,...
here is my Basic Version of KC. It is faster then the original.

Have fun
Sven

The SpeedTimer can be cleared, of course.

Code: Select all

0 c=7812:dimb(12):l=c:n=36878:o=36877:m=102:p=32:h=160
1 k=8178:q=7746:z1=23:z2=24:z3=25:f=44:f1=45:f2=46:f3=47
2 e=1:e1=2:e2=3:sn=8157:ha=128:el=11:u1=15:a1=81:y=0
3 poke36879,8:printchr$(147)chr$(158):g=1:z=22:i=1:w=2
4 print"*** killer comet  ***":t=0
6 print"    hit any key"
8 poke8179,h
9 poke197,64
10 fora=38444to38905:pokea,i:next
20 fora=1to12:b(a)=m:next
21 ti$="000000":ifw=ythen25
22 poken,u:u=u-w:ifu<=ythenw=y:pokeo,y
25 pokec,p:pokec+e,p:pokec+e1,p:pokec+e2,p:pokec+z,p:pokec+z1,p
27 pokec+z2,p:pokec+z3,p:pokec+f,p:pokec+f1,p:pokec+f2,p:pokec+f3,p
28 c=c+i:pokec,b(e):pokec+e,b(e1):pokec+e1,b(e2):pokec+e2,b(4)
32 pokec+z,b(5):pokec+z1,b(6):pokec+z2,b(7):pokec+z3,b(8)
33 pokec+f,b(9):pokec+f1,b(10):pokec+f2,b(11):pokec+f3,b(12)
36 ifpeek(k)=mthenprint"Sqqqqmoon basedestroyed !":goto500
40 ifpeek(197)<>64thenifag=ytheng=i:s=sn
50 ifg=ythen80
55 pokes,p:s=s-z
60 ifs<qtheng=y:goto21
70 ifpeek(s)=mthenpokes,p:g=y:t=t+i:w=i:pokeo,ha:u=u1:goto80
71 ifpeek(s-i)=mtheng=y:pokes-i,p:t=t+i:w=i:pokeo,ha:u=u1:goto80
75 pokes,a1
80 ift>elthenprint"[cls]qqq***meteor destroyed***":forrr=1to2500:next:l=l+44:c=l:goto4
82 ifpeek(c)=pthenb(e)=p
83 ifpeek(c+e)=pthenb(e1)=p
84 ifpeek(c+e1)=pthenb(e2)=p
85 ifpeek(c+e2)=pthenb(4)=p
86 ifpeek(c+z)=pthenb(5)=p
87 ifpeek(c+z1)=pthenb(6)=p
88 ifpeek(c+z2)=pthenb(7)=p
89 ifpeek(c+z3)=pthenb(8)=p
90 ifpeek(c+f)=pthenb(9)=p
91 ifpeek(c+f1)=pthenb(10)=p
92 ifpeek(c+f2)=pthenb(11)=p
93 ifpeek(c+f3)=pthenb(12)=p
95 printchr$(19)chr$(28):printti:goto21
500 pokeo,133
505 poken,5:forrr=1to300:next
510 fora=15to0step-1:poken,a
520 forrr=1to500:next:next
540 forrr=1to2000:next:run

Posted: **Tue Feb 28, 2023 10:33 am**

Hi, Sven,

first of all, welcome to Denial!

The original implementation of KILLER COMET as found in the User's Manual is surely a candidate for optimization. The main criticism however is not the slow speed per se, but rather the way how the meteor is drawn. As I wrote in my VICMON primer, the meteor is first erased and then re-drawn from a list of 'still active' positions. At the speed of BASIC, this method always remains visible, even if you somewhat speed it up by unrolling the two FOR loops concerned.

Machine code would be fast enough to retain the original method, however instead of erase-and-draw I opted to make this a draw-only method, with an empty column added to the left of the meteor which nearly halves the computational effort and shortens the code A LOT. This method effectively eliminates all flicker and would even be feasible to be "back-ported" to BASIC.

Please note: I edited your post in this thread here, and in the other threads you posted today to put the code into code tags. Not only does this retain any eventual indentation in the source, but it also keeps those code sections at a manageable screen estate (~10 text lines). You can put code sections into those code tags by marking them in the editor box, and clicking the "</>" button above the editor box. Additional, you might consider using the forum attachment feature, both for longer source codes and for executable (*.zip-ped) program files or disk images.

Greetings,

Michael

Posted: **Wed Mar 01, 2023 2:44 am**

Hi Michael,

thanks a lot for this explanation. That will help.
I wondered why i can not share my GUMBALL code with Marco in a nother post.

Thanks again for the warm welcome.

Best regards
Sven

Posted: **Sat Mar 04, 2023 10:42 pm**

Welcome, Sven!

Posted: **Sun Mar 05, 2023 12:57 pm**

Thanks a lot Jeff.

And a thousand thanks for this forum. Just great and helpful.

Denial

Duane Later Honorary Remix Compo?

Re: Duane Later Honorary Remix Compo?

Re: Duane Later Honorary Remix Compo?

Re: Duane Later Honorary Remix Compo?

Re: Duane Later Honorary Remix Compo?

Re: Duane Later Honorary Remix Compo?