;--------------------------------------npc1d
!picset 120,chippl0u.bmp
!picon 120
!picpos 120,304,16
!picarea 120,0,0,32,48
!picset 20,chippl0.bmp
!picon 20
!picpos 20,304,16

$enpc1sx=32
$enpc1sy=48
!picarea 20,0,0,$enpc1sx,$enpc1sy
$npc1=npc1einu.asdf

;--------------------------------------npc2d
!picset 122,chippl0u.bmp
!picon 122
!picpos 122,304,16
!picarea 122,0,0,32,48
!picset 22,chippl0.bmp
!picon 22
!picpos 22,304,16

$enpc2sx=32
$enpc2sy=48
!picarea 22,0,0,$enpc2sx,$enpc2sy

$npc2=npc2.asdf
;--------------------------------------npc3d
!picset 125,chippl0u.bmp
!picon 125
!picpos 125,304,16
!picarea 125,0,0,32,48
!picset 25,chippl0.bmp
!picon 25
!picpos 25,304,16

$enpc3sx=32
$enpc3sy=48
!picarea 25,0,0,$enpc3sx,$enpc3sy


$npc3=npc3.asdf
;--------------------------------------npc4d
!picset 127,chippl0u.bmp
!picon 127
!picpos 127,304,16
!picarea 127,0,0,32,48
!picset 27,chippl0.bmp
!picon 27
!picpos 27,304,16

$enpc4sx=32
$enpc4sy=48
!picarea 27,0,0,$enpc4sx,$enpc4sy


$npc4=npc4.asdf
;--------------------------------------npc5d
!picset 130,chippl0u.bmp
!picon 130
!picpos 130,304,16
!picarea 130,0,0,32,48
!picset 30,chippl0.bmp
!picon 30
!picpos 30,304,16

$enpc5sx=32
$enpc5sy=48
!picarea 30,0,0,$enpc5sx,$enpc5sy


$npc5=npc5.asdf
;--------------------------------------npc6d
!picset 132,chippl0u.bmp
!picon 132
!picpos 132,304,16
!picarea 132,0,0,32,48
!picset 32,chippl0.bmp
!picon 32
!picpos 32,304,16

$enpc6sx=32
$enpc6sy=48
!picarea 32,0,0,$enpc6sx,$enpc6sy


$npc6=npc6.asdf
;--------------------------------------npc7d
!picset 135,chippl0u.bmp
!picon 135
!picpos 135,304,16
!picarea 135,0,0,32,48
!picset 35,chippl0.bmp
!picon 35
!picpos 35,304,16

$enpc7sx=32
$enpc7sy=48
!picarea 35,0,0,$enpc7sx,$enpc7sy


$npc7=npc7.asdf
;-------------------------------------------------------@@@@@@@@@@@@@@@
$120x=0
$120y=0
$122x=0
$122y=0
$125x=0
$125y=0
$127x=0
$127y=0
$130x=0
$130y=0
$132x=0
$132y=0
$135x=0
$135y=0




$120x=100
$120y=100
$122x=200
$122y=200
$125x=300
$125y=300
$127x=400
$127y=200
$130x=500
$130y=100
$132x=600
$132y=300
$135x=700
$135y=100







$165y=0


$npc1houkou=n
$npc2houkou=n
$npc3houkou=n
$npc4houkou=n
$npc5houkou=n
$npc6houkou=n
$npc7houkou=n

$npc1anime=0
$npc2anime=0
$npc3anime=0
$npc4anime=0
$npc5anime=0
$npc6anime=0
$npc7anime=0


!picpos 120,$120x,$120y
!picpos 122,$122x,$122y
!picpos 125,$125x,$125y
!picpos 127,$127x,$127y
!picpos 130,$130x,$130y
!picpos 132,$132x,$132y
!picpos 135,$135x,$135y

!picpos 20,$120x,$120y
!picpos 22,$122x,$122y
!picpos 25,$125x,$125y
!picpos 27,$127x,$127y
!picpos 30,$130x,$130y
!picpos 32,$132x,$132y
!picpos 35,$135x,$135y














