$plshot+1
!if $plshot=2
!godown #houkouc
!endif

!if $plshot>7
$plshot=0
$plshotx=0
$plshoty=0
!picoff 140
!freturn2
!endif
;
$140x+$plshotx
$140y+$plshoty
!picpos 140,$140x,$140y

$rnd=#
!str $rnd+$plshothoukou
!godown $rnd





#back
!freturn2
;-------------------------------
#houkouc
!picon 140
$140x=$100x
$140y=$100y

!if $plhoukou=0
$plshoty=24
$plshothoukou=d
!endif
!if $plhoukou=48
$plshotx=-24
$plshothoukou=l
!endif
!if $plhoukou=96
$plshotx=24
$plshothoukou=r
!endif
!if $plhoukou=144
$plshoty=-24
$plshothoukou=u
!endif

$140x+$plshotx
$140y+$plshoty
!picpos 140,$140x,$140y


!goto #back

;
;
;---------------------------------
#d


!goto #back
;---------------------------------
#l


!goto #back
;---------------------------------
#r
$rnd=$140x
$rnd2=$140y
$rnd+32
$rnd2+32

!getpiccolorb $rnd,$rnd2
!if $bval>50
$plshot=100
!endif

$rnd2+16
!getpiccolorb $rnd,$rnd2
!if $bval>50
$plshot=100
!endif


;-------------------------
$rnd=$140x
$rnd2=$140y
$rnd+32
$rnd2+32
!getpiccolorb $rnd,$rnd2
!if $bval>50
$plshot=100
!endif
$rnd2+16
!getpiccolorb $rnd,$rnd2
!if $bval>50
$plshot=100
!endif
$rnd=$140x
$rnd2=$140y
$rnd+32
$rnd2+32
!getpiccolorb $rnd,$rnd2
!if $bval>50
$plshot=100
!endif
$rnd2+16
!getpiccolorb $rnd,$rnd2
!if $bval>50
$plshot=100
!endif
$rnd=$140x
$rnd2=$140y
$rnd+32
$rnd2+32
!getpiccolorb $rnd,$rnd2
!if $bval>50
$plshot=100
!endif
$rnd2+16
!getpiccolorb $rnd,$rnd2
!if $bval>50
$plshot=100
!endif
$rnd=$140x
$rnd2=$140y
$rnd+32
$rnd2+32
!getpiccolorb $rnd,$rnd2
!if $bval>50
$plshot=100
!endif
$rnd2+16
!getpiccolorb $rnd,$rnd2
!if $bval>50
$plshot=100
!endif

;--------------------------












!goto #back
;---------------------------------
#u


!goto #back


































































