!if $rnd8!bb
!wavset 6,pcstart1.wav
!wav 6,0
!endif
$rnd8=0

!picpos 299,0,0
!picset 299,kuro.bmp
!picon 299
!pical 299,60
*
!pical 299,120
*
!pical 299,180
*
!pical 299,240
*
!pical 299,256
*

!wavset 5,pipi.wav
!wavset 7,clock.wav



!picpos 1,0,0
!picpos 251,0,0
!picset 251,kuro1.bmp
!picarea 251,0,0,640,480
!picset 1,monitalight1.bmp
!picarea 1,0,0,640,480
!picon 1
!picon 251
!picbl 251,1



!picpos 210,0,0
!picset 210,plmonita1.bmp
!picarea 210,0,0,640,480
!picon 210

!picset 220,monitayaji1.bmp
!picon 220
!picpos 220,65,76
!picarea 220,0,0,560,80


!picset 221,monitakirikae1.bmp
!picon 221
!picarea 221,0,0,1,1
!picpos 221,20,44


$datadata=NO DATA

!vload $datadata
!color 20,40,60
!picpos 211,280,100
!picset 211,$datadata
!picon 211


$2key=$kykettei
$sel=1

!pical 299,240
*
!pical 299,180
*
!pical 299,120
*
!pical 299,60
*
!pical 299,0
#qwe
*
!pause 1




!rnd $rnd,10
!pical 299,$rnd

!if $2key=$key
!goup #qwe
!endif
$2key=0

!if $kysita=$key
!wav 7,0
$2key=$kysita
!godown #sita
!endif
!if $kyue=$key
!wav 7,0
$2key=$kyue
!godown #ue
!endif

!if $kykettei=$key
!wav 5,0
$2key=$kykettei
!godown #kettei
!endif
!if $kycansel=$key
!wav 5,0
!godown #modori
!endif


!file plmonita1.asdf,#qwe
!goup #qwe
;---------------------------------
#sita
!if $sel=1
$sel=2
!picpos 220,65,125
!goup #qwe
!endif
!if $sel=2
$sel=3
!picpos 220,65,175
!goup #qwe
!endif
!if $sel=3
$sel=4
!picpos 220,65,225
!goup #qwe
!endif
!if $sel=4
$sel=5
!picpos 220,65,276
!goup #qwe
!endif

!if $sel=5
$sel=6
!picpos 220,65,324
!goup #qwe
!endif

!if $sel=6
$sel=1
!picpos 220,65,76
!goup #qwe
!endif
!goup #qwe
;---------------------------------
#ue
!if $sel=3
$sel=2
!picpos 220,65,125
!goup #qwe
!endif
!if $sel=4
$sel=3
!picpos 220,65,175
!goup #qwe
!endif
!if $sel=5
$sel=4
!picpos 220,65,225
!goup #qwe
!endif
!if $sel=6
$sel=5
!picpos 220,65,276
!goup #qwe
!endif

!if $sel=1
$sel=6
!picpos 220,65,324
!goup #qwe
!endif

!if $sel=2
$sel=1
!picpos 220,65,76
!goup #qwe
!endif

!goup #qwe

;---------------------------------------------
#kettei
!if $sel=1
!godown #save
!endif
!if $sel=2

!godown #manual
!endif
!if $sel=3
!file kconfig.asdf
!stop
!endif
!if $sel=4

!godown #manual
!endif
!if $sel=5

!godown #map
!endif

!if $sel=6
!godown #modori
!endif
!goup #qwe



;--------------------------------------------------
#modori
!wavset 6,pcstart1.wav
!wav 6,0
!pical 299,60
*
!pical 299,120
*
!pical 299,180
*
!pical 299,240
*
!pical 299,256
*


!picoff 210
!picoff 211
!picoff 220


!picset 251,kuro.bmp
!picarea 251,0,0,1120,960
!picset 1,light.bmp
!picarea 1,0,0,1120,960
!picon 1
!picon 251
!picbl 251,1
!picpos 1,-240,-320
!picpos 251,-240,-320
$2key=$kykettei

!pical 299,240
*
!pical 299,180
*
!pical 299,120
*
!pical 299,60
*
!pical 299,256
!picoff 299
!picoff 221
*
!pical 362,100
!pical 363,110
!freturn2

;--------------------------------------------------------
#manual
!picarea 221,0,0,600,400
*
!picarea 221,0,400,600,400
*
!picarea 221,0,800,600,400
*
!picarea 221,0,1200,600,400
*
!picset 210,plmonita2.bmp
!if $sel=4
!picset 210,plmonita3.bmp
!endif