$200x=0
!picset 250,sunaarasi0.bmp
!picon 250
!picpos 250,$200x,0
!pical 250,120

!picset 300,kuro.bmp
!picset 1,btllight0.bmp
!picarea 1,0,0,640,480
!picon 300
!picbl 300,1
;!picoff 300




$100x=304
$100y=216
$101x=272
$101y=168

;-----------------------
$141x=0
$141y=0
$140x=304
$140y=216
!picset 140,not.bmp
!picoff 140
!picpos 140,$140x,$140y
!picarea 140,0,0,32,48

$plshot=0

$plshothoukou=0
$plshotx=0
$plshoty=0

$enemyturn=1
;--------------------------------------------------------------------
;
;
;
;---------------------------------------------------------------
#qwe
!title $plshot

!if $plshot>0
!fgosub2 $weaponsel
!endif

$rnd=#eturn
!str $rnd+$enemyturn
!godown $rnd
;
#eturn1
!fgosub2 $npc1
!godown #eturngo
#eturn2
!fgosub2 $npc2
!godown #eturngo
#eturn3
!fgosub2 $npc3
!godown #eturngo
#eturn4
!fgosub2 $npc4
!godown #eturngo
#eturn5
!fgosub2 $npc5
!godown #eturngo
#eturn6
!fgosub2 $npc6
!godown #eturngo
#eturn7
!fgosub2 $npc7

!godown #eturngo
#eturngo



;-----------------------------------------------------pl1s
$200x-80
!if $200x<-1280
$200x+1280
!endif
!picpos 350,$200x,0

!picpos 5,$5x,$5y
!picarea 100,$plmanime,$plhoukou,32,48
!picarea 150,$plmanime,$plhoukou,32,48

;!picpos 2,$8x,$8y
;!picpos 8,$8x,$8y
;!picpos 198,$8x,$8y


;!picpos 120,$120x,$120y
;!picpos 20,$120x,$120y
;!picpos 125,$125x,$125y
;!picpos 25,$125x,$125y
;!picpos 130,$130x,$130y
;!picpos 30,$130x,$130y

!picpos 100,$100x,$100y
!picpos 150,$100x,$100y
!picpos 101,$101x,$101y
!picpos 102,$101x,$101y
;-----------------------------------------------------スキャンｃ




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


*
!pause 1




!if $plbukiani>-96
!godown #plbuki
!endif

!if $plshot!0
!goto #qwe
!endif
;
!if $key3=z
!godown #plbuki
!endif


!if $key2!null
!godown #keyc
!endif
$plmanime=0






!goto #qwe
;
;---------------KEYc
#keyc
!if $key2=left
!godown #mleftc
!endif
!if $key2=right
!godown #mrightc
!endif
!if $key2=up
!godown #mupc
!endif
!if $key2=down
!godown #mdownc
!endif

!if $key2=leftup
!godown #mleftc
!endif
!if $key2=rightup
!godown #mrightc
!endif
!if $key2=leftdown
!godown #mleftc
!endif
!if $key2=rightdown
!godown #mrightc
!endif

!goto #qwe
;
;
;---------------------------------------------武器使用
#plbuki


!picoff 100
$plmanime=128

$plbukiani+96
;------------------------------たまぎれはんてい
!if $weaponsel=weapon1c.asdf
!godown #tamagrec
!endif
!if $weaponsel=weapon3c.asdf
!if $plbuki3tm<0
!picarea 101,288,$plbukihoukou,96,144
!picarea 102,0,0,1,1
!godown #zandansu3
!endif


;
;
!if $weaponsel=weapon2c.asdf
!if $plbuki2tm<0
!picarea 101,288,$plbukihoukou,96,144
!picarea 102,0,0,1,1
!godown #zandansu2
!endif


;-----------------------------------------
#tamagrec
$plshot+1


