


;--------------------------------------pld
!picset 100,chippl0.bmp
!picon 100
!picpos 100,304,216
!picarea 100,0,0,32,48
;!picpos 99,304,216
;!picset 99,chipplkg0.bmp
;!picon 99
;!pical 99,120
;

!picset 150,chippl0u.bmp
!picon 150
!picpos 150,304,216
!picarea 150,0,0,32,48



;---------------------------------------------ナイフ設定
!picset 101,plbuki1.bmp
!picset 102,plbuki1ef.bmp
$weaponsel=weapon1c.asdf
!wavset 21,knife.wav
!wavset 22,muon.wav

;---------------------------------------------ハンドガン設定
!picset 101,plbuki2.bmp
!picset 102,plbuki2ef.bmp
$weaponsel=weapon2c.asdf

!wavset 21,handgun.wav
!wavset 22,handgunr.wav

;---------------------------------------------ショットガン設定
!picset 101,plbuki3.bmp
!picset 102,plbuki3ef.bmp
$weaponsel=weapon3c.asdf

!wavset 21,shotgun.wav
!wavset 22,shotgunr.wav

;---------------------------------------------狙撃銃設定
!picset 101,plbuki4.bmp
!picset 102,plbuki4ef.bmp
$weaponsel=weapon4c.asdf

!wavset 21,sogekijyu.wav
!wavset 22,sogekijyur.wav


;------------------------------------------ゲームオーバー時
!wavset 39,kutya1.wav
!wavset 40,kutya2.wav

;---------------------------------------武器設定
$plbukihoukou=0
$plbukiani=-96
!picpos 101,272,168
!picon 101
!picarea 101,$plbukiani,$plbukihoukou,96,144
!picpos 102,272,168
!picon 102
!picarea 102,$plbukiani,$plbukihoukou,96,144





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

!picset 5,map0suna.bmp
$5x=0
$5y=0
!picpos 5,$5x,$5y
!picon 5






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


$plhoukou=0
$plmanime=0
!picarea 100,$plmanime,$plhoukou,32,48
!picarea 150,$plmanime,$plhoukou,32,48

$120x=0
$120y=0
$125x=0
$125y=0
$130x=0
$130y=0

$165y=0


$npc1houkou=n
$npc2houkou=n
$npc3houkou=n

$npc1anime=0
$npc2anime=0
$npc3anime=0


$pmove=8




$rnd=m0name
!str $rnd+$mapname
$rnd2=$rnd
!str $rnd2+d.bmp
!picset 8,$rnd2
!picon 8
$rnd2=$rnd
!str $rnd2+u.bmp
!picset 198,$rnd2
!picon 198
$rnd2=$rnd
!str $rnd2+c.bmp
!picset 2,$rnd2


$8x=0
$8y=0


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


;
;------------------------------------------------------
;
;
;
!getpiccolorset 2

#qwe

!title $8y



;-----------------------------------------------------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

;-----------------------------------------------------スキャンｃ


!fgosub2 scancheck.asdf

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


*
!pause 1
!if $key=enter
!file btlset.asdf
!endif


!if $plbukiani>-96
!godown #plbuki
!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 $plbuki2tm<0
;!picarea 101,288,$plbukihoukou,96,144
;!picarea 102,0,0,1,1
;!godown #zandansu
;!endif
;-----------------------------------------


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


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

!goto #qwe

;
;------------------------------------------ひだり移動チェック
#mleftc
!if $plhoukou=0
!picarea 1,640,480,640,480
!picbl 300,1
*
!endif
!if $plhoukou=144
!picarea 1,640,0,640,480
!picbl 300,1
*
!endif




!picarea 1,0,480,640,480
!picbl 300,1

$plhoukou=48
$plbukihoukou=144

$5x+$pmove
$8x+$pmove
$120x+$pmove
$125x+$pmove
$130x+$pmove


;---------------------------------------------当たり判定
;304,216
;!if $120x>272
;!if $120x<304
;!if $120y<240
;!if $120y>192
;!godown #modoriml
;!endif




!getpiccolorb 304,248
!if $bval<50
!godown #modoriml
!endif
!getpiccolorb 304,264
!if $bval<50
!godown #modoriml
!endif
;---------------------------------------------

