randomize
objsize 100,22

mes ""
mes ""
button gosub "1",*one
button gosub "",*jn
//button "_",*rn
mes ""
mes""
randomize

stop
*one
cls
gazo=""
mes "摜(gqĂ)"
input gazo,100,23 
mes ""
button "Jn",*startone
stop
*startone
celload "摜/"+gazo+"",2
cls
aa=ginfo_dispx
aaa=ginfo_dispy
bgscr 0,ginfo_dispx,ginfo_dispy
width ,,0,0
repeat

 pos rnd(aa)-10,rnd(aaa)-10
  color 0,0,0
  gmode 2,120,120,0
gcopy 2,0,0,120,120

wait 0.000000000000001
 getkey flag, 27     ;L[̓`FbN
        if flag = 1 : end
       getkey flagent, 13    ;L[̓`FbN
        if flagent = 1 :gsel 0:bmpsave "o/摜"+rnd(999999)+".bmp" 
loop

*jn
cls
mes ""
input kazu,40,23
gazo=""
kakucho=""
mes ""
mes "摜(gqȂł)"
input gazo,200,23 
mes "gq(.(hbg)Ċgq)"
input kakucho,60,23
mes ""
button "Jn",*startjn
mes ""
mes "摜1gq"
mes "摜2gq"
mes "摜3gq"
mes "摜4gq"
mes "摜5gq"
mes "摜6gq"
mes "Ɠǂݍ܂܂(͔p)"
stop
*startjn
	cls
	mes "摜[h..."
	suzi=0
	repeat kazu
	suzi=suzi+1
celload "摜/"+gazo+""+suzi+""+kakucho+"",suzi
wait 0.1
loop
mes "摜[h"
wait 50
suzi = 0
cls
aa=ginfo_dispx
aaa=ginfo_dispy
bgscr 0,ginfo_dispx,ginfo_dispy
width ,,0,0


repeat
 pos rnd(aa)-10,rnd(aaa)-10
  color 0,0,0
  
  suzi=suzi+1
if suzi>kazu:suzi=0
  gmode 2,120,120,0
gcopy suzi,0,0,120,120

wait 0.1
     getkey flag, 27     ;L[̓`FbN
        if flag = 1 : end
       getkey flagent, 13    ;L[̓`FbN
        if flagent = 1 :gsel 0:bmpsave "o/摜"+rnd(999999)+".bmp" 
loop



*rn
dialog ""
*sa