





dim stage



dim x                                            ;@ʒu
dim y   
dim fight 
dim mybreak 


dim Ey                                           ;GfBOp

buffer 1
picload "wi.bmp"

buffer 2
picload "N.png"

buffer 3
picload "GeQ[.png"

buffer 4
picload "GeQ[2.png"

buffer 5
picload "̃Q[GeR.bmp"

buffer 6
picload "̃Q[wi.bmp"

mybreak=0
stage=1




////////////////////////////////////////////////////////////////////////////////////////////////////
*gametitle
screen 0,900,600
title "̃Q["
redraw 0
pos 0,0:gcopy 1,0,0,900,600
color 255,0,255:font "",50:pos 340,100:mes"w偂̎"
font "",20:pos 275,200:mes "`The story of just a spider climbing up`"
color 255,255,255:font"",15:pos 355,400:mes"Xy[XL[ŃX^[g"
pos 370,500:mes"CtrlL[ő@"
pos 375,450:mes"EnterL[ŏI"
redraw 1
repeat
	stick key
	if(key&16):break
	if(key&32):end
	if(key&64):goto *setgame
	await 20
loop

*maingame
screen 0,900,600
fight=3
x=500
y=500
stage=1
dim enemyA,15                                      ;G@ݒ
dim enemyAX,15  
dim enemyAY,15
dim enemyB,9
dim enemyBX,9
dim enemyBY,9
dim enemyC,7
dim enemyCX,7
dim enemyCY,7
font msgothic,17
randomize
repeat      
redraw 0
stick key,0
;pos 0,0:gcopy 1,0,0,900,600
gosub *enemybrith
gosub *Mymove
gosub *enemydraw

if y<=100:y=500:stage+1
if stage>=2:gosub *enemybrithB
if stage>=2:gosub *enemydrawB
if stage>=3:gosub *enemybrithC
if stage>=3:gosub *enemydrawC
if stage=5:break
gosub *mylife

redraw 1

await 16
loop

*endgame
	x=435:y=410
	screen 0,900,600
	repeat      
	redraw 0
	pos 0,0
	gcopy 6,0,0,900,600
	stick key,0
	if key&2:y=y-50:if y<200:y=200
	if key&8:y=y+50:if y>410:y=410
	color 255,255,255:line 450,250,450,410
	pos x,y:gcopy 2,0,0,40,40
	if key&16:goto *gametitle
	if y<=200{
		Ey=0
		repeat
		font msgothic,40,1
		redraw 0
		pos 0,0
	gcopy 6,0,0,900,600
		color 255,255,0
		pos 200,Ey
		mes "__NA߂łƂ^^"
		Ey=Ey+1
		if Ey>=150:Ey=150
		pos x,y:gcopy 2,0,0,40,40
		y=y-15
		font msgothic,15,
		color 255,255,255
		pos 327,420:mes"Xy[XL[Ń^Cgɖ߂"
		redraw 1
		await 16
		stick key,0
		if key&16:goto *gametitle
		loop
		}
redraw 1

await 16
loop

*Mymove
if(mybreak=0){
                                                  ;@ړݒ

if x=300:if key&2:y=y-100:if y<100:y=100
if x=400:if key&2:y=y-100:if y<100:y=100
if x=500:if key&2:y=y-100:if y<100:y=100
if x=600:if key&2:y=y-100:if y<100:y=100
if x=300:if key&8:y=y+100:if y>500:y=500
if x=400:if key&8:y=y+100:if y>500:y=500
if x=500:if key&8:y=y+100:if y>500:y=500
if x=600:if key&8:y=y+100:if y>500:y=500

if y=200:if  key&1:x=x-20:if x<200:x=200
if y=300:if  key&1:x=x-20:if x<200:x=200
if y=400:if  key&1:x=x-20:if x<200:x=200
if y=200:if key&4:x=x+20:if x>700:x=700
if y=300:if key&4:x=x+20:if x>700:x=700
if y=400:if key&4:x=x+20:if x>700:x=700
color 0,0,0:boxf
color 255,255,255:line 700,210,200,210
color 255,255,255:line 700,310,200,310
color 255,255,255:line 700,410,200,410
color 255,255,255:line 600,510,600,110
color 255,255,255:line 300,510,300,110
color 255,255,255:line 400,510,400,110
color 255,255,255:line 500,510,500,110
pos x-15,y
gmode 2
color 255,255,255
gcopy 2,0,0,256,256
}
else:if(mybreak>1){
	mybreak--
	color 0,0,0,boxf
color 255,255,255:line 700,210,200,210
color 255,255,255:line 700,310,200,310
color 255,255,255:line 700,410,200,410
color 255,255,255:line 600,510,600,110
color 255,255,255:line 300,510,300,110
color 255,255,255:line 400,510,400,110
color 255,255,255:line 500,510,500,110
color 255,255,255:pos x-10,y
if(mybreak\10<5):mes"~"
	}