!godown #hokougosyori
#modoriml
$5x-$pmove
$8x-$pmove
$120x-$pmove
$125x-$pmove
$130x-$pmove



!godown #hokougosyori

;------------------------------------------みぎ移動チェック
#mrightc
!if $plhoukou=0
!picarea 1,640,960,640,480
!picbl 300,1
*
!endif
!if $plhoukou=144
!picarea 1,640,1440,640,480
!picbl 300,1
*
!endif

!picarea 1,0,1440,640,480
!picbl 300,1

$plhoukou=96
$plbukihoukou=288

$5x-$pmove
$8x-$pmove
$120x-$pmove
$125x-$pmove
$130x-$pmove

;---------------------------------------------
;304,216
;!if $120x<336
;!if $120x>304
;!if $120y<240
;!if $120y>192
;!godown #modorimr
;!endif
!getpiccolorb 336,248
!if $bval<50
!godown #modorimr
!endif
!getpiccolorb 336,264
!if $bval<50
!godown #modorimr
!endif

!godown #hokougosyori
#modorimr
$5x+$pmove
$8x+$pmove
$120x+$pmove
$125x+$pmove
$130x+$pmove



!godown #hokougosyori

;------------------------------------------うえ移動チェック
#mupc
!if $plhoukou=48
!picarea 1,640,0,640,480
!picbl 300,1
*
!endif
!if $plhoukou=96
!picarea 1,640,1440,640,480
!picbl 300,1
*
!endif



!if $key2=up
!picarea 1,0,0,640,480
!picbl 300,1

$plhoukou=144
$plbukihoukou=432


$5y+$pmove
$8y+$pmove
$120y+$pmove
$125y+$pmove
$130y+$pmove

;-----------------------------------------
;304,216
;!if $120x<336
;!if $120x>272
;!if $120y>192
;!if $120y<240
;!godown #modorimu
;!endif
!getpiccolorb 312,240
!if $bval<50
!godown #modorimu
!endif
!getpiccolorb 328,240
!if $bval<50
!godown #modorimu
!endif

!godown #hokougosyori
#modorimu
$5y-$pmove
$8y-$pmove
$120y-$pmove
$125y-$pmove
$130y-$pmove


!godown #hokougosyori

;------------------------------------------した移動チェック
#mdownc
!if $plhoukou=48
!picarea 1,640,480,640,480
!picbl 300,1
*
!endif
!if $plhoukou=96
!picarea 1,640,960,640,480
!picbl 300,1
*
!endif


!picarea 1,0,960,640,480
!picbl 300,1

$plhoukou=0
$plbukihoukou=0



$5y-$pmove
$8y-$pmove
$120y-$pmove
$125y-$pmove
$130y-$pmove

;-----------------------------------
;304,216
;!if $120x<336
;!if $120x>272
;!if $120y<240
;!if $120y>192
;!godown #modorimd
;!endif
!getpiccolorb 312,276
!if $bval<50
!godown #modorimd
!endif
!getpiccolorb 328,276
!if $bval<50
!godown #modorimd
!endif


!godown #hokougosyori
#modorimd
$5y+$pmove
$8y+$pmove
$120y+$pmove
$125y+$pmove
$130y+$pmove


!godown #hokougosyori
;
;------------------------障害物チェック
;




304,216
!title nnnnnnnnnnnnnnnnnnnnnnnn
;--up
!getpiccolorset 119
!getpiccolorr 320,192
!if $bval<120
!title ok
!endif

!goto #qwe





#hokougosyori

!if $mapname=25
!file meinin.asdf

!file meinin.asdf,#in
!endif
#out




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

!if $scanon>0
$scanon+1
!endif


$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>320
$8x-1920
!fgosub2 mapmovel.asdf
!goto #qwe
!endif
!if $8x<-1600
$8x+1920
!fgosub2 mapmover.asdf
!goto #qwe
!endif
!if $8y>240
$8y-1440
!fgosub2 mapmoveu.asdf
!goto #qwe
!endif
!if $8y<-1200
$8y+1440
!fgosub2 mapmoved.asdf
!goto #qwe
!endif

!goto #qwe










































































