08-08-2024, 11:55 AM
Hi,
I made Chilly Will for the Microbee and was wondering if anyone has a copy of the chilly.mwb file? I was thinking of porting it over to Godot as a fun little one-to-one recreation (but with smoother movement :-) ) as a freebie for the 40th anniversary to put on itch.io.
I have the harry.mwb file for Halloween Harry which includes line numbers and is easy to read. I tried extracting the Chilly Willy BASIC code from the Arcade Disk image but it's has ascii tokens instead of BASIC commands, so is a bit harder to work with - but I could probably use this if I had to.
For reference the harry.mwb file looks like this.
46 K=0:if peek(A+63)=226 and P=1:K=-1
47 if peek(A+63)=227 and P=26:K=1
48 if K=0 then return
49 for I=1 to 20:poke A,160:poke A+1,160:poke A+64,160:poke A+65,160:A=A+(K*64):Y=Y+K:poke A,B:poke A+1,B+1:poke A+64,224:poke A+65,225:for J=1 to 30:next J
50 if peek(A+63)=226 or peek(A+63)=227:B=201:poke A,B:poke A+1,B+1:poke A+64,224:poke A+65,225:next *I 161
51 next I
52 if peek(A+127)=160:poke A,160:poke A+1,160:A=A+64:Y=Y+1:return
53 for I=1 to 10:poke A,160:poke A+1,160:Y=Y+1:A=61440+X+(64*Y):B=203:poke A,B:poke A+1,B+1:for J=1 to 30:next J:if peek(A+64)<>160 and peek(A+64)<>N:next *I 161
54 next I
Thanks in advance!
John
I made Chilly Will for the Microbee and was wondering if anyone has a copy of the chilly.mwb file? I was thinking of porting it over to Godot as a fun little one-to-one recreation (but with smoother movement :-) ) as a freebie for the 40th anniversary to put on itch.io.
I have the harry.mwb file for Halloween Harry which includes line numbers and is easy to read. I tried extracting the Chilly Willy BASIC code from the Arcade Disk image but it's has ascii tokens instead of BASIC commands, so is a bit harder to work with - but I could probably use this if I had to.
For reference the harry.mwb file looks like this.
46 K=0:if peek(A+63)=226 and P=1:K=-1
47 if peek(A+63)=227 and P=26:K=1
48 if K=0 then return
49 for I=1 to 20:poke A,160:poke A+1,160:poke A+64,160:poke A+65,160:A=A+(K*64):Y=Y+K:poke A,B:poke A+1,B+1:poke A+64,224:poke A+65,225:for J=1 to 30:next J
50 if peek(A+63)=226 or peek(A+63)=227:B=201:poke A,B:poke A+1,B+1:poke A+64,224:poke A+65,225:next *I 161
51 next I
52 if peek(A+127)=160:poke A,160:poke A+1,160:A=A+64:Y=Y+1:return
53 for I=1 to 10:poke A,160:poke A+1,160:Y=Y+1:A=61440+X+(64*Y):B=203:poke A,B:poke A+1,B+1:for J=1 to 30:next J:if peek(A+64)<>160 and peek(A+64)<>N:next *I 161
54 next I
Thanks in advance!
John