;!if $key3=q
;$btlmapmae=mapsoto35.asdf
;!file btlmode1.asdf
;!endif

!wavset 1,uta2b.wav
!wav 1,1

!picpos 261,0,0
!picon 261
!pical 261,80
!pical 362,160
!pical 363,160
*
!pical 261,160
!pical 362,80
!pical 363,80
*
!pical 261,240
!pical 362,0
!pical 363,0
*
!pical 261,256
*
;--------------------------
!wavset 21,sakebi1.wav
!wavset 22,kidou1.wav
!wavset 23,btlcount.wav
!wavset 24,shotgun.wav
!wavset 25,shotgunr.wav
!wavset 26,guard1.wav
!wavset 27,bibibi.wav


$pcsyoriy=-960
!picpos 238,0,$pcsyoriy
!picset 238,pcsyori1.bmp
!picon 238
!pical 238,40


!picpos 359,0,0
!picset 359,koukass1.bmp
!picon 359
!picarea 359,0,0,1,1
!pical 359,180

!picpos 362,0,54
!picset 362,btgeji1rd.bmp
!picarea 362,0,0,40,400
!picon 362



!picset 363,btgeji1r.bmp
!picarea 363,0,0,24,160
!picon 363


;!pical 362,140
;!pical 363,180


!picset 365,btlyaji1.bmp
!picon 365
!pical 365,120


;-------------------------------------左
$btlyajix=-50
$btlyajiy=120
$btlyajial=0
;-------------------------------------右
$btlyajix=460
$btlyajiy=120
$btlyajial=240
;-------------------------------------上
$btlyajix=200
$btlyajiy=-40
$btlyajial=480

!picpos 365,$btlyajix,$btlyajiy
!picarea 365,0,$btlyajial,240,240

;--------------------------------MAX
;$btgejiz=357
;$btgejiy=84
!piczoom 363,24,$btgejiz
!picpos 363,8,$btgejiy


;----------------------------------------------------------
!picset 199,kuro.bmp
!picon 199

!picpos 200,-320,-40
!picset 200,btlbg1.bmp
!picon 200
!picarea 200,0,0,1280,560



!picset 210,not.bmp
!picpos 210,0,0
!picset 210,enemy3bb1.bmp
!picarea 210,0,0,640,480
!picon 210
!pical 210,256
$enemyhp=3
$enemyat=4
$enemyturnmx=2
$enemyturn=2

!picpos 239,0,0
!picset 239,siro.bmp
!picoff 239
!pical 239,256

!picpos 237,0,0
!picset 237,btlgard1.bmp
!picon 237
!pical 237,256
!picarea 237,0,0,1,1

!picpos 235,300,0
!picset 235,actgun2ef1.bmp
!picon 235
!pical 235,256
!picarea 235,0,0,1,1

!picpos 240,300,0
!picset 240,actgun2.bmp
!picon 240
!pical 240,256
!picarea 240,0,0,1,1





!picpos 254,0,0
!picset 254,megane1damef1.bmp
!picon 254
!pical 254,100
!picarea 254,0,0,1,1

!picpos 255,-40,-40
!picset 255,meganegras1r.bmp
!picon 255
!pical 255,100

!picpos 260,-40,-40
!picset 260,megane1.bmp
!picoff 260
$2key=0
$plmove=0
$ibent=0
;-------------------------------------------------------------------------
!picpos 261,0,-120
*
!picpos 261,0,-240
*
!picpos 261,0,-360
*
!picpos 261,0,-480
!pical 362,70
!pical 363,90
*
!pical 362,140
!pical 363,180
!picoff 261
!picon 260
;--------------------------------------------------------------------------
$enemypt=btlenemy4.asdf
!picpos 365,$btlyajix,$btlyajiy
!picarea 365,0,$btlyajial,240,240
!picarea 210,0,0,640,480
$ibent=1
!wav 23,0
!fgosub2 btlibent4.asdf
;-----------------------------------------コマンド
#qwe
*
!pause 1

$pcsyoriy+20
!if $pcsyoriy>0
$pcsyoriy-960
!endif
!picpos 238,0,$pcsyoriy

!fgosub2 btlibent4.asdf
;-----------------------------------勝利
!if $ibent=0
!if $enemyhp<1
!file btlwin.asdf
!stop
!endif


!if $ibent<20
!godown #plmovesel
!endif
;

!godown #plmovego

;----------------------------------------------PL行動選択
#plmovesel
!if $key=$kyback
!file backmode.asdf
!stop
!endif

!if $btlyajial=0
!godown #lpt
!endif
!if $btlyajial=240
!godown #rpt
!endif
!godown #upt
;------------------------------------左パターン
#lpt
!if $key=$kyhidari
$ibent=20
!godown #plmovego
!endif
;-miss
!if $key=$kymigi
$ibent=50
!godown #plmovego
!endif
!if $key=$kyue
$ibent=60
!godown #plmovego
!endif
!if $key=$kysita
$ibent=60
!godown #plmovego
!endif
!godown #plmovego

;------------------------------------右パターン
#rpt
!if $key=$kymigi
$ibent=30
!godown #plmovego
!endif
;-miss
!if $key=$kyhidari
$ibent=40
!godown #plmovego
!endif
!if $key=$kyue
$ibent=60
!godown #plmovego
!endif
!if $key=$kysita
$ibent=60
!godown #plmovego
!endif
!godown #plmovego

;------------------------------------上パターン
#upt
!if $key=$kyue
$ibent=70
!godown #plmovego
!endif
;-miss
!if $key=$kyhidari
$ibent=40
!godown #plmovego
!endif
!if $key=$kymigi
$ibent=50
!godown #plmovego
!endif
!if $key=$kysita
$ibent=60
!godown #plmovego
!endif
!godown #plmovego

;
;----------------------------------------------PL行動後
#plmovego


!goto #qwe












