


!if $npc1houkou=dead
!godown #back
!endif
;

;---------------------------------
!if $npc1act>0
!godown #atcheck
!endif
;-----------------------------------

;
!if $npc1houkou=48
!godown #ml
!endif
!if $npc1houkou=96
!godown #mr
!endif
!if $npc1houkou=144
!godown #mu
!endif
!if $npc1houkou=0
!godown #md
!endif
;
;



;---------------------------------峌寕懸婡





;!getpiccolorset 160
$rnd=$120x
$rnd2=$120y
$rnd+16
$rnd2+24
!getpiccolorr $rnd,$rnd2
!if $rval<100
!godown #emukic
!endif
!godown #movec

;-------------------------------------------
#emukic

$npc1houkou=96
!if $100x<$120x
$npc1houkou=48
!endif


$npc1act=1
!picarea 120,128,$npc1houkou,32,48
!picarea 20,128,$npc1houkou,32,48
!godown #back
;-------------------------------------峌寕幚峴
#atcheck
!if $npc1act=1
!godown #atcft
!endif
!if $npc1act=2
$npc1act=3
!picarea 120,160,$npc1houkou,32,48
!picarea 20,160,$npc1houkou,32,48
!godown #back
!endif
!if $npc1act=3
$npc1act=4

!godown #back
!endif

$rnd=$120x
$rnd2=$120y
$rnd+16
$rnd2+24
!getpiccolorr $rnd,$rnd2
!if $rval<100
!picoff 20
!picoff 120
!file gameover.asdf,#hito
!stop
!endif
$npc1act=0
!godown #back
;-----------------------------------------------
#atcft
$npc1act=2
!rnd $rnd,3
!if $rnd=0
!wavset 31,hitoat1.wav
!endif
!if $rnd=1
!wavset 31,hitoat2.wav
!endif
!if $rnd=2
!wavset 31,hitoat3.wav
!endif
!wav 31,0
!godown #back
;---------------------------------------
;
;------------------------
#movec
!if $npc1xy=0
$npc1xy=1
!godown #xy
!endif
$npc1xy=0


!if $120x<$100x
$npc1houkou=96
!godown #back
!endif
!if $120x>$100x
$npc1houkou=48
!godown #back
!endif

#xy



!if $120y<$100y
$npc1houkou=0
!godown #back
!endif
!if $120y>$100y
$npc1houkou=144
!godown #back
!endif

!godown #back


#ml
$120x-8

!godown #movego
#mr
$120x+8


!godown #movego
#mu
$120y-8


!godown #movego
#md
$120y+8

!godown #movego
;----------------------------
#movego
;
$npc1anime+$enpc1sx

$rnd=$enpc1sx
$rnd*3
;$rnd-1

!if $npc1anime>$rnd
$npc1anime=0
!picarea 120,$npc1anime,$npc1houkou,$enpc1sx,$enpc1sy
!picarea 20,$npc1anime,$npc1houkou,$enpc1sx,$enpc1sy
$npc1houkou=n

!godown #back
!endif
!picarea 120,$npc1anime,$npc1houkou,$enpc1sx,$enpc1sy
!picarea 20,$npc1anime,$npc1houkou,$enpc1sx,$enpc1sy
!picpos 120,$120x,$120y
!picpos 20,$120x,$120y
!picpos 21,$120x,$120y
;--------------------------------------------------------------
#back
!freturn2




































