!if $plbukiani>287
$plmanime=0
!picarea 101,0,$plbukihoukou,96,144
$plbukiani=-96
!picarea 102,$plbukiani,$plbukihoukou,96,144
!goto #qwe
!endif
!picarea 101,$plbukiani,$plbukihoukou,96,144
!picarea 102,$plbukiani,$plbukihoukou,96,144


!goto #qwe
;-----------------------------------------------残段数
#zandansu2
;---------------------------------玉切れ
$plbuki2tm-1
!if $plbukiani>287
$plbuki2tm=9
$plmanime=0
$plbukiani=-96
!picarea 101,0,$plbukihoukou,96,144
!endif

!goto #qwe
;-----------------------------------------------残段数
#zandansu3
;---------------------------------玉切れ
$plbuki3tm-1
!if $plbukiani>287
$plbuki3tm=5
$plmanime=0
$plbukiani=-96
!picarea 101,0,$plbukihoukou,96,144
!endif

!goto #qwe

;
;------------------------------------------ひだり移動チェック
#mleftc





$plhoukou=48
$plbukihoukou=144

$100x-$pmove
$101x-$pmove





$rnd=$100y
$rnd+32
!getpiccolorb $100x,$rnd
!if $bval>50
!godown #modoriml
!endif
$rnd+16
!getpiccolorb $100x,$rnd
!if $bval>50
!godown #modoriml
!endif
;---------------------------------------------

!godown #hokougosyori
#modoriml
$100x+$pmove
$101x+$pmove


!godown #hokougosyori

;------------------------------------------みぎ移動チェック
#mrightc


$plhoukou=96
$plbukihoukou=288

$100x+$pmove
$101x+$pmove




$rnd=$100x
$rnd2=$100y
$rnd+32
$rnd2+32


!getpiccolorb $rnd,$rnd2
!if $bval>50
!godown #modorimr
!endif

$rnd2+16
!getpiccolorb $rnd,$rnd2
!if $bval>50
!godown #modorimr
!endif

!godown #hokougosyori
#modorimr

$100x-$pmove
$101x-$pmove



!godown #hokougosyori

;------------------------------------------うえ移動チェック
#mupc


$plhoukou=144
$plbukihoukou=432



$100y-$pmove
$101y-$pmove



$rnd=$100x
$rnd2=$100y
$rnd+8
$rnd2+24

!getpiccolorb $rnd,$rnd2
!if $bval>50
!godown #modorimu
!endif
$rnd+16
!getpiccolorb $rnd,$rnd2
!if $bval>50
!godown #modorimu
!endif

!godown #hokougosyori
#modorimu
$100y+$pmove
$101y+$pmove


!godown #hokougosyori

;------------------------------------------した移動チェック
#mdownc




$plhoukou=0
$plbukihoukou=0


$100y+$pmove
$101y+$pmove





$rnd=$100x
$rnd2=$100y
$rnd+8
$rnd2+60

!getpiccolorb $rnd,$rnd2
!if $bval>50
!godown #modorimd
!endif

$rnd+16
!getpiccolorb $rnd,$rnd2
!if $bval>50
!godown #modorimd
!endif


!godown #hokougosyori
#modorimd
$100y-$pmove
$101y-$pmove


!godown #hokougosyori
;




#hokougosyori
!picon 100
!picarea 101,$plbukiani,$plbukihoukou,96,144

$plmanime+32
!if $plmanime>127
$plmanime=0
!endif

!goto #qwe



$plmanime+32
!if $plmanime>127
$plmanime=0
!endif
!if $5x>0
$5x-640
!endif
!if $5x<-640
$5x+640
!endif
!if $5y>0
$5y-480
!endif
!if $5y<-480
$5y+480
!endif

!if $8x>0
$8x-1280
!fgosub2 mapmovel.asdf
!goto #qwe
!endif
!if $8x<-1280
$8x+1280
!fgosub2 mapmover.asdf
!goto #qwe
!endif
!if $8y>0
$8y-960
!fgosub2 mapmoveu.asdf
!goto #qwe
!endif
!if $8y<-960
$8y+960
!fgosub2 mapmoved.asdf
!goto #qwe
!endif

!goto #qwe



































