!picoff 211
!picoff 220
!picarea 221,0,1600,600,400
*
!picarea 221,0,2000,600,400
*
!picarea 221,0,2400,600,400
*
!picarea 221,0,0,1,1
#manual2
*
!pause 1

!rnd $rnd,10
!pical 299,$rnd

!if $2key=$key
!goup #manual2
!endif
$2key=0

!if $key!null
!wav 5,0
!picarea 221,0,0,600,400
*
!picarea 221,0,400,600,400
*
!picarea 221,0,800,600,400
*
!picarea 221,0,1200,600,400
*
$2key=$key
!picon 211
!picon 220
!picset 210,plmonita1.bmp
!picarea 221,0,1600,600,400
*
!picarea 221,0,2000,600,400
*
!picarea 221,0,2400,600,400
*
!picarea 221,0,0,1,1
!goup #qwe
!endif

!goup #manual2
;-------------------------------------------------------
#save

!wavset 8,keybord1.wav
!wav 8,0


!picarea 221,0,0,600,400
*
!picarea 221,0,400,600,400
*
!picarea 221,0,800,600,400
*
!picarea 221,0,1200,600,400
*
!year $datadata
!str $datadata+”N 

!month $rnd3
!str $datadata+$rnd3
!str $datadata+ŒŽ

!day $rnd3
!str $datadata+$rnd3
!str $datadata+“ú 
!hour $rnd3
!str $datadata+$rnd3
!str $datadata+:
!minute $rnd3
!str $datadata+$rnd3

!picpos 211,280,100
!picset 211,$datadata
!picon 211
!picarea 221,0,1600,600,400
*
!picarea 221,0,2000,600,400
*
!picarea 221,0,2400,600,400
*
!picarea 221,0,0,1,1

!vsave $datadata
!vsave $ibent1kusa
!vsave $ibent1key
!vsave $ibent2key
!vsave $ibent3key
!vsave $ibent4pc
!vsave $ibent5mizu1
!vsave $ibent6mizu1
!vsave $ibent7mizu1
!vsave $ibent567mizu
!vsave $ibent8gun
!vsave $ibent9kazari1
!vsave $ibent9kazari2
!vsave $ibent9kazari3
!vsave $ibent9kazari3b
!vsave $ibent10crea
!vsave $ibent11doa
!vsave $shihen1
!vsave $shihen2
!vsave $shihen3
!vsave $shihen4
!vsave $shihen5
!vsave $shihen6
!vsave $shihen7
!vsave $shihen8
!vsave $shihen9
!vsave $shihen10
!vsave $ibent4
!vsave $ibent5
!vsave $ibent6
!vsave $ibent7
!vsave $ibent8
!vsave $ibent9
!vsave $ibent10
!vsave $item1
!vsave $item2
!vsave $item3
!vsave $item4
!vsave $item5
!vsave $item6
!vsave $item7
!vsave $item8
!vsave $item9
!vsave $item10
!vsave $gold


!vsave $takara1
!vsave $takara2
!vsave $takara3
!vsave $takara4
!vsave $takara5
!vsave $takara6
!vsave $takara7
!vsave $takara8
!vsave $takara9
!vsave $takara10
!vsave $takara11
!vsave $takara12
!vsave $takara13
!vsave $takara14
!vsave $takara15
!vsave $takara16
!vsave $takara17
!vsave $takara18
!vsave $takara19
!vsave $takara20
$saveok=1
!vsave $saveok
!goup #qwe





;--------------------------------------------------------
#map
!picarea 221,0,0,600,400
*
!picarea 221,0,400,600,400
*
!picarea 221,0,800,600,400
*
!picarea 221,0,1200,600,400
*
!picset 210,plmonita4.bmp
!picoff 211
!picoff 220


!picset 212,mapkakusi1.bmp
!picon 212
!pical 212,256
!picpos 212,480,200
!if $ibent4pc=1
!picoff 212
!endif



!picarea 221,0,1600,600,400
*
!picarea 221,0,2000,600,400
*
!picarea 221,0,2400,600,400
*
!picarea 221,0,0,1,1
#map2
*
!pause 1

!rnd $rnd,10
!pical 299,$rnd

!if $2key=$key
!goup #map2
!endif
$2key=0

!if $key!null
!wav 5,0
!picarea 221,0,0,600,400
*
!picarea 221,0,400,600,400
*
!picarea 221,0,800,600,400
*
!picarea 221,0,1200,600,400
*
$2key=$key
!picoff 212
!picon 211
!picon 220
!picset 210,plmonita1.bmp
!picarea 221,0,1600,600,400
*
!picarea 221,0,2000,600,400
*
!picarea 221,0,2400,600,400
*
!picarea 221,0,0,1,1
!goup #qwe
!endif

!goup #map2
;-------------------------------------------------------












































