IF xco>=germx(blow)-32 AND xco<=germx(blow)+32 AND yco>=germy(blow)-32 AND yco<=germy(blow)+32 AND paste>=0:germexist(blow)=FALSE:germx(blow)=0:germy(blow)=0:score+=20:NEXT:REMOSCLI"Splay_kill1a":
print_teeth
z=1
&2E,spop%+256,area%,"ttooth"+
(decay(z)),tx(z),ty(z),8,scale%,0
&2E,spop%+256,area%,"btooth"+
(decay(z+8)),tx(z+8),ty(z+8),8,scale%,0
whatgerm=
(germs)
germexist(whatgerm)=
exist(whatgerm)=
germexist(whatgerm)=
germtype=
germtype
1:g$(whatgerm)="germa"
2:g$(whatgerm)="germb"
3:g$(whatgerm)="germa"
4:g$(whatgerm)="germd"
5:g$(whatgerm)="germe"
6:g$(whatgerm)="germf"
7:g$(whatgerm)="germg"
8:g$(whatgerm)="germg"
%germx(whatgerm)=germpox(whatgerm)
%germy(whatgerm)=germpoy(whatgerm)
count(whatgerm)+=1
loopy=
print_germs
m=1
germs
germexist(m):
plot(g$(m)+
(frame),germx(m),germy(m),8)
germexist(m)
exist(m)=
:count(m)+=1
update_teeth
n=1
teeth
exist(n)
decay(n)<=3
count(n)>=50:decay(n)+=1:count(n)=0:score-=1
germexist(n)
count(n)=0
n>=1
n<=8
germy(n)+=16:germpoy(n)+=16
n>=9
germy(n)-=16:germpoy(n)-=16
4,-15,10000+(total*500),1
exist(n)=
totalled(n)=1
total+=totalled(n)
score-=100
decay(n)=4
count(n)=0
total>=14
fin%=
end_game
text_size(16,16)
outline("Game Over",11,15,23)
text_size(8,8)
plot(x$,x,y,m)
&2E,spop%+256,area%,x$,x-32,y-32,m,scale%,0
remove_sounds
sounds_loaded%
"RMKill jwvoice"
"RMKill kill1a"
"RMKill lovely"
"RMKill ouch"
"RMKill belch1"
"RMKill shlop2"
OSCLI"RMKill gover"
I=1
"ChannelVoice "+
(I)+" "+
error
remove_sounds
"Desktop"
"An error has been found. Jaw Wars will now remove itself from the icon bar;"
'"Error type: ";
'"Location : ";
'"Just in case, try resetting the machine, and run Jaw Wars again."
'"If all else fails, consult the !ReadMe file for details on how to report bugs."
'"Press space to return to the desktop..."
"Desktop"
swap_banks
"OS_Byte",113,scr
scr=3-scr
"OS_Byte",112,scr
reset_banks
"OS_Byte",112,2
"OS_Byte",113,2
load_sprites
IF sprites_loaded% THEN ENDPROC
s$="<JawWar$Dir>.Spriteys"
"OS_File",5,s$
,,,,size%
area% size%+32
area%!0=size%+32
area%!4=0
area%!8=16
area%!12=16
&2E,256+9,area%
&2E,256+10,area%,s$
sprites_loaded%=TRUE
load_sounds
IF sounds_loaded% THEN ENDPROC
fx$="<JawWar$Dir>"
Oak Recorder Voices (use ChannelVoice on these)
"RMLoad "+fx$+".belch1"
"RMLoad "+fx$+".lovely"
"RMLoad "+fx$+".ouch"
"RMLoad "+fx$+".jwvoice"
OSCLI"RMLoad "+fx$+".gover"
SoundCon Voices (Use splay_NAME on these)
"RMLoad "+fx$+".kill1a"
"RMLoad "+fx$+".shlop2"
OSCLI"RMLoad "+fx$+".kill5"
OSCLI"RMLoad "+fx$+".munch1"
sounds_loaded%=TRUE
"ChannelVoice 2 belch1"
"ChannelVoice 3 lovely"
"ChannelVoice 4 ouch"
"ChannelVoice 5 jwvoice"
OSCLI"ChannelVoice 6 gover"
"RMKill jwvoice"
"RMKill kill1a"
"RMKill lovely"
"RMKill ouch"
"RMKill belch1"
"RMKill shlop2"
OSCLI"RMKill gover"
I=1
"ChannelVoice "+
(I)+" "+
title_screen
fadein=0
fadeout=0
pressed=
fadein>0
200
192:
fade_in(fadein)
fadein<17 fadein+=1
(-99)
pressed=
fadein>16
pressed
text_size(16,16)
outline("Jaw Wars",12,1,127):
5,383,100,100
text_size(4,8)
line_x=0.5
line_y=5
pressed=
(-99)
pressed=
line$
line$=" Use the mouse to move the toothbrush"
line_x=20.5:line_y=5
outline(line$,line_x,line_y,45)
line_y+=1.1
line$="Press the spacebar to play the game..."
pressed
text_size(8,8)
pressed:pressed=
26,4:
outline("Directed by Stephen Scott",7.5,27,104)
outline("Version 0.9841b (19th April, 1998)",3,28.1,104)