First Napalm test

Display test only!

definitions.asm

@@ -19,7 +19,7 @@ price_LeapFrog_______ = 192    ;_4
 price_Funky_Bomb_____ = 293    ;_5
 price_MIRV___________ = 456    ;_6
 price_Death_s_Head___ = 337    ;_7
-price_Napalm_________ = $ffff ;496    ;_8
+price_Napalm_________ = 20 ;496    ;_8
 price_Hot_Napalm_____ = $ffff ;511    ;_9
 price_Tracer_________ = 102    ;_10
 price_Smoke_Tracer___ = 291    ;_11

weapons.asm

@@ -30,8 +30,8 @@ ExplosionRoutines
     .word funkybomb-1
     .word mirv-1
     .word deathshead-1
-    .word VOID-1 ;napalm
-    .word VOID-1 ;hotnapalm
+    .word napalm-1 ;napalm
+    .word hotnapalm-1 ;hotnapalm
     .word tracer-1
     .word tracer-1 ;smoketracer
     .word babyroller-1
@@ -282,6 +282,40 @@ NoLowerCircle
     rts
 .endp
 ; ------------------------
+.proc napalm
+	jmp xnapalm
+.endp
+; ------------------------
+.proc hotnapalm
+	jmp xnapalm
+.endp
+; ------------------------
+.proc xnapalm
+;	adw mountaintable xdraw temp
+;	ldy #0
+;	sty ydraw+1
+;	lda (temp),y	; ground height in hit point
+;	sta ydraw
+	sbw xdraw #4 ; char centering
+	lda #0
+	sta modify
+@
+	lda random
+	and #%00000110
+	clc
+	adc #$46
+	sta CharCode
+	jsr TypeChar
+	wait
+	inc modify
+	bpl @-
+	lda #$4e
+	sta CharCode
+	jsr TypeChar
+
+	rts
+.endp
+; ------------------------
 .proc babyroller
     inc FallDown2
     mva #11 ExplosionRadius