else:if(fight){
	fight--
	mybreak=0
	x=500
	y=500
	}
else{
	goto *BadEnd
	}
return



*enemybrith                                       ;G@
	if(enemycycle):enemycycle--:return
	foreach enemyA
	if(enemyA(cnt)==0){
		enemyA(cnt)=1
		enemyAX(cnt)=rnd(900/50)*50
		enemyAY(cnt)=-200
		break
		}
	loop
	enemycycle=15
	return


*enemydraw                                       ;G@`
	foreach enemyA
	if enemyA(cnt){
		enemyAY(cnt)+=3:if(enemyAY(cnt)>800):enemyA(cnt)=0:continue
		if touch(enemyAX(cnt),enemyAY(cnt)) :enemyA(cnt)=0:continue
		pos enemyAX(cnt)-7,enemyAY(cnt)-150
		gmode 0
		gcopy 3,0,0,15,300
		}
	loop
	return

*enemybrithB                                       ;G@a
	if(enemycycleB):enemycycleB--:return
	foreach enemyB
	if(enemyB(cnt)==0){
		enemyB(cnt)=1
		enemyBX(cnt)=rnd(900/50)*50
		enemyBY(cnt)=-500
		break
		}
	loop
	enemycycleB=10
	return


*enemydrawB                                       ;G@`a
	foreach enemyB
	if enemyB(cnt){
		enemyBY(cnt)+=5:if(enemyBY(cnt)>800):enemyB(cnt)=0:continue
		if touch(enemyBX(cnt),enemyBY(cnt)) :enemyB(cnt)=0:continue
		pos enemyBX(cnt)-7,enemyBY(cnt)-150
		gmode 0
		gcopy 4,0,0,15,300
		}
	loop
	return

*enemybrithC                                       ;G@b
	if(enemycycleC):enemycycleC--:return
	foreach enemyC
	if(enemyC(cnt)==0){
		enemyC(cnt)=1
		enemyCX(cnt)=rnd(900/50)*50
		enemyCY(cnt)=-500
		break
		}
	loop
	enemycycleC=10
	return


*enemydrawC                                       ;G@`b
	foreach enemyC
	if enemyC(cnt){
		enemyCY(cnt)+=10:if(enemyCY(cnt)>800):enemyC(cnt)=0:continue
		if touch(enemyCX(cnt),enemyCY(cnt)) :enemyC(cnt)=0:continue
		pos enemyCX(cnt)-7,enemyCY(cnt)-150
		gmode 0
		gcopy 5,0,0,15,300
		}
	loop
	return
	
	

*mylife
	msg=""
	repeat fight
	msg+=""
	loop
	font MSGOTHIC,20,1
	color 18,0,47:boxf 0,550,900,600
	color 18,0,47:boxf 0,0,150,600
	color 18,0,47:boxf 750,0,900,600
	color 225,225,225:pos 0,580:mes"Life"
	color 200,0,0:pos 45,580:mes msg
	color 255,255,255:pos 0,0:mes "Stage"
	color 0,255,0:pos 60,0:mes stage
	font MSGOTHIC,20
	return

*BadEnd
	x=435:y=410
	screen 0,900,600
	repeat      
	redraw 0
	color 0,0,0:boxf
	font msgothic,40,1
	stick key,0
	if key&2:y=y-50:if y<200:y=200
	if key&8:y=y+50:if y>410:y=410
	color 255,255,255:line 450,250,450,410
	pos x,y:gcopy 2,0,0,40,40
	pos 380,150:mes "oI"
	if key&16:goto *gametitle
	if y<=200{
		repeat
		font msgothic,40,1
		redraw 0
		color 0,0,0:boxf
		color 255,0,0
		pos 360,150
		mes "Game Over"
		pos x,y:gcopy 2,0,0,40,40
		y=y+15
		font msgothic,15,
		color 255,255,255
		pos 330,420:mes"Xy[XL[Ń^Cgɖ߂"
		redraw 1
		await 16
		stick key,0
		if key&16:goto *gametitle
		loop
		}
redraw 1

await 16
loop

*setgame
	screen 0,900,600
	redraw o
	color 0,0,0:boxf
	font MSGOTHIC,40,1
	color 150,0,150:pos 400,100:mes"Vѕ"
	font MSGOTHIC,20,1
	color 255,255,255:pos 300,270:mes"L[ňړ       "
	pos 290,320:mes "֌ĂЂo܂傤"
	pos 0,580:mes"cc@"
	pos 0,0:mes "݂̃Xe[W"
	pos 320,430:mes"CtrlL[Ń^Cgʂɖ߂"
	redraw 1
	repeat
	stick key
	if(key&64):goto *gametitle
	await 20
	loop
	
#defcfunc touch int _x_,int _y_                    ;@蔻
if(mybreak==0)and(abs(x-_x_)<=15)and(abs(y-_y_)<=150){
	mybreak=60
	return 1
 }
return 